单选题：设有如下程序：Sub subP(b()As Integer)Fori=1 T0 4b(i)=2+iNext iEnd S

设有如下程序：
Sub subP(b()As Integer)
Fori=1 T0 4
b(i)=2+i
Next i
End Sub
Private Sub Command 1_Click()
Dim a(1 T0 4)As Integer
a(l)=5
a(2)=6
af3)=7
a(4)=8
subP a()
For i=1 T0 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果是（　　） A．2
4
6
8
B．5
6
7
8
C．10
12
14
16
D．出错