单项选择题
有以下程序：
Sub subP(b()As Integer)
For i=1 To 4
b(i)＝2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4)As Integer
a(i)＝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．2 4 6 8
B．5 6 7 8
C．10 12 14 6
D．出错