怎么用VB编写这么一个程序：用牛顿迭代法求方程x^5-3*x^2+2*x+1=0在x0 = 0附近的根（要求用Do语句）

题目

怎么用VB编写这么一个程序：用牛顿迭代法求方程x^5-3*x^2+2*x+1=0在x0 = 0附近的根（要求用Do语句）

答案

x1= 0
Do
x0 = X1
f1 = x0 ^ 5 - 3 * x0 ^ 2 + 2 * x0 + 1
f2 = 5 * x0 ^ 4 - 6 * x0 + 2
X1 = x0 - f1 / f2
Loop While Abs(X1 - x0) > 0.000001
Print X1