有一过程如下: Sub Subl (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 Commandl_Click( ) Dim tot As Long, a As Integer a = Val( InputBox ('请输入数据') Call Subl (a,tot) Print tot End Sub 则输入数据5,运行结果为【 】。