код лабы 4.2

Код Программы! Тема 4.2

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, y As Double

Dim a As Double !Задание типов переменных

Dim i As Integer, j As Integer

x = CDbl(Val(TextBox1.Text)) !Преобразование значений текстовых полей

y = CDbl(Val(TextBox2.Text)) в числовые данные

a = (10 * ((Log(y ^ 2) - (Abs(x - y)) ^ 0.25)) / (1 - (Cos(y)) ^ 3))

i = CInt(a) !Вычисление значений переменных

j = CInt(Fix(a))

TextBox3.Text = CStr(a)

TextBox4.Text = CStr(i) !Вывод значений в элементах управления TextBox

TextBox5.Text = CStr(j)

TextBox6.Text = CStr(Int(a))

TextBox7.Text = CStr(Int(Abs(a)))

End Sub

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

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()!Очистка полей

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox7.Clear()

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

End !Выход из приложения

End Sub

End Class