单项选择题

阅读程序：
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
运行以上程序，单击命令按钮，输出结果为______ 。

点击查看答案