编写VB程序 编写一个7*7的二维数组，主对角线上全部为1，其他全部为0

---

'简散悄单,改进了一下，减少循环次数明数

Private Sub Command1_Click()

Dim a(9, 9)

For i = 0 To UBound(a) /冲槐渣 2
For j = 0 To UBound(a) / 2
If (i = j) Or (i + j = UBound(a)) Then
a(i, j) = 1
a(UBound(a) - i, j) = 1
a(i, UBound(a) - j) = 1
a(UBound(a) - i, UBound(a) - j) = 1
Else
a(i, j) = 0
a(UBound(a) - i, j) = 0
a(i, UBound(a) - j) = 0
a(UBound(a) - i, UBound(a) - j) = 0
End If
Next
Next

End Sub

---

1.设置一个二维余汪数组念毁迟a(i,j)
2.由题意可知，当i=j或者i+j=7的时候数字为1，仔李其余数字为0
3.for i= 1 to 7
for j=1 to 7
if i=j or 7=i+j then
a(i,j)=1
else
a(i,j)=o
endif
print a(i,j)
if j= 7 then
print
next j
nexti

---