Παράρτημα: H εντολή select

Η εντολή select μας επιτρέπει να κατευθύνουμε τη ροή του προγράμματος προς μια συγκεκριμένη τιμή ανάλογα με την τιμή μιας παράστασης.

Συντάσσεται ως εξής:

        Select Case παράσταση
        Case λίστα τιμών1
                εντολή1
                εντολή1α
                ...
        Case λίστα τιμών2
                εντολή2
                ...
        ...
        Case Else
                εντολή ν
                ...
        End Select

Ανάλογα με ποια από τις τιμές ισούται η τιμή της παράστασης εκτελούνται οι αντίστοιχες εντολές.

Αν καμία από τις τιμές δεν ταυτίζεται με την τιμή της παράστασης τότε εκτελείται η εντολή που ακολουθεί την Case Else (αν υπάρχει), αλλιώς δεν εκτελείται καμία εντολή.

Οι τιμές για κάθε case μπορεί να είναι

μια έκφραση (π.χ. 42 ή i + 9),
ο ορισμός μιας περιοχής με τη χρήση to (π.χ. 1 to 10)
μια σύγκριση της τιμής της απόφασης με μια έκφραση με τη χρήση της λέξης Is (π.χ. Is > 100)
ή ένα σύνολο από από τα παραπάνω χωρισμένα με , (π.χ. 3 to 5, 50, 90, is > LastVal)

Παράδειγμα:

Dim Number As Integer

Number = InputBox("Enter a Number")
Select Case Number      ' Evaluate Number.
Case 1 To 5     ' Number between 1 and 5.
        MsgBox "Between 1 and 5"
Case 6, 7, 8    ' Number between 6 and 8.
        MsgBox "Between 6 and 8"
Case Is > 8 And Number < 11     ' Number is 9 or 10.
        MsgBox "Greater than 8"
Case Else       ' Other values.
        MsgBox "Not between 1 and 10"
End Select