Создание программы с использованием операторов IF и CASE
If X = #01−01−2010# and Y=#00:00:00 # then. Const FIO = «Шевцова Татьяна». MsgBox «Для A =» & A & «Y = „& Y. Case 10, 12 Y="A 4-й квартал“. Case 7, 9 Y="A 3-й квартал». Case 4, 6 Y="A 2-й квартал". Y = «С новым годом!». Case Else Y ="нет данных". MsgBox «X= «& X & «: «& Y, FIO. Y = «21 век!». Y = «20 век!». Y = timevalue (Y). Задание: Задание: X = CDate (X). Select Case A. End Select. End… Читать ещё >
Создание программы с использованием операторов 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.