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

Формулировка задачи:

4.2.2. Задание 1. Выбрать вариант задания из таблицы 4.2-1 по усмотрению преподавателя. 2. Решить задачу вычисления арифметических выражений, создав соответствующие проекты. Для этого, возможно, потребуется формализовать их, то есть записать выражение в формальном математическом виде, а затем записать полученные математические формулы в виде выражения по правилам языка программирования с учетом приоритета операций. 3. Выполнить созданный проект. 4. Получить результаты. 5. Доказать, что результат правильный. b = ((Log(x) / Log(10)) - Sin(x * y) ^ 2) / 0.8 * Log(1 - x) ^ 2 i = b j = [b]

Решение задачи: «Вычисление арифметических выражений»

textual
                            Листинг программы 
                        

                            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
                        