在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim a(10)As Integer
Dim x As Integer
For i=1 To 10
a(i)=i
Next i
x=1
MsgBoxa(f(x)+x)
End Sub
Function f(y As Integer)
y=y+2
f=y
End Function
程序运行后，单击命令按钮，消息框的输

建设工程一切险属于除外责任的情况通常包括（ ）。
A．因被保险人的严惩失职或蓄意破坏而造成的损失
B．因原子核裂变而造成的损失
C．由于合同罚款及其他非实质性损失
D．因设计错误（结构缺陷）而造成的损失
E．一般性盗窃和抢劫

正确答案：ABCD

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Commandl，然后编写如下两个事件过程；
Private Sub Command1_Click()
S＄= InputBox ("请输入1个字符串")
Text1.Text= S＄
End Sub
Private Sub Text1_Change()
Labell.Caption = UCase(Mid(Text1, Tex

下列交通安全设施中，属于交通标志的有（ ）。
A．禁令标志
B．旅游区标志
C．里程标
D．线形诱导标
E．道路施工安全标志

正确答案：ABE25、ABE。本题考查的重点内容是交通标志的种类。交通标志是用图形符号、颜色和文字向交通参与者传递特定信息，用于管理交通的设施，主要起到提示、诱导、

给定程序MODll．C中函数fun的功能是：将字符串中的字符按逆序输出，但不改变字符串中的内容。
例如，若字符串为abcd，则应输出：dcba。
请改正程序中的错误，使它能计算出正确的结果。
注意：不要改动main函数，不得增行或删行，也不得更改程序的结构!

正确答案：(1)void fun(char *a)(2)prin

按照《注册建造师执业工程规模标准》的规定，下列属于中型规模的工程是（ ）。
A．长5km的高速公路路面工程
B．6×40m的桥梁工程
C．长1.2km的隧道工程
D．单项合同金额5000万元的路基工程

正确答案：B20、B。本题考查的是公路工程的类别。《注册建造师执业工程规模标准》（试行）将公路工程

阅读程序；
Option Base 1
Private Sub Form_ KeyPress (KeyAscii As Integer)
art = Array(268, 542, 693, 365, 489, 147, 852)
a1 = arr(1)
a2 = 1
If KeyAscii = 13 Then
For a = 2 To 6
If arr(i) ＞ a1 Then
a1 = arr(i)
a2 = i
End If
Next i
End If
Print a1; a2
End Sub
程序运

甲建设单位未进行消防设计，乙建设单位未经消防验收擅自使用工程，丙建设单位降低消防技术标准，丁单位在设有仓库的建筑物内，设置员工集体宿舍，并经公安消防 机构批准。以上行为合法的是（ ）。
A．甲
B．乙
C．丙
D．丁

正确答案：D

请补充fun（）函数，fun（）函数的功能是求n的阶乘。 注意：部分源程序给出如下。 请勿改动main（）函数和其他函数中的任何内容，仅在fun（）函数的横线上填入所编写的若干表达式或语句。 试题程序：

正确答案：【1】n>1或11)

按照《公路水运工程安全生产监督管理办法》的规定，施工单位在工程报价中的安全生产费不得低于投标价的（ ）。
A．0.5％
B．1％
C．15％
D．2％

正确答案：B19、B。本题考查的重点为《公路水运工程安全生产监督管理办法》中的安全生产费用。其中建设单位在编制工程招标文件时，应当确定公路水