程式设计学习教本94.pptVIP

Visual Basic 2008 程式設計學習教本 第六章　迴圈 Public Class Form1 Private Sub OTButton_Click(…) _ Handles OTButton.Click Dim result As Integer = 0 result = result + 1 result = result + 2 result = result + 3 result = result + 4 result = result + 5 result = result + 6 result = result + 7 result = result + 8 result = result + 9 result = result + 10 MsgBox(result) End Sub End Class 範例：1至10的加總 – 不使用迴圈 重複執行10次的程式碼 按一下 迴圈執行流程 這裏執行判斷 判斷結果為False走這裏 判斷結果為True走這裏 For-Next 迴圈語法 For varInteger = startVaule To endValue 執行迴圈程式敘述 … Next 範例：1至10的加總－使用迴圈 迴圈 varInteger大於10跳出迴圈 varInteger的值在 0 到 10的區間，執行迴圈 輸出迴圈加總結果（0 無影響不計在內） 進入迴圈 範例：1至10的加總－迴圈逐步解說 迴圈 varInteger = 0 sumResult =0 varInteger = 0 符合條件，繼續下一次迴圈 varInteger = 1 sumResult =1 varInteger = 1 符合條件，繼續下一次迴圈 varInteger = 2 sumResult =3 varInteger = 2 符合條件，繼續下一次迴圈 varInteger = 10 離開迴圈 Step 設定 迴圈 Step控制迴圈計數每一次改變的值 其中 stepValue 為每次改變的值 Step 2 表示每一次 varInteger 改變的值為 2 範例：計算 0 至 n 的偶數加總 Step控制迴圈計數 varInteger每次均加 2 輸入計算值 範例：逆向迴圈（一） Step控制迴圈計數 varInteger每次均減 1 範例：逆向迴圈（二） n=6 按一下 varInteger=6,sumResult=6 varInteger=5,sumResult=11 varInteger=4,sumResult=15 varInteger=0,sumResult=21 跳出迴圈 跳出迴圈－Exit For Exit For 跳出迴圈 跳至 Next 的下一行繼續執行 範例：強制跳出迴圈（一） 如果 varInteger 最終小於100 這一行不執行 跳出迴圈 按一下 輸入90 範例：強制跳出迴圈（二） 如果 varInteger 等於　100 執行 Exit For 跳出迴圈 按一下 只加到100 輸入150 巢狀迴圈語法 外部迴圈開始 內部執行完整的迴圈 跳出內部迴圈 重新開始下一次迴圈 範例：巢狀迴圈 執行 n 次迴圈 執行 nxn 次 內部迴圈跳出如果是偶次數 取得結果 輸入10按一下 取得 5 次 Do-Loop 非固定次數迴圈（一） Do 無條件開始迴圈 跳至 Loop 無條件進行下一次迴圈 Do-Loop 非固定次數迴圈（二） 如果　If 判斷式結果為 True 進入 If 區塊，執行 Exit Do 跳出迴圈 範例：示範 Do-Loop 迴圈 如果 iInteger等於100 進入 If 區塊，執行 Exit Do 跳出迴圈 按一下 While 與 Until 範例：使用 Until 計算 1 至 100 的加總 持續迴圈直到varInteger等於100 varInteger小於100時，執行這兩行迴圈運算 varInteger 等於100時，跳出迴圈運算 範例：使用While取代Until 以 While 取代Until 當 varInteger 等於100迴圈內部程式碼才會執行 varInteger 一開始並非等於 100 所以這一段永遠不執行 直接跳出迴圈 範例：計算 0 至 n 的偶數加總 範例：將判斷式配置於 Loop 後面 Whi