Question

如何用VB编10*10的矩阵 对角线用1输出 其余用0输出

Answer 1

Option Explicit

Private Sub output()
Dim i As Integer, j As Integer
For i = 0 To 9
For j = 0 To 9
'Print i; ","; j; " ";
If i = j Or i + j = 9 Then
Print "1 ";
Else
Print "0 ";
End If
Next
Print
Next
End Sub

Private Sub Form_Load()
AutoRedraw = True
output
End Sub

Answer 2

For i = 1 To 10
For j = 1 To 10
If j = i Or j = (11 - i) Then
Print "1";
Else
Print "0";
End If
Next
Print
Next