Question

在VB中，输入任意一个整数N，输出1！+2！+……+n!的累加和，请问怎么写代码

Answer 1

Private Sub Command1_Click()

  n = CInt(InputBox("N="))

  t = 1

  For i = 1 To n

    t = t * i

    s = s + t

  Next i

  Print "1!+2!+...+"; n; "!="; s

End Sub

Answer 2

Private Sub Command1_Click()
    Dim n As Integer
    Dim sum As Double
    sum = 0
    n = InputBox("请输入n的值")
    For i = 1 To n
        sum = sum + jiecheng(i)
    Next i
    Print sum
End Sub
Public Function jiecheng(ByVal n As Integer) As Double
        Dim jc As Double
        jc = 1
        For i = 1 To n
            jc = jc * i
        Next
        jiecheng = jc
End Function