分别编一计算某级数部分和的子过程和函数过程,并调用.级数为：1+x+x^2/2+x^3/3+.+x^n/n

题目

分别编一计算某级数部分和的子过程和函数过程,并调用.级数为：1+x+x^2/2+x^3/3+.+x^n/n
精度为：x^n/n的绝对值= eps)
s = s + t
t = t * x / n
n = n + 1
Loop
jishu1 = s
End Function
子过程实现求部分级数和
Sub jishu2(s#,,eps#)
Dim n%,t#
n = 1:s = 0:t = 1
Do While (Abs(t) >= eps)
s = s + t
t = t * x / n
n = n + 1
Loop
End Sub
已知这么多、过程中的 t=t*x/n 我知道是错误的,是另外一个式子的公式
但是我想了好久、想不到正确的公式是什么.

答案

除非x是大于-1小于1的小数,不然应该永远达不到你设定的eps,无限循环.
你的公式是错误的,应该是x^n/n
n = 1 : s = 1
Do While (Abs(t) >= eps)
s = s + t
t = x ^ n / n
n = n + 1
Loop
jishu1 = s