在Form1、标题为“鼠标光标形状”的窗体上添加一个文本框

在Form1、标题为“鼠标光标形状”的窗体上添加一个文本框 基础题(1) 【解题思路】先将窗体的Caption属性设置为"鼠标光标形状"，然后再添加一个名称为Text1的文本框。通过文本框和窗体的MousePointer属性的设置，使鼠标在文本框中时，鼠标光标为箭头(Arrow)形状;在窗体中其他位置处，鼠标光标为十字(Cross)形状。 【操作步骤】 步骤1:新建一个窗体，在窗体中添加一个窗体和一个文本框，然后按照题目要求设置控件属性。程序中用到的控件及属性见表3.78。 表3.78 步骤2:调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】通过标签的Name、Caption属性设置标签的名称和标题，通过命令按钮的Name、Caption属性设置命令按钮的名称和标题。 【操作步骤】 步骤1:建立界面，在窗体中添加3个文本框，一个命令按钮和两个标签控件。并设置控件的属性。程序中用到的控件及属性见表3.79和表3.80。 步骤2:打开代码编辑窗口，在指定位置编写代码。 参考答案 Private Sub Command1_Click() Text3 = Text1.SelLength Text2 = Text1.SelStart End Sub 步骤3:调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第35套第二大题的第二小题来进行同类知识点的练习。 简单题(1) 【解题思路】窗体载入时，通过滚动条的Min、Max属性设置两个滚动条的移动刻度值的范 围，滚动条刻度值的范围是圆可以在矩形中移动的范围。形状控件的Top和Left属性值随着滚动 条的Value属性值的变化而改变，使水平滚动条的滚动块在最左边时，圆靠在矩形的左边线上， 滚动块在最右边时，圆靠在矩形的右边线上。垂直滚动条的情况与此类似。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form_load() HScroll1.Min = Shape2.Left ' HScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ? VScroll1.Min = Shape2.Top ' VScroll1.Max = Shape2.Height + ? - Shape1.Height HScroll1.Value = 1000 VScroll1.Value = 1000 End Sub Private Sub HScroll1_Change() ' , = HScroll1.Value End Sub Private Sub VScroll1_Change() ' Shape1.Top = ? End Sub 程序结束 参考答案 第1个,处填入:Width 第2个,处填入:Shape2.Top 第3个,处填入:Shape1.Left 第4个,处填入:VScroll1.Value 步骤3:调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第19套第二大题的第二小题来进行同类知识点的练习。 简单题(2) 【解题思路】计时器的Interval属性用来控制计时器事件发生的时间 间隔(Interval是以毫秒为单位)。当单击"发射"按钮时开始计时，将计时器控件的Enabled属性设 置为True。航天飞机图标将向上运动，速度逐渐加快，通过形状控件的Height、Top属性判断是 否全部进入云中后，如果全部进入则停止，这时需要将计时器控件的Enabled属性设置为False， 并把飞行距离d、所用时间(单位为秒)分别显示在标签Label1和Label2中;单击"保存"按钮，则把 飞行距离、所用时间存入考生文件夹下的out4.txt文件中。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a, t, d Private Sub Command1_Click() ' Timer1.? = True d = Image1.Top End Sub Private Sub Command2_Click() Open App.Path & "\out4.txt" For Output As #1 Print #1, Label1, Label2 Close #1 End Sub Private Sub Form_Load() a = 1 t = 0 End Sub Private Sub Timer1_Timer() Image1.Top = Image1.Top - a * 50 If Image1.Top + Image1.Height <= Image2.Top + Image2.Height - 200 Then ' , = False ' d = ? - Image1.Top Label1 = d Label2 = t * Timer1.Interval / 1000 End If a = a + 0.1 ' t = ? End Sub 程序结束 参考答案 第1个,处填入:Enabled 第2个,处填入:Timer1.Enabled 第3个,处填入:d 第4个,处填入:t + 1 步骤3:调试并运行程序，关闭程序后按题目要求存盘。 综合题 【举一反三】可以通过第1套第二大题的第一小题来进行同类知识点的练习。 【解题思路】单击"读数据"命令按钮，通过文件操作和For循环语句将考生文件夹下in5.dat 文件中两组已按升序方式排列的数据(每组30个数据)分别读入数组A和B，并分别将它们显示在 Text1、Text2中;为使数据间保持一定间隔，每个数据后用Space(2)加入2个空格。 单击"合并"命令按钮，通过For语句将A、B两个数组合并，合并方式为数组的前30个数为数 组A，后30个数为数组B，然后运用冒泡排序的方法生成按升序方式排列的数组C，并将合并后 数组的数据依升序方式显示在Text3中。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(30) As Integer, b(30) As Integer, c(60) As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in5.dat" For Input As #1 For k = 1 To 30 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(2) Next k For k = 1 To 30 Input #1, b(k) Text2 = Text2 + Str(b(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() '考生编写程序开始 ',,,,,,,,,,,,,,,,,,,,,,, ',,,,,,,,,,,,,,,,,,,,,,, '考生编写程序结束 '以下程序将合并后的数组C显示在Text3中 For k = 1 To 60 Text3 = Text3 + Str(c(k)) + Space(2) Next k End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out5.dat" For Output As #1 Print #1, Text3.Text Close #1 End Sub 程序结束 参考答案 c(1) = a(1) For i = 2 To 30 c(i) = a(i) Next c(31) = b(1) For j = 32 To 60 c(j) = b(j - 30) Next For i = 1 To 60 f = True For j = 1 To 59 If c(j) > c(j + 1) Then t = c(j) c(j) = c(j + 1) c(j + 1) = t f = False End If Next If f Then Exit For End If Next 步骤3:调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第35套第三大题来进行同类知识点的练习。 亲爱的朋友,上文已完,为感谢你的阅读,特加送另一篇范文, 如果下文你不需要,可以下载后编辑删除,谢谢, 矿井水灾事故专项应急演练 1 应急演练目的、意义和目标 1.1应急演练目的 ? 评估我矿水灾事故的应急准备状态，发现并修改我矿水灾事故专项应急预案和执行程序中存在的缺陷和不足; ? 评估我矿在发生水灾事故时的应急能力，识别处理水灾事故的资源需求，澄清相关单位和人员的应急职责，改善水灾事故应急救援中的组织协调问题; ? 检验应急响应人员对水灾事故应急预案及执行程序的了解程度和实际操作技能;同时，通过调整演练难度，进一步培训和提高应急响应人员的业务素质和能力; ? 提高全员安全意识。 1.2应急演练意义: 为了进一步增强煤矿应对水灾事故的快速反应能力、应急处理能力和协调作战能力，提高米田煤矿的应急救援水平，切实保障人民生命和公司财产的安全，米田煤矿特组织本次应急救援演练。 1.3应急演练目标 1.3.1 报警 当发生水灾事故时，由现场施工单位当班第一责任者采用电话报警的方式进行报警。 1.3.2接警 处警 调度室接到事故报警后，调度室调度员立即向当天矿值班长和应急救援领导小组组长(矿长)汇报，同时通知水灾应急演练指挥部有关人员到调度室待命，根据指挥部意见，启动水灾应急救援预案。 1.3.3 应急指挥 ? 基层单位: 一旦发生矿井水灾事故，现场施工单位立即成立水灾事故现场处置小组，掘进队当班第一责任者为小组长。 ? 矿级应急指挥: 矿调度室接到事故报警后，矿成立矿井水灾事故应急演练小组，指挥部设在矿调度室。 1.3.4 应急行动 ? 基层单位应急行动 现场组织人员按照避灾路线撤离至安全地点。 模拟底板涌水的疏、排; ? 矿级应急行动 矿调度室通知相关泵房，由开泵人员立即开动工作、备用水泵开始排水;同时检查检修水泵的完好状况，保证检修水泵能够随时投入运转。 2 应急演练原则 ? 安全第一、以人为本的原则。 ? 统一领导、分级负责的原则。 1 ? 反应迅速、措施果断的原则。 ? 部门配合、分工协作的原则。 3应急演练类型和时间地点 3.1应急演练类型 本次演练演练为实战检验性演练 3.2 应急演练时间 本次演练时间2012年3月10日八点班9:00,10:35。 如果演练当日出现特殊情况，应急预案演练可顺延或提前。 3.3 应急演练地点 ? 110401运输巷工作面 ? 矿调度室 4 应急演练组织机构 4.1应急演练领导小组 组 长: 陈 仕 副组长: 董永海 成 员:孔家稳 何兴八 张蛮 敖成卫 胡荣兴 黄志党 李登学 牛建毕 封志平 职责:负责水灾事故应急演练活动全过程的组织领导，审批决定 演练的重大事项。 4.2策划部 ?总策划:彭家福 职责:负责演练准备、演练实施、演练总结的组织实施。 2 ?文案组 组长:孔家稳 ?协调组 组长:陈 仕 ?控制组 组长:董永海 4.3 评估组 共设四个评估组，每组2人。 (评估组建议由安监队人员组成，每组2人，1人评估，1人) 第一组: 位置:110401运输巷工作面 记录和评估水灾演练现场报警、现场处置小组成立及现场应急处置情况 第二组: 位置:调度室记录和评估主井采区工作。记录和评估调度室接警、处警、矿井水灾应急演练小组成立、应急指挥部人员到位、应急指挥、协调情况。 5 演练情景 5.1应急演练概述: 110401运输巷工作面，目前已施工28m，煤层平均厚度2.62米， 110401运输巷工作面安设有一部能直通调度室的电话。 2013年3月10日下午3:00时，安全矿长组织召开矿井水灾应 3 急演练预备会议，进一步确认各演练情景准备情况，确认准备完毕后，安全副矿长要求各参演单位及装备务必于2012年3月10日上午8:30分准时到位，2013年3月10日上午9:00时准时开始演练。 2013年3月10日上午9:00时，该巷工作面后138m，发生掘进工作面滞后突水，突水水量60m?/h。 2013年3月10日9:00，演练总指挥宣布应急演练开始。 5.2 演练情景1 报警、现场处置小组成立及现场处置 地点:110401运输巷工作面 总指挥宣布演练开始后，调度室用电话通知110401运输巷工作面评估组人员，评估人员通知当班第一责任者演练开始。 5.2.1 水灾事故发生 撤人 9:05分，当班第一责任者在掌子头后130m处发现巷道顶板地鼓，随后发生巷道顶板突水，当班第一责任者喊“顶板出水了，人员赶快撤离”，并且立即通知班长，班长带领全部人员撤离到运输石门盘口，当班第一责任者最后撤离，由当班第一责任者在运输石门盘口清点人数。 5.2.2报警 当班第一责任者清点人数后，当班第一责任者立即向调度室汇报模拟水灾的具体情况。 汇报内容为:顶板突水位置、顶板突水大致水量、顶板突水人员撤出情况、支援需要以及现场处置方法。 5.2.3现场处置小组成立 当班第一责任者报警后，立即着手成立水灾事故现场处置小组 4 组 长:当班第一责任者 副组长:当班班长 成 员:当班全体人员 5.2.4水灾事故现场处置 110401运输巷顶板突发性涌水，突水点不易堵，应采取疏导措施，现场人员应尽量使涌水沿水沟流入水仓，同时清理水沟及两侧的浮煤、杂物，减少进入水仓的杂物。 5.3 演练情景2 调度室接警、处警、矿井水灾应急演练小组成立、应急指挥、协调情况。 地点:调度室 5.3.1 接警、处警 9时10分，调度室接到现场报警后，迅速向值班矿长和应急救援领导小组组长(矿长)汇报，同时通知水灾应急演练指挥部有关人员到调度室待命，根据指挥部意见，启动水灾应急演练方案。 5.3.2 矿井水灾应急演练小组成立 9时20分，矿井应急演练领导小组成员接到通知后到达调度室，矿井应急演练小组随即成立。 5.3.3 应急指挥 调度室电话通知各井下人员撤离。 5.6 应急结束: ? 10时00分，中央水仓向救援小组汇报:中央水仓工作、备用水泵工作正常。 5 ? 10时20分，1191机巷汇报:排水路线(自流)沿途浮渣、浮煤、杂物已清理干净，机巷底板突水沿水沟流入井底水仓。 ? 调度室接到各处水灾应急演练情况汇报，立即报告应急演练小组，应急救援小组经过认真研究分析，认为本次水灾应急演练目标已全部实现，宣布水灾应急演练全部结束，恢复正常状态。 6 演练工作准备 6.1分析演练需求 ? 人力资源需求 掘进队20人(其中一名跟班干部，三名班长，井下11名职工，井上5名职工)，机电队2人，安检队10人，调度室3人、机电队中央水仓水泵司机2人。 ? 场地资源需求 110401运输巷 调度室 ? 物资器材需求 A、110401运输巷掌子头后5m，供水管路安装三通一个，演练开始后，打开阀门作为模仿水灾水源; B、 铁锨、镐各5把(1191机巷演练挖水沟、请浮渣用) ? 文件资料准备 采掘工程平面图1套 6.2确定演练范围 本次应急演练为矿一级应急演练，包括: 6 ? 1191机巷水灾事故现场，掘进队处理水灾事故的应急演练; ? 调度、指挥系统处理水灾事故应急演练; 7 演练实施 7.1演练过程控制 ? 演练启动方式 2013年3月10日9:00，演练总指挥宣布应急演练开始，调度室电话通知通知110401运输巷演练开始，掘进队接到通知后，开动预先准备的演练水源，演练正式启动。 7.2 演练实施的步骤 ? 演练启动; ? 掘进队通知调度室:110401运输巷发生老窑突水位置、突水大致水量、老窑突水人员撤出情况、支援需要以及现场处置方法; ? 掘进队突水现场疏、堵、排措施的落实; ? 调度室的应急响应 调度、指挥系统成立; ? 应急演练小组根据各演练场地汇报决定演练是否结束 7.3、应急演练记录的要求 演练记录由演练评估组人员填写，演练评估组人员可根据演练具体情况增加内容，演练记录要求做到客观真实，演练记录由调度室负责保存。 应急演练记录如下: 7 应 急 演 练 记 录 (场景1) 演练时间 2013年3月10日 地 点 110401机巷 参演单位 掘进队 水灾事故发生 撤人: 1、当班第一责任者发现老窑突水，立即通知班长撤人，通知的时间; 2、班长带领全部人员撤离到回风石门，撤人的速度及时间; 3、当班第一责任在人员全部撤出后，最后撤离，当班第一责任者撤至运输石门盘 口的时间; 4、由当班第一责任者在运输石门盘口清点人数，清点人数后，记录撤人所用的时 间及人员撤出情况; 报 警: 当班第一责任制在人员全部撤出后，立即电话报警，记录报警的时间及内容: 1、老窑突水位置; 2、老窑突水大致水量; 3、老窑突水人员撤出情况; 4、支援需要以及现场处置方法。 8 现场处置小组成立: 当班第一责任者报警后，负责成立水灾事故现场处置小组: 组 长:当班第一责任者 副组长:当班班长 成 员:当班全体人员 水灾事故现场处置 现场处置小组分两队，第一队由当班第一责任者带领，第二队由当班班长带领。 1、 第一队负责从老窑突水位置至回风上山段清理。 2 、第二队负责从回风石门交叉口至水仓入水口段清理。 记录现场处置小组的分队情况，水沟的清理情况及水灾演练涌水流入水仓是 否夹有杂物; 记录人签名 9 应 急 演 练 记 录 (场景2) 演练时间 2013年3月10日 地 点 调度室 参演单位 调度室 接警、处警 1、调度室调度员接到现场报警后，向值班矿长汇报事故情况; 2、调度员向矿长汇报事故情况; 3、调度员通知应急演练指挥部人员到调度室待命; 4、水灾应急演练指挥部人员到位情况; 记录调度员接到事故报警后，通知水灾应急演练指挥部人员的时间，所通知 人员到达调度室的时间 矿井水灾应急演练小组成立 记录水灾应急演练小组成立的时间，演练小组成立后，分析判断灾情，此次演练灾情不足以水淹矿井，矿井排水系统有能力排水，决定立即中央水仓工作及备用水泵全力排水。 10 应急指挥: 水灾应急演练小组分析判断灾情后，立即通知调度员，调度员立即电话通知中央水仓开动工作及备用水泵全力排水;记录调度员通知两个水仓的时间，两个水仓工作人员接到调度室电话的时间。 应急结束: ? 记录中央水仓向救援小组汇报:中央水仓工作、备用水泵工作正常，检修水泵是否能够随时更换。 ?记录1191机巷汇报:排水路线(自流)沿途浮渣、浮煤、杂物已清理干净，机巷老窑突水沿水沟流入井底水仓。 ?? 记录调度室接到各处汇报，调度员将情况汇报应急演练小组，应急演练小组经过综合分析，确定应急演练目的已到达，具备应急演练结束的条件应急演练小组长宣布应急演练结束，现场矿领导安排参演队伍回到本职岗位，各工作地点恢复到正常状态。 记录人签名 11 7.4 应急演练结束与终止 7.4.1应急演练结束的条件 110401运输巷，演练涌水。 8 应急演练评估 8.1应急演练评估方法 应急演练采用表格评估法，评估人员利用提前设计评估表，进行跟踪评定。 演练评估报告有策划部文案组编写; 演练评估报告的主要内容一般包括演练执行情况、预案的合理性与可操作性、应急指挥人员的指挥协调能力、参演人员的处置能力、演练目标的实现情况、对完善预案的建议等。 8.2应急演练评估标准 水灾应急演练评估表 演练评价分数 序演 练 评价标准 得分 号 目 标 好 中 差 当班第一责任者发现老窑突水，立即通知班长场水灾2 1.5 1 景事故撤人。 12 1 发生 班长带领全部人员撤离到轨道石门盘口，撤人 撤 人 3 2 1 的速度及时间。 当班第一责任在人员全部撤出后，最后撤离， 3 2 1 当班第一责任者撤至轨道石门盘口的时间。 由当班第一责任者在轨道石门盘口清点人数， 清点人数后，记录撤人所用的时间及人员撤出2 1.5 1 情况。 报警的及时性 2.0 1.0 0.5 底板突水位置 1.0 0.8 0.5 报 报 警 底板突水大致水量; 1.0 0.8 0.5 警 内底板突水人员撤出情况 1.0 0.8 0.5 容 支援需要以及现场处置方法 1.0 0.8 0.5 现场现场处置小组成立的及时性 2.0 1.5 1 处置 小组在灾害面前，现场处置小组应急状态(好、坏、 3.0 2 1.5 成 立 差) 现场处置小组处理灾情的分工 3 2.5 1.5 水灾 现场处置小组处理灾情的积极性 2 1.5 1 事故 现场 水沟清理情况 3 2.5 1.5 处 置 演练涌水进入水仓前是否有杂物 2 1.5 1 调度室调度员接到现场报警后，向值班矿长汇 3 2.5 2 报事故情况; 接警、 处警 调度员向矿长汇报事故情况; 2 1.5 1.0 场 调度员通知应急演练指挥部人员到调度室待命 3 2.5 1.5 景 2 水灾应急演练指挥部人员到位情况; 2 1.5 1.0 矿井 水灾应急演练小组成立的及时性 3 2.0 1.5 水灾 13 应急 演练 水灾应急演练小组分析判断灾情的正确性 3 2.0 1.5 小组 成 立 110401机巷汇报:排水路线(自流)沿途浮渣、 浮煤、杂物已清理干净，机巷底板突水沿水沟2 1.5 1.0 流入主井水仓。 调度室接到各处汇报，调度员将情况汇报应急 演练小组，应急演练小组经过综合分析，确定 3 1.5 1.0 应急演练目的已到达，具备应急演练结束的条 件，应急演练小组长宣布应急演练结束。 合计 9 演练安全注意事项 为确保演练参与人员的安全，应急演练必须遵守以下规定: 1、演习过程中所有消息或沟通必须以“这是一次水灾事故应急演练”作为开头或结束语，以便保证演习人员和可能受其影响的人员都知道这是一次模拟紧急事件; 2、参与演练的所有人员必须遵守有关规章和安全技术措施，严禁违章作业。 3、各参演队伍和人员在演练过程中必须听从现场领导的统一指挥，在指定的安全处待命，并不得阻断人行道。 4、现场参演人员不得随意开动各种机电设备。 5、当出现真实的紧急情况时，现场人员要在现场领导的统一安排下迅速回到本职岗位。 14