Информатика_2 / Описание / 4-4
.docxТаблица описания объектов
Объект |
Имя объекта |
Свойство |
Значение свойства |
Форма |
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