一道等级考试题

大家看看这题，运行程序，输出结果是2 4 6 8吗？
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