若有数组Dim a%（10），每个元素的值都通过InputBox输入，则下列语句正确的是（）

A.a（10）=Val（InputBox（"请输入数据"））
B.Dim i%a（i）=Val（InputBox（"请输入数据"））
C.Dim i%For i =1To 10a（i）=Val（InputBox（"请输入数据"））Next
D.Dim i%For i =0To 10a（i）=Val（InputBox（"请输入数据"））Next