Question

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.

Answer 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

追问

大神，我是真正的什么都不懂，我只是把你发的这段原原本本地打进去。运行后什么都没发生。。这是什么原因。。该怎么做。。

大神，我是真正的什么都不懂，我只是把你发的这段原原本本地打进去。运行后什么都没发生。。这是什么原因。。该怎么做。。

追答

我不是大神。我这里只是函数，你要用的时候就填入参数，直接出结果，你自己加一个command按钮，点击后添加print NewTon(0,0.000001)，试一试结果。

Answer 2

引用cslizh的回答：
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

esp和 eps 笔误喽

Answer 3

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