填空题

下面程序运行后，单击命令按钮，输出的结果是______。
Private Sub Command1_Click()
Dim a%(1 To 5)，i%，s#
　For i=1 To 5
　　A(i)=i
　Next
　S=Fun(a)
　Print "s="；s；
End Sub
Function Fun(a()As Integer)
Dim t#,i%
　t=1
　For i=LBound(a)To UBound(a)
　　t=t*a(i)
　Next
　Fun=t
End Function

点击查看答案&解析