A-A+
有如下事件过程： Private Sub Command1_Click() b=10 Do
问题详情
有如下事件过程： 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语句中的<条件>若为真，则结束循环；若<条件>为假，则执行循环体。
