本用级数法求解下面函数的近似值,规定当 n 取某一值时,若 ≤ 0 . 0000l ,则停止运算。函数的级数展开式如下: Private Sub Command 1 _Click() Dim x As Single, eps As Single x=Text1:eps=0.00001 Text2=fun(x, eps) End Sub Private Function fun(x As Single, eps As Single)As Double Dim n As Integer, t As Double, y As Double, s As Single y = x: t = x Do ( 1 ) n = n+1 s = ( 2 ) t = ( 3 ) y = y+s*t / (2*n+1) Loop Print abs(t) Fun = y End F un ct i on