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