PowerPoint 演示文稿

例 6.4分别编一计算某级数部分和的子过程和函数过程，并调用。
级数为： 精度为：
函数过程实现求部分级数和
Function jishu1(x!, eps#) As Double
Dim n%, s#, t#
n = 1: s = 0: t = 1
Do While (Abs(t) >= eps)
s = s + t
t = t * x / n
n = n + 1
Loop
jishu1 = s
End Function
子过程实现求部分级数和
Sub jishu2(s#, x!, 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
f1 = jishu1(2#, 0.000001) ' 调用函数过程
Call jishu2(f2, 2#, 0.000001)‘ 调用子过程
或 jishu2 f2,2#,0.00001