VB编程题~~

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

帮帮忙 谢啦``

Private Sub Form_Click()
Dim a(10, 10) As Integer
For i = 1 To 10
For j = 1 To 10
If i = j Or i + j = 11 Then a(i, j) = 1 Else a(i, j) = 0
Print a(i, j);
Next
Print
Next
End Sub

程序里的数字2可以增加,增加后,输出间隔变大
Private Sub Form_Click()
For i = 1 To 10
For J = 1 To 10
If i = J Or i + J = 11 Then
Print Tab(J * 2); Str(1);
Else
Print Tab(J * 2); Str(0);
End If
Next
Next
End Sub