Imports System.Math
Public Class Form1
'Функция ввода в Textbox
Function vvod(ByVal T As TextBox) As Double
Return Val(T.Text)
End Function
'Перегружаемая процедура вывода веществ. результата в TextBox
Overloads Sub vivod(ByVal Z As Double, ByVal T As TextBox)
T.Text = CStr(Z)
End Sub
'Перегружаемая процедура вывода целого результата в TextBox
Overloads Sub vivod(ByVal Z As Integer, ByVal T As TextBox)
T.Text = CStr(Z)
End Sub
Sub Razv(ByVal x As Double, ByVal y As Double, ByVal a As Double, ByVal b As Double, ByRef z As Double, ByRef n As Integer)
Dim z1, z2 As Double
If x < y Then
z1 = a - Cos(x) : z2 = (Sin(y)) ^ 2
z = (a / (b + y))
If z1 < z Then
z = z1
End If
If z2 < z Then
z = z2
End If
n = 1 '1 ветвь разветвл. ф-ции
vivod(z, TextBox5)
MsgBox("Расчет пошел по условию x < y")
ElseIf x >= y And x < y + 5 Then
z1 = Log((x ^ 2) + (y ^ 2)) : z2 = a ^ 3
If z1 > z2 Then
z = z1
Else
z = z2
End If
n = 2 '2 ветвь разветвл. ф-ции
vivod(z, TextBox5)
MsgBox("Расчет пошел по условию y <= x < y + 5")
Else
z = a + (Cos(x - y)) ^ 3
n = 3 'ветвь разветвл. ф-ции
vivod(z, TextBox5)
MsgBox("Расчет пошел по условию x >= y + 5")
End If
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim x, y, a, b, z As Double
Dim n As Integer
x = vvod(TextBox1) : y = vvod(TextBox2) : a = vvod(TextBox3) : b = vvod(TextBox4)
Razv(x, y, a, b, z, n)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Application.Exit()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
End Sub
End Class