在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：Public x as integerPrivate Sub Command1_Click( )x=5Call s1Call s2MsgBox xEnd SubPrivate Sub s1( )x=x+10End SubPrivate Sub s2( )Dim x as integerx=x+10End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是______
题目
在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：
Public x as integer
Private Sub Command1_Click( )
x=5
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1( )
x=x+10
End Sub
Private Sub s2( )
Dim x as integer
x=x+10
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是______
相似考题
更多“在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：Public x as integerPrivate Sub Command1_Click( )x=5Call s1Call s2MsgBox xEnd SubPrivate Sub s1( )x=x+10End SubPrivate Sub s2( )Dim x as integerx=x+10End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是______”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下程序：
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
Msgbox x；
End Sub
程序执行后，单击Command1命令按钮，消息框显示结果是【 】。
正确答案：9
9 解析：inc函数每执行一次就向x上累加一次传入的参数，所以最后x的值为：2+3+4=90 -
第2题：
在窗体上添加一个名为Command1的命令按钮，然后编写如下程序：
Function m(x As Integer, y As Integer) As Integer
m＝IIf(x>y，x，y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a＝1
b＝2
MsgBox m(a，b)
End Sub
打开窗体运行后，单击命令按钮，消息框中输出结果为【 】。
正确答案：4
4 解析：M(6)的值为12－6＝6；则有M(2＋6)＝M(8)的值为12－8＝4。 -
第3题：
在窗体上画一个命令按钮，然后编写如下程序(假定变量x是—个窗体级变量)
Dim x As Integer
Sub inc(a AS Integer)
X=K+a
End Sub
Private Sub Command1_Click()
inc2
inc3
inc4
Prmt x；
Ead Sub
程序执行后，单击Command1命令按钮，输出的结果是【 】。
正确答案：9
9 解析：inc函数每执行一次就向x上累加一次传入的参数，所以最后x的值为：2+3+4=9。 -
第4题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub s(ByVal p As Integer)
p=p*2
End Sub
Private Sub Command1_click()
Dim i As Integer
i=3
Call s(i)
If i＞4 Then i=i^2
MsgBox i
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为【 】。
正确答案：3
3 解析：由于VBA中，传值调用(ByVal选项)为“单向”作用形式即过程调用只是相应位置实参的值“单向”传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。此题中：形参p被说明为ByRef传值形式的整型量，当运行Command1 Click()过程，并调用s()函数，实参i传送其值给形参p，p发生变化p=p*2=3*2=6。但因为使用的是ByVal“单向”传值形式，实参i的的值不发生变化， iF句为假，执行MsgBox i语句后输出3。 -
第5题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Public X As Integer Private Sub Commandl Click（ ）x＝10 Call slCall s2MsgBox x End Sub Private Sub sl（ ）x＝x+20 End Sub Private Sub s2（ ）Dim x As Integer x=x+20End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。
A.10
B.30
C.40
D.50
正确答案：B
B。【解析】在本题中，定义了一个全局变量X，在命令按钮的单击事件中对这个X赋值为10，然后依次调用sl和s2；在s1中对X自加了20；在s2中用Dim定义了一个局部变量x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量X而不是全局变量X。所以本题输出结果为30。 -
第6题：
在窗体中添加一个名称为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
暂无解析，请参考用户分享笔记 -
第7题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub sl() x=x+20 End Sub Private Sub s2() Dim x As Integer x=x+20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
A．10
B．30
C．40
D．50
正确答案：B
解析： 本题考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个x赋值为10，然后依次调用s1和s2；在s1中对x自加了20；在s2中用Dim定义了一个局部变量x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量x而不是全局变量x。故此最终的输出结果为30。 -
第8题：
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Public x As Integer
Private Sub Command1_Click()
Dim y As Integer
x=10 : y=5
Call f(x, y)
Print x; y
End Sub
Private Sub f(x1 As Integer, y1 As Integer)
x1=x+2
y1=y+2
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是( )。
A. 10 5
B. 12 7
C. 12 2
D. 以上都不对
正确答案：C
-
第9题：
在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() A=75 If A＜60 Then x=1 If A＜70 Then x=2 If A＜80 Then x=3 If A＜90 Then x=4 MsgBox x End Sub 打开窗体运行后，单击命令按钮，则消息框的输出结果是( )。
A．1
B．2
C．3
D．4
正确答案：D
解析：本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=l：然后再判断75不小于70，所以不执行F2：再接着判断75小于80，所以执行x=3：最后判断75小于90，所以执行x=4。最后消息框里输出的x值即为4。 -
第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。 -
第11题：
（ 35 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下程序：
Public x As Integer
Private Sub Command1_Click( )
x = 10
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1( )
x = x + 20
End Sub
Private Sub s2( )
Dim x As Integer
x = x + 20
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为
A ） 10
B ） 30
C ） 40
D ） 50
正确答案：B
-
第12题：
（ 34 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是
A ） 7
B ） 15
C ） 157
D ） 538
正确答案：B
-
第13题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
正确答案：20
20 解析： 本题考查IIf函数的知识。对于IIf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x＞y为假，所以返回y的值也就是返回20。 -
第14题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
A．10
B．30
C．40
D．50
正确答案：B
解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。 -
第15题：
在窗体上添加有一个命令按钮，(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next I MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 ______。
A．7
B．15
C．157
D．538
正确答案：B
解析：此题中应用三重嵌套循环，循环嵌套的执行，当外层循环执行一次，内层就要执行所有的循环：第一个for语句对变量x赋值，x=4：第二个for语句对变量x赋值，x=3：第三个for语句对变量x赋值，x=x+6。 i=1时，j=1，k执行其内部的两次循环，此时x赋值为3，当k=1时，x=x+6=3+6=9；k=2时，x=x+6=9+6=15。退出内循环到第二个for语句执行其剩余的循环，i=1，i=2时，k依旧执行其内部的两次循环，最后x还是等于15。i=1，i=3时，因为第三个for 语句始终对x的赋值为15，所以运算结果x始终等于15。第二层循环完成后退回到第一层，执行其剩余的循环，步骤问上，最后x=15。 -
第16题：
设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：
Private Sub Command1_Click()
Static x as integer
X=f(x+5)
Cls
Print x
End Sub
Private function f(x as integer)as integer
F=x+x
End function
连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是
A)10
B)30
C)60
D)70
正确答案：D
【答案】：D
【知识点】：静态变量的功能和用法
【解析】：第一次单击：x为静态变量，初值为0，传给f函数的是5，返回值为5+5，则x的值为10。 第二次单击：x为静态变量，值为10，传给f函数的是15，返回值为15+15，则x的值为30。第三次单击：x为静态变量，值为30，传给f函数的是35，返回值为35+35，则x的值为70。故本题选D。 -
第17题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl Click（ ） A=75IfA<；60 Then x=lIfA<；70 Then x=2IfA<；80 Then x=3IfA<；90 Then x=4MsgBox XEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。
A.1
B.2
C.3
D.4
正确答案：D
D．【解析】本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小于70，所以不执行x=2；再接着判断75小于80，所以执行x=3；最后判断75小于90，所以执行x=4。最后消息框里输出的x值为4。 -
第18题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As IntegerPrivate Sub Commandl_Click0x=10CaU slCall s2MsgBoxXEndSubPrivate Sub sl0x=X+20EndSubPrivate Sub s20Dim xAs IntegerX=x+20EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。
A.10
B.30
C.40
D.50
正确答案：B
暂无解析，请参考用户分享笔记 -
第19题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Commandl Click（ ）x＝10
Call slCall s2MsgBox x
End Sub
Private Sub sl（ ）x＝x+20
End Sub
Private Sub s2（ ）Dim x As Integer
窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。
A.10
B.30
C.40
D.50
正确答案：BB。【解析】在本题中，定义了一个全局变量X，在命令按钮的单击事件中对这个X赋值为10，然后依次调用sl和s2；在s1中对X自加了20；在s2中用Dim定义了一个局部变量x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量X而不是全局变量X。所以本题输出结果为30。
-
第20题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=l To 4 x=4 For j=1 To 3 x=3 Fork=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是( )。
A．7
B．15
C．157
D．528
正确答案：B
解析：本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环问题就会迎刃而解。本题中，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把x的值置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，所以最后 x=3+6+6=15。 -
第21题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Function m(x as Integer，y as Integer) as Integer
m=IIf(x＞y，x，y)
End Function
Private Sub Commandl Click()
Dim a as Integer,b as Integer
a=1
b=2
MsgBox m(a,B)
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为【 】。
正确答案：2
2 解析：本题考查考生VBA程序设计的能力。在本题中，考生应该掌握IIF条件接口。题目中调用函数m(x,y)，并将a的值传给x，将b的值传给y，因此x=1，y=2。对于函数IIf(x＞y,x,y)来说，其功能是当x＞y为真时返回x的值，当 x＞y为假时返回y的值。在本题中，因为x＞y为假，因此应该返回y的值，即返回2。 -
第22题：
（ 34 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click( )
s="ABBACDDCBA"
For I=6 To 2 Step -2
x=Mid(s,I,I)
y=Left(s,I)
z=Right(s,I)
z=x & y & z
Next I
MsgBox z
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A ） AABAAB
B ） ABBABA
C ） BABBA
D ） BBABBA
正确答案：D
-
第23题：
（ 12 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下程序：
Private Sub s （ By Val p As lnteger ）
p=p*2
End Sub
Private Sub Command1_Click()
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
MsgBox i
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 12 】 。
正确答案：