计数变数大於终值时离开回圈.PPTVIP

Ch05 流程控制-重複結構(FOR) 視窗程式設計 王大瑾 前言 結構化程式 是程式設計的基本精神。 循序結構、選擇結構 和 重複結構 是程式設計三個基本邏輯架構。 循序結構 是程式最基本結構，是由上到下依序執行。 重複結構是指敘述區段可 反覆執行多次 的程式結構。 重複結構又稱為 迴圈（Loop） 常用重複結構有： For…Next 和 Do…Loop 兩種。 * * For…Next 迴圈 若程式中某個敘述區段需反覆執行指定的次數時，可用 For…Next 迴圈來完成。 For 迴圈由 計數變數、初值、終值 及 增值 構成： * * [說明] 計數變數 必須是 數值資料型別的變數。 初值、終值和增值則可為數值變數或數值常值。 增值若省略不寫，預設增值為1。 若初值小於終值，增值需為正值，表由小而大計數。 若初值大於終值，增值需為負值，表由大而小計數。 當增值為正值時，計數變數大於終值時離開迴圈。 當增值為負值時，則計數變數在小於終值時離開迴圈。 如想提早離開迴圈，可用 Exit For 敘述配合 If 條件式來判斷是否提前離開 For 迴圈。 * * Filename : ForNext.sln 01 Private Sub Form1_Load(ByVal sender …) Handles MyBase.Load 02 Dim start_num, end_num, step_num, sum As Integer 03 start_num = Val(InputBox(請輸入初值:(整數))) 04 end_num = Val(InputBox(請輸入終值:(整數))) 05 step_num = Val(InputBox(請輸入增值:(整數))) 06 sum = 0 ‘預設總和為0 07 For i = start_num To end_num Step step_num 08 sum += i 09 Next 10 MsgBox(start_num 到 end_num 增值為 _ step_num 時，總和等於 sum) 11 End 12 End Sub * * 巢狀 For...Next 迴圈 迴圈內還有迴圈就構成 巢狀迴圈。 執行時由最內迴圈先執行，後才執行外部迴圈。 使用巢狀迴圈時，每個 For 都需有對應的 Next 。 迴圈彼此間是不允許相互交錯。 巢狀迴圈中每個 For迴圈，都需有自己的計數變數，不可重複使用。 需製作一個二維有規則性表格如：九九乘法表，重複性圖案等都可用巢狀迴圈。 * * 每列行顯示五個 ”*” 共五列，將 I 設為外部迴圈，k 為內部迴圈 ，演算法如下： * * 輸出方式? 使用 MsgBox 輸出對話方塊函式? 表單上用標籤或文字方塊控制項顯示 * * 將上面實作修改為顯示出初值到終值間的所有數值。 * * 練習題 * * Filename : 99Product.sln 01 Private Sub Form1_Load(ByVal sender …) Handles MyBase.Load 02 Dim show As String 03 show = Space(60) 九九乘法表 vbNewLine vbNewLine 04 For i = 1 To 9 05 For j = 1 To 9 06 show = i x j = i * j vbTab 07 Next 08 show = vbNewLine ‘ 換行 09 Next 10 MsgBox(show) 11 End 12 End Sub * *