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