题目内容
（请给出正确答案）
单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click（）
Print MyBM（23, 18）
End Sub
Public Function MyBM（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
MyBM=m
End Function（）。
A．0
B．1
C．3
D．5
如果结果不匹配，请 联系老师 获取答案
更多“单击命令按钮时，下列程序的运行结果为 PrivateSubC…”相关的问题
在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果为()。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i，"*") Print x Next i End Sub Private Sub Command1_Click() p1(3) End Sub
A．*** ** *
B．* ** ***
C．* * *
D．******
单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
Print Fun(23，18)
End Sub
Public Function Fun(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
Fun=m
End Function
A．0
B．1
C．3
D．5
单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23, 18) End Sub Public Function Fun(m As Integer, n As Integer) As Integer Do Whilem ＜＞ n Do While m ＞ n : m--m - n: Loop Do While m ＜ n : n=n - m: Loop Loop Fun =m End Function
A．0
B．1
C．3
D．5
单击命令按钮时，下列程序的运行结果为 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
在窗体中添加一个名称为Com1的命令按钮，然后编写如下程序：
Private Sub s(ByVal p As Integer)
p=p*2
End Sub
Private Sub Com1_Click()
Dim i As Integer
i=3
Call s(i)
If i＞4 Then i=i^2
End sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为()。
程序运行后，单击命令按钮Command1时的输出结果为（）。
A. A(5)=5
B. A(5)=10
C. A(5)=20
D. A(5)=40
有如下的函数过程： Function Func2(a As Integer, b As Integer)'As Integer Static m As Integer, i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim p As Integer, k As Integer, m As Integer k=4 m=1 p=Fune2(k, m) Print k; m p = Func2(k, m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为()。
A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11
有如下的函数过程： Function Func2(a As Integer,b As Integer) 'As Integer Static m As Integer,i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim p AS Integer,k As Integer,m As Integer k=4 m=1 p=Func2(k,m) Print k; m p=Func2(k,m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为()。
A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11
有下列程序，程序运行后单击命令按钮，则输出的结果为()。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(A) s2=Factorial(B)Print "s1="；s1；"s2="；s2End SubFunction Factorial(a()As Integer)Dim t#，i% t=1 For i=LBound(A)To UBound(A) t=t*a(i) Next i Factorial=tEnd Function
A．s1=360 s2=24
B．s1=24 s2=360
C．s1=24 s2=24
D．s1=360 s2=360
.jpg)
运行上面的程序，单击命令按钮，输出结果为______。
