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

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

3. Составить программу многократного вычисления значений функции при изменении аргумента в указанном диапазоне и с заданным шагом. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы:

Таблица функций Y(X): X Y ... ... ... ...

Не считает. Не пойму, в чём проблема.

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim x As Single, y As Single
 
Private Sub cmd1_Click()
    Text1.Text = "Таблица функции Y(X)"
    Text1.Text = Text1.Text + vbCrLf + "   X               Y"
    
    For x = 0.5 To 2.8 Step 0.5
    y = (a + b) / (Exp(x) + Cos(x))
    For x = 2.8 To 6 Step 0.5
    y = (a + b) / (x + 1)
    For x = 6 To 7 Step 0.5
    y = Exp(x) + Sin(x)
    Text1.Text = Text1.Text + vbCrLf + _
    Format(x, " 0.00") + "        " + Format(y, "0.00000")
    Next
End Sub

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim x As Single, y As Single
Dim a As Single, b As Single
 
Private Sub cmd1_Click()
    a = 2.6
    b = -0.39
    txt1.Text = "Таблица функции Y(X)"
    txt1.Text = txt1.Text + vbCrLf + "   X               Y"
    
    For x = 0.5 To 7 Step 0.5
        If x < 2.8 Then
            y = (a + b) / (Exp(x) + Cos(x))
        ElseIf 2.8 <= x And x < 6 Then
            y = (a + b) / (x + 1)
        Else
            y = Exp(x) + Sin(x)
        End If
 
        txt1.Text = txt1.Text + vbCrLf + _
        Format(x, " 0.00") + "        " + Format(y, "0.00000")
    Next
End Sub