有以下程序： Sub subP(b()As Integer) For i=1
题型：单项选择题
问题：
有以下程序：
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(1)=5
a(2)=6
a(3)=7
a(4)=8
subPa()
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
16
D．出错