'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, pospos = 5 '保留5位小数，自己修改x = 3 '假设x=2，自己修改sum = 1: n = 1Don = n + 1s = n / x ^ nIf s <= 10 ^ (-5) Then Exit Dosum = sum + sLoopsum = Round(sum, pos)'四舍五入MsgBox sumUnload MeEnd Sub