程式流程控制 --- Select Case 結構介紹


無極 發表



介紹 Select Case 的語法及應用

新網頁1

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 的介紹就到此為止

最後更新日期: 12/9/2004 1:36:49 PM