单选题请阅读程序：
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．出错

【正确答案】 A

【答案解析】[解析] 本题考查数组为参数在函数间的传递。本题中，当用户点击控件Command1时，控件的Command1_Click()事件过程被触发，在此过程中首先定义了一个包含4个元素的数组a，并赋值，然后将数组a为参数传递给过程subP，在过程subP中执行For循环分别给a中的4个元素赋值为2、4、6、8。函数执行结束返回过程Command1_Click()，利用For循环打印输出a数组中的值，所以选A。