单项选择题

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