![[填空题] 以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。 Private Sub form Click() Dim s(5](http://www.mshxw.com/aiimages/31/261008.png "[填空题] 以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。 Private Sub form Click() Dim s(5")
[填空题] 以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。
![[填空题] 以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。 Private Sub form Click() Dim s(5](/uploadfile/member/20180926/1537964878.jpg "[填空题] 以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。 Private Sub form Click() Dim s(5")
Private Sub form Click()
Dim s(5, 5)As Integer
for N =1 To 5
for M = 1 To 5
if 【13】 Or 【14】 then
S(N, M)=1
Else
S(N. M)= 0
End if
Next M
Next N
for N =1 To 5
for 【15】
Picture1. Print Tab(M *3); s(N, M);
Next M
Print
Next N
End Sub
参考答案：
[13]n=m[14]n=6-m[15]m=1 To 5问题解析:
本题难点是对数组下标的操作，矩阵两条对角线上的元素在数组中下标的表示形式为“s(i，i)”和“s(1，上界值+1-i)(i=1，2，... n)”。空打印Print操作是换行。
