Συνάρτηση Choose

Επιστρέφει μια επιλεγμένη τιμή από μια λίστα ορισμάτων.

  Choose (Index As Integer, Expression1[, Expression2, ... [, Expression_n]]) As Variant

Παραλαγή. Μια τιμή που προκύπτει από την παράμετρο Index.

Index (Ευρετήριο): Οποιαδήποτε αριθμητική παράσταση στρογγυλοποιημένη σε έναν ακέραιο αριθμό. Το Index δέχεται ακέραιες τιμές που ξεκινούν από το 1 που καθορίζουν ποιες από τις πιθανές επιλογές να επιστρέψει.

Έκφραση1, Έκφραση2, …, Έκφραση_n: Εκφράσεις που αντιπροσωπεύουν καθεμία από τις πιθανές επιλογές.

Η συνάρτηση Choose επιστρέφει μια τιμή από τον κατάλογο των παραστάσεων με βάση την τιμή του ευρετηρίου. Εάν Index = 1, η συνάρτηση επιστρέφει την πρώτη έκφραση στον κατάλογο, εάν Index = 2, επιστρέφει τη δεύτερη έκφραση, και ούτω καθεξής.

Εάν η τιμή του ευρετηρίου είναι μικρότερη από 1, ή μεγαλύτερη από τον αριθμό των παραστάσεων που παρατίθενται, η συνάρτηση επιστρέφει μια τιμή Null.

Το σφάλμα #5 παρουσιάζεται όταν παραλείπονται οι παράμετροι. Το σφάλμα #13 προκύπτει εάν το Index ισούται με Null.

Το παρακάτω παράδειγμα χρησιμοποιεί τη συνάρτηση ή Choose για να επιλέξει μια συμβολοσειρά από πολλές συμβολοσειρές που σχηματίζουν ένα μενού:

Sub ExampleChoose
    Print ChooseMenu(2) ' "Save Format" (Αποθήκευση μορφής)
    MsgBox Choose(index :=  -5, 9, "Basic", PI) ' Null
    MsgBox Choose(index := 3.14, 9, "Basic", PI) ' PI
End Sub
 
Function ChooseMenu(Index As Integer)
    ChooseMenu = Choose(Index, "Quick Format", "Save Format", "System Format")
End Function