问题
单项选择题
有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integerp=1For i=1 To x p=p*1Nextfact=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
答案
参考答案：A
解析： 本题的难点是实参与形参数传递的问题。如果将fact((i))改成fact(i)会产生“ByRef参数类型不符”的提示。字符型变量i经(i)计算的结果为5，其作为常数参数按值传递调用子过程fact(5)。子过程的功能是计算n!。