Instructies Select Case

Als u ΘΘn expressie met verschillende waarden vergelijkt, kunt u de instructie Select Case gebruiken in plaats van ElseIf in instructies If...Then...Else. Het verschil is dat instructies If...Then...Else een verschillend expressie voor elke instructie ElseIf kunnen evalueren, terwijl instructies Select Case slechts ΘΘn expressie tegelijk kunnen evalueren, namelijk de expressie die boven aan de besturingsstructuur staat.

In het volgende voorbeeld evalueert de instructie Select Case het argument performance dat aan de procedure is doorgegeven. Elke instructie Case kan overigens meerdere waarden, een bereik van waarden of een combinatie van waarden en vergelijkingsoperators bevatten. De optionele instructie Case Else wordt uitgevoerd als de instructie Select Case met geen enkele waarde in de instructies Case overeenkomt.

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