A.招标文件中的投标须知
B.施工会议纪要
C.招标阶段发包人对承包人质疑的书面解答
D.检查和试验记录
E.工程师的书面命令
第1题
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j<>k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】
第2题
有如下程序: Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。
A. 25
B.26
C.27
D.28
第3题
阅读程序: Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum= 0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为
A.13
B.14
C.27
D.15
第4题
设有如下程序: Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后,单击窗体,在窗体上显示的内容为______。
A.ABCDE 20 10
B.10 20 ABCDE
C.ABCDE 10 20
D.出错信息
第5题
执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click() Dim a a=Array("a","b","c","d","e","f","g") Print a(1); a(3); a(5) End Sub
A.abc
B.bdf
C.ace
D.出错
第6题
在窗体上画一个名称为Labell的标签,然后编写如下事件过程: Option Base 1 Private Sub Form. Click() Dim a(10)As Integer For k=1 To 10 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后,单击窗体,在标签中显示的内容是 ______。
A.100
B.10
C.121
D.出错信息
第7题
在窗体上画一个名称为Text1的文本框,然后编写如下代码: Option Base 1 Private Sub Form. Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Sub程序运行后,单击窗体,则在文本框中显示的内容是______。
A.40
B.10
C.12
D.16
第8题
执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1 Click() Dim a a= Array("a", "b", "C", "d", "e", "f", "g") Print a(1); a(3); a(5) End Sub
A.ab;
B.bdf
C.ace
D.出错
第9题
阅读程序: Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer,i As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim arr(3,2)+arr(3,4) End Sub 程序运行后,单击窗体,输出结果为
A.21
B.13
C.8
D.25
第10题
有如下程序:
Option Base 1
Private Sub Command1 Click()
Dim arr(10)
arr=Array(10,35,28,90,54,68,72,90)
For Eaeh a In arr
If a>50Then
Sum=Sum+a
End If
Next a
End Sub
运行上述程序时出现错误,错误之处是()。
A.数组定义语句不对,应改为Dim arr
B.没有指明For循环的终值
C.应在For语句之前增加Sum=0
D.Next a应改为Next
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!