例016：牛顿迭代法求方程解

根据输入的x0,用牛顿迭代法求方程2x3-4x2+3x-6=0的解x。

1. 先计算2x3-4x2+3x-6和f'(x0)=6x2-8x+3。
2. 再根据迭代公式计算出x1。xn+1=xn-f(xn)/f'(xn)。
3. 当|xn+1-xn|≤e时,xn+1为所求方程根，本题的e=0.0005，否则继续计算x2,x3...xn。

1.建立一个EXE工程，在窗体上布置如图14的控件。

                         图14

在按钮的单击事件中输入代码

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)
   Dim x As Single,x0 As Single,f As Single,f1 As Single
   x= Val(Text1.Text)
   Do
      x0 = x
      f = ((2*x0 -4) *x0 + 3)*x0 -6
      f1 = (6 *x0 -8) *x0 + 3
      x=x0-f/f1
   Loop While Abs(x-x0)>=0.00005
   Text2.Text=x
End Sub