Составители:
[Case Else: [ОператорыElse]]
End Select
Возможен случай, когда реальное значение выражения не совпадет ни с од-
ной константой, предусмотренной строками Case. В этом случае выполняются опера-
торы, предусмотренные строкой Case Else. Схема и алгоритм выполнения оператора
изображены на рис. 5. Как и в предыдущем случае, последний оператор на рис. 5,
обозначенный как Следующий оператор программы не имеет отношения к конструкции
Select Case 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
Следующий оператор программы
Рис. 5. Схема и алгоритм выполнения оператора Select Case End Select
Пример 13. Программа с использованием оператора Select Case End Select.
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 = "Выходной день"
41
Страницы
- « первая
- ‹ предыдущая
- …
- 39
- 40
- 41
- 42
- 43
- …
- следующая ›
- последняя »
