![[单项选择题] 阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As Integer](http://www.mshxw.com/aiimages/31/261133.png "[单项选择题] 阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As Integer")
[单项选择题] 阅读程序：Option base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2) For i = 1 To 3For j = 1 To 2 arr(i, j) = i * 2 + jNext j Next i ReDim Preserve arr(3, 4) For j = 3 To 4arr(3, j) = j + 9Next j Print arr(3, 2) + arr(3, 4) End Sub程序运行后，单击窗体，输入结果为______。
A．21
B．13
C．8
D．25
参考答案：
A问题解析:
ReDim 语句的功能是为动态数组变量重新分配储存空间。而 Preserve 的功能是当改变原有数组最末 维的大小时，使用此关键字可以保持数组中原来的数据。从题目可以看出，第一个 For 循环是为第二维为 1和 2 的数组赋值，而第二个 For 循环是为第二维为 3 和 4 的数组赋值。而 arr(3,2)=i*2+j=3*2+2=8，arr(3,4)=j+9=4+9=13，故输出结果为 8+13=21。
