提示下标越界，请大哥大姐帮忙%………………
Option Base 1
Dim arr() As Integer

Private Sub Form_Click()
ReDim arr(3, 4) As Integer
For i = 1 To 3
For j = 1 To 4
temp% = InputBox("请输入数组元素")
arr(i, j) = temp
j = j + 1
Next j
Print arr(i, j);
Next i
End Sub