2. 计算机
  3. 有一过程如下: 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 调用它的事件

有一过程如下: 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 调用它的事件

admin2013-04-11  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 Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【  】。
选项
答案120
解析 考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
转载请注明原文地址:https://kaotiyun.com/show/kbQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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