动态数组选择题答案

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

B、48

C、120

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

B、14

C、不确定

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 4 3

D、6 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)="ABCD"

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)

B、ReDim Static arr(K+1)

C、Public arr(1ToK+1)

D、ReDim Preserve arr(K+1)

8、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（ B ）。

A、ReDim arr(7)

B、ReDim Preserve arr(7)

C、Public arr(1 to 7)

D、Static arr(7)