Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(6, 6) As Integer
For i = 1 To 6
For j = 1 To 6
Randomize
a(i, j) = Fix(Rnd * 10)
Print a(i, j);
Next
Next
For i = 1 To 6
For j = 1 To 6
Print i & j & " ";
Next
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024