阅读程序： Sub p（b （) As Integer)For i =1To 4 b（i) = 2（iNext i End Sub Private Sub Comm

阅读程序： Sub p(b () As Integer)For i =1To 4 b(i) = 2(iNext 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 iEnd Sub运行上面的程序，单击命令按钮，输出结果为。