vb编程：用近似公式e=1/1!+1/2!+...+1/n!计算自然对数的底e的近似值 (假设

Option ExplicitPrivate Sub Form_Load() '窗体自动刷新，以便Print语句显示结果 Me.AutoRedraw = True Dim e As Double Dim n As Integer e = 2# n = 2 Do While n <= 100 e = e + 1# / Factorial(n) n = n + 1 Loop Print eEnd SubPr