有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1a=InputBox(“请输入a的值”)a=Val(a)b=InputBox(“请输入b的值”)b=Val(b)a=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值30，20，10，-1，输出结果为( )。

A．6000

B．-10

C．200

D．-6000