Επιλέξτε...Case Statement
Καθορίσει ένα ή περισσότερα μπλοκ προτάσεων ανάλογα με την τιμή μιας παράστασης.
Έκφραση Select Case
Τιμές Case
Μπλοκ δήλωσης
[ Case values2
Statement Block]
[ Case Else
Statement Block]
End Selectέκφραση: Οποιαδήποτε έκφραση που ελέγχει εάν το μπλοκ πρότασης που ακολουθεί την αντίστοιχη πρόταση Case εκτελείται.
τιμές: Οποιοσδήποτε κατάλογος τιμών που είναι συμβατός με την έκφραση. Το μπλοκ πρότασης που ακολουθεί την πρόταση Case εκτελείται εάν η έκφραση ταιριάζει με τις τιμές.
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Αριθμός από το 1 έως το 5"
Case 6, 7, 8
Print "Αριθμός από το 6 έως το 8"
Case 8 To 10
Print "Μεγαλύτερο από 8"
Case Else
Print "Εκτός εύρους τιμών από 1 έως 10"
End Select
End Sub