Задание
Ввести с клавиатуры число, проверить: если оно принадлежит интервалу (-10; 0), вывести его модуль, в противном случае вывести соответствующее сообщение.
1 Присваиваем новой форме название «Иванов И.И. Гр. Д-1-2005 Задача 2».
2 Помещаем кнопку «Ввод числа» (CommandButton1).
3 Помещаем надпись «Разветвляющийся алгоритм» (Label1).
4 Записываем подпрограмму ввода чисел и проверки на принадлежность заданному интервалу:
Private Sub CommandButton1_Click()
Dim x As Double
x = InputBox("Введите x", "Окно ввода данных")
If x > -10 And x < 0 Then
Res = MsgBox("x принадлежит интервалу -10,0",, "Результат")
Res = MsgBox("модуль x =" & Abs(x),, "Результат")
Else
Res = MsgBox("x не принадлежит интервалу -10,0",, "Результат")
End If
End Sub
5 Запускаем программу
6 Вводим число, удовлетворяющее условию.
7 Получаем результаты:
8 Вводим число, не принадлежащее интервалу: