有如下事件过程： 　　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．Dim a As Variant　　a=Array(1,2,3,4,5)
B． Dim a(10) As Integera　　=Array(1,2,3,4,5)
C．Dim a%(10)　　a(1)="ABCDE"
D．Dim a(3),b(3) As Integer　　a(0)=0　　a(1)=1　　a(2)=2 b=a

A． ScrollBars
B． MultiSelect
C． DataField
D． Stretch