Программный код проекта

Imports System.Math

Public Class Form1

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

Function vvod(ByVal t As TextBox) As Double

Return CDbl(t.Text)

End Function

'процедура вывода вещесвтенного результата в TextBox

Overloads Sub vivod(ByVal a As Double, ByRef t As TextBox)

t.Text = CStr(a)

End Sub

Sub razv1(ByVal x As Double, ByVal y As Double, ByVal a As Double, ByVal b As Double, ByRef z As Double, ByRef n As Double)

Dim z1, z2 As Double

z1 = a / x

z2 = b / x

z = Sqrt(y)

If z1 > z Then z = z1

If z2 > z Then z = z2

n = 1

End Sub

Sub razv2(ByVal x As Double, ByVal y As Double, ByVal a As Double, ByVal b As Double, ByRef z As Double, ByRef n As Double)

Dim z1 As Double

z1 = a * x ^ 3

z = b * y ^ 2

z = Sqrt(y)

If z1 < z Then z = z1

n = 2

End Sub

Sub razv3(ByVal x As Double, ByVal y As Double, ByRef z As Double, ByRef n As Double)

z = 2 ^ (x + y)

n = 3

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.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)

If x > 0 And y > 0 Then

razv1(x, y, a, b, z, n)

vivod(z, TextBox5)

vivod(n, TextBox6)

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

Else

If x < 0 And y > 0 Then

razv2(x, y, a, b, z, n)

vivod(z, TextBox5)

vivod(n, TextBox6)

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

Else

razv3(x, y, z, n)

vivod(z, TextBox5)

vivod(n, TextBox6)

MsgBox("расчет прошел по третьему условию: в противном случае")

End If

End If

End Sub

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

End

End Sub

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

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

End Sub

End Class

Не нашли, что искали? Воспользуйтесь поиском: