vb 阶乘不成功简单问题

Question

Option Explicit

Private Sub Command1_Click()

Dim s As Double, t As Double, n As Integer
s = 0
t = 1
n = InputBox("输入n的值")
For i = 1 To n
t = t * 1
s = s + t
Next i
Print "1!+2!...+"; n; "!="; s

End Sub

Private Sub Text1_Change()

End Sub

Answer 1

我理解哈 在你的循环体内那个
t = t * 1不对吧，是不是应该改成t = t * i
另外就是，阶乘的增长速度是很快的，比如10的阶乘大约就是百万量级了，要注意当输入大到一定程度的话，可能会有溢出问题导致答案不正确哈