单项选择题

有下列事件过程: 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