如有以下程序代码: Option Base 1 Dim a() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim a(3, 2) For i = 1 To 3 For j = 1 To 2 a(i, j) = i * j Next j Next i ReDim Preserve a(3, 4) For i = 3 To 4 a(3, i) = i + 5 Next i Print a(3, 2); a(3, 4) End Sub 运行程序后,在窗体上输出的内容为