在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：Private Sub Commandl Click（） MsgBox f(24，18)End Sub Public Function f(m As Integer，n As Integer)As"integerDo While m<>n Do While m>n m=m-n Loop Do While m<n n=n-m Loop Loop f=m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是（）

题目

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：Private Sub Commandl Click（） MsgBox f(24，18)End Sub Public Function f(m As Integer，n As Integer)As"integerDo 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

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Pfivate Sub Command 1 Click（）窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

A. 1

B. 2

C. 3

D. 4

正确答案：A
本题考查条件语句的知识。在 If．．．Then…Elself．．．语句中，当某一个条件满足时，将会执行Then后面的语句，并且随后退出条件分支。在本题中，a=75满足第一个条件“a>60”．将执行Then后的语句。将1赋值给变量g，然后结束条件判断。最后将g的值l输出到消息框，所以消息框的输出结果是1。

第2题：

在窗体中添加一个名称为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。

第3题：

在窗体中添加～个名称为Commandl的命令按钮，然后编写如下事件代码：窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

A. 1

B. 2

C. 3

D. 4

正确答案：B
本题考查条件语句的基础知识。If．．．Then语句的特点是每当条件表达式为真时执行Then后面的语句序列，在本题中，A=75，首先判断A>60是否为真，由于满足条件，所以I的值为1，然后判断A>70是否为真，由于还是满足条件，所以l的值又被赋为2，后面的两个条件均不满足，所以最终I的值为2。

第4题：

在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：

正确答案：
15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。

第5题：

在窗体中添加一个命令按钮(名称为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。

第6题：

在窗体中添加一个命令按钮(名称为Commandl)，然后编写如下代码：窗体打开运行后，三次单击命令按钮后，变量b的值是（）。

A. 1

B. 2

C. 3

D. 4

正确答案：C
本题考查静态变量的知识。使用Static定义的变量称为静态变量，这"变量不同于局部变量．每次调用过程的时候不会重新声明和初始化该变量，变最中仍然保留上次调用结束时的值。在本题中，第一次调用b的值变为1，第二次调用b的值变为2，第三次调用b的值变为3。

第7题：

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码。 Public x As IntegerPrivate SUb Commandl_Click（） x=10Call slCall s2MsgBoxXEndSubPrivate Sub sl（） x=x+20EndSubPrivate Sub s20Dim xAs IntegerX=x+20EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

A.10

B.30

C.40

D.50

正确答案：B
暂无解析，请参考用户分享笔记

第8题：

在窗体中添加一个名称为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。

第9题：

在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：

窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。

正确答案：
2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。

第10题：

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：

Private Sub Command1_Click()

Dim x As Integer,y As Integer

x=12：y=32

Call p(x,y)

MsgBox x*y

End Sub

Public Sub p(n As Integer,By Val m As Integer)

n=n Mod 10

m=m Mod 10

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为【】。

正确答案：64
64 解析：子过程p有两个参数m和n，参数m，n是整型，而通过“ByVal”可知，参数m是按值传递的参数。由于在过程定义时未做参数说明的情况下，默认为传址调用，所以参数n是按址传递。(按址传递的过程调用是将相应位置实参的地址传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化又会反向影响实参的值。在这个过程中，数据的传递具有双向性。)在命令按钮单击事件过程中，程序通过两个实参x，y为形参m，n赋值，“n=n Mod 10”表示12与10取余，结果为2，由于n是传址调用，所以返回实参的结果：x=2，而形式参数m因为被“ByVal”修饰，所以过程调用只是将实参y的值“单向”传送给形参 m处理，而被调用过程内部对形参m的取余操作引起的形参值的变化均不会反馈、影响实参y的值，也就是说实参y=32，通过语句“MsgBox x*y”，可以得出：x*y=2*32=64，也就是窗体打开运行后，单击命令按钮，则消息框的输出结果为64。

在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:Private Sub Commandl Click(

题目

相似问题和答案

相关内容