vb 计算m!+(m+1)!+……n!

忘了阶乘的公式了 呵呵
参考一下好像是这样写

Private Sub Command1_Click()
dim n
n=val(Text1.Text)

Dim i As Integer

For i = 1 To n
r = r + njie(i)
Next

msgbox r

End Sub

Private Function njie(ByVal n As Integer) As Long

Dim i As Integer
For i = 1 To n

If i = 1 Then r = 1
r = r * i
Next
End Function

加到50分
HIgh我