请阅读程序：
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
subP a()
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．出错

当代金融创新的根本原因是新技术革命的推动。