Принадлежность точки с координатами (х, у) заштрихованной области на плоскости - VB

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

Написать программу, проверяющую принадлежность точки с координатами (х, у) заштрихованной области на плоскости.

Решение задачи: «Принадлежность точки с координатами (х, у) заштрихованной области на плоскости»

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

                            Dim a, b, c, d, x, y As Double
 
Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
 
If x >= a And x <= b And y >= c And y <= d Then
MsgBox "ГІГ®Г·ГЄГ* (" & x & ", " & y & ") Г«ГҐГ¦ГЁГІ Гў ГіГЄГ*Г§Г*Г*Г*Г®Г© Г®ГЎГ«Г*Г±ГІГЁ"
Else: MsgBox "ГІГ®Г·ГЄГ* (" & x & ", " & y & ") ГЌГ… Г«ГҐГ¦ГЁГІ Гў ГіГЄГ*Г§Г*Г*Г*Г®Г© Г®ГЎГ«Г*Г±ГІГЁ"
End If
 
End Sub
 
Private Sub Form_Load()
a = 1          'указать свои значения области
b = 4
c = 1
d = 5
End Sub
                        