Если имеется несколько операторов (групп операторов), которые необходимо исполнить в случае истинности некоторого условия, то конструкция If...Then...Else... может быть очень громоздкой. Оператор выбора Select Case предназначается альтернативой условному оператору и позволяет выполнить несколько вариантов выбора, в этом случае оператор Select Case оценивает выражение только один раз - в начале управляющей структуры - и выполняет выбор ветви из набора условий. Синтаксис оператора выбора следующий:
     Select Case <переменная или выражение>
           Case
          <операторы 1>
          Case
            <операторы 2>
          Case
          <операторы п>
          Case Else <операторы>
     End Select

Управление переходит к той строке, для которой значение Ai совпадает со значением «переменной или выражения». Если «переменная или выражение» содержит значение А1, расположенное по порядку после первого ключевого слова Case, то в этом случае выполняются «операторы 1». Если «переменная или выражение» содержит значение А2, то выполняются «операторы 2» и т. д. Если «переменная или выражение» не равно ни одному из значений A1, A2, ..., An, то выполняется «иначе». Если при нескольких значениях Ai необходимо выполнить один (одни) и тот же оператор, то список должен быть записан через запятую.
Например:
     Case < A2 ₁ , А2 ₂ , А2 ₃ >
    <операторы 2>

  Пример 1
          Select Case B12

Case 2

У = У + 2

Case I, 3, 5

у = 10

Case 12

у = 12

End Select

Пример 2

Select Case Mas

Case 12, 1, 2

Textl.Text = 'зима'

Case 3, 4, 5

Textl.Text = 'весна'

Case 6, 7, 8

Textl.Text = 'лето'

Case 9, 10, 11

Textl.Text = 'осень'

Case Else

Labell.Caption = 'номер задан неверно'

End Select

Таким образом, каждая конструкция Case может содержать несколько значений, диапазон значений или комбинацию значений и операторов сравнений. Необязательная конструкция Case Else выполняется, если оператор выбора не находит подходящего значения ни в одном из Case.