3 лабораторная код 1

Option Strict On

Option Explicit On

Imports System.Math 'Подключение математиечкой библиотеки.

Public Class Form1

    'Создание глобальных переменных

    Dim xx As Double

    Dim yy As Double

    Dim d_glob As Double

    'ВЫЧИСЛЕНИЕ ПЕРЕМЕННОЙ d_glob С ИСПОЛЬЗОВАНИЕМ ГЛОБАЛЬНЫХ ПАРАМЕТРОВ

    Sub glo_sub()

        d_glob = (1 - Tan(x * y ^ 2)) / (x ^ (1 / 3)) + 4 * Sqrt((x ^ 2) - 0.1)

    End Sub

    'ВЫЧИСЛЕНИЕ ПЕРЕМЕННОЙ d_sub С ИСПОЛЬЗОВАНИЕМ процедуры-SUB

    Sub subb(ByVal x As Double, ByVal y As Double, ByRef d_sub As Double)

        d_sub = (1 - Tan(x * y ^ 2)) / (x ^ (1 / 3)) + 4 * Sqrt((x ^ 2) - 0.1)

    End Sub

    'ВЫЧИСЛЕНИЕ ПЕРЕМЕННОЙ d_fun С ИСПОЛЬЗОВАНИЕМ процедуры-FUNCTION

    Function func1(ByVal x As Double, ByVal y As Double) As Double

     

        Return CDbl((1 - Tan(x * y ^ 2)) / (x ^ (1 / 3)) + 4 * Sqrt((x ^ 2) - 0.1))

    End Function

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

        'Задание типов данных

        'пременная для получения результатов при использовании процедуры-FUNCTION

        Dim d_fun As Double

        'пременная для получения результатов при использовании процедуры-SUB

        Dim d_sub As Double

        Dim y As Double

        Dim x As Double

        Dim d As Double

        Dim n As Double

        Dim k As Double

        Dim p As Single

        Dim m As Integer

        Dim s1 As String

        Dim s2 As String

        'ВИД ЯВНЫХ ПРЕОБРАЗОВАНИЙ

        'Преобразование значений текстовых полей в числовые данные

        х = CDbl(TextBox1.Text)

        y = CDbl(TextBox2.Text)

        'Переписывание значений X и Y глобальным переменным xx и yy

        xx = x

        yy = y

        'Вычисление значения d с использованием процедуры-FUNCTION

        d_fun = func1(x, y)

        'Вычисление значения d с использованием процедуры-SUB

        subb(x, y, d_sub)

        'Вычисление значения d с использованием глобальных параметров

        glo_sub()

        'преобразование типа Double в тип Single

        p = CSng(d_fun)

        'преобразование типа Double в тип Integer

        m = CInt(d_fun)

        'преобразование значения d к целочисленным типам по заданию

        n = Fix(d)

        k = Int(d)

        'преобразование числовых типов в String

        s1 = CStr(d)

        s2 = CStr(p)

        TextBox3.Text = CStr(d_fun)

        TextBox4.Text = CStr(m)

        TextBox5.Text = CStr(n)

        TextBox6.Text = CStr(k)

        TextBox7.Text = CStr(p)

        TextBox8.Text = CStr(d_fun + p)

        TextBox9.Text = s1 + " + " + s2

        'ВЫВОД  ЗНАЧНИЙ АРИФМЕТИЧЕСКОГО ВЫРАЖЕНИЯ, ПОЛУЧЕННОГО С ИСПОЛЬЗОВАНИЕМ процедуры-FUNCTION, процедуры-SUB и глобальных параметров

        TextBox10.Text = CStr(d_fun)

        TextBox11.Text = CStr(d_sub)

        TextBox12.Text = CStr(d_glob)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'очистка всех TextBox

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

        TextBox9.Clear()

        TextBox10.Clear()

        TextBox11.Clear()

        TextBox12.Clear()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Application.Exit()

    End Sub

End Class