доработать программу для определённого интеграла " int sin^2(x) [0;pi/2] вычисления интеграла методом симпсона( порабол ) и методом трапеций

Private Sub Command1_Click()
a = InputBox("Введите нижний предел интегрирования", "Ввод данных")
Text1.Text = a
b = InputBox("Введите верхний предел интегрирования", "Ввод данных")
Text2.Text = b
n = InputBox("Введите число разбиений", "Ввод данных")
Text3.Text = n
End Sub
Private Sub Command2_Click()
Dim s As Double
Dim h As Double
Dim n As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
n = Val(Text3.Text)
h = (b - a) / n
s = 0
X1 = a
For i = 1 To n - 1
X1 = X1 + h
s = s + F(X1)
Next
s = h * (F(a) + F(b) + 2 * s) / 2
Text4.Text = s
End Sub
Private Sub Command3_Click()
Dim h As Double
Dim s As Double
Dim n1 As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
n = Val(Text3.Text)
n1 = 2 * n
h = (b - a) / n1
s = 0
x = a
C = 1
For i = 1 To n1 - 1
x = x + h
s = s + (3 + C) * F(x)
C = -C
Next
Simp = h * (F(a) + F(b) + s) / 3
Text5.Text = Simp
End Sub
 
Private Sub Command4_Click()
End
End Sub
 
Private Sub Command5_Click()
Form2.Hide
Form1.Show
End Sub
 
Private Sub Command6_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
L = Log(Log(b)) - Log(Log(a))
Text6.Text = L
End Sub
 
Private Sub Command7_Click()
If Form2.Text4.Text = "" Then MsgBox "Сначала вычислите интеграл", , "Ошибка сохранения": Exit Sub
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, "n =  " + Text3.Text
Print #1, "Метод трапеций: значение интеграла на интервале [" + Form2.Text1.Text + "; " + Form2.Text2.Text + "] - " + Format(Text4.Text, "0.000000000000")
Print #1, "Метод Симпсона: значение интеграла на интервале [" + Form2.Text1.Text + "; " + Form2.Text2.Text + "] - " + Format(Text5.Text, "0.000000000000")
Print #1, "Точное значение интеграла - " + Format(Text6.Text, "0.000000000000")
Close #1
End Sub
 
Private Sub Form_Load()
CommonDialog1.Filter = "Texts (*.txt)|*.txt"
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub Text3_Change()
 
End Sub