Option Base 1Dim arr() As IntegerPrivate 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程序运行后,单击窗体,显示的结果为( )。
发布时间:2024-06-03 16:39:48