Информатика_2 / Описание / 4-2

Таблица описания объектов

Объект	Имя объекта	Свойство	Значение свойства
Форма	Form4_2	Text	4.2 Решить задачу вычисления арифметического выражения
Метка	Label1	Text	Значение Y:
Метка	Label2	Text	Значение X:
Метка	Label3	Text	Результат: F=
Метка	Label4	Text	Решить задачу вычисления арифметического выражения
Метка	Label5	Text	Задание:
		Color	Red
Текстовое	PictureBox1	Size	(501, 55)
Текстовое	TextBox1	Name	TextBox1
Текстовое	TextBox2	Name	TextBox2
Текстовое	TextBox3	Name	TextBox3
Кнопка	Button1	Text	Назад
Кнопка	Button2	Text	Выполнить
Кнопка	Button3	Text	Очистить

Программный код

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form4_2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Form1.Show()

Me.Close()

End Sub

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

TextBox1.Clear()

TextBox2.Clear()

End Sub

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

'назначаем переменные

Dim x As Double

Dim y As Double

Dim f As Double

'вносим значения в переменные

x = CDbl(Val(TextBox1.Text))

y = CDbl(Val(TextBox2.Text))

'вычисляем значение по формуле

f = 5.2 ^ 3 * ((Log(x + y)) / (x - (1 / (0.45 * Sin(x - 8 * y))))) + 0.5

'выводим значение

TextBox3.Text = CStr(f)

TextBox5.Text = CStr(Fix(f))

TextBox6.Text = CStr(f)

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Form4_3.Show()

Me.Close()

End Sub

End Class