1、如下程序段中包含一个错误。
X＝4
Dim a（X）
For m＝4 to 0 step －1
a（m）＝m +1
Next m
出错的原因是（ C ）。
A、第四行，数组元素a（m）下标越界 B、第四行，不能用循环变量m进行运算 C、第二行，不能用变量定义数组下标 D、以上原因都不对
2、运行下列程序，单击窗体后输出的结果是（ B ）。
Private Sub Form_Click() Dim a
Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s = 1
For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End Sub A、15 C、120 B、48 D、720 3、运行下列程序，单击窗体时在窗体上显示的结果是( B )。 Private Sub Form_Click()
Dim a
Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub A、13 C、不确定 B、14 D、程序出错 4、运行下列程序，单击窗体后输出的结果是（ C ）。 Option base 0
Private sub form_click()
Dim a
Dim I as integer
A=Array(1,2,3,4,5,6,7,8,9) For I=1 to 3 Print a(5-I);
Next I End sub A、3 2 1 B、4 3 2
C、5 D、6 4 3 5 4
5、要将字符串数组a中所有学生姓名按数组下标顺序追加到列表框list1中，可以使用的程序段为（ C ）。
A、List1.AddItem a
B、For i = 0 To UBound(a) - 1 List1.AddItem a(i), 0
Next i
C、For i = 0 To UBound(a) - 1 List1.AddItem a(i)
Next i
D、For i = 0 To UBound(a) - 1 List1.List(i) = a(i)
Next I 6、以下定义数组或给数组元素赋值的语句中，正确的是（ A ）。
A、Dim a As Variant a=Array(1,2,3,4,5) B、Dim a(10) As Integer
a=Array(1,2,3,4,5) C、Dim %A(10)
a(1)=\
D、Dim a(3),b(3)As Integer a(0)=0:a(1)=1:a(2)=2: b=a
7、设arr是一个上界为K的一维动态数组。能使arr元素个数增加1，但保留数组中原有数据的语句是（D）。 A、 ReDim arr(K+1) C、 Public arr(1ToK+1) B、 ReDim Static arr(K+1) D、 ReDim Preserve arr(K+1) 8、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（ B ）。 A、ReDim arr(7) C、Public arr(1 to 7) B、ReDim Preserve arr(7) D、Static arr(7)