有下列事件过程:Private Sub Command1_Click()b=10Do Until b=－1a=InputBox("请输入a的值")a=Val

有下列事件过程：

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次输入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条件为真，所以退出循环。