A-A+

有一过程如下: Sub Subl (m As Integer total As Long)

2022-08-12 20:14:37 问答库 阅读 197 次

问题详情

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


请帮忙给出正确答案和分析,谢谢!

参考答案

正确答案:120
本题的难点是实参与形参的传递的问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此51=120。

考点:过程