Question

VB建立并输出一个5乘5矩阵，该矩阵聊天对角线元素为1，其余元素为0

谢谢

Answer 1

Private Sub Form_Click()
Dim A(1 To 5, 1 To 5) As Integer
For i = 1 To 5
For j = 1 To 5
A(i, j) = IIf(i = j Or i + j = 6, 1, 0)
Print Tab(4 * j - 3); A(i, j);
Next
Next
End Sub
运行后,点击窗体

Answer 2

Private Sub Command1_Click()
Dim A(1 To 5, 1 To 5) As Integer
For i = 1 To 5
A(i, i) = 1
A(i, 6 - i) = 1
Next
For i = 1 To 5
For j = 1 To 5
Print A(i, j);
Next
Print
Next

End Sub