填空题

阅读程序： 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】。