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

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

单项选择题有下列函数过程： 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

单项选择题在窗体下画两个文本框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 运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。