在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVal x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(i)If i＞4 Then i=i*2End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
题目
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub f(ByVal x As Integer)
x=x+4
End Sub
Private Sub Command1_Click()
i=3
Call f(i)
If i＞4 Then i=i*2
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
相似考题
更多“在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Private Sub f(ByVal x As Intege ”相关问题
-
第1题：
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
Next i
MsgBox sum
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
正确答案：2500
2500 解析： 本题考查循环的知识。这个问题比较简单，实际上就是求1到100之间的奇数和，最终结果为2500。 -
第2题：
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Functionfun(xAsInteger)Staticzy=y＋1:z=z＋1fun=x＋y＋zEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=1Fori=1To2Printfun(x)NextiEndSub程序运行后,如果单击命令按钮,窗体中显示的内容是( )A、33
B.34
C.3
D.3
正确答案：D
-
第3题：
（ 11 ）在窗体中添加一个命令按钮，名称为 Command1 ，然后编写如下程序：
Private Sub Command1_Click()
Dim s ， i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 11 】 。
正确答案：
-
第4题：
在窗体中添加一个名称为Coml的命令按钮，然后编写如下程序：
正确答案：
3【解析】本题考查VBA程序的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用，此时形参的变化不会返回到实参；若用ByRef声明，说明此参数为传址调用，此时形参的变化将会返回到实参；没有说明传递类型，则默认为传址传递。此题中形参P被说明为ByVal传值形式的整型量，当运行Cornl-click过程时调用s函数，实参i传送其值给形参P，P发生变化p=p*2=3*2=6。但因为使用的是ByVal传值传递，所以实参i的值不发生变化，if语句中的判断条件为假，所以会直接执行MsgBox i语句后输出3。 -
第5题：
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。
正确答案：
2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。