[填空题] 以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。 Private Sub form Click() Dim s(5, 5)As Integer for N =1 To 5for M = 1 To 5if 【13】 Or 【14】 then S(N, M)=1Else S(N. M)= 0End ifNext M Next N for N =1 To 5for 【15】 Picture1. Print T

参考答案：

[13]n=m
[14]n=6-m
[15]m=1To5

● 参考解析

本题难点是对数组下标的操作，矩阵两条对角线上的元素在数组中下标的表示形式为“s(i，i)”和“s(1，上界值+1-i)(i=1，2，...n)”。空打印Print操作是换行。

相关题目:

推荐题目