VB求阶乘和1！+...+100！

来源：百度知道 编辑：UC知道 时间：2024/06/14 05:28:42
Private Sub Command1_Click()
Dim n, s, i As Double
For n = 1 To 100
c = 1
For i = 1 To 10
c = c * i
Next i
s = s + c
n = n + 1

Next n
Print s
End Sub
请高手帮我弄弄``不会了

Private Sub Command1_Click()
Dim n, s, i As Double
s=1
For n = 1 To 100
s=s*n
Next n
Print s
End Sub
Private Sub Command1_Click()
Dim n, s, i As Double
For n = 1 To 100
c = 1
For i = 1 To 10
c = c * i
Next i
s = s + c
n = n + 1

Next n
Print s
End Sub
这么做就好了，不用那么复杂

Private Sub Command1_Click()
Dim n, s, i As Double
For n = 1 To 100
c = 1
s=0
For i = 1 To n
c = c * i
Next i
s = s + c
n = n + 1
Next n
Print s
End Sub

Private Sub Command1_Click()
Dim i, n As Integer
For i = 1 To 100
n = n + i
Next i
Print n
End Sub