Задача - Определение координатной четверти на VBA

Количество просмотров: 665

Задача

Создать макрос, который определял бы координатную четверть по введенным координатам точки

Теория

  • Если точка имеет две положительные координаты (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

© 2015-2018 Goodweb.me --- Карта сайта --- info@goodweb.me

Наверх