VB 程序语言 求的是 i!=(i-1)!*i 运行下面的程序不对，请各位帮忙！！

来源：百度知道 编辑：UC知道 时间：2024/06/22 03:11:30
Private Sub Form_Click()
Dim i, n As Integer
Dim s, sum As Long
n = InputBox("n=")
s = 1: sum = 1（有可能是这句错了的，但是我不知道怎么弄）
For i = 2 To n
s = s * i
sum = sum + s
Next i
End Sub

实际上就是求阶乘，你求的是n个数阶乘的和，我帮你改了下，程序如下：
Private Sub Form_Click()
Dim i, n As Integer
Dim s Long
n = InputBox("n=")
s = 1
For i = 2 To n
s = s * i
Next i
print s
End Sub