程式語言與邏輯 結構化程式設計：迴圈控制 報告人：國立台灣師大附中 李啟龍 老師 95.12.22 95學年度資訊科技概論研習

大綱 何謂迴圈控制 迴圈結構之For-Next迴圈 迴圈結構之Do-Loop迴圈 跳出迴圈指令 上機演練 回顧與討論 While類型的Do-Loop迴圈 Until類型的Do-Loop迴圈 跳出迴圈指令 上機演練 回顧與討論 95.12.22 95學年度資訊科技概論研習

何謂迴圈控制 如果我們要列印出100個Hello，若一個一個寫MsgBox，則需要100個MsgBox(“Hello”)，這樣的程式實在太過繁雜且撰寫耗時，幸好程式語言提供了迴圈結構（Loop），可以簡化重複動作的撰寫，只要幾行的程式就可印出100個Hello。 迴圈結構使得程式語言更具威力，且善用了電腦的好處—不厭其煩的重複執行特定程式敘述，以完成指定的動作。 95.12.22 95學年度資訊科技概論研習

迴圈結構之For-Next迴圈 迴圈結構之For迴圈 For 迴圈變數=初始值 to 終止值 Step 變量 程式區塊 Next 迴圈變數 重複執行以上動作，直到迴圈變數值超過終止值。 95.12.22 95學年度資訊科技概論研習

迴圈結構之Do-Loop迴圈 Do-Loop迴圈可分成使用「While」或「Until」敘述兩類，而這兩類又可再分成「先做條件式判斷，再執行程式區塊」與「先執行程式區塊，再做條件式判斷」兩子類別。 95.12.22 95學年度資訊科技概論研習

While類型的Do-Loop迴圈 （1）Do While 條件式 程式區塊 Loop （2）Do Loop While 條件式 95.12.22 95學年度資訊科技概論研習

Until類型的Do-Loop迴圈 （1） Do Until 條件式 程式區塊 Loop （2）Do Loop Until 條件式 95.12.22 95學年度資訊科技概論研習

跳出迴圈指令 迴圈的終止除了條件式是否成立外，尚有強制跳出迴圈的指令。 Exit For強制跳出For-Next迴圈；而Exit Do強制跳出Do-Loop迴圈。通常寫於迴圈結構內，且這兩個指令會與if-then條件判斷結合，當符合某條件時才跳出迴圈。 95.12.22 95學年度資訊科技概論研習

上機演練（題目1） 1. 累加程式1+2+…+10 參考程式碼： Private Sub Command1_Click() Sum = 0 For i = 1 To 10 Sum = Sum + i Print "i=" & i & " Sum=" & Sum Next End Sub 95.12.22 95學年度資訊科技概論研習

95.12.22 95學年度資訊科技概論研習

上機演練（題目2） 2.累加程式1+3+5+…+99 參考程式碼： Private Sub Command1_Click() Sum = 0 Do While i < 100 Sum = Sum + i Print "i=" & i & " Sum=" & Sum i = i + 2 Loop MsgBox ("Sum=" & Sum) End Sub 95.12.22 95學年度資訊科技概論研習

95.12.22 95學年度資訊科技概論研習

上機演練（題目3） 3.累加程式1+2+4+7+…+106 參考程式碼：（變化組合型） Private Sub Command1_Click() Sum = 0 i = 1 j = 1 Do While i <= 106 Sum = Sum + i Print "i=" & i & " Sum=" & Sum i = i + j j = j + 1 Loop MsgBox ("Sum=" & Sum) End Sub 95.12.22 95學年度資訊科技概論研習

95.12.22 95學年度資訊科技概論研習

上機演練（題目4） 4. 在螢幕上印出 * ** *** **** ***** 參考程式碼： Private Sub Command1_Click() For i = 1 To 5 Step 1 For j = 1 To i Step 1 Print "*"; Next Print Chr(10) End Sub 95.12.22 95學年度資訊科技概論研習

上機演練（題目5） 5. 在螢幕上印出 * ** *** **** ***** 參考程式碼： Private Sub Command1_Click() For i = 1 To 5 Step 1 For j = 5 - i To 0 Step -1 Print " "; Next For k = 1 To i Step 1 Print "*"; Print Chr(10) End Sub * ** *** **** ***** 95.12.22 95學年度資訊科技概論研習

上機演練（題目6） 6.在螢幕印出 * *** ***** ******* ********* 參考程式碼： Private Sub Command1_Click() For i = 0 To 4 Step 1 For j = 4 - i To 0 Step -1 Print " "; Next For k = 1 To 2 * i + 1 Step 1 Print "*"; Print Chr(10) End Sub 95.12.22 95學年度資訊科技概論研習

上機演練（題目7） 7. 印出99乘法表 參考程式碼： Private Sub Command1_Click() For i = 1 To 9 Step 1 For j = 1 To 9 Step 1 Print i; "*"; j; "="; i * j; Next Print Chr(10) End Sub 95.12.22 95學年度資訊科技概論研習

回顧與討論 本節重點掃描 回家習題 Q ＆ A 時間 迴圈可以重複的執行一些程式敘述，藉由控制執行的次數，可以完成我們需要的運算。 For迴圈藉由起始式、判斷式和運算式，來控制迴圈的執行與結束。 回家習題 請試著寫出求最大公因數與最小公倍數的程式。 找出1~100之間之質數，之後輸出至螢幕。 Q ＆ A 時間 95.12.22 95學年度資訊科技概論研習

認識師大附中 95.12.22 95學年度資訊科技概論研習

感謝大家的熱情參與 天下沒有不散的研習 Q & A 期待再相會。謝謝 95.12.22 95學年度資訊科技概論研習