单项选择题

下列程序段的执行结果为( )。
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(M,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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Ctick() Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1 To 5 Sum=Sum+a(i) Next i x=Sum 5 For i=1 To 5 If a(i)＞x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是( )。
A．1 2
B．1 2 3
C．3 4 5
D．4 5
单项选择题
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．10 5
B．20 5
C．20 40
D．10 40
相关试题