Select 例

1 Public Class Form1
2     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
3         Dim age = 14
4         Select Case age
5             Case 0 To 6
6                 Debug.Print("幼稚園")
7             Case 7 To 12
8                 Debug.Print("國小")
9             Case 12, 13, 14, 15
10                 Debug.Print("國中")
11             Case 16 To 18
12                 Debug.Print("高中")
13             Case Is >= 19
14                 Debug.Print("大專")
15         End Select
16     End Sub
17 End Class

參考資料：http://www.gotop.com.tw/waweb2004/main/home.aspx?pg=HM010X2007&bn=AEQ003100