流程控制重复结构FOR

Ch05流程控制-重複結構(FOR)視窗程式設計王大瑾前言結構化程式是程式設計的基本精神。循序結構、選擇結構和重複結構是程式設計三個

基本邏輯架構。循序結構是程式最基本結構，是由上到下依序執行。重複結構是指敘述區段可反覆執行多次的程式結構。重複結構又稱為迴圈（Loop）常用重複結構有：

For…Next和Do…Loop兩種。2023/1/112For…Next迴圈若程式中某個敘述區段需反覆執行指定的次數時，可用For…Next迴圈來完成。For迴圈由計數變數、初值、終值

及增值

構成：2023/1/113[說明]計數變數必須是數值資料型別的變數。初值、終值和增值則可為數值變數或數值常值。增值若省略不寫，預設增值為1。若初值小於終值，增值需為正值，表由小而大計數。若初值大於終值，增值需為負值，表由大而小計數。當增值為正值時，計數變數大於終值時離開迴圈。當增值為負值時，則計數變數在小於終值時離開迴圈。如想提早離開迴圈，可用ExitFor敘述配合If條件式

來判斷是否提前離開For迴圈。2023/1/114Filename:ForNext.sln01PrivateSubForm1_Load(ByValsender…)HandlesMyBase.Load02Dimstart_num,end_num,step_num,sumAsInteger03start_num=Val(InputBox("請輸入初值:(整數)"))04end_num=Val(InputBox("請輸入終值:(整數)"))05step_num=Val(InputBox("請輸入增值:(整數)"))06sum=0‘預設總和為007Fori=start_numToend_numStepstep_num08sum+=i09Next10MsgBox(start_num&"到"&end_num&"增值為"&_

step_num&"時，總和等於"&sum)11End12EndSub2023/1/117巢狀For...Next

迴圈迴圈內還有迴圈就構成巢狀迴圈。執行時由最內迴圈先執行，後才執行外部迴圈。使用巢狀迴圈時，每個For都需有對應的Next。迴圈彼此間是不允許相互交錯。巢狀迴圈中每個For迴圈，都需有自己的計數變數，

不可重複使用。需製作一個二維有規則性表格如：九九乘法表，

重複性圖案等都可用巢狀迴圈。2023/1/118每列行顯示五個”*”共五列，將I設為外部迴圈，

k為內部迴圈，演算法如下：2023/1/119輸出方式

使用MsgBox輸出對話方塊函式

表單上用標籤或文字方塊控制項顯示2023/1/1110將上面實作修改為顯示出初值到終值間的所有數值。2023/1/1111練習題2023/1/1112Filename:99Product.sln01PrivateSubForm1_Load(ByValsender…)HandlesMyBase.Load02DimshowAsString03show=Space(60)&"九九乘法表"&vbNewLine&vbNewLine04Fori=1To905Forj=1To906show&=i&"x"&j&"="&i*j&vbTab07Next08sh