好吧问答库 > VB编程题，牛顿迭代法。

VB编程题，牛顿迭代法。

编写一个子程序NewTon(float x0,float eps,float x1).它的功能是用牛顿迭代法求f(x)=x^3-2x^2+4x+1在x=0附近的一个实根。牛顿迭代公式为：x n+1(为下标）=x n -f(x n)/f✀（x n)迭代收敛判据为：|f(x n+1)|<eps (eps为指定的迭代精度，例如1e-6）。若迭代成功，则返回非零值；否则，返回0.

2026年09月19日 00:42

有3个网友回答

网友（1）：

Private Function NewTon(n As Double, eps As Double) As Double
Dim a(100) As Double
Dim x As Double
Dim y As Double
Dim k As Double
a(0) = 0

For i = 0 To 99
x = a(i)
y = x ^ 3 - 2 * x ^ 2 + 4 * x + 1
k = 3 * x ^ 2 - 4 * x + 4
a(i + 1) = x - y / k
Print a(i + 1)
If Abs(y) < esp Then
NewTon = a(i + 1)
Exit Function
Else
NewTon = 0
End If
Next i
End Function

网友（2）：

esp和 eps 笔误喽

网友（3）：

你会了嘛怎么做的我看答案还是看不懂那