问题
单项选择题
有以下程序：
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 i
Next i
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next i
Print arr(3,2); arr(3,4)
End Sub
程序运行后，单击窗体，输出结果为( )。
A) 8 13
B) 0 13
C) 7 12
D) 0 0
答案
参考答案：A
解析： ReDim可以重新定义数组长度，之前存储在数组中的值都会全部丢失，但是使用Preserve关键字后值会保存，故本题arr(3, 2)=3*2+2=8, arr(3, 4)=4+9=13。