B、A数组中的所有元素值不确定 C、A数组中的所有元素值为空串 D、A数组中的所有元素值为True
8、关于ReDim语句，以下说法错误的是___________。 A、ReDim语句可以改变数组的维数
B、ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用 C、ReDim语句可保留动态数组中原有的内容
D、在ReDim语句中，可使用变量说明动态数组的大小 9、设有数组声明语句： Option Base 1
Dim a(-1 To 2，8) As Long
则，函数LBound(a，2) 的值为___________。
A、0 B、－1 C、1 D、2 10、下列关于控件数组的说法错误的是___________。
A、控件数组由一组具有共同名称和相同类型的控件组成 B、控件数组中的每一个控件共享同样的事件过程
C、控件数组中的每个元素的下标由控件的Index属性指定 D、同一控件数组中的元素只能有相同的属性值
11、设有命令按钮Command1单击事件过程，代码如下： Private Sub Command1_Click(） Dim a(30）As Integer For i=1 To 30
a(i）=Int(Rnd*100） Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem； If arrItem>90 Then Exit For Next End Sub
对于该事件过程，以下叙述中错误的是___________。 A、a数组中的数据是30个100以内的整数 B、语句For Each arrItem In a有语法错误
C、If arrItem Mod 7=0??语句的功能是输出数组中能够被7整除的数
D、If arrItem>90??语句的作用是当数组元素的值大于90时退出For循环 12、有以下程序： Option Base 1
Dim a(） As Integer
Private Sub Form_Click(） Dim i As Integer, j As Integer ReDim a(3, 2） For i = 1 To 3
For j = 1 To 2
a(i, j） = i * 2 + j Next j
14
Next i
ReDim Preserve a(3, 4） For j = 3 To 4
a(3, j） = j + 9 Next j
Print a(3, 2）; a(3, 4） End Sub
程序运行后，单击窗体，输出结果是___________。 A、 8 13 B、 0 13 C、 7 12 D、 0 0 13、下面的数组声明语句中__________是正确的。 A、Dim a[3,4] as Integer B、Dim a(3, 4) As Integer C、Dim a[3;4] as Integer D、Dim a(3:4) as Integer 14、设有数组声明语句： Option Base 1
Dim A(2) As Integer
则数组A的下界为__________。
A、0 B、1 C、2 D、不能确定 15、以下说法不正确的是__________。
A、使用ReDim语句可以改变动态数组的维数
B、若用Dim语句定义了动态数组的类型，可以用ReDim更改为其它类型 C、使用ReDim语句可以改变动态数组每一维的大小
D、使用ReDim语句可以对动态数组中的所有元素进行初始化 16、用Array函数给某X赋值时，X必须是__________。 A、已经声明的静态数组 B、已经声明的动态数组 C、Variant类型的变量 D、整型变量
17、设有数组声明语句： Option Base 1
Dim A(-1 To 2) As Long
则函数UBound(A)的值为__________。
A、0 B、－1 C、1 D、2
18、设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法中错误的是__________。
A、命令按钮的Caption属性都是Command1
B、在代码中访问任意一个命令按钮只需使用名称Command1 C、命令按钮的大小都相同
D、命令按钮共享相同的事件过程
19、在窗体上画 1 个命令按钮，并编写如下事件过程： Private Sub Commandl Click() Dim a(3,3) For m=1 To 3
15
For n=1 To 3
If n=m Or n=4-m Then a(m,n)=m+n Else
a(m,n)=0 End If
Print a(m,n); Next n Print Next m End Sub
运行程序，单击命令按钮，窗体上显示的内容为__________。
200204230200040040340045 A、006 B、406 C、006 D、056
20、下列程序段的执行结果为__________。 Dim A(3) For i = 1 To 3 A(i) = i * i Next i
Print A(i - 1)
A、16 B、9 C、4 D、1 21、以下__________是VB中合法的数组元素表示法。
A、X9 B、X[9] C、X{9} D、X(9) 22、设有数组声明语句： Option Base 1
Dim A(-1 to 2) As Integer
则数组A中共有__________个元素。
A、2 B、3 C、4 D、不能确定 23、使用语句Dim A(1 To 15) As Integer声明数组A之后，下面说法中正确的是__________。 A、数组中所有元素的值为0 B、数组中所有元素的值不确定 C、数组中所有元素的值为空串 D、以上说法均不对
24、在以下语句中，a只能是__________。 Dim X(15) For Each a In X Print a; Next a
A、已经声明的静态数组 B、已经声明的动态数组 C、Variant类型的变量 D、整型变量 25、设有数组声明语句： Option Base 1
16
Dim A(2) As Long
则函数LBound(A)的值为__________。
A、0 B、－1 C、1 D、2
26、在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第三个按钮，打开代码编辑器，写如下代码： Private Sub M1_Click(Index As Integer) Form1.Caption = \End Sub
运行时单击按钮数组中的第一个按钮，则窗体显示标题为__________。 A、Form1 B、M1 C、myform1 D、myform2
27、在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码： Option Base 1
Private Sub Command1_Click() Dim a, s As Integer a = Array(1, 2, 3, 4) j = 1
For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub
运行上面的程序，其输出结果是__________。
A、1234 B、12 C、34 D、4321
28、窗体上有 Command1、Command2 两个命令按钮。现编写以下程序： Option Base 0
Dim a( ) As Integer, m As Integer Private Sub Command1_Click( )
m=InputBox(\请输入一个正整数\ ReDim a(m) End Sub
Private Sub Command2_Click( )
m=InputBox(\请输入一个正整数\ ReDim a(m) End Sub
运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组 a 中元素的个数是__________。
A、5 B、6 C、10 D、11 29、下面有关数组的说法中，错误的是__________。 A、一般而言，数组必须先定义后使用 B、数组的下界必须从0开始
C、Erase语句的作用是对已定义固定大小数组的值重新初始化 D、定义数组时，数组维界值可以不是整数
30、下面有关数组处理的叙述中，不正确的是__________。
17
A、过程中用ReDim语句重定义动态数组时，其下标的上下界可为赋了值的变量 B、在过程中，可以使用Dim、Private和Static语句定义数组
C、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型
D、在ReDim语句中使用Preserve语句时，只能改变数组最后一维的维上界
18