[填空题] 有一过程如下： Sub Subl (m As Integer,total As Long) Dim i AS Integer total
2021-07-20
[填空题] 有一过程如下：
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。
词条内容仅供参考，如果您需要解决具体问题
（尤其在法律、医学等领域），建议您咨询相关领域专业人士。