当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 有一过程如下: 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 ("请输入数据")

  

参考答案:

120

  参考解析

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

微信端