Создание программы с использованием операторов IF и CASE

Текст программы

Задание:

Задайте в окне ввода значение переменной X с учетом заданного подтипа данных. Вычислите переменную Y по одному из выражений в зависимости от значения X. Значения переменных X, Y покажите в окне сообщения.

Const FIO = «Шевцова Татьяна» .

X = InputBox («Задайте любую дату», FIO).

X = CDate (X).

Y = InputBox («Задайте любое время», FIO).

Y = timevalue (Y).

If X = #01−01−2010# and Y=#00:00:00 # then.

Y = «С новым годом!» .

ElseIf X >=#01−01−0000# and X <= #31−12−2099# then.

Y = «21 век!» .

ElseIf X >=#01−01−1900# and X <= #31−12−0099# then.

Y = «20 век!» .

ElseIf X >=#01−01−100# and X <=#31−12−9999# then.

Y = «неверный диапазон дат» .

End If.

MsgBox «X= «& X & «: «& Y, FIO.

Блок-схема алгоритма программы с оператором IF

Рисунок 1- Блок-схема алгоритма программы с оператором IF.

Результат программы с оператором IF

А Рисунок 2 — Окно программы с оператором IF «Задайте любую дату».

Текст программы с оператором CASE

Задание:

С использованием оператора выбора CASE выполнить задания 1-го пункта.

A=1.

Select Case A.

Case «1″ ,» 3″ Y="A «» 1-й квартал" «» .

Case 4, 6 Y="A 2-й квартал" .

Case 7, 9 Y="A 3-й квартал" .

Case 10, 12 Y="A 4-й квартал" .

Case Else Y ="нет данных" .

End Select.

MsgBox «Для A =» & A & «Y = «& Y.

Блок-схема алгоритма программы с оператором CASE

Рисунок 5 — Блок-схема алгоритма программы с оператором CASE.

Результат программы с оператором CASE

Рисунок 6 — Результат алгоритма программы с оператором CASE.