Dim a(4, 4) '定义二维数组
For i = 0 To 4 '初始化数组
For j = 0 To 4
If i = j Or i = 4 - j Then
a(i, j) = 0 '对角线为0
Else
a(i, j) = 1 '其他为1
End If
Next
Next
'以下打印输出
For i = 0 To 4
For j = 0 To 4
Print a(i, j);
Next
Print
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024