Imports System.Math
Public Class Form1

    'функция вычисления произведения значений ф-ции f=(x)
    Function f_reg_pr(ByVal n As Integer, ByVal x As Single, ByVal h As Single) As Double
        Dim pr As Double
        pr = 1 'переменная для расчта произведения
        'цикл в котором мы расчитываем прозведение всех знач. ф-ции на заданном интервале
        For i = 1 To n
            pr = pr * (x ^ 5 + 5 * x ^ 4 - 2 * x ^ 3 - 4 * x ^ 2 + 7 * x - 3)
            x = x + h 'увеличиваем знач. аргумента х
        Next
        f_reg_pr = pr 'присваиваем полученное значение функцие
    End Function
    Sub f_reg(ByVal n As Integer, ByVal x As Single, ByVal h As Single)
        'локальные переменные  процедуры
        Dim y As Double

        For i = 1 To n
            y = x ^ 5 + 5 * x ^ 4 - 2 * x ^ 3 - 4 * x ^ 2 + 7 * x - 3 'расчет знач. ф-ции
            'вывод знач. функции и соответст. ей значения аргумента х на листбокс
            ListBox1.Items.Add(Str(x))
            ListBox2.Items.Add(Str(y))
            x = x + h
        Next i

    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, h, x As Single
        Dim n As Integer

        'считывание значений a,b,h из текстбоксов
        a = vvod(TextBox1)
        b = vvod(TextBox2)
        h = vvod(TextBox3)

        'проверка на то, что бы шаг h не был равен 0
        If h = 0 Then
            MsgBox("Шаг не может равняться нулю")
        Else
            n = f_zikl(a, b, h) 'расчет кол-ва шагов
            x = a 'присваиваем х начальное значение интервала
            vivod(n, TextBox5) 'выводим количество шагов
            vivod(f_reg_pr(n, x, h), TextBox4) 'выводим произведение всех значений ф-ции на интервале
            f_reg(n, x, h) 'вычисляем и выводим в Листбоксы значения ф-ции и соответств. ей аргумента
        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()
        ListBox2.Items.Clear()
        ListBox1.Items.Clear()
    End Sub

End Class