单项选择题

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

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

<上一题目录下一题>

热门试题

单项选择题

假定有以下两个过程： Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=K x=y y=t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t=K x=y y=t End Sub 则以下说法中正确的是 ( )

A．用过程S1可以实现交换两个变量值的操作，S2不能实现
B．用过程S2可以实现交换两个变量值的操作，S1不能实现
C．用过程S1和S2都可以实现交换两个变量值的操作
D．用过程S1和S2都不能实现交换两个变量值的操作

单项选择题

在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-2 s＝s+a(i)*j j=j*10 Next i Print 3 End Sub 运行上面的程序，单击命令按钮，其输出结果是 ( )

A．2
B．4
C．8
D．48

相关试题