[填空题] 执行下列程序后输出如下所示矩阵,填空将程序补充完整。
1 0 0 2
0 3 4 0
0 5 6 0
7 0 0 8
Private SubCommand1_Click()
Dim a(4,4)
For i=1 To 4
For i=1 To 4
If 【9】 Then
【10】
a(i,j)=k
Else
a(i,j)=0
End If
Print a(i,j);
Next i
Next i
End Sub
正确答案:[9]i=j Or j=4-i+1 [10]k=k+1
参考解析:通过观察可以发现,只有在主对角线和副对角线上才有数值,而且是渐增的,故当条件成立时,k的值加1。主对角线行列下标的关系为:i=j,副对角线行列下标的关系为:i+j=5。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)