单选题

请阅读程序：Sub subp(b() As Integer)For i = 1 To 4b(i) = 2 * iNextEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subp a()For i = 1 To 4Print a(i)NextEnd Sub运行上面的程序，单击命令按钮，则输出结果是（ ）。

Question

A. 2
4
6
8

B. 5
6
7
8

C. 10
12
14
16

D. 出错