Задача
Создать макрос, который определял бы координатную четверть по введенным координатам точки
Теория
- Если точка имеет две положительные координаты (x и y) , то она принадлежит первой четверти.
- Если координата x отрицательна, а y положительна, то точка находится во второй четверти.
- Если точка имеет две отрицательные координаты (x и y) , то точка принадлежит третьей координатной четверти.
- Если x положительна, а y отрицательна, то точка находится в IV четверти.
- Если координаты нулевые, то точка совпадает с центром координат.
- Если координата x не равна 0, а y равна 0, то точка дежит на оси X.
- Если координата y не равна 0, а x равна 0, то точка дежит на оси Y.
Реализация
Sub задача1() Dim v_intX As Integer Dim v_intY As Integer v_intX = Range("B2").Value v_intY = Range("B3").Value If (v_intX > 0 And v_intY > 0) Then MsgBox ("первая четверть") If (v_intX < 0 And v_intY > 0) Then MsgBox ("вторая четверть") If (v_intX < 0 And v_intY < 0) Then MsgBox ("третья четверть") If (v_intX > 0 And v_intY < 0) Then MsgBox ("четвертая четверть") If (v_intX = 0 And v_intY <> 0) Then MsgBox ("бежит на оси Y") If (v_intX <> 0 And v_intY = 0) Then MsgBox ("бежит на оси X") If (v_intX = 0 And v_intY = 0) Then MsgBox ("центр координат") End Sub
comments powered by HyperComments