计算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

以上就是关于计算n的阶乘 vb程序代码全部的内容，包括:计算n的阶乘 vb程序代码、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！