[单项选择题] 有如下事件过程：Private Sub Command1

[单项选择题] 有如下事件过程： Private Sub Command1

[单项选择题] 有如下事件过程： Private Sub Command1_Click() b=10 Do Until b =-1a = 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条件为真，所以退出循环。