单项选择题
请阅读程序：
Sub subP（b（）As Integer）
For i=1 To 4
b（i）=2＊i
Next i
End Sub
Private Sub Command 1_Click（）
Dim a（l To 4）As Integer
A（l）=5：a（2）=6：a（3）=7：a（4）=8
subP a（）
For i=1 To 4
Print a（i）
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是（）
A．
B．
C．
D．出错
