VB编程：求自然对数的底e的近似值，要求其误差小于10^(-6)

e=1+1/1!+1/2!+1/3!+…+1/n!

举报该问题

第1个回答 2013-04-22

Dim i As Integer
Dim s, f As Double
i = 1
f = 1
s = 1
Do While (1 / f) > 10 ^ (-5)
f = f * i
s = s + 1 / f
i = i + 1
Loop
MsgBox("e=" & Val(s))

第2个回答 2013-04-22

Dim i As Integer
Dim e As Double,f As Double
i=1
f=1
e=0
while (1/f)>10^(-6)
f=i*f
e=e+1/f
end本回答被网友采纳

相似回答

求VB编程代码:用近似公式求自然对数的底数e的值,直到最后一项小于10的...答：//sin(x)=x-x^3/3!+x^6/6!-...+(-1)^(m-1)*x^(2m-1)/(2m-1)!unsigned int fn(int n){ return (n == 0 || n == 1)? 1 : n * fn(n-1);} double Mysin(double x){ int m = 1, sign = 1;double t, sum = 0;while ( fabs(t = sign * pow(x, 2...

...用近似公式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 SubPrivate ...

求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 ...

e的近似值是多少?答：e = (1 + r/n)^(n*t)其中，r 是年利率，n 是复利次数，t 是时间（单位与复利次数相匹配）。当 n 趋向于无穷大时，上述公式趋近于 e。需要注意的是，这些公式只给出了计算 e 的近似值，并非精确值。实际上，e 是一个无限不循环的数，其近似值约为 2.71828。因此，在计算中可能需要根据...

...其功能是:求自然对数的底e近似值,要求其误差小于0.00001,不能输出...答：include <stdio.h> void main( ){int i;double t,e;i=0;t=1;e=1;while(t>0.00001){i=i+1;t=t/i;e=e+t;} printf ("e=%.6lf",e);}

用近似公式求自然对数的底e的值答：using namespace std;void main(){int a;long s=1;double e=1.0;for(a=1;;a++){s*=a;if(1.0/s>1e-5){e+=1.0/s;}else break;} cout<<"e="<<e<<endl;} 以上是C++实现结果是e=2.71828 用C实现会存在一个溢出问题,虽然用了long int都无法解决.可能我的TC2.0太低....

5 .用近似公式求自然对数的底 e 的值,e=1+1/1!+1/2!+1/3!+…+1/n...答：高数的问题啊,你自己翻书看着做，很好做的呀...

大家正在搜

编程求自然对数e的近似值 c语言求自然对数的近似值编程求e的近似值流程图编程求e的近似值编程求圆周率的近似值编程计算e的近似值用泰勒级数求e的近似值c语言编程计算pi的近似值编程级数近似值

vb简单编程：求自然对数e的近似值，当任意项的值小于10^...

在vb中求自然对数e的近似值，要求其误差小于0.00001，...

编写程序其功能是:求自然对数的底e近似值,要求其误差小于0....

VB编程题：求自然对数e的近似值

用Matlab做：应用公式求e的近似值，要求误差小于10-...

编程计算自然对数 e 的近似值，要求计算的误差小于0.000...

VB 用近似公式求e的值

vb编程计算e^x的近似值，直到最后一项的值小于等于10^-...