有如下函致： Function fact(x As Integer)As Long
题型：单项选择题
问题：
有如下函致：
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
