VB程序设计 计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+……,要求加数不小于0.00001并显示S及加数的项目数.
题目
VB程序设计 计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+……,要求加数不小于0.00001并显示S及加数的项目数.
答案
Private Sub Command1_Click()
Dim s As Double
Dim a As Long,n As Long
n = 1
a = 1
s = s + 1 / a
Do Until 1 / a < 0.00001
a = a + n
s = s + 1 / a
n = n + 1
Loop
Print "s=" & s
Print "共加了" & n & "项"
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 压死骆驼的最后一根稻草意味着什么?
- 多项式的项数是指
- 急,数学数列名称
- 三角形ABC中,点D.E分别在边BC,AC上,且|BD|=1/3|BC|,|CE|=1/3|CA|,AD,BE相交于点P 证明:RD=1/7AD
- 人口增长过快造成的环境问题
- 设非空集合A={x|x方+(b+2)x+b+1=0,b属于R}求集合A中所有元素的和.
- 如何估计出每支滴管滴液的体积?使用胶头滴管取用少量液体时应注意什么?为什么?
- 杨树木材的用途
- 一个圆锥形容器的底面直径是10厘米,高9厘米,把它装满水后倒入底面积是31.4平方厘米的长方体容器中,
- 在正反应为吸热反应的可逆反应AB(g) A(g)+B(g)达到平衡向逆反应方向移动,需要采
热门考点