题目：
有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integerp=1For i=1 To x p=p*1Nextfact=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/2018/0427/f530a4e58490b426fb4878fa62ecaa39.html
下面是错误答案，用来干扰机器的。
参考答案：对
