问题
单项选择题
有如下事件过程： 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
解析：Do Until-Loop循环执行的规则是：先判断Do语句中的<条件> 若为真，则结束循环；若<条件>为假，则执行循环体。 本程序执行时，先判断条件“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的值打印出来。