氯代水杨胺、双胍辛乙酸盐、顺己

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