Question

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

Answer 1

Dim i As Integer
Dim strToOutput As String
Dim strTmp As String
For i = 1 To 10
strTmp = String(10, "0")
Mid(strTmp, i, 1) = "1"
Mid(strTmp, 11 - i) = "1"
strToOutput = strToOutput & strTmp & vbCrLf
Next
Form1.Print strToOutput

Answer 2

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
End If
Next
Next
For i = 1 To 10
For j = 1 To 10
Print a(i, j);
Next
Print
Next