问题 填空题

在E盘当前目录文件夹下建立一个名为“Student.txt’’’的顺序文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。  Private Sub Form _ Click( )    【 】     For i=1 To 5      StuName=InputBox("请输入姓名")      StuGrade=InputBox("请输入年级号")      StuAge=InputBox("请输入年龄")      【 】     Next i     【 】   End Sub

答案

参考答案:Open"E:\Student.txt" For Output As #1

解析:在Form _ Click过程中,要在文件中写入数据,首先要建立一个文件,建立文件用Open语句,文件名必须是全称;因为要建立的文件为空文件,所以可以认为不能从它里面读出数据,只能写入数据在For“模式”中应该用“Output”,所以在第一个空处应填入的语句是“Open”E:\Student.txt" For Output As #1”;在For循环语句中,首先调用InputBox函数,给出提示信息,并将接收到的信息依次赋给相应的变量,然后将它们写入文件中,因为StuName,StuGrade,StuAge为变量名,不能用双引号,所以在第二个空处应填入的语句是“Write #1,StuName,StuGrade,StuAge”;当对文件写完以后,就要关闭文件,关闭文件用Close语句,关闭文件的格式为Close[[#]文件号,[#]文件号……],文件号即为打开文件时的文件号,所以第三个空应填入的语句是“Close #1”。

单项选择题
问答题 案例分析题

某年2月17日15时许,H省W县某建筑公司承建的某发电厂一期工程3#机组冷却塔施工现场发生一起高处作业坠落事故,造成7人死亡。

事故发生过程:

某发电厂一期工程项目经S省发展计划委员会批准建设。由S省某电力建设公司中标建设,其中3#机组冷却塔工程分包给H省W县某建筑公司承建,S省某工程监理公司进行工程监理。由于不具备冬季施工条件,该工程已停止作业,停止作业时间为事发前一年10月15日至事发当年3月1日。

2月16日下午16时,H省W县某建筑公司分包承建的发电厂一期工程3#机组冷却塔施工项目执行经理在未得到总包许可的前提下,带领所属施工人员来到工地。17时,组织所属施工人员进行体检、照相,准备办理“安全上岗证”,进行3#冷却塔井架吊桥平台拆除作业前的准备。2月17日上午,H省W县某建筑公司现场负责人安排施工班长组织拆除作业前的技术交底工作。当日下午13时许,班长王某在施工现场组织了班前会,交待了施工操作规程后,带领11名工人沿井架爬梯步道上到井架吊桥平台,进行平台下降作业。

冷却塔吊桥平台是冷却塔施工的高空运料平台,由前桥、后桥两部分组成,连接方式为伸缩式,其中前桥共分为四节,根据施工需要可以伸缩。整个吊桥平台靠11个倒链拉结在竖井架上,吊桥降落施工时,受力的手拉倒链应同时匀速降落,且受力倒链与备用倒链依次倒换。

15时许,吊桥平台下降lm后(总高度为46.25m),根据下降距离,需要调整倒链。此时在可伸缩的前桥平台左端的操作工张某在没有使挂设的备用倒链受力的情况下,就将受力倒链解掉,使平台前桥前端两侧倒链受力不均,造成前桥平台失去平衡。按操作规程要求,吊桥平台拆除前应先将前桥收缩起来,由前向后逐步收缩,最后用倒链封死,然后将平台降至底部。此次作业前,四节吊桥只收缩两节半,还留一节半在外,未全部收缩进来。在班长的指挥下又有4人赶到前桥左端,在没采取任何防护措施的情况下去拉升倒链,造成倾斜加剧,前桥自重和动荷载及相应的力将作为滑道用的首桥槽钢下翼冲击变形,前桥掉出轨道,班长王某等7人从高处坠落,当场死亡5人,重伤二人。

施工现场地面人员发现情况后,紧急呼叫120,与该单位车辆一起立即将坠落人员送至J市人民医院抢救,至当日16时40分,重伤2人经抢救无效先后死亡。这起事故的经济赔偿为平均每位死者16.5万元,重伤2人的抢救费用为3.6万元,事故造成停工经济损失为80万元。

这起事故损失多少工作日?直接经济损失是多少万元?