2. 计算机
  3. 有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Nex

有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Nex

admin2013-04-11  38
问题 有如下函致：    Function fact(x As Integer)As Long    Dim p As Long，i As Integer       p=1       For i=1 To x          p=p*1       Next       fact=p    End Function    调用它的事件过程如下：    Private Sub Command1_Click()       i=Val(Inputbox("请输入数据"))       a=fact((i))       Print a    End Sub    若输入数据5，则运行结果为
选项 A、120
B、60
C、80
D、100
答案1
解析 本题的难点是实参与形参数传递的问题。如果将fact((i))改成fact(i)会产生“ByRef参数类型不符”的提示。字符型变量i经(i)计算的结果为5，其作为常数参数按值传递调用子过程fact(5)。子过程的功能是计算n!。
转载请注明原文地址:https://jikaoti.com/ti/4YO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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