SELECT...CASE

 
語法

        SELECT {CASE} Expression

        { CASE Const

        Statement(s)... }

        { CASE ELSE

        Statement(s) }

        END SELECT

 

操作

        SELECT指令根據表示式的值來執行指令。

  • Expression 變數,常數,或表示式。
  • Const 用來跟Expression做比較的常數,如果相同則CASE中的指令會被執行。
  • Statement(s) 任何有效的 innoBASICTM陳述。

 

說明

        SELECTCASE可說是IFTHENELSE的進階架構,它可以在許多可能中擇一執行。執行此敘述時,Select的值將與Case的值逐一比對,當某一個Case的值符合時,該Case之下的程式段將被執行。如果沒有任何一個Case的值符合,則Case Else之下的程式段將被執行。任何被選擇執行的程式段執行完畢後,程式就結束到End Select 指令。EXIT SELECT 指令可以放置於迴圈主體中,它可以在迴圈限制測試執行前就立即離開目前的迴圈。請注意,習慣上額外的CASE可以伴隨著額外的SELECT

 


範例

 
Sub Main()

    Dim x As Byte
   
   
Do
       
Debugin "Enter a 1 to 7 to find the nth day of a week.", x, CR
       
       
Select Case x
           
Case 1
               
Debug "It's Sunday.", CR
           
Case 2
               
Debug "It's Monday.", CR
           
Case 3
               
Debug "It's Tuesday.", CR
           
Case 4
               
Debug "It's Wednesday.", CR
           
Case 5
               
Debug "It's Thursday.", CR
           
Case 6
               
Debug "It's Friday.", CR
           
Case 7
               
Debug "It's Saturday.", CR
            
Case Else
               
Debug "Wrong Number!", CR
       
End Select
   
Loop
End Sub

 
 
如需詳細說明,請參考InnoBasic程式語言介紹裡的程式控制流程敘述