Private Sub Form_Click()
Dim i As Integer, sum As Long
For i = 1 To 10
sum = sum + jc(i)
Next
Print sum
End Sub
Private Function jc(ByVal n As Integer)
Dim tmp As Long, i As Integer
tmp = 1
For i = 2 To n
tmp = tmp * i
Next
jc = tmp
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除！