在窗体中添加一个名称为Com1的命令按钮，然后编写如下程序：Private Sub s(ByVal p As Integer)p=p*2End SubPrivate Sub Com1_Click()Dim i As Integeri=3Call s(i)If i＞4 Then i=i^2End sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
题目
在窗体中添加一个名称为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
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
相似考题
更多“在窗体中添加一个名称为Com1的命令按钮,然后编写如下程序: Private Sub s(ByVal p As Integer) p ”相关问题
-
第1题：
在窗体中添加一个名称为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。 -
第2题：
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。
正确答案：
2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。 -
第3题：
（ 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 】 。
正确答案：
-
第4题：
在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：
Private Sub s(By Val p As Integer)
p=p*2
End Sub
Prirate 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。但因为使用的是DyVal“单向”传值形式，实参i的值不会发生变化，仍然为3。i＞4条件不成立，不会执行“i＝i^2”语句，所以最后i的值为3。 -
第5题：
（ 11 ）在窗体中添加一个命令按钮，名称为 Command1 ，然后编写如下程序：
Private Sub Command1_Click()
Dim s ， i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 11 】 。
正确答案：