[填空题] 有一过程如下： 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

[填空题] 有一过程如下：

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。