单项选择题

下列程序段的执行结果是( )。

Dim A(3,3)

For M=1 To 3

For N=1 To 3

If N=M Or N=3-M+1 Then

A(M,N)=1

Else

A(N,N)=0

End If

Next N

Next M

For M=1 To 3

For N=1 To 3

Print A(M,N)

Next N

Print

Next M

A．1 0 0

0 1 0

0 0 1
B．1 1 1

1 1 1

1 1 1
C．0 0 0

0 0 0

0 0 0
D．1 0 1

0 1 0

1 0 1
<上一题 目录 下一题>
热门 试题

单项选择题
有下列函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a,b) Print x End Sub
A．0
B．25
C．50
D．100
单项选择题
在窗体下画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段： Private Sub Command1_Click() x=0 Do Until x＞=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。
A．1和0
B．2和240
C．3和50
D．4和168
相关试题