vb怎么求阶乘之和,计算n的阶乘 vb程序代码

网友回答

n是求阶乘的基础数据，n=n*i i不断增加 就相当于求阶乘。每次求完一个数的阶乘后，要把它恢复成1 才能继续。第一个是在循环体外属于初始化。第二个在循环体内，就是每次求完一个阶乘后初始化一次

网友回答

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