问题 单项选择题

在窗体上画一个命令按钮,并编写如下事件过程:
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

解析: 当m=1时,如果n=1,满足条件m=n,执行Then语句a(1,1)=m+n=2;当n=2时,不满足If语句中的条件,执行Else语句a(1,2)=0;当n=3时,满足If条件n=4-m,执行Then语句a(1,3)=m+n=4。同理可得,当m=2时,得到的结果为0,4,0;当m=3时,结果为4,0,6。

单项选择题
单项选择题