![[填空题] 有一过程如下： Sub Subl (m As Integer,total As Long) Dim i AS Integer total = 1 For i = 1 To](http://www.mshxw.com/aiimages/31/256558.png "[填空题] 有一过程如下： Sub Subl (m As Integer,total As Long) Dim i AS Integer total = 1 For i = 1 To")
[填空题] 有一过程如下：
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】 。
参考答案：
120问题解析:
本题的难点是实参与形参的传递的问题。 total按ByRef参数传递。子过程的功能是计算n!，题中输入5，因此51=120。
