单选题 请阅读程序： 　　Sub subP（b（）As Integer） 　　For i=1 To 4 　　b（i）=2＊i 　　Next i 　　End Sub 　　 　　Private Sub Command 1_Click（） 　　Dim a（l To 4）As Integer 　　A（l）=5：a（2）=6：a（3）=7：a（4）=8 　　subP a（） 　　For i=1 To 4 　　Print a（i） 　　Next i 　　End Sub 　　运行上面的程序，单击命令按钮，则输出结果是