Найти произведения отрицательных значений функции - VB

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

Дана функция y = (x ^ 2 - 7 * x + 10) / (x ^ 2 - 8 * x + 12) -10<=x<=10 h=2,5 шаг Найти произведения отрицательных значений функции

Дана функция x = (a + Btt - 1.7) \ (c + (d \ a + Btt + 0.5)) Bn<=b<=Bk H=Hb шаг Найти число X неравных 0. И Х максимальное.

n - натуральное число Вычислить: 2\1+3\2+4\3+...+...(n+1)\n

41,42,43 соответственно

Буду очень благодарен) Замучался уже в конец((

Решение задачи: «Найти произведения отрицательных значений функции»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
   TextBox1.Text = f(-10)
   TextBox2.Text = f(-7.5)
   '...
   TextBox9.Text = f(10)
   Call F41
End Sub
 
Sub F41()
   Dim x As Double
   Dim z As Double
   Dim flag As Boolean
   
   z = 1
   For x = -10 To 10 Step 2.5
      If f(x) < 0 Then
         z = z * f(x)
         flag = True
      End If
   Next x
'   If flag Then MsgBox ("результат равен " & z) _
'           Else MsgBox ("нет отрицательных значений функции")
           
   If flag Then TextBox11.Text = "результат равен " & z _
           Else TextBox11.Text = "нет отрицательных значений функции"
End Sub
                        