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

admin2009-03-15  19

问题 执行下列程序后输出如下所示矩阵,填空将程序补充完整。
   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://jikaoti.com/ti/tnq0FFFM
0

最新回复(0)