Private Sub Form_Click()
Form1.FontSize = 16
Dim a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 5
If i = j Then a(i, j) = 0 Else a(i, j) = 1
Next j
Next i
For i = 1 To 5
For j = 1 To 5
Print a(i, j);
Next j
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024