Вычисление арифметических выражений

Option Strict On
Option Explicit On
Imports System.Math
 
Public Class Form2
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Double, y As Double
        Dim b As Double, i As Integer
        Dim j As Integer
        x = CDbl(Val(TextBox1.Text))
        y = CDbl(Val(TextBox2.Text))
        b = ((Log(x) / Log(10)) - Sin(x * y) ^ 2) / 0.8 * Log(1 - x) ^ 2
        i = CInt(b)
        j = CInt(Fix(b))
        TextBox3.Text = CStr(b)
        TextBox4.Text = CStr(i)
        TextBox5.Text = CStr(j)
        TextBox6.Text = CStr(Int(b))
        TextBox7.Text = CStr(Int(Abs(b)))
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
 
    End Sub
End Class