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