单项选择题

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