提示下标越界，请大哥大姐帮忙%………………
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

不太明白你这个代码的意旨想做什么.
请说明代码的功能....

不用明白意旨`

我也搞不懂为什么会益出`

For i = 1 To 3
For j = 1 To 4
temp = InputBox(" ")
arr(i, j) = temp
Print arr(i, j)
Next j

Next i
如果你把 Print arr(i, j) 放在 Next j 下面的话 那么j的值就变成5了 所以会提示你益出！

通过inputbox输入元素
然后输出一个3行4列的二维数组

Private Sub Command4_Click()
Dim arr(1 To 3, 1 To 4) As Single
Dim i As Integer
Dim j As Integer
For i = 1 To 3
For j = 1 To 4
arr(i, j) = InputBox("请输入第" & CStr(i) & "行,第" & CStr(j) & "列的值")
Next
Next
For i = 1 To 3
For j = 1 To 4
Print arr(i, j);
Next
Print
Next
End Sub

谢了