有以下程序：
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．出错