编写一个方法,求一个数的阶乘。 n!=1×2×3×...×n,比如3!=1*2*3=6?

编写一个方法,求一个数的阶乘。 n!=1×2×3×...×n,比如3!=1*2*3=6

第1个回答  2020-04-25
Function fact(n)
If n < 1 Then fact = 1: Exit Function
fact = n * fact(n - 1)
End Function

Private Sub Command1_Click()
n = InputBox("n=", , Int(20 * Rnd))
MsgBox n & "!=" & fact(n)
End Sub本回答被网友采纳
相似回答