VB利用级数求和法计算,Xn=1+2/x^2+3/x^3+...+n/x^n,x>1,精度要求为10^-5x是自己任意取的吗?

VB利用级数求和法计算,Xn=1+2/x^2+3/x^3+...+n/x^n,x>1,精度要求为10^-5x是自己任意取的吗?
VB利用级数求和法计算,Xn=1+2/x^2+3/x^3+...+n/x^n,x>1,精度要求为10^-5
x是自己任意取的吗?

VB利用级数求和法计算,Xn=1+2/x^2+3/x^3+...+n/x^n,x>1,精度要求为10^-5x是自己任意取的吗?
'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