Sub subP(b() As Integer)
F．or i = 1 To 4
b(i) = 2 * i
Next i
E．nd Sub
Private Sub Command1_Click()
D．im a(1 To 4) As Integer
a(1) = 5
a(2) = 6
a(3) = 7
a(4) = 8
subP a()
F．or i = 1 To 4
Print a(i)
Next i
E．nd Sub
运行上面的程序，单击命令按钮，输出结果为
A． ） 2
4
6
8
B． ） 5
6
7
8
C． ） 10
12
14
16
D． ） 出错