执行下列程序后输出如下所示矩阵，填空将程序补充完整。 1 0 0 2 0 3 4 0 0 5 6 0 7 0 0 8 Private SubCommand

admin2009-03-15 33

问题执行下列程序后输出如下所示矩阵，填空将程序补充完整。
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【  】Then
      【  】
      a(i，j)=k
Else
      a(i，j)=0
   End If
   Print a(i，j)；
Next i
Print
Next i
End Sub

选项

答案i=j Or j＝4-i+1 ,k=k+1

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

转载请注明原文地址:https://www.kaotiyun.com/show/AJ1p777K

本试题收录于：二级VB题库NCRE全国计算机二级分类