题目
输入X,利用公式e^x=1+x+x^2/2!+x^3/3!+…求e^x的近似值,直到最后一项绝对值小于-10^-6
用VB (Microsoft Visual Studio 2005)这个软件
用VB (Microsoft Visual Studio 2005)这个软件
提问时间:2020-12-11
答案
Dim a As Long, s As Long, D As String, e As Long, b As Long
D = 1: a = 1: s = 1
Do Until e > 6
D = ((2 * a) / (2 * a + 1)) * ((2 * a) / (2 * a - 1))
s = s * D
a = a + 1
b = 2 * s
e = Len(b) - InStr(b, ".")
Debug.Print D
DoEvents
Loop
Print b
D = 1: a = 1: s = 1
Do Until e > 6
D = ((2 * a) / (2 * a + 1)) * ((2 * a) / (2 * a - 1))
s = s * D
a = a + 1
b = 2 * s
e = Len(b) - InStr(b, ".")
Debug.Print D
DoEvents
Loop
Print b
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1问个科学问题 或许和生物学有关
- 2everyone except LiMing and LinTao (know)about it at that time.
- 3求一些关于人体部位的英语短语
- 4请问:-you should apologize to her ,Barry.-_____,but
- 5若A(Y+15,-15-2x)与点B(3x,9y)关于X对称者XY值为多少
- 6若△ABC的一边长为x(x>0),这边上的高为4,△ABC的面积为y,则y与x的函数关系式为
- 7they are some apples 改单数:---------- ------------- ---------------
- 8My parents will grow some vegetables in the garden this spring.改为否定句
- 9(1)函数y=│x-1│的单调递减区间是 (2)函数y=x(2-x)在(0,2)上的单调递增区间是
- 10圆柱体的体积公式推倒过程是什么
热门考点
- 1.在不同地区,车用燃油的价格会有不同.不同日期的油价也可能不一样,但都不会相差很大.赵明生活在沿海地区,暑假到新疆探亲,在新疆乘坐汽车是却发现了表1的奇怪现象.车辆在甲加油站时,他看到加油机上的示数如
- 2以点P(-4,3)为圆心的圆与直线2x+y-5=0相离,则圆P的半径的取值范围是
- 3{急!}已知x=10-4x的解与方程5x+2m=2的解相同,求m的值,
- 4被减数比减数多45 比差多60,减数是被减数的()/().
- 5纬度等于纬线吗
- 61计算机网络的定义和特征?
- 7已知三角形ABC的内角分别为abc,若根号3/3bsinA/2cosA/2+acos的平方B/2=a.求B的大小
- 8英语翻译
- 9x趋向正无穷的时候 2x+sinx/x-sinx的极限是什么?
- 10在△ABC中,AB=5,AC=13,BC边上的中线AD=6,则△ABC的周长