(问答题) 编写一个用递归求阶乘fact(n)的函数,然后在主界面单击Command1按钮时接收n的值,然后调用fact(n)计算n!,并输出计算结果。(本题25.0分)

参考答案:Private Sub Command1 Click() n=val(input(“请输入n的值”)) Print“Fac(n):”& fac(n) End Sub Private Function fac(n As Integer) As Integer If n=1 Then Fac=1 Else Fac=n*Fac(n-1) End if End Function