VB表达式:计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+···当第i项的值
人气:453 ℃ 时间:2020-03-20 01:56:44
解答
Private Sub Command1_Click()
Dim i As Long
Dim a As Double
Dim s As Double
Dim stp As Integer
stp = 1
i = 1
Do While True
If 1 / i < 10 ^ -4 Then Exit Do
a = 1 / i
s = s + a
i = i + stp
stp = stp + 1
Loop
Print s
End Sub
推荐
猜你喜欢
- 英语题目(完形填空2道)
- 两个数学问题求解答一下
- 小文有240个彩球,如果按顺序5黄6红3白顺序摆放,最后什么颜色
- X大于1,y大于0,且满足xy等于x的y次方,x除以y等于x的3次方乘y,求X加Y的答案
- 利用三角函数比较sinx,x,tanx(0<x<π/2)的大小
- 宾语从句中,是I don't know what the matter is,还是I don't know what's the matter?
- 过氧化钙与水反应的方程式 为什么生成物不能是氧化钙?
- 已知变量x,y满足约束条件2x-y≤0,x-3y+5≥0,求10^(x+y-1)的最大值