Вывести на экран номер четверти, которой принадлежит точка - VB

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

3. Вывести на экран номер четверти, которой принадлежит точка с координатами (x,y), при условии, что (x<>0) и (y<>0).

Решение задачи: «Вывести на экран номер четверти, которой принадлежит точка»

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

                            Option Explicit
 
Private Sub Form_Load()
    Scale (-1, 1)-(1, -1)
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line (0, -1)-(0, 1)
    Line (-1, 0)-(1, 0)
    Me.Caption = Abs((X > 0) + (Y < 0) * 3 + 1) + 1
End Sub
                        

Оцени полезность:

6 голосов , оценка 4 из 5

Похожие ответы