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

有一个过程如下： Sub Sub1(m As Integer，total As Long) Dim i AS Integer 　　total=1 　　For i=1 To m 　　　　total=total*i 　　Ne

admin2012-03-22  35
问题 有一个过程如下：
   Sub Sub1(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 Command1_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，因此5!=120。
   [错解分析] 参数按传值方式传递时，不改变实参中的值；按传地址的方式传递时，实参和形参指向的内容被改变。
   [考点链接] 参数传递方式的概念和应用。
转载请注明原文地址:https://www.kaotiyun.com/show/XThp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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