阅读程序：
SubsubP(b()AsInteger)
Fori=1To4
b(i)=2*i
Nexti
EndSub
PrivateSubCommandl_Click()
Dima(1To4)AsInteger
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subPa()
Fori=1To4
Printa(i)
Nexti
EndSub
运行上面的程序，单击命令按钮，输出结果为。（）
A.2
B.5
C.10
D.出错