Последовательная проверка условий для выбора альтернативы:
Select Case выражение
Case список_выражений1
<блок_инструкций1>
Case список выражений 2
<блок_инструкций2>
. . . . .
Case Else
<блок_инструкций_Else >
End Select
Проверяемое выражение может возвращать значение любого типа (логическое, числовое, строковое). Список выражений – одно или несколько выражений, разделенных стандартным разделителем – символ точка с запятой (;).
Элементы списка выражений могут задаваться как:
выражение
выражение1 To выражение2
Is логический_оператор(сравнение_выражения)
Пример 10
Для выбора алгоритма расчета sale выполнить проверку значения taxnalog.
Фрагмент программного кода:
taxnalog = InputBox("Введите ставку налога")
summ1 = InputBox("Укажите сумму")
Select Case taxnalog
Case Is < 0.12
sale = summ1 * (1 + taxnalog)
Case Is < 0.25
sale = (summ1 - 200) * (1 + taxnalog)
Case Is < 0.35
sale = (summ1 - 500) * (1 + taxnalog)
Case Else
sale = (summ1 - 1000) * (1 + taxnalog)
End Select
MsgBox sale
