Page 77 - 4588

Оператор Select Case
Якщо доводиться перевіряти одне і те ж значення
порівняно з різними умовами, то зазвичай використовують
оператор Select.Case. Синтаксис цього оператора такий:
Select Case значення
Case критерій 1
(оператори, що виконуються, коли значення
задовольняє критерій 1)
Case критерій 2
(оператори, що виконуються, коли значення
задовольняє критерій 2)
додаткові оператори Case
Case Else ‘необов'язковий
(оператори, що виконуються, коли значення не
задовольняє жодному з приведених критеріїв)
End Select

У кожній пропозиції Case допускається використання
декількох виразів або діапазонів. Наприклад, допустимий
наступний рядок:
Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber
Приклад 3
Sub pr()
Dim x as Integer
X= InputBox(“Введіть число”)
Select Case x

Case 1 To 5
MsgBox "Між 1 і 5"
Case 6, 7, 8
MsgBox "Між 6 і 8"
Case x > 8 And x < 11
MsgBox "Більше 8"
Case Else
MsgBox "За межами інтервалу 1 -- 10"
End Select
End Sub
Блок Case виконується, якщо жодна з попередніх умов
не є істинною.

76