>
数学
>
【程序代码vb】计算s=1/1+2/91*20+3/(1*2*3)+...+n/(1*2*...*n)的值(结果精确到0.00001)
人气:126 ℃ 时间:2020-10-01 17:25:07
解答
Private Sub Command1_Click()
Dim s As Double, i As Integer, t As Double
n = Val(InputBox("N="))
s = 1 '+ 2 / 91
t = 1
For i = 3 To n
t = t * (i - 1)
s = s + 1 / t
Next i
Print Format(s, "0.00000")
End Sub
推荐
用VB写设计程序代码,求:s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值. 要求用DO循环
因式分解x的平方(y-z)+y的平方(z-x)+z的平方(x-y)
一个做匀加速直线运动的物体,初速度v0=2.0m/s,它在第3s内通过的位移是4.5m,则它的加速度为_.
如何品读诗词?、
猜你喜欢
部分电路短路 定义
HFO生成单质的反应
比较棘手的句子
一个10V的电压表,其电阻是20K欧,若将其量程扩大为250V,需要串联多大的附加电阻R?
皇帝的新装 阅读答案 急求啊 啊啊啊
已知关于x的方程3x+(3-2a)=4x+3(a+2)的解是负数,求a的取值范围.
有关旅行英语作文 1说明你想旅游的地点 2说明你为什么选择这个地点 3描述你的旅行计划
(1又4分之3-8分之7-12分之7)除(-8分之7)
© 2024 79432.Com All Rights Reserved.
电脑版
|
手机版