在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click()   Dim a(3,3)   For m=1 To 3     For n=1 To 3       If n=m Or n=4-m Then    

admin2018-09-19  26

问题 在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
  Dim a(3,3)
  For m=1 To 3
    For n=1 To 3
      If n=m Or n=4-m  Then
          a(m,n)=m+n
      Else
          a(m,n)=0
      End If
      Print a(m,n);
    Next n
    Print
  Next m
End Sub
运行程序,单击命令按钮,窗体上显示的内容为(  )。

选项 A、2 0 0
0 4 0
0 0 6
B、2 0 4
0 4 0
       4 0 6
C、2 3 0
3 4 0
0 0 6
D、 2 0 0
0 4 5
0 5 6

答案B

解析 根据For循环中的If语句的条件n=m or n=4-m中的n=m首先可以得出a(1,1)=2,a(2,2)=4,a(3,3)=6,其次根据n=4-m的条件可以得出a(1,3)=4,a(2,2)=4,a(3,1)=4。而其他的元素值都为0。因此窗体上输出的三行分别是:2 0 4 ,0 4 0,4 0 6。
转载请注明原文地址:https://jikaoti.com/ti/RHm0FFFM
0

最新回复(0)