在窗体上添加一个命令按钮，名为command1，事件过程为：Private Sub command1_Click( )x=0Do Until c=-1a= val(InputBox(“输入a的值”))b= val(InputBox(“输入b的值”))c= val(InputBox(“输入c的值”))LoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是 ( )A.2B.3C.4D.5
题目
在窗体上添加一个命令按钮，名为command1，事件过程为：
Private Sub command1_Click( )
x=0
Do Until c=-1
a= val(InputBox(“输入a的值”))
b= val(InputBox(“输入b的值”))
c= val(InputBox(“输入c的值”))
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是 ( )
A.2
B.3
C.4
D.5
相似考题
更多“在窗体上添加一个命令按钮,名为command1,事件过程为:Private Sub command1_Click( )x=0Do U ”相关问题
-
第1题：
在窗体上添加一个命令按钮(名为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，j＝2时，k依旧执行其内部的两次循环，之后x还是等于15。当i＝1，j＝3时，因为第三个for语句始终对x的赋值为15 -
第2题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Cliek
Dim b, k
For k = 1 to 6
b=23+k
Next k
MsgBox b + k
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是【 】。
正确答案：51
51 解析：本题循环内部完成b=231+2+3+4+5+6的操作，当k=7时，结束循环，故消息框中显示的是51。 -
第3题：
在窗体上添加一个命令按钮(名为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。 -
第4题：
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
正确答案：12
12 解析： 本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。 -
第5题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
For i＝1 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。 -
第6题：
（ 15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：
Private Sub Command1_Click （）
Dim b,k
For k=1 to 6
b=23+k
Next k
MsgBox b+k
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是 【 15 】 。
正确答案：