当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 执行下列程序后输出如下所示矩阵,填空将程序补充完整。 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 4For i=1 To 4 If 【9】 Then 【10】 a(i,j)=k Else a(i,j)=0End IfPrint a(i,j); Next i Print Next i End Sub

  

参考答案:

[9]i=jOrj=4-i+1[10]k=k+1

  参考解析

通过观察可以发现,只有在主对角线和副对角线上才有数值,而且是渐增的,故当条件成立时,k的值加1。主对角线行列下标的关系为:i=j,副对角线行列下标的关系为:i+j=5。

微信端