Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer
Dim Matr(1 To 9, 1 To 9) As Integer
For I = 1 To 9
Matr(I, J) = I * J
Next J
Next I
For I = 1 To 9
For J = 1 To 9
K = (I - 1) * 9 + J - 1
Label1.Caption = Matr(I, J)
Next J
Next I
End Sub
99乘法表
问题出在哪里了哇索？