还是刚才的那个题;
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Next j
End Sub
我计算的结果是 (0,1) (3,2) (6,3)
还是刚才的那个题;
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Next j
End Sub
我计算的结果是 (0,1) (3,2) (6,3)
不对,正确的是 :
1 2 3
4 5 6
7 8 9