Imports System.Math
Public Class Form1

    Sub f_reg(ByVal n2 As Integer, ByVal x As Single, ByVal y As Single, ByVal h2 As Single)
        'локальная переменная  процедуры для вычисления функции
        Dim z As Double

        'в этом цикле проходим по заданному интервалу значений у с шагом h2 (с постоянным значением х)
        For i = 1 To n2
            z = y + E ^ (-x) + 2.8 * x ^ 2 - x 'вычисляем значение функции
            'выводим на экран значения x,y,z
            ListBox1.Items.Add(Str(x))
            ListBox2.Items.Add(Str(y))
            ListBox3.Items.Add(Str(z))
            'увеличиваем значение у на величину шага h2
            y = y + h2
        Next
    End Sub

    'функция расчета количества шагов в интервале
    Function f_zikl(ByVal a As Single, ByVal b As Single, ByVal h As Single) As Integer
        Return CInt(Fix((b - a) / h) + 1)
    End Function

    'процедура для вывода какого-либо значения в текстбокс
    Sub vivod(ByVal W As Single, ByRef T As TextBox)
        T.Text = CStr(W)
    End Sub

    'функция считывания из текстбокса какого-либо значения
    Function vvod(ByVal T As TextBox) As Single
        Return CSng(Val(T.Text))
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a, b, h1, x, c, d, h2, y As Single
        Dim n1, n2 As Integer

        'вводим значения переменных
        a = vvod(TextBox1)
        b = vvod(TextBox2)
        h1 = vvod(TextBox3)
        c = vvod(TextBox4)
        d = vvod(TextBox5)
        h2 = vvod(TextBox6)

        'если шаг для одного из интервалов равен 0, то выдаем сообщение
        If h1 = 0 Or h2 = 0 Then
            MsgBox("Шаг не может равняться нулю")
        Else
            'расчитываем ко-во шагов для значений у и х
            n1 = f_zikl(a, b, h1)
            n2 = f_zikl(c, d, h2)
            'присваиваем х и у начальные значения
            x = a
            y = c
            'выводим количество шагов в текстбоксы
            vivod(n1, TextBox7)
            vivod(n2, TextBox8)

            'в этом цикле проходим по заданному интервалу значений х с шагом h1
            For i = 1 To n1
                'внутри цикла запускаем процедуру расчитывающую значение функции, проходя по интервалу значений у
                f_reg(n2, x, y, h2)
                x = x + h1
                y = c
            Next
        End If

    End Sub

    'закрываем программу
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    'очистка элементов формы
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        ListBox2.Items.Clear()
        ListBox1.Items.Clear()
        ListBox3.Items.Clear()
    End Sub
End Class