【单选题】

请阅读程序： 

　　Sub subP(b()As Integer) 
　　  For i=1 To4 
　　    b(i)=2*i  
　　  Next i 
　　End Sub 
　　Private Sub Commandl 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．出错