Структура Select Case – це особливий вид структури IF, що управляє.
Структура Select Case застосовується, коли одна величина бере участь у всіх логічних порівняннях і визначає, який блок, коли виконуватиметься.
Найчастіше Select Case використовується в тих випадках, коли порівнювана величина є цілим числом – селектором або індексом. Значення селектора або індексу і вибирає той блок коду, який виконуватиметься.
Синтаксис:
Select Case змінна
Case значення 1
блок операторів 1
Case значення 2
блок операторів 2
інші варіанти
Case ELSE
блок операторів
End Select
Sub TheCase()
DIM AC As Integer
AC = InputBox(“Введіть число:”)
Select Case AC
Case 1
B = 5*5
Case 2
B = 5-5
Case 3
B = 5/5
Case ELSE ‘Помилка
Debug.Print “Невірно зроблений вибір ”
End Select
Debug.Print “Результат вибору” &Format(B,00)
End Sub