单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a,B)Print a, b End Sub Sub Num(a,B)t = a a = b / t b = t End SubA．20 10B．10 20C．2 10D．10 10
题目
单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a,B)Print a, b End Sub Sub Num(a,B)t = a a = b / t b = t End Sub
A．20 10
B．10 20
C．2 10
D．10 10
相似考题
更多“单击一次命令按钮之后,窗体中的输出结果为______。Private Sub Command1_ Click() Dim a As Singl ”相关问题
-
第1题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：
Pfivme Sub f(ByVal x As Integer)
x＝x+4
End Sub
Pfivate Sub Commandl_Click()
i＝3
Call f(i)
Ifi>4 Then i＝i*2
MsgBOx I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
正确答案：3
3 解析： 本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完Call f(i) 这条语句后i的值不变仍为 3，当然也不满足If语句的条件，故此最后输出结果为3。 -
第2题：
单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a,B)Print a, b End Sub Sub writein(a, ByValB)b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub
A．24 6
B．24 0
C．12 6
D．12 0
正确答案：B
-
第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题：
在窗体中添加一个名称为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。 -
第5题：
单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 x = fun(i) Print x; Next i End Sub Function (n) x = n * n FF = x End Sub
A．1 4 9 16
B．1 3 5 7
C．3 6 9 12
D．2 4 6 8
正确答案：A