（ 35 ）在窗体中添加一个名称为 Commandl 的命令按钮，然后编写如下事件代码：Private Sub Commandl Click （）MsgBox f （ 24,18 ）End SubPublic Function f （ m As Integer,n As Integer ） As IntegerDo While m<>nDo While m>nm=m-nLoopDo While m<nn=n-mLoopLoopf=mEnd Function窗体打开运行后，单击命令按钮，则消息框的输出结果是
题目
（ 35 ）在窗体中添加一个名称为 Commandl 的命令按钮，然后编写如下事件代码：
Private Sub Commandl Click （）
MsgBox f （ 24,18 ）
End Sub
Public Function f （ 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
f=m
End Function
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A ） 2
B ） 4
C ） 6
D ） 8
相似考题
更多“( 35 )在窗体中添加一个名称为 Commandl 的命令按钮,然后编写如下事件代码:Private Sub Commandl ”相关问题
-
第1题：
在窗体中添加一个命令按钮(名称为Commandl)，然后编写如下代码：
窗体打开运行后，三次单击命令按钮后，变量b的值是（ ）。A. 1
B. 2
C. 3
D. 4
正确答案：C
本题考查静态变量的知识。使用Static定义的变量称为静态变量，这"变量不同于局部变量．每次调用过程的时候不会重新声明和初始化该变量，变最中仍然保留上次调用结束时的值。在本题中，第一次调用b的值变为1，第二次调用b的值变为2，第三次调用b的值变为3。
-
第2题：
在窗体中添加一个命令按钮(名称为Commandl)，然后编写如下代码：
窗体打开运行后，如果单击命令按钮，则消息框的输出结果为（ ）。
A)0
B)9
C)a=9
D)False
正确答案：D
本题考查VBA程序设计的基础知识。程序中的”MsgBoxa=bC”语句中的“=”的含义是判断是否相等而不是赋值，这条语句的含义是在消息框中显示a与bC的值比较的结果，由于变量的初值”a=3：b=4：C=5”，所以判断条件语句相当于判断3=9是否为真，很明显结果为假，所以消息框的输出结果为逻辑假False。 -
第3题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：
正确答案：
15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。 -
第4题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。
A)1
B)2
C)3
D)4
正确答案：D
本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小予70，所以不执行x=2；再接着判断75小于80，所以执行x=3；最后判断75小于90，所以执行x=4。最后消息框里输出的x值为4。 -
第5题：
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。
正确答案：
2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。