在窗体上添加一个命令按纽，名为COMgAND1，事件过程如下： Private Sub CQmmand1_Click() x =0 Do Until c = -1 a=InputBox(“请输入a的值”) a=Val (A) b=InputBox(“请输入b的值”) b=Val(B) c=InputBox(“请输入c的值”) c=Val (C) a=a+b+c Loop Print a End Sub程序运行后，单击命令按纽，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是______ 。A
题目
在窗体上添加一个命令按纽，名为COMgAND1，事件过程如下： Private Sub CQmmand1_Click() x =0 Do Until c = -1 a=InputBox(“请输入a的值”) a=Val (A) b=InputBox(“请输入b的值”) b=Val(B) c=InputBox(“请输入c的值”) c=Val (C) a=a+b+c Loop Print a End Sub程序运行后，单击命令按纽，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是______ 。
A．2
B．3
C．4
D．5
相似考题
更多“在窗体上添加一个命令按纽,名为COMgAND1,事件过程如下:Private Sub CQmmand1_Click() x =0 Do Un ”相关问题
-
第1题：
在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为______ 。 Private sub_command1_ click () Dim a a=array(1，2，3，4，5) For k=1 to 4 S=s+ a(k) Next k Print s End sub
A．10
B．14
C．15
D．120
正确答案：B
-
第2题：
在窗体上添加一个命令按钮(名为Commandl) ，然后编写如下事件过程： Private Sub Commandl_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．528
正确答案：B
解析： 本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环，这种问题就迎刃而解了。本题中，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了：同理，中层循环每一次开始前都把x的值置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x＝3+6+6＝15。 -
第3题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：
正确答案：
15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。 -
第4题：
在窗体上添加一个按纽，名为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 + 5 Next k Next j Next i Print x End Sub
A．13
B．26
C．30
D．40
正确答案：A
-
第5题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl)，编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是__________。
正确答案：
15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时，参数有两种传递方式：传址传递和传值传递。如果在函数声明时没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。本题中形参均为传址传递，即a=x=3，b=y=5，c=z=10。但是在子程序里面对c重新赋值为c=a*b=15，这个值l5会回送给实参2，所以最后显示的值Z也就是l5。