有一个过程如下：
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，运行结果为______。