2 лабораторная код 2

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

Public Class Form1

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

        Dim х, y, d, n, k As Double, p As Single, m As Integer

        Dim s1, s2 As String

        х = TextBox1.Text

        y = TextBox2.Text

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

        p = d

        m = d

        n = Fix(d)

        k = Int(d)

        s1 = d

        s2 = p

        TextBox3.Text = d

        TextBox4.Text = m

        TextBox5.Text = n

        TextBox6.Text = k

        TextBox7.Text = p

        TextBox8.Text = d + p

        TextBox9.Text = s1 + " + " + s2

    End Sub

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

        End

    End Sub

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

        TextBox3.Clear() 'Очистка окна TextBox3.Text

        TextBox4.Clear() 'Очистка окна TextBox4.Text

        TextBox5.Clear() 'Очистка окна Textbox5.Text

        TextBox6.Clear() 'Очистка окна TextBox6.Text

        TextBox7.Clear() 'Очистка окна TextBox7.Text

        TextBox8.Clear() 'Очистка окна TextBox8.Text

        TextBox9.Clear() 'Очистка окна TextBox9.Text

    End Sub

End Class