问题 单项选择题

在窗体中添加一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1 Click() Dim a a=Array(2, 4, 6, 8) j=1 For i = 4 To 1 Step -3s=s+a(i) (jj = j ( 10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果是

A.22

B.24

C.26

D.28

答案

参考答案:D

解析: 根据题意,For循环在i为4和1时分别执行1次For循环语句,第1次执行时j值为1,a(i)为8;第2次执行时,j值为10, a(i)值为2,故最终用Print输出s时,s的值为20加 8,答案为D。注意,本题事先声明了Option Base 1,故数组a的下标下界为1。

判断题
问答题

(三)

[背景资料]
某高层办公楼,总建筑面积137500m2,地下3层,地上25层。业主与施工总承包单位签订了施工总承包合同,并委托了工程监理单位。
施工总承包单位完成桩基工程后,将深基坑支护工程的设计委托给了专业设计单位,并自行决定将基坑支护和土方开挖工程分包给了一家专业分包单位施工。专业设计单位根据业主提供的勘察报告完成了基坑支护设计后,即将设计文件直接给了专业分包单位。专业分包单位在收到设计文件后编制了基坑支护工程和降水工程专项施工组织方案,方案经施工总承包单位项目经理签字后即由专业分包单位组织了施工,专业分包单位在开工前进行了三级安全教育。
专业分包单位在施工过程中,由负责质量管理工作的施工人员兼任现场安全生产监督工作。土方开挖到接近基坑设计标高(自然地坪下8.5m)时,总监理工程师发现基坑四周地表出现裂缝即向施工总承包单位发出书面通知,要求停止施工并要求立即撤离现场,施工人员查明原因后再恢复施工。但总承包单位认为地表裂缝属正常现象,没有予以理睬。不久基坑发生了严重坍塌,并造成4名施工人员被掩埋,经抢救3人死亡、1人重伤。
事故发生后,专业分包单位立即向有关安全生产监督管理部门上报了事故情况。经事故调查组调查,造成坍塌事故的主要原因,是由于地质勘察资料中未表明地下存在古河道,基坑支护设计中未能考虑这一因素而造成的。事故造成直接经济损失80万元,于是专业分包单位要求设计单位赔偿事故损失80万元。

请指出上述整个事件中有哪些做法不妥并写出正确的做法。