填空题 有一个过程如下：
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 Sub1(a,tot)
Print tot
End Sub
则输入数据5，运行结果为 (11)