Краткое описание инструмента и ремесла программирования. Степанов А.Г - 58 стр.

UptoLike

58
и в предыдущем случае, последний оператор на рис. 2.7, обозначенный просто
как Следующий оператор программы не имеет отношения к конструкции Select Case
и представляет собой следующий оператор программы. Синтаксис оператора
имеет вид:
Select Case Выражение
[Case Значение1: [Операторы1]]
[Case ЗначениеN: [ОператорыN]]
[Case Else: [ОператорыElse]]
End Select
Следующий
оператор
программы
Операторы1 ОператорыNОператоры3Операторы2 ОператорыN+1
Выражение
Const1 Const2
Const3
ConstN
Else
Select case
выражение
Case Const1: Операторы1
Case Const2: Операторы2
...
Case ConstN: ОператорыN
Case Else: ОператорыN+1
End Select
Следующий оператор программы
Рис. 2.7. Схема и алгоритм выполнения оператора Select Case
Пример 2.20. Программа с использованием оператора Select Case.
Dim День_недели As Integer, Rezult As String
День_недели = 2
Select Case День_недели
Case 1: Rezult = "Прием заказов"
Case 2: Rezult = "Выполнение заказа"
Case 3: Rezult = "Выполнение заказа"
Case 4: Rezult = "Выполнение заказа"
Case 5: Rezult = "Выдача заказов"
Case 6: Rezult = "Выходной день"
Case 7: Rezult = "Выходной день"
Case Else: Rezult = "Ошибка задания дня недели"
End Select
'В ячейке Rezult будет записана строка "Выполнение заказа"