Private Sub Form_Click()
    Dim N As Integer, e As Single, I As Integer, J As Integer, Jc As Double
    N = Int(Val(InputBox("計(jì)算的項(xiàng)數(shù)N＝", "輸入", 5)))
    Jc = 1
    e = 1
    For I = 1 To N
        Jc = Jc * I
        e = e + 1 / Jc
    Next
    Print "e=1+1/1!+1/2!+……+1/"; N; "! = "; e
End Sub

已經(jīng)運(yùn)行過,有什么問題請留言.