问题
单项选择题
有以下程序：
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer,j As Integer
ReDim arr(3,2)
Fori=1 To 3
Forj=1 To 2
arr(i,j)=i*2+j
Next j
Next i
ReDim Preserve arr(3,4)
Forj=3 To 4
arr(3,j)=j+9
Nextj
Print arr(3,2);arr(3,4)
End Sub程序运行后，单击窗体，输出结果为______。
A) 0 0
B) 7 12
C) 0 13
D) 8 13
答案
参考答案：D
解析： 本题考查的是动态数组。在通用中定义的数组，我们并没有给它界定范围，也没有赋初值，在过程中用ReDim语句具体定义数组，其一般格式为：ReDim[Preserve](数组名[下界To]上界[，[下界To]上界])。此题中要分清楚两个数组的界限。而Preserve关键字表示只能调整数组最后维数的大小，并且不能改变数组的维数。这样重新定义数组后，arr(3，2)的值可以保留，所以选择答案D) 。