Найти корень уравнения методом Ньютона - VB (169971)

Формулировка задачи:

Найти на отрезке [0;Pi/2] корень уравнения: x ^ 2 * Cos(2 * x) + 1, используя метод Ньютона. Мой (неправильный) код:

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
 
Function func(ByVal x) As Double
func = x ^ 2 * Cos(2 * x) + 1
End Function
 
Function proizv(ByVal x) As Double
proizv = 2 * x * (Cos(2 * x) - x * Sin(2 * x))
End Function
 
Private Sub mnRunStart_Click()
 
    Dim x1, x2, eps As Double
    Const PI = 3.14159
    eps = 0.000001
 
    x1 = 0.1
    x2 = 0.1
    Text1.Text = func(x1)
    Do Until Abs(x2 - x1) > eps
        x2 = x1
        x1 = x2 - func(x1) / proizv(x1)
    Loop
 
    Text2.Text = x1
 
End Sub

Заранее благодарю

Решение задачи: «Найти корень уравнения методом Ньютона»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Function func(ByVal x) As Double
func = x ^ 2 * Cos(2 * x) + 1
End Function
 
Function proizv(ByVal x) As Double
proizv = 2 * x * (Cos(2 * x) - x * Sin(2 * x))
End Function
 
 
Private Sub Command1_Click()
 
    Dim x1 As Double, x2 As Double, eps As Double
    Const PI = 3.14159
    eps = 0.000001
 
 
    x2 = PI / 2
    Do
        x1 = x2
        x2 = x1 - func(x1) / proizv(x1)
    Loop Until Abs(x2 - x1) < eps
     
    MsgBox x2
       
End Sub