1!+2!+3!+4!+...+20!=？
代码如下：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, b As Integer
i = 0: Sum = 0: b = 1
While i < 20
i = i + 1
b = (i) * b
Sum = Sum + b
Wend
Text1.Text = Sum
End Sub
出现益处现象...益处指的是算不了?我把integer(算到i=8)该为long(算到i=12),之后的都益处
那这题不就做不了了?
怎么可能啊?
请高手指教...

Private Sub Command1_Click()
Dim i As Integer, j As Integer, b As Double
i = 0: Sum = 0: b = 1
While i < 20
i = i + 1
b = (i) * b
Sum = Sum + b
Wend
Text1.Text = Sum
End Sub

懂了..谢谢!~