無極 發表
介紹 Select Case 的語法及應用
Select Case 也是一種決策結構，跟 If 有些相似，都是經由條件式的測試，來
決定要執行程式的哪一部分，兩者的差異為 If 判斷的是 True or False，而 Select
則是根據測試運算式的值，去尋找符合的敘述，其語法如下：
Select Case 測試運算式
Case 測試值
Case Elase
End Select
我們可以設計一各判斷學生成績等級的小程式，程式需要一各
Textbox 跟 CommandButton，程式碼如下：
Private Sub Command1_Click()
Dim num As Integer
num = Text1.Text
Select Case num
Case Is >= 90
Print "成績為A"
Case Is >= 80
Print "成績為B"
Case Is >= 70
Print "成績為C"
Case Is >= 60
Print "成績為D"
Case Else
Print "你被當了"
End Select
End Sub
當你在 TextBox 中輸入學生成績後，按下CommandButton，程式就會幫你判斷出
成績等級，在這個程式中，測試判斷式就是 Textbox 的輸入值，當程式判斷完之
後，就會循序在下面尋找一段符合的敘述。當程式尋找到一段符合的敘述式後，
就會執行其後的運算式，執行完就會直接跳到 End Select 並不會再執行其他的敘
述，當我們輸入 91 時，雖然他也符合 >=80 ，但因為已經符合 >=90 的條件，所
以會直接跳到 End Select ，而不執行 >=80 之後的敘述。
在 Csae 之後可以使用 Is 關鍵字搭配 >，>=，<，<=來設定值的範圍。另外也可以
用 To 來設定值的範圍，所以上例也可以改寫如下：
Select Case num
Case 90 To 100
Print "成績為A"
Case 80 To 89
Print "成績為B"
Case 70 To 79
Print "成績為C"
Case 60 To 69
Print "成績為D"
Case Else
Print "你被當了"
End Select
有關 Select Case 的介紹就到此為止