问题
单项选择题
有如下程序：
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j 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 Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next j
Print arr(3,2); arr(3,4)
End Sub
程序运行后，单击窗体，输出结果为
A．8 13
B．0 13
C．7 12
D．0 0
答案
参考答案：A
解析： ReDim语句用于重新设置数组项目总数，如果在改变数组大小的同时还希望保留数组中的数据，可使用具有Preserve关键字的ReDim语句。本题中在第一个for循环中对数组arr进行了赋值，此时arr(3,2)=8；在第二个for循环之前对数组arr项目总数进行了重新设置，并在循环中对其进行赋值，此时arr(3,4)=13，而数组元素arr(3,2)的值不会变化，所以本题的答案为A。