Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y, a, j, n As Double, p As Single, i As Integer
        Dim s1, s2 As String
        x = CDbl(TextBox1.Text)
        y = CDbl(TextBox2.Text)

        a = (10 * (Log(y ^ 2) - (Abs(x - y) ^ (1 / 4))) / (1 - Cos(y) ^ 3))
        p = CSng(a)
        i = CInt(a)
        j = Fix(a)
        n = Int(a)
        s1 = CStr(a)
        s2 = CStr(p)
        TextBox3.Text = CStr(a)
        TextBox4.Text = CStr(i)
        TextBox5.Text = CStr(j)
        TextBox6.Text = CStr(n)
        TextBox7.Text = CStr(p)
        TextBox8.Text = CStr(a + p)
        TextBox9.Text = s1 + s2
    End Sub

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


End Class