选择题 7.  阅读下面程序:
    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。