设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › VB利用级数求和法计算,Xn=1+2/x^2+3/x^3+...+n& ...

VB利用级数求和法计算,Xn=1+2/x^2+3/x^3+...+n/x^n,x>1,精度要求为10^-5

[复制链接]
查看11 | 回复1 | 2012-11-5 20:37:28 | 显示全部楼层 |阅读模式
'x取值大于1，可以任意取，给你写个x=2的实例：Private Sub Form_Load()
Dim x, n, s, sum
x = 2 '假设x=2，自己修改
sum = 1: n = 1
Do
n = n + 1
s = n / x ^ n
If s <= 10 ^ (-5) Then Exit Do
sum = sum + s
Loop
MsgBox sum
Unload MeEnd Sub...
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行