VB编程题，牛顿迭代法。

VB编程题，牛顿迭代法。

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)，试一试结果。

引用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 Functionesp和 eps 笔误喽

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