单选题请阅读程序：
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)
Ncxt i
End Sub
运行上面的程序，单出命令按钮，则输出结果是______。

A、 2468
B、 5678
C、 10121416
D、出错

【正确答案】 A

【答案解析】[解析] 此题考查Sub过程的调用。subP的参数为数组名，即按地址传递参数，实参数组a和形参数组b共享同一个存储单元，形参数组b在过程中一旦被改变，相应的实参数组a中的元素也跟着改变，即数组a中原来元素的值被覆盖。在subP过程中，b(1)=2*1=2，b(2)=2*2=4，b(3)=2*3=6，b(4)=2*4=8，即对应着a(1)=2，a(2)=2*2=4，a(3)=2*3=6，a(4)=2*4=8。