阅读程序： Sub subP(b()As Integer)For i=1 To 4 b(i)=2*iNext 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)=8subP a()For i=1 To 4 Print a(i)Next i End Sub运行以上程序，单击命令按钮，输出结果为______ 。

A．24 6 8

B．5 6 7 8

C．10 12 14 16

D．出错