Решить определеный интеграл разными методами (прямоугольников, трапеций и Симпсона) - VB

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

здрасти! у меня проблемка, в понедельник зачет по Visual Basic в Excel, а мне нужно разобраться или хотябы посмотреть как это выглядит!?я просто не бум бум в этом... нужно решить определеный интеграл разными методами (прямоугольников, трапеций и Симпсона) и корни уравнения найти тоже несколькими методами Ньютона и делением отрезка пополам кто может помогите мне хотябы посмотреть как в общем прогараммы выглядят...

неужели никто не знает(((

Решение задачи: «Решить определеный интеграл разными методами (прямоугольников, трапеций и Симпсона)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub niuton()
  Dim x1 As Double
  Dim x2 As Double
  Dim x3 As Double
  Dim y1 As Double
  Dim y2 As Double
  Dim y3 As Double
s = Sin(3 * x ^ 2 - 4 * x - 5)
n = Val(InputBox("ГЏГ°ГЁГЎГ«ГЁГ¦ГҐГ*ГЁГҐ"))
 x1 = 1.7
Do Until Abs((x3 - x1)) <= n
 x2 = x1 - Sin(3 * x1 ^ 2 - 4 * x1 - 5) / (6 * x1 - 4) / Cos(3 * x1 ^ 2 - 4 * x1 - 5)
 x3 = x1
 x1 = x2
 DoEvents
Loop
 MsgBox "MГҐГІГ®Г¤ ГЌГјГѕГІГ®Г*Г* Гµ = " & x2
 MsgBox "Г‡Г*Г*Г·ГҐГ*ГЁГҐ ГіГ°Г*ГўГ*ГҐГ*ГЁГї " & s
End Sub