Проверьте пожалуйста код программы от Visual Studio. Заранее спасибо.

Option Strict On Option Explicit On Imports System.Math Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'задание и описание переменных Dim x As Double Dim y As Double Dim a As Double Dim m As Integer Dim n As Integer 'преобразование типов данных x = CDbl(Val(TextBox1.Text)) y = CDbl(Val(TextBox2.Text)) 'вычисление a по формуле a = (14 * Sin(x) + y ^ 2) / (0.92 * Cos(x) ^ 3) 'преобразование в к целочисленныму типу m = CInt(a) n = CInt(Fix(a)) 'вывод полученых значений TextBox3.Text = CStr(a) TextBox4.Text = CStr(m) TextBox5.Text = CStr(n) TextBox6.Text = CStr(Int(a)) TextBox7.Text = CStr(Int(Abs(a))) 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 TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() TextBox7.Clear() End Sub End Class