单项选择题

请阅读程序： 　　Sub subP(b()As Integer) 　　 For i=1 To4 　　 b(i)=2*i 　　 Next i 　　End Sub 　　Private Sub Commandl 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 　　运行上面的程序，单击命令按钮，则输出结果是( )。