Question

VB编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素均为0

Answer 1

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

Answer 2

矩阵对角线有两条一条是元素的两下标相等另一条是两下标的和对 11 取余为 0

Answer 3

Private Sub Form_Click()
For i = 1 To 10
For j = 1 To 10
Print IIf(i = j Or i + j = 11, 1, 0);
Next j
Print
Next i
End Sub