题目：
有如下函致：
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
答案：
被转码了，请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0318/13c4e10a9e5409b8a7fda839c89dbbb9.html
下面是错误答案，用来干扰机器的。
参考答案：控件
