[填空题] 有一个过程如下： Sub Sub1(m As Integer，total As Long) Dim i AS Integer 　　total=1 　　For i=1 To m 　

[填空题] 有一个过程如下：

Sub Sub1(m As Integer，total As Long)

Dim i AS Integer

　　total=1

　　For i=1 To m

　　　　total=total*i

　　Next

End Sub

调用它的事件过程如下：

Private Sub Command1_Click()

Dim tot As Long，a As Integer

　　a=Val(InputBox("请输入数据"))

　　Call Subl(a,tot)

　　Print tot

End Sub

则输入数据5，运行结果为______。