VB简单计算器编程代码(附图)

VB简单计算器编程代码(附图) 课程设计说明书正文 一、题目:计算器的创作和相应程序的编写 二、本题的主要功能:通过计算器的创作熟悉各控件的属性和练习程序的编写。 三、程序截图: 四、源程序清单: Begin VB.Form Form1 Caption = "计算器" ClientHeight = 3765 ClientLeft = 165 ClientTop = 855 ClientWidth = 5355 Icon = "Form1.frx":0000 LinkTopic = "Form1" LockControls = -1 'True ScaleHeight = 3765 ScaleWidth = 5355 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command4 Caption = "=" Height = 495 Left = 4470 TabIndex = 28 Top = 3060 Width = 735 End Begin VB.CommandButton Command3 Caption = "1/x" Height = 495 Left = 4470 TabIndex = 27 Top = 2520 Width = 735 End Begin VB.CommandButton Command2 Caption = "%" Height = 495 Left = 4470 TabIndex = 26 Top = 1980 Width = 735 End Begin VB.CommandButton Command1 Caption = "sqrt" Height = 495 Left = 4470 TabIndex = 25 Top = 1440 Width = 735 End Begin VB.CommandButton cmbDOT Caption = "." Height = 495 Left = 2910 TabIndex = 24 Top = 3060 Width = 735 End 1 Begin VB.CommandButton cmbZF Caption = "+/-" Height = 495 Left = 2130 TabIndex = 23 Top = 3060 Width = 735 End Begin VB.CommandButton cmbSign Caption = "+" Height = 495 Index = 3 Left = 3690 TabIndex = 22 Top = 3060 Width = 735 End Begin VB.CommandButton cmbSign Caption = "-" Height = 495 Index = 2 Left = 3690 TabIndex = 21 Top = 2520 Width = 735 End Begin VB.CommandButton cmbSign Caption = "*" Height = 495 Index = 1 Left = 3690 TabIndex = 20 Top = 1980 Width = 735 2 End Begin VB.CommandButton cmbSign Caption = "/" Height = 495 Index = 0 Left = 3690 TabIndex = 19 Top = 1440 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "9" Height = 495 Index = 9 Left = 2910 TabIndex = 18 Top = 1440 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "8" Height = 495 Index = 8 Left = 2130 TabIndex = 17 Top = 1440 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "7" Height = 495 Index = 7 Left = 1350 TabIndex = 16 3 Top = 1440 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "6" Height = 495 Index = 6 Left = 2910 TabIndex = 15 Top = 1980 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "5" Height = 495 Index = 5 Left = 2130 TabIndex = 14 Top = 1980 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "4" Height = 495 Index = 4 Left = 1350 TabIndex = 13 Top = 1980 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "3" Height = 495 Index = 3 4 Left = 2910 TabIndex = 12 Top = 2520 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "2" Height = 495 Index = 2 Left = 2130 TabIndex = 11 Top = 2520 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "1" Height = 495 Index = 1 Left = 1350 TabIndex = 10 Top = 2520 Width = 735 End Begin VB.CommandButton cmbNUM Caption = "0" Height = 495 Index = 0 Left = 1350 TabIndex = 9 Top = 3060 Width = 735 End Begin VB.CommandButton cmbMa Caption = "M+" 5 Height = 495 Left = 150 TabIndex = 8 Top = 3060 Width = 975 End Begin VB.CommandButton cmbMS Caption = "MS" Height = 495 Left = 150 TabIndex = 7 Top = 2520 Width = 975 End Begin VB.CommandButton cmbMR Caption = "MR" Height = 495 Left = 150 TabIndex = 6 Top = 1980 Width = 975 End Begin VB.CommandButton cmbMC Caption = "MC" Height = 495 Left = 150 TabIndex = 5 Top = 1440 Width = 975 End Begin VB.CommandButton cmbC Caption = "C" Height = 495 Left = 4020 6 TabIndex = 4 Top = 690 Width = 1155 End Begin VB.CommandButton cmbCE Caption = "CE" Height = 495 Left = 2670 TabIndex = 3 Top = 690 Width = 1155 End Begin VB.CommandButton cmbbackspace Caption = "Backspace" Height = 495 Left = 1380 TabIndex = 2 Top = 690 Width = 1155 End Begin VB.TextBox Text1 Alignment = 1 'Right Justify Height = 375 Left = 210 TabIndex = 0 Text = "0." Top = 120 Width = 4935 End Begin VB.Label Label2 Alignment = 2 'Center Height = 255 Left = 360 TabIndex = 29 7 Top = 840 Width = 375 End Begin VB.Label Label1 Alignment = 2 'Center BorderStyle = 1 'Fixed Single BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 1 Top = 690 Width = 615 End Begin VB.Menu edit Caption = "编辑(&E)" End Begin VB.Menu look Caption = "查看(&V)" End Begin VB.Menu help Caption = "帮助(&H)" End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False 8 Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Dim dotflag As Boolean Dim fuhao As String Dim first As Double Dim second As Double Dim isEqual As Boolean Dim memory As Double '保存显示的数据 Dim lianyong As Double '当连续按等号时使用该变量 Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Dim dotflag As Boolean Dim fuhao As String Dim first As Double Dim second As Double Dim isEqual As Boolean Dim memory As Double '保存显示的数据 Dim lianyong As Double '当连续按等号时使用该变量 Private Sub cmbDesign_Click(Index As Integer) End Sub Private Sub cmbbackspace_Click() If Right(Trim(Text1.Text), 1) = "." Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 2) & "." Else Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1) End If If Right(Text1.Text, 1) = "." Then dotflag = False End If If Len(Text1.Text) = 1 Then Text1.Text = "0." End If End Sub 单击Backspace时删除文本框内最后一个字符 9 Private Sub cmbC_Click() dotflag = False Text1.Text = "0." first = 0 second = 0 End Sub 使文本框变成初始状态“0.” Private Sub cmbCE_Click() Text1.Text = "0." End Sub 删除文本框内的所有内容，使文本框变成初始状态“0.” Private Sub cmbDOT_Click() '标示点击了点“。” dotflag = True End Sub 点的点击， Private Sub cmbMa_Click() Text1.Text = Str(Val(Text1.Text) + memory) formatText End Sub 记忆运算数值 Private Sub cmbMC_Click() memory = 0 Label2.Caption = "" End Sub 清除存储器内容. Private Sub cmbMR_Click() Text1.Text = Str(memory) formatText End Sub 调用存储器内容 Private Sub cmbMS_Click() memory = Val(Text1.Text) '保存到内存中 Label2.Caption = "M" End Sub 保存到内存中 Private Sub cmbNUM_Click(Index As Integer) '判断是否按过等号键“=" If isEqual = True Then Text1.Text = "0." isEqual = False 10 End If '判断是否点击过“点”按扭，如果未点击过在点前添加，否则在点后添加 If dotflag = False Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & Index & "." Else Text1.Text = Text1.Text & Index End If formatText End Sub Private Sub cmbSign_Click(Index As Integer) '恢复未点击点“。”的状态 dotflag = False isEqual = False '恢复等号在本次运算中未单击过状态 first = Text1.Text fuhao = cmbSign(Index).Caption Text1.Text = "0." End Sub Private Sub cmbZF_Click() If Left(Trim(Text1.Text), 1) = "-" Then Text1.Text = Mid(Text1.Text, 2) Else Text1.Text = "-" & Trim(Text1.Text) End If End Sub 对文本框进行取负运算 Private Sub Command1_Click() Dim isDot As Boolean Dim i As Integer For i = 1 To Len(Trim(Text1.Text)) If Mid(Trim(Str(Sqr(Val(Text1.Text)))), i, 1) = "." Then isDot = True Exit For End If Next i If isDot = False Then 11 Text1.Text = Str(Sqr(Val(Text1.Text))) & "." Else Text1.Text = Str(Sqr(Val(Text1.Text))) End If End Sub 对文本框的内容进行开方运算 Private Sub Command4_Click() second = Val(Text1.Text) If isEqual = False Then lianyong = Val(Text1.Text) Else first = second End If Text1.Text = Str(compute(first, lianyong, fuhao)) formatText isEqual = True End Sub 等号的运算，并结束此次运算 Private Sub Form_Load() dotflag = False isEqual = False lianyong = 0 End Sub 判断等号是否连用 Public Function compute(f As Double, s As Double, fuhao As String) As Double Select Case fuhao Case "+" compute = f + s Case "-" compute = f - s Case "*" compute = f * s Case "/" compute = f / s Case Else MsgBox "不明白" End Select 12 End Function 对文本框的内容进行加、减、乘、除的运算 Public Sub formatText() Dim i As Integer Dim isDot As Boolean isDot = False For i = 1 To Len(Text1.Text) If Mid(Trim(Text1.Text), i, 1) = "." Then isDot = True Exit For End If Next i If isDot = False Then Text1.Text = Text1.Text + "." End If If Left(Text1.Text, 1) = "0" Then Text1.Text = Mid(Text1.Text, 2) End If If Left(Trim(Text1.Text), 1) = "." Then Text1.Text = "0" & Trim(Text1.Text) End If If Left(Trim(Text1.Text), 2) = "-." Then Text1.Text = "-0" & Mid(Trim(Text1.Text), 2) End If End Sub 五、程序调试结果及程序改进意见 1)如何判断小数点是否按下, 当小数点没有按下是，文本框的内容最后一个字符是:“.”，当小数点按下时，文本框内容最后一个字符是输入的内容。 2)如何对按钮添加彩色图形, 在画图板上做出所需要彩色图形的图片，再把图片应用到控件按钮上。 3)如何判断除数不能为0，当除数为0时如何操作, 当除数为0时，单击等于运算时会显示除数不能为0，当除数为0时改变文本框的内容使除数不为0. 13 亲爱的朋友,上文已完,为感谢你的阅读,特加送另一篇范文, 如果下文你不需要,可以下载后编辑删除,谢谢, 矿井水灾事故专项应急演练方案 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