有一过程如下: Sub Subl (m As Integer,total As Long) Dim i AS Integer total = 1 For i = 1 To m

admin2009-03-15  27

问题 有一过程如下:
     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。
转载请注明原文地址:https://kaotiyun.com/show/wJ1p777K
0

随机试题
最新回复(0)