用牛顿迭代法求一元三次方程的根答:Print Nim(a, b, c, d, xx1, n) '方程在XX1附近的根 Print n '迭代次数 End Sub '牛顿迭代法Newton iteration method Function Nim(ByVal a As Double, ByVal b As Double, ByVal c As Double, ByVal d As Double, ByVal x0 As Double, ByRef n As Long) As Double Dim ...