用vb计算s=1+2\3+3\5+4\7+.....,当第i项的值小于10^-5时结束
答案:2 悬赏:50
解决时间 2021-02-18 20:18
- 提问者网友：雨之落き
- 2021-02-18 08:43
用vb计算s=1+2\3+3\5+4\7+.....,当第i项的值小于10^-5时结束
最佳答案
- 二级知识专家网友：初心未变
- 2021-02-18 09:47
可不可不是10^-5,你看看他的通项：i/(i*2-1),当I越大它越接近于1/2，它的最小值就是1/2怎么可能比10^-5小嘛，我还以为我算错了。。。结果是根本算不出来
全部回答
- 1楼网友：为你轻狂半世殇
- 2021-02-18 11:26
private sub command1_click()
dim sum as double
dim i as long
dim n as double
n = ((1 / (10 ^ -5)) + 1) / 2 '正好等于10 ^ -5时候n的值
n = round(n + 0.5, 0) '对n+0.5进行四舍五入处理，保证n只要有小数点后面有数就进，不舍。
for i = 1 to n '计算n项的和
sum = sum + 1 / (2 * i - 1)
next i
print "项数n为：" & n
print "n项和为：" & sum
end sub
调试如下图：
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| • 手机登qq时，显示手机磁盘不足，清理后重新登 |
| • 刺客的套装怎么选啊？ |