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

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

Объект	Имя объекта	Свойство	Значение свойства
Форма	Form4_4	Text	4.4 Стандартные алгоритмы разветвляющихся структур
Кнопка	Button1	Text	Назад
Кнопка	Button2	Text	Выполнить
Кнопка	Button3	Text	Очистить
Текстовое	PictureBox1	Size	(424, 130)
Метка	Label1	Text	Значение Y:
Метка	Label2	Text	Значение Z:
Метка	Label3	Text	Значение A:
Метка	Label4	Text	Значение X:
Метка	Label5	Text	Значение B:
Текстовое	TextBox1	Name	TextBox1
Текстовое	TextBox2	Name	TextBox2
Текстовое	TextBox3	Name	TextBox3
Текстовое	TextBox4	Name	TextBox4
Текстовое	TextBox5	Name	TextBox5

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

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form4_4

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

Dim x, y, z As Double

Dim a, b As Double

'Функция ввода в TextBox

Function vvod(ByVal tb As TextBox) As Double

Return Val(tb.Text)

End Function

'Процедура вывода результата в TextBox

Sub vivod(ByVal data As Double, ByVal tb As TextBox)

tb.Text = CStr(data)

End Sub

'Решение системы уравнений

Function Razv(ByVal x As Double,ByVal y As Double,ByVal b As Double,ByVal a As Double) As Double

Dim Z, Z1, Z2 As Double

If y > x Then

'минимальное значение первой строки

Z1 = a - Cos(x) : Z2 = a / (b + y) : Z = Sin(y) ^ 2

If Z1 < Z Then Z = Z1

If Z2 < Z Then Z = Z2

MsgBox("расчет прошел по условию y > x")

Else

If y <= x And x < (y + 5) Then

z1 = a ^ 3 : z2 = Math.Log(x ^ 2 + y ^ 2)

If Z1 > Z2 Then Z = Z1 Else Z = Z2

MsgBox("расчет прошел по условию y <= x & x < (y + 5)")

Else

z = Cos(x - y) ^ 3

MsgBox("расчет прошел по условию x => (y + 5)")

End If

End If

Return Z

End Function

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()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

End Sub

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

x = vvod(TextBox1)

y = vvod(TextBox2)

a = vvod(TextBox3)

b = vvod(TextBox4)

vivod(Razv(x, y, b, a), TextBox5)

End Sub

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

Form4_5.Show()

Me.Close()

End Sub

End Class