《程式设计学习教本》PPT课件.ppt

PublicClassForm1PrivateSubOTButton Click HandlesOTButton ClickDimresultAsInteger 0result result 1result result 2result result 3result result 4result result 5result result 6result result 7result result 8result result 9result result 10MsgBox result EndSubEndClass 範例 1至10的加總 不使用迴圈 重複執行10次的程式碼 按一下 迴圈執行流程 這裏執行判斷 判斷結果為False走這裏 判斷結果為True走這裏 For Next迴圈語法 ForvarInteger startVauleToendValue執行迴圈程式敘述 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為每次改變的值 Step2表示每一次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跳出迴圈 跳出迴圈 ExitFor ExitFor跳出迴圈 跳至Next的下一行繼續執行 範例 強制跳出迴圈 一 如果varInteger最終小於100這一行不執行跳出迴圈 按一下 輸入90 範例 強制跳出迴圈 二 如果varInteger等於100 執行ExitFor跳出迴圈 按一下 只加到100 輸入150 巢狀迴圈語法 外部迴圈開始 內部執行完整的迴圈 跳出內部迴圈 重新開始下一次迴圈 範例 巢狀迴圈 執行n次迴圈 執行nxn次 內部迴圈跳出如果是偶次數 取得結果 輸入10按一下 取得5次 Do Loop非固定次數迴圈 一 Do無條件開始迴圈 跳至Loop無條件進行下一次迴圈 Do Loop非固定次數迴圈 二 如果If判斷式結果為True 進入If區塊 執行ExitDo跳出迴圈 範例 示範Do Loop迴圈 如果iInteger等於100 進入If區塊 執行ExitDo跳出迴圈 按一下 While與Until 範例 使用Until計算1至100的加總 持續迴圈直到varInteger等於100 varInteger小於100時 執行這兩行迴圈運算 varInteger等於100時 跳出迴圈運算 範例 使用While取代Until 以While取代Until 當varInteger等於100迴圈內部程式碼才會執行 varInteger一開始並非等於100所以這一段永遠不執行 直接跳出迴圈 範例 計算0至n的偶數加總 範例 將判斷式配置於Loop後面 While配