计算n的阶乘 vb程序代码

Private Sub Command1_Click()
Dim fac As Double, n As Integer, i As Integer
fac = 1
n = CInt(InputBox("请输入要计算阶乘的数N："))
If n < 0 Then MsgBox "N不能小于0！": Exit Sub
For i = 2 To n
fac = fac * i
Next i
MsgBox n & "!=" & fac
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vrf272f33rjj7f7r2xx.html