![](https://lstatic.shangxueba.com/jiandati/h5/images/m_q_title.png)
有如下函致:Function fact(x As Integer)As LongDim p As Long,i As Integer p=1 For i=1 To xp=
有如下函致: 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