Question

VB编程 输出矩阵

10001
01010
00100
01010
10001

Answer 1

Private Sub Command1_Click()
Const A As Long = 5
Dim i As Long, j As Long, k As Long
Dim S As String
For i = 1 To A
S = ""
For j = 1 To A
If j = i Or j = A - i + 1 Then
S = S & "1"
Else
S = S & "0"
End If
Next j
Print S
Next i
End Sub

追问

可不可以解释一下怎么想的呢？

追答

If j = i Or j = A - i + 1 Then，主要就是这一句，当行数和列数相等时就是左上角到右下角的那些1，当行数加列数等于A+1时就是右上角到左下角那些1，这样就把所有的1都包括在内了。

Answer 2

二进制 什么意思

Answer 3

都是菜单窗口