[单项选择题] 有如下函致： 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