3 Flow Control (流程控制)

3. Flow Control (流程控制)
If…Then…else
If condition [ Then ] [ statements] [ ElseIf elseifcondition [ Then ] [ else if statements ] ] [ Else [ else statements ] ] End If
EX： CH03-09
0001: 0002: 0003: 0004: 0005: 0006: 0007: 0008: 0009: 0010: 0011:
Dim ret As String = "" For I As Integer = 1 To 10 For k As Integer = 1 To I ret = ret & "*" Next k ret = ret & vbCrLf Next I Console.Write(ret) Console.ReadKey()
利用Exit For允許中途離席
(請注意，Exit For一定會出現在判斷式之後)
Do…While
Do { While | Until } condition [ statements ] [ Exit Do ] [ statements ] Loop -或Do [ statements ] [ Exit Do ] [ statements ] Loop { While | Until } condition
Select…Case
『Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber』 『Case "apples", "nuts" To "soup", TestItem』
Select …Case
IF Then 寫法… '宣告變數score ，並初始化score的值為 Dim score As Integer = 100 Dim result As String '用If 來判斷四個等級的分數 If score <= 100 And score >= 80 Then result = "分數介於100-80之間" ElseIf score < 80 And score >= 60 Then result = "分數介在79-60之間" ElseIf score < 60 And score >= 40 Then result = "分數介在59-40之間" ElseIf score < 40 Or score >= 0 Then result = "分數介在39-0之間" End If Select Case 寫法…
Example (範例) 程式會讓使用者輸入一個數字並找
讓使用者輸入月份， 透過Select Case判斷 屬於哪一種季節
Pitfall (陷阱)
'正確寫法 Case 80 To 100 Result = "真厲害!" '錯誤寫法 Case 100 To 80 Result = "真厲害!"
必須由小而大
Dim score As Integer = 90 Dim Result As String = "" Select Case score Case 80 To 100 Result = "真厲害!" Case 85 To 100 Result = "很棒! " End Select
Select…ቤተ መጻሕፍቲ ባይዱase (條件判斷敘述 )
Select [ Case ] test expression [ Case expression [ statements ] ] [ Case expression [ statements ] ] [ Case Else [ else statements ] ] End Select
'在開始數字和結束數字當中找出第一個16 的倍數 For i As Integer = Start To Finish '如果除以餘數為則為的倍數 If i Mod 16 = 0 Then Console.Write("第一個16 的倍數為：" & i) Console.ReadKey() Exit For End If Next
Console.Write("分數:" & score) '判斷score 有沒有大於 If score >= 60 Then result = " 及格!" Else result = " 不及格!" End If Console.WriteLine(result) Console.ReadKey() End Sub
•如果 test expression 符合任何 Case expression 子句，即會執行接在該 Case後的陳述式(statements)，直到下一個Case關鍵字或是End Select 陳述式。 •如果 test expression 符合一個以上的 Case 子句，則程式只會執行 接在第一個符合條件者之後的陳述式 •如果在每一個Case 陳述式之間找不到符合條件者，則Case Else陳述 式後面的程式碼會被執行。
condition是判斷條件，當程式碼進入 Do…Loop迴圈之後，會一直執行，每 次執行時都會判斷condition條件是否 成立，但是依照語法的不同，有幾種 不同的可能…
四種 Do … While
先執行一次，然後判斷條件，當條件成 立時，重複執行一次迴圈中的內容： Do … Loop While 條件運算式 先判斷條件，當條件成立時持續在迴圈 中重複執行，直到條件不成立時，則跳 出迴圈： Do While條件運算式 … Loop 先執行一次，然後判斷條件，當條件不 成立時持續在迴圈中重複執行，直到條 件成立時，則跳出迴圈： Do … Loop Until條件運算式 先判斷條件，當條件不成立時持續在迴 圈中重複執行，直到條件成立時，則跳 出迴圈： Do Until條件運算式 … Loop
Example (範例)
0000: Sub Main() 0001: Dim MM As Integer 0002: Dim result As String = "" 0003: Console.Write("請輸入月份:") 0004: MM = Console.ReadLine 0005: Select Case MM 0006: Case 12, 1, 2 0007: result = "您輸入的這個月份是冬天" 0008: Case 3, 4, 5 0009: result = "您輸入的這個月份是春天" 0010: Case 6, 7, 8 0011: result = "您輸入的這個月份是夏天" 0012: Case 9, 10, 11 0013: result = "您輸入的這個月份是秋天" 0014: Case Else 0015: result = "沒有這種月份" 0016: End Select 0017: 0018: Console.Write(result) 0019: Console.ReadKey() 0020: End Sub
巢狀迴圈
Exit For
'宣告 Dim Start, Finish As Integer '要求使用者輸入開始數字 Console.Write("請輸入開始數字：") Start = Console.ReadLine '要求使用者輸入結束數字 Console.Write("請輸入結束數字：") Finish = Console.ReadLine
If…then…else
'要求使用者輸入 0004: Console.Write("請輸入一個數字：") 0005: number = Console.ReadLine 0006: '判斷 0007: If number < 10 Then 0008: digits = 1 0009: ElseIf number < 100 Then 0010: digits = 2 0011: ElseIf number < 1000 Then 0012: digits = 3 0013: ElseIf number < 10000 Then 0014: digits = 4 0015: Else 0016: digits = 5 0017: End If '判斷位數 0019: If digits = 1 Then Result = "1位數" 0020: If digits = 2 Then Result = "2位數" 0021: If digits = 3 Then Result = "3位數" 0022: If digits = 4 Then Result = "4位數" 0023: If digits = 5 Then Result = "大於位數" 0024: '顯示 0025: Console.Write("數字：" & number & " --> " & Result)
Example (範例)
EX： CH03-07
Sub Main() For i As Integer = 1 To 12 被重複執行12次，每次 Console.WriteLine(i) 變數i的值都有所不同 Next Console.ReadKey() End Sub