Определить в какую координатную четверть попадает точка с координатами А(а,b).
Пользователь должен иметь возможность ввести два любых (в том числе, вещественных) числа a и b.
Программа должна вывести сообщение, в какой четверти или на какой оси будет находиться точка
с указанными координатами.
Суть проста: в зависимости от величины числа «а», точка будет располагаться левее, правее оси оУ или прямо на ней.
И в зависимости от величины числа «b», точка будет располагаться выше, ниже оси оХ или прямо на ней.
Кроме, того программа проверяет правильность ввода пользователем числовых значений и удерживает его
на определенном шаге до приемлемого ввода (числа) :
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
Все! Если после нажатия кнопки "Запуск программы" Вы не видите окна для ввода чисел, значит у Вас не включены макросы...
Удачи!
Другие примеры на языке «Visual Basic for application - VBA»
Поделиться в соц сетях:
