'x取值大于1,可以任意取,給你寫個(gè)x=2的實(shí)例：
Private Sub Form_Load()
Dim x,n,s,sum
x = 2 '假設(shè)x=2,自己修改
sum = 1:n = 1
Do
n = n + 1
s = n / x ^ n
If s 不對(duì)呀 這個(gè)做出來(lái)的精度不對(duì)x取值對(duì)嗎？我這里的x為2它保留的位數(shù)不對(duì)'位數(shù)可以隨便定義Private Sub Form_Load()Dim x, n, s, sum, pospos = 5 '保留5位小數(shù)，自己修改x = 3 '假設(shè)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