Использование инструкций Select Case

Используйте инструкцию Select Case в качестве альтернативы использованию ElseIf в if... Затем... Операторы Else при сравнении одного выражения с несколькими разными значениями. Хотя операторы If...Then...Else могут вычислять отдельное выражение для каждого оператора ElseIf, оператор Select Case вычисляет выражение всего один раз — в верхней точке управляющей структуры.

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

Function Bonus(performance, salary) 
  Select Case performance 
    Case 1 
      Bonus = salary * 0.1 
    Case 2, 3 
      Bonus = salary * 0.09 
    Case 4 To 6 
      Bonus = salary * 0.07 
    Case Is > 8 
      Bonus = 100 
    Case Else 
      Bonus = 0 
  End Select 
End Function 

См. также

• Темы по основам Visual Basic

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.