编程e=1+1/1i+1/2i+...,求求e的近似值,精确小数点后6位,..

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/06 00:47:19
编程e=1+1/1i+1/2i+...,求求e的近似值,精确小数点后6位,..
x){gݩچ@(S[OOO& J}>OyڰG}{ ϛv>gdoMR>L/JK24|5A ҤT"\L$X$/OVbB~PSW )(( -L_jE ᚗťy)mbrc#s3s6i ejB$=*4*t25a 6 z`GFjkEfx

编程e=1+1/1i+1/2i+...,求求e的近似值,精确小数点后6位,..
编程e=1+1/1i+1/2i+...,求求e的近似值,精确小数点后6位,..

编程e=1+1/1i+1/2i+...,求求e的近似值,精确小数点后6位,..
Function nn(n As Long) As Double
Dim i As Long
nn = 1
For i = 1 To n
nn = nn * i
Next
End Function
Function sumn() As Double
Dim i As Long
sumn = 0
For i = 0 To 32767
sumn = sumn + 1 / nn(i)
If xn(x, i) / nn(i) < 0.0000001 Then Exit For
Next
End Function

i什么取值啊