Определить в какую координатную четверть попадает точка с координатами А(а,b).

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

Суть проста: в зависимости от величины числа «а», точка будет располагаться левее, правее оси оУ или прямо на ней.
И в зависимости от величины числа «b», точка будет располагаться выше, ниже оси оХ или прямо на ней.

VBA EXCEL в какую координатную четверть попадает точка с координатами

Кроме, того программа проверяет правильность ввода пользователем числовых значений и удерживает его на определенном шаге до приемлемого ввода (числа) :

Dim a As Single, b As Single, tmp As String
Do
   tmp = InputBox("Введите число", "Ввод числа А")
Loop Until IsNumeric(tmp)
a = CSng(tmp)

Анализ значений a и b производится в операторах Select Саse, хотя, возможно, кому-то покажется проще использование If Then.

Select Case a
   Case 0
     Select Case b
       Case 0: answ = " в начале координат т.О."
       Case Else: answ = " на оси oY."
     End Select

   Case Is < 0
     Select Case b
       Case Is < 0: answ = " в III четверти."
       Case 0: answ = " на оси oX."
       Case Is > 0: answ = " вo II четверти."
     End Select

   Case Is > 0
     Select Case b
       Case Is < 0: answ = " в IV четверти."
       Case 0: answ = " на оси oX."
       Case Is > 0: answ = " в I четверти."
     End Select
End Select

скачать xls-файл

Все! Если после нажатия кнопки "Запуск программы" Вы не видите окна для ввода чисел, значит у Вас не включены макросы...

Удачи!

Другие примеры на языке «Visual Basic for application - VBA»




Если на этой странице не нашлось того, что Вы так искали...

         Не расстраивайтесь, не все потеряно... Смело щелкайте...

исходный код на заказ. orenstudent.ru исходный код на заказ. orenstudent.ru Помогите найти и устранить ошибку в исходном коде программы. orenstudent.ru Skype-консультирование по программированию
Скайп-консультации

Акция !!!
Весь код по 49 руб


требуются
школьники!


и СТУДЕНТЫ!
Кому не плевать
на деньги!
Сайт помощи студентам по программированию и информатике

Program code