请阅读程序：

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．A

B．B

C．C

D．D