C.GetArray过程的参数n是按值传送的
D.语句If b(t)/2=b(t)2 Then 是判断数组b中元素的值是否为整数
8.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click( )
Dim a
a= Array(1,2,3,4,5)
For c=1 To Ubound(a)
a(c) = a(c)+c-1
Next c
Print a(3)
End Sub
程序运行后,单击命令按钮,则在窗体上显示的内容是(B)(单)
A.4
B.5
C.6
D.7
9.阅读程序:
Option Base 1
Private Sub Form_Click( )
Dim arr
Dim Sum%
Sum = 0
arr = Array(1, 3, 5, 7, 9)
For t = 1 To 5
Sum = Sum + arr(t)
Next t
Print Sum
End Sub
程序运行后,单击窗体,输入结果为(B)(单)
A.5
B.9
C.25
D.15
10.在窗体上画一个名称为File1的文件列表框,并编写如下程序:
Private Sub File1_DblClick( )
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中,错误的是(A)(单)
A.x没有实际作用,因此可以将该语句写为:Call Shell(File1,FileName,1)