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

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

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

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

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

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

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

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

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

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

9 上機演練（題目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學年度資訊科技概論研習

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

11 上機演練（題目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 95學年度資訊科技概論研習

13 上機演練（題目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學年度資訊科技概論研習

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

15 上機演練（題目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學年度資訊科技概論研習

16 上機演練（題目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學年度資訊科技概論研習

17 上機演練（題目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學年度資訊科技概論研習

18 上機演練（題目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學年度資訊科技概論研習

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

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

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