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

'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
再问： 不对呀 这个做出来的精度不对
再答： x取值对吗？我这里的x为2
再问： 它保留的位数不对
再答： '位数可以随便定义 Private Sub Form_Load() Dim x, n, s, sum, pos pos = 5 '保留5位小数，自己修改 x = 3 '假设x=2，自己修改 sum = 1: n = 1 Do n = n + 1 s = n / x ^ n If s