求VB编程代码

Private Sub Command1_Click()
s = 1
i = 1
Do
For m = 1 To i
If m = 1 Then
k = 1
Else
k = k * m
End If
Next m
s = s + 1 / k
If 1 / k < 0.000001 Then Exit Do
i = i + 1
Loop
MsgBox s
End Sub

Private Sub Form_Click()
Dim S As Single, I As Integer
S = 0
I = 0
Do
S = S + 1 / Jc(I)
I = I + 1
Loop While 1 / Jc(I) >= 10 ^ -6
Print "e="; S; "（最后一项是第"; I; "项："; 1 / Jc(I); "）"
End Sub
Private Function Jc(X As Integer) As Single
If X = 0 Then Jc = 1 Else Jc = X * Jc(X - 1)
End Function