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

SubTime()

DimTAsDate

T=TimeValue(InputBox("Введите время чч:мм"))

SelectCaseT

Case#12:00:00PM#:

MsgBox ("Полдень")

Case #12:00:00 AM#:

MsgBox ("Полночь")

Case #12:00:01 AM# To #6:00:00 AM#:

MsgBox ("Ночь")

Case #6:00:01 AM# To #11:59:59 AM#:

MsgBox ("Утро")

Case #12:00:01 PM# To #6:00:00 PM#:

MsgBox ("День")

Case Else: MsgBox ("Вечер")

End Select

End Sub

3. Функции выбора

   1. ФункцияIf

Функция ifвозвращает одну из двух альтернатив.

1. Синтаксис

If(expr, truepart, falsepart)

2. Аргументы

expr — проверяемое выражение

truepart— значение или выражение, возвращаемое, если ехрrимеет значениеTrue

falsepart— значение или выражение, возвращаемое, если ехрrимеет значениеFalse

3. Пример

Если значение переменной «ОценкаЦифрой» равно 5, то переменной «Оценка» присваивается строковая константа «Отлично». В противном случае ей присваивается значение «Не отлично»:

Оценка = If (ОценкаЦифрой = 5, "Отлично", "Не отлично")

2. ФункцияChoose

Функция Chooseвозвращает значение, выбранное из списка аргументов.

1. Синтаксис

Choose (индекс, вариант-1[, вариант-2, ... [, вариант-n] ])

2. Аргументы

индекс— числовое выражение или поле, значением которого является число, лежащее между 1 и числом элементов в списке

вариант— выражение типа Variant, содержащее один из элементов списка

Действие функции Choose: если индекс равняется 1 , возвращается первый элемент списка, если индекс равняется 2, возвращается второй элемент списка и т. д. Функцию choose можно использовать для выбора одного из возможных значений, представленных в виде списка.

3. Пример

Если аргумент «Выбор» принимает значения 1, 2 или 3, то переменной «РезультатВыбор» присваивается значение “один”, “два” или “три” соответственно.

РезультатВыбор = Choose (Выбор, "один", "два", "три")

3. ФункцияSwitch

Функция Switchвозвращает значение, соответствующее первому истинному выражению в списке.

1. Синтаксис

Switch( выражение- 1, значение-1, выражение-2, значение-2 ... [, выражение-n, значение-n] ] )

2. Пример

Переменной OutStrв зависимости от содержимого переменнойSприсваивается словесное описание оценки.

OutStr=Switch(S = 0, "Не аттестован", S = 1, "Плохо", _

S = 2, "Неудовлетворительно", S = 3, "Удовлетворительно", _

S = 4, "Хорошо", S = 5, "Отлично", _

((S > 5) Or(S < 0)), "Вообще не оценка")

1. Задание

1. Разработать алгоритм и программу на VBAпо варианту.

2. Ввести программу в редактор VBAи добиться её выполнения.

3. Подготовить отчёт.

1. Содержание отчёта

1. Титульный лист.

2. Индивидуальное задание.

3. Схема алгоритма.

4. Текст программы с комментариями.

5. Ответы на контрольные вопросы.

1. Контрольные вопросы

1. В каких случаях допускается применение оператора безусловного перехода?

2. Для чего служит базовая алгоритмическая структура «Ветвление»?

3. Чем «блок If» отличается от «ОператораIf»?

4. В чём преимущество блока «If..Then..ElseIf..Else» Перед «блокомIf»?

5. В каких случаях целесообразно использование оператора выбора?

6. Каким операторам соответствует каждая из функций выбора?

7. Нарисуйте схемы алгоритмов каждой из функций выбора?

8. В каких случаях целесообразно использование функций выбора вместо соответствующих операторов?