菜鸟请教VB编程问题？？？

来源：百度知道 编辑：UC知道 时间：2024/05/22 06:05:04
编写程序，建立并输出一个10*10的矩阵，该矩阵对角线元素为1，其余元素均为0。

Dim a(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
a(i, j) = 0
Next j
Next i

For i = 1 To 10
a(i, i) = 1
Next i

For i = 1 To 10
For j = 1 To 10
Print a(i, j);
Next j
Print
Next i

For i = 1 To 10
For j = 1 To 10
If j = i Then Print 1; Else Print 0;
Next j
Print
Next i

Private Sub Form_Click()
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 j
Print
Next i
End Sub