填空题

阅读程序：
Sub p(b( ) As Integer)
For i=1 To 4
b(i)=2*i
Next i
End 5ub
Private Sub Command1_C1ick( )
Dima(1 To 4)As InteSer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
caU p(a)
For i=1 To 4
Pdnt a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为【15】。