以下程序用来建立一个5×5矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。该程序运行结果如下图所示。 Private Sub form Click() Dim s(5, 5)As Integer for N =1 To 5 for M

admin2013-04-11  37

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

选项

答案n=m ,n=6-m,m=1 To 5

解析 本题难点是对数组下标的操作,矩阵两条对角线上的元素在数组中下标的表示形式为“s(i,i)”和“s(1,上界值+1-i)(i=1,2,... n)”。空打印Print操作是换行。
转载请注明原文地址:https://jikaoti.com/ti/nb60FFFM
0

相关试题推荐
最新回复(0)