Разветвляющийся алгоритм

Задание

Ввести с клавиатуры число, проверить: если оно принадлежит интервалу (-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 Вводим число, не принадлежащее интервалу: