单项选择题

单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click( )
Print MyFund(20，18)
End Sub
Public Function MyFund(m As Integer，n As Integer)As Integer
Do While m◇n
Do While m>n：m=m-n:Loop
Do While m＜n：n=n-m:Loop
Loop
MyFund=m
End Function

A．0
B．2
C．4
D．6

<上一题目录下一题>

热门试题

单项选择题

单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub

A．6 6 12
6 6 10
B．9 5 10
5 10 10
C．9 6 12
9 10 15
D．9 5 10
5 4 10

单项选择题

在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Com- mand1)，然后编写如下程序： Private Sub Command1_Click( ) x=0 Do While x＜20 x=(x+1) *(x+2) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是

A．1和0
B．2和12
C．3和182
D．3和12

相关试题