有如下事件过程：privAtE suBCommAnD1_CliCk()B=10 Do until B=-1A=inputBox("请输入A的值")A=vAl(A)B=inputBox("请输入B的值")B=vAl(B)A=A*Bloopprint A EnD suB程序运行后，依次输入数值30，20，10，-1后，输出结果为()。
A、6000
B．-10
C．200
D、-6000