单选题 阅读下面程序:
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
【答案解析】[解析] 语句“ReDim Preserve arr(3,4)”是将数组arr(3,2)重新定义为arr(3,4),并保留以前计算的初值。在程序的前部分arr(3,2)的值为8,在程序的后部分arr(3,4)的值为13,最终输出的结果为这两部分值的之和21。