Select Case / End Select
Syntax
Select Case <expression>
Case <value1>
' statements for value1
Case <value2> To <value3>
' statements for a range
Case Is <operator> <value>
' e.g. Case Is >= 100
Case Else
' statements when no Case matches
End Select
Description
- Evaluates
<expression> once, then compares it against each Case. - Supports single values, ranges (
To), and relational tests (Is <, >, <=, >=). Case Else is optional catch‑all.
Example
Dim dayOfWeek As Integer = Weekday(DateTime.Now) // 1 = Sunday, 7 = Saturday
Select Case dayOfWeek
Case 1, 7
Print("It's the weekend!")
Case 2 To 6
Print("It's a weekday.")
Case Else
Print("Unknown day.")
End Select