Vb问题，编一个程序按下列公式求e的值（要求精度达到1.0e-6）；e=1+1/1！+1/2！+……+1/n！如题 谢谢了

Private Sub Command1_Click() b = 1 Do n = InputBox("请输入n的值") Loop Until n >= 1 and n = int(n) Cls If n = 1 Then e = 1 Else e = 1 For i = 2 To n a = i - 1 b = b * a c = 1 / b e = e + c Next i End If e = Format(e, "0.000000") Prin