有下列事件过程：Private Sub Command1_Click()b=10Do Until b=-1a=InputBox("请输入a的值")a=Val(A)b=InputBox("请输入b的值")b=Val(B)a=a*bLoopPrint aEnd Sub程序运行后，依次输入数值30,20,10,-1后，输出结果是( )。A．6000B．-10C．200D．-6000
题目
有下列事件过程：
Private Sub Command1_Click()
b=10
Do Until b=-1
a=InputBox("请输入a的值")
a=Val(A)
b=InputBox("请输入b的值")
b=Val(B)a=a*b
Loop
Print a
End Sub
程序运行后，依次输入数值30,20,10,-1后，输出结果是( )。
A．6000
B．-10
C．200
D．-6000
相似考题
更多“有下列事件过程:Private Sub Command1_Click()b=10Do Until b=－1a=InputBox("请输入a的值")a=Val ”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() x=0 Do Until x=-1 a=InputBox(“请输入A的值”) a=Val(a)b=InputBox(“请输入B的值”) b=Val(b)x=InputBox(“请输入x的值”) x=Val(x) a=a+ b+ x Loop Print aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。
A．2
B．3
C．14
D．15
正确答案：A
解析：本题需要注意的是每次循环开始的时候三个变量都被重新赋了一次值，所以最后的结果仅仅是2+1+(-1)。所以最终的输出是2。 -
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入A的值") a=Val(A)b=InputBox("请输入B的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。
A．2
B．3
C．14
D．15
正确答案：A
解析：本题需要注意的是每次循环开始的时候三个变量都被重新赋了一次值，所以最后的结果仅仅是2+1+(-1)。所以最终的输出是2。 -
第3题：
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(a)b = InputBox("请输入b值") b = Val(b)a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为( )。
A．6000
B．-10
C．200
D．-6000
正确答案：B
解析：本段程序的执行过程如下：第1次输,N 30，并给变量a赋值为30；第2次输入20，并给变量b赋值为20，这是执行语句a=a*b=600，接着判断b=20条件不成立，因此继续循环；第3次输入10，给a赋值为10；第4次输入-1并赋值给变量b，再执行语句a=a*b=-10然后判断循环条件，b=-1条件为真，所以退出循环。 -
第4题：
在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_ Click() x=0 Do Until x=-1 a= InputBox(“请输入A的值”) a= Val (A)b=InputBox(“请输入B的值”) b=Val (B)x=InputBox(“请输入x的值”) x=Val (x) a=a+ b+ x Loop Print a End Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为______ 。
A．2
B．3
C．14
D．15
正确答案：A
-
第5题：
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)a=a * b Loop Print aEnd Sub程序运行后，依次输人数值30，20，10，-1，输出结果为
A．6000
B．-10
C．200
D．-6000
正确答案：B
解析：DoUntil-Loop循环执行的规则是：先判本程序执行时，先判断条件“b=-1”是否为真，此时b为10，“b=-1”不成立，执行循环体。a和b分别取得InputBox函数接收到的值为30和20，做乘法后a的值为600。执行Loop后，返回Do语句再判断“b=-1”是否为真，此时b为20，“b=-1不成立，继续执行循环体，a和b再次取得InputBox函数接收到的值为10和-1，做乘法后a的值为-10。执行Loop后，返回到Do语句判断“b=-1是否为真，此时b=-1，“b=-1条件成立，结束循环，把a的值打印出来。断Do语句中的<条件>若为真，则结束循环；若<条件>为假，则执行循环体。