Оператор Select Case заменяет серию операторов ElseIf в том случае, когда одно выражение сравнивается с несколькими значениями. Он обеспечивает ветвление по условию, аналогичное возможностям оператора If...Then...ElseIf; но делает код эффективнее и читабельнее.

Например, чтобы добавить еще несколько уровней в предыдущий фрагмент кода можно было бы ввести дополнительные операторы ElseIf, однако мы перепишем функцию на основе оператора Select Case:

Function Bonus(jobClass, salary, rating)
     Select Case jobClass
          Case 1
               Bonus = salary * 0.1 * rating / 10
          Case 2
               Bonus = salary * 0.09 * rating / 10
          Case 3
               Bonus = salary * 0.07 * rating / 10
          Case 4, 5 ' можно включать несколько значений...
               Bonus = salary * 0.05 * rating / 5
          Case 6 To 8 ' ...или задавать диапазон
               Bonus = 150
          Case Is > 8 ' ...или сравнивать с другими значениями
               Bonus = 100
          Case Else
               Bonus = 0
     End Select
End Function

Заметьте, что в конструкции Select Case вычисляется только одно выражение ? в самом ее начале. Оператор If...Then...ElseIf, напротив, позволяет проверять разные выражения в каждом ElseIf. Поэтому оператор If...Then...ElseIf можно заменить оператором Select Case, только если все ElseIf вычисляют одно выражение.

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997