Составить программу вычисления и печати значений следующих выражений - VB

Формулировка задачи:

Составить программу вычисления и печати значений следующих вы¬ражений для исходных данных (данные подобрать самостоятельно), вво¬димых с клавиатуры ПК в диалоговом режиме : 5x + 2sin2(у) - 4 / (x + 7,2) + abc2 ,оч надо решить(((((в графическом режиме

Решение задачи: «Составить программу вычисления и печати значений следующих выражений»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Function Max(a As Single, b As Single) As Single
'Г¬Г*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г®ГҐ ГЁГ§ Г¤ГўГіГµ Г·ГЁГ±ГҐГ«
Max = a
If b > a Then Max = b
End Function
Function Min(a As Single, b As Single, c As Single) As Single
'Г¬Г*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г®ГҐ ГЁГ§ Г¤ГўГіГµ Г·ГЁГ±ГҐГ«
Dim M As Single
M = a
If b < M Then M = b
If c < M Then M = c
Min = M
End Function
 
Private Sub Form_Load()
'ГўГ»Г·ГЁГ±Г«ГҐГ*ГЁГҐ ГўГ»Г°Г*Г¦ГҐГ*ГЁГї Г± ГіГ±Г«Г®ГўГЁГҐГ¬
Dim x As Single 'ГЁГ±ГµГ®Г¤Г*Г»ГҐ Г¤Г*Г*Г*Г»ГҐ
Dim y As Single
Dim f As Single 'Г°ГҐГ§ГіГ«ГјГІГ*ГІ
x = Val(InputBox("x=", "Г‚ГўГ®Г¤")) 'ГўГўГ®Г¤ Г¤Г*Г*Г*Г»Гµ
y = Val(InputBox("y=", "Г‚ГўГ®Г¤"))
If x > y Then 'ГҐГ±Г«ГЁ x ГЎГ®Г«ГјГёГҐ y
f = Abs(x + y) ^ (x * y) - 4.2
Else 'ГЁГ*Г*Г·ГҐ
If x < y Then 'ГҐГ±Г«ГЁ x Г¬ГҐГ*ГјГёГҐ y
f = Max(x, y - 5)
Else 'Гµ Г°Г*ГўГҐГ* y
f = Min(x + 5, y ^ 2, 3)
End If
End If
MsgBox f, , "ГђГҐГ§ГіГ«ГјГІГ*ГІ"
End Sub
                        