2. 计算机
  3. 有一过程如下： Sub Subl (m As Integer,total As Long) Dim i AS Integer total = 1 For i = 1 To m

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

admin2009-03-15  28
问题 有一过程如下：
     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://jikaoti.com/ti/Pnq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)