Loop Until (後测式回圈) 语法： Do 叙述区段.PPT

第六章 重覆結構 6-1 計數迴圈 敘述區段將程式中具有特定功能的連續多行敘述 重覆結構敘述區段需要在程式中某處執行多次時，便需要利用此結構來完成 使用重複結構可縮短程式的長度及易維護。 重覆執行的敘述區段稱為 迴圈 (Loop)。 VB 提供的迴圈： 計數迴圈程式中某個敘述區段重覆執行的次數是可計數，且已知初值、增值和終值。 語法： 從迴圈中跳出，Exit For 中途離開迴圈 當增值為正時，計數迴圈流程圖 【例1】 寫出變數k 由100 ~ 1，增值為 -1 的 計數迴圈： For k=100 To 1 Step -1 　 敘述區段 Next 【例2】寫出變數 k由10 ~100，增值為 5 計數迴圈 For k = 10 To 100 Step 5 　 敘述區段 Next 【例3】 求 -1 + -0.5 + 0 + 0.5 + 1.0 + 1.5 + 2.0 總和 For num = 2 To 100 Step 2 　 sum += num Next FileName : For.sln 01 Private Sub Form1_Load(ByVal ….. ) Handles MyBase.Load 02 Dim start_num, end_num, step_num, i, sum As Integer 03 start_num = Val(InputBox(請輸入初值(整數):)) 04 end_num = Val(InputBox(請輸入終值(整數):)) 05 step_num = Val(InputBox(請輸入增值(整數):)) 06 For i = start_num To end_num Step step_num 07 sum = sum + i 08 Next 09 MsgBox(初值 start_num 到終值 end_num _  增值為 step_num 時，總和為 sum) 10 End 11 End Sub 6-2 條件迴圈 程式中當一個敘述區段重覆執行的次數無法預測時，就需要透過條件式迴圈來解決。 可依程式需求設定當滿足條件或不滿足條件時，才執行迴圈內的敘述區段。 VB 提供條件式迴圈基本形式有五種： 一、Do While…Loop (前測式迴圈) 前測式迴圈表示先判斷是否滿足條件？若滿足條件，就執行敘述區段一次，一直到不滿足條件時才離開迴圈。 語法： 二、Do Until…Loop (前測式迴圈) 三、Do … Loop While (後測式迴圈) 語法：Do 　 敘述區段 　 [Exit Do] 　Loop While 條件 功能：先進入迴圈執行敘述區段後，再判斷條件是否成立， 成立時就要再進入迴圈。 四、Do … Loop Until (後測式迴圈) 語法： Do 　　敘述區段 　　 [Exit Do] Loop Until 條件 功能：先進入迴圈執行敘述區段後，再判斷條件是否不成立，不成立再進入迴圈。 五、Do … Loop (無窮迴圈) 語法： Do 敘述區段 [Exit Do] Loop 功能：在迴圈頭尾沒條件作判斷，一旦執行便無止盡的迴圈。 【注意】無窮迴圈發生後，程式在迴圈一直繞，除非迴圈內有Exit Do敘述才能跳離迴圈。若發生無窮迴圈，可按Ctrl+Break 鍵中斷程式執行。 FileName : DoLoop.sln 01 Private Sub Form1_Load(ByVal sender …. ) Handles MyBase.Load 02 Dim ans, guess_num, times As Integer 03 Dim rnd_obj As New Random 04 ans = rnd_obj.Next(1, 11) 05 Do 06 guess_num = Val(InputBox(請輸入1-10之間的數字:, 猜數字)) 07 If guess_num ans Then 08 times += 1 09 MsgBox(IIf(guess_num ans, 數字太大！, 數字太小！)) 10