例64分别编一计算某级数部分和的子过程和函数过程,并调用 X X 级数为:1+x+一+∴+ +:n 精度为 <eps 2! 用函数过程实现求部分级数和 用子过程实现求部分级数和 Function jishuI(*l, eps# As double Sub jishu(sx!,甲s Dimn%,s并 Dim n%. t#t n=1:s=0:t=1 n=1:s=0:t=1 Do While(Abs()>=甲s) Do While(Abs(t)>=eps) s=s+t: t=t*x/n s=s+t: t=t*x/n n=n+1 n=n+1 Loop Loop jishu =s End sub End Function 调用函数过程 调用子过程 f1=jshu(2#,0.00001) Calt2(f2,2,0.00001)例6.4 分别编一计算某级数部分和的子过程和函数过程，并调用。 级数为： ... 精度为： ! ... 2! 1 2 + + + + + n x x x n eps !  n x n