用vb 设计一个函数 求e的近似值 计算好难
问题描述：
用vb 设计一个函数 求e的近似值 计算
好难
答
Private function e()
Dim e1,n,jc
n = 0
e1 = 1
jc=1
Do
n = n + 1
jc = n*jc
e1 =e1 +1/jc
Loop Until 1 /jc