代码如下
Private Sub Command2_Click()
Dim a(1 To 4, 1 To 4) As Integer
Dim i As Integer, j As Integer
For i = 2 To 3
For j = 2 To 3
a(i, j) = (i - 1) * 2 + j
Next j
Next i
Print a(i, j)
End Sub
为啥单击Command2后打印的是0  而不是7（a(3,3))
希望喷油解释一下啊  问题也许比较低级  但对于初学者来说  真的有点难！希望解释一下原理！谢谢！

循環結束後 i跟j 的值都是等4了.所以輸出就是0了.
你把Print a(i,j)改成 Print a(3,3)就是等7.

Print a(i-1, j-1)

你的意思是说，循环结束时，i，j跳出了公式范围，所以得到结果为零，是吗？但我想的是结束时i.j应该都是以3结尾，因为i.j只是在范围内循环，并没有像i=i+1的传递啊，i的跳出值应该以循环的最后一值3为准啊！能不能更详细的解释一下，麻烦了。

for结束后，循环变量比to后面的大1

多维数组最容易让我打乱丈！！！我旁观一下就好。

For循环结束后跳出~i和j的值都会比原因设定的循环最大值大1~这是固定的规则~所以要减回来~

Private Sub Form_Load()
Dim a(1 To 4, 1 To 4) As Integer
Dim i As Integer, j As Integer
    For i = 2 To 3
        For j = 2 To 3
            a(i, j) = (i - 1) * 2 + j
            If j = 3 Then Exit For
        Next j
        If i = 3 Then Exit For
    Next i
    MsgBox a(i, j)
End Sub

否则在它加之前~强制跳出就行了~

[ 本帖最后由 wube 于 2011-5-5 23:01 编辑 ]

受教，不错。