填空题

阅读程序：
Sub p(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
call p (a)
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为 ______。