题目
vb编写程序,计算表达式的值 1+x/2!+x^2/4!+x^3/6!+.x^n(2n)!
提问时间：2020-10-13
答案
Private Sub Command1_Click()
Dim n As Long,x As Single,y As Single,y2 As Single,sum As Single
x = Val(InputBox("请输入一个数值：","输入","0.1"))
n = 1:y = 1:sum = 1
Do
y2 = y :y = y * x / n / (n + 1) :sum = sum + y :n = n + 2
Loop Until Abs(y2 - y) < 0.0000000001
Print sum
End Sub
Dim n As Long,x As Single,y As Single,y2 As Single,sum As Single
x = Val(InputBox("请输入一个数值：","输入","0.1"))
n = 1:y = 1:sum = 1
Do
y2 = y :y = y * x / n / (n + 1) :sum = sum + y :n = n + 2
Loop Until Abs(y2 - y) < 0.0000000001
Print sum
End Sub
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1有几个关于古诗的问题
- 21.规定一种新的运算☆,使得a☆b=ab+a+b .若2☆x=-5,求x的值
- 3设偶函数f（x）对任意x∈R都有f（x+6）=f（x）+f（3），且当x∈（-3，-2）时，f（x）=5x，则f（201.2）=_．
- 4甲,乙两港相距360千米,一轮船往返两港需要35小时,逆流航行比顺流航行多花了5小时,现在有一机帆船,
- 5南北方的分界线主导因素
- 6在三角形abc中,2sinacosb=sinb+sinc,求三角形形状
- 7把2007拆成两个自然数之和,一个是17的倍数,一个是29的倍数,这两个数的差是多少?
- 8check me out中文意思
- 92等于log以1/2底几
- 10太阳的()照亮了世界.括号里是用光芒好还是亮光好