vb题：求p的值。p=1+2！+3！+4！+5！+6！+7！+8！+9！+10！

Question

要过程，谢谢

Answer 1

Function jiecheng(ByVal n As Long) As Long
Dim v As Long
Dim i As Long

If n <= 1 Then
jiecheng = 1
Else
v = 1
For i = 2 To n
v = v * i
Next i
jiecheng = v
End If

End Function

Private Sub Command1_Click()
Dim p As Long
Dim i As Long

For i = 1 To 10
p = p + jiecheng(i)
Next i
Print p

End Sub

Answer 2

form,一个按钮,拷贝代码过去运行

Private Sub Command1_Click()
p = 10
Sum = 0
For i = 1 To p
Sum = Sum + MyFunc(i)
Next
Print Sum
End Sub

Private Function MyFunc(ByVal n As Integer) As Double
If n <= 0 Then
MyFunc = 0
ElseIf n = 1 Then
MyFunc = 1
Else
MyFunc = n * MyFunc(n - 1)
End If
End Function