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

---

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

---

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

---