[单项选择题] 有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integerp=

[单项选择题] 有如下函致：

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!。