55

Imports System.Math
Public Class Form1
    'Процедура вывода результата в TextBox
    Overloads Sub vivod(ByVal Z As Double, ByVal T As TextBox)
        T.Text = Format(Z, "0.0000")
    End Sub
    'Процедура вывода результата в ListBox’
    Sub vivodlist(ByVal z As Double, ByVal LB As ListBox)
        LB.Items.Add(Format(z, "00.0000"))
    End Sub
    'Процедура вывода целого результата в TextBox
    Overloads Sub vivod(ByVal Z As Integer, ByVal T As TextBox)
        T.Text = CStr(Z)
    End Sub
    'Функция вычисления значения функции’
    Function fun1(ByVal x As Double, ByVal y As Double) As Double
        Return y - 0.1 * Sin(x) / 2
    End Function
    'Процедура решения задачи’
    Sub Cikl(ByVal a As Double, ByVal b As Double, ByVal c As Double, ByVal d As Double, ByVal h1 As Double, ByVal h2 As Double, ByRef k As Integer, ByRef sum As Double)
        Dim i, j, n1, n2 As Integer
        Dim x, y, z As Double
        'Количество повторений первого цикла’
        n1 = CInt((Fix(b - a) / h1 + 1))
        'Количество повторений второго цикла’
        n2 = CInt((Fix(d - c) / h2 + 1))
        'Присвоение начального значения аргументу функции’
        x = a
        sum = 0
        k = 0
        For i = 1 To n1
            y = c
            For j = 1 To n2
                z = fun1(x, y)
                vivodlist(x, ListBox1)
                vivodlist(y, ListBox2)
                vivodlist(z, ListBox3)
                If z < 0 Then
                    sum = sum + z
                    k = k + 1
                End If
                y = y + h2
            Next
            x = x + h1
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Задание типов данных’
        Dim a, b, c, d, h1, h2, sum As Double
        Dim k As Integer
        'Ввод исходных данных’
        'a = 0
        'b = 2 * PI'
        'c = 0'
        ' d = 2 * PI'
        'h1 = PI / 8'
        'h2 = PI / 8'
        Cikl(a, b, c, d, h1, h2, k, sum)
        vivod(k, TextBox7)
        vivod(sum, TextBox8)
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
End Class