VB程序設計第7章-循環(huán)結構

1、1,第2次上交作業(yè)： 設計并開發(fā)一個打字練習程序，能夠計時并統(tǒng)計練習者的打字速度和正確率等，其它功能自行擴展。 要求：下次上機進行系統(tǒng)提交,2,第7章,循環(huán)結構程序設計,本章要點: While循環(huán)結構 Do循環(huán)結構 For循環(huán)結構 GoTo型循環(huán) 多重循環(huán),3,對比選擇結構，思考： 1）什么是循環(huán)結構，代碼特征是什么？ 2）程序設計中哪些情況下需要用循環(huán)結構？ 3）為什么需要循環(huán)結構，如果不用有無其他替代方法？ 4）VB中循環(huán)結構的實現形式/語法結構？,4,問題1：計算 s= 1+1+1+1(100個1相加) s=0 s=s+1 s=s+1 s=s+1,為解決某問題，可能某一段代碼需要有條件的

2、連續(xù)重復執(zhí)行許多次，這就是循環(huán)程序結構。 需重復執(zhí)行的一段代碼，我們稱之為循環(huán)體。,Ref WD,5,VB提供了豐富的實現循環(huán)結構的語句： 1）While Wend語句 2）Do Loop語句 3）For Next語句 4）Goto語句 這就是VB中循環(huán)結構的形式分類！ 下面通過分析循環(huán)結構的語法格式、功能、要點說明、執(zhí)行過程（例題）來學習每種循環(huán)結構，同時提煉出循環(huán)結構的學習要領。,6,7.1 While循環(huán)結構,1. While循環(huán)結構語法格式： While 條件表達式 語句組 Wend Ref WD 2. 功能（準確描述） 首先判斷條件表達式，如果條件表達式的值為False就不執(zhí)行循環(huán)體

3、，循環(huán)結構結束，應用程序繼續(xù)往后執(zhí)行Wend后面的語句；如果條件表達式的值為True就執(zhí)行循環(huán)體，然后再返回判斷條件。,7,問題1：計算 s= 1+1+1+1(100個1相加) （用While Wend改寫如下） Dim s, count As Integer s = 0 初始化 count = 1 初始化 While count = 100 循環(huán)開始 s = s + 1 循環(huán)體語句 count = count + 1 循環(huán)體語句 Wend 循環(huán)結束 Label1.Caption = s,Ref Analysis,8,說明： （1）條件表達式：關系表達式或邏輯表達式，取值為True或False

4、; a) 它是用于判斷循環(huán)是否繼續(xù)執(zhí)行的條件； b) 它應該根據實際需要賦予一個合理的初值； c) 它的值應該在循環(huán)的執(zhí)行過程中進行變化，因為它既是進入循環(huán)的條件，也是結束循環(huán)的條件。 d) 防止死循環(huán)！,9,（2）循環(huán)體：循環(huán)結構中需要重復執(zhí)行的語句組部分； a)循環(huán)體中不能包括初變量初始化語句組； b)提取出需要重復執(zhí)行的語句組放在循環(huán)體中； c)考慮在循環(huán)體中放置改變循環(huán)條件的語句，以便于在滿足特定條件的情況下退出循環(huán)； （3）Wend: 與While語句匹配使用的循環(huán)結束語句，不能單獨出現，也不能缺少。,10,【例7.2】利用格里高利公式求,分析: 這是一個用多項式累加和模擬PI值的題

5、目，每一項都具有特定的變化規(guī)律，那么： 1）判斷出要用循環(huán)結構來做 2）尋找（或創(chuàng)造）循環(huán)條件 3）明確循環(huán)體，及循環(huán)條件在循環(huán)體中作用 4）設計算法流程，或直接編程實現,11,Private Sub Form_Load() Dim Pi, Sum, s, i As Double Sum = 0 累加和，模擬PI i = 1 每項的分母值 s = 1 符號變量 While Abs(s / i) 0.0000001 Sum = Sum + s / i i = i + 2 s = -1 * s Wend Pi = Sum * 4 Label2.Caption = Pi End Sub,12,7.2

6、 Do循環(huán)結構,Do循環(huán)結構一般由Do Loop語句構成，組成完整循環(huán)結構，位于其內的語句組構成循環(huán)體。 Ref WD 思考：Do循環(huán)的循環(huán)條件由什么構成呢？ 方案：與While語句或Until語句配合使用構成，而且根據While語句或Until語句在DoLoop中所處的位置不同，既可以構成“當型循環(huán)”，又可以構成“直到型循環(huán)”。 Ref WD,13,特別說明： 我們知道，程序中的循環(huán)體不可能永無止境的執(zhí)行，需要有結束執(zhí)行的條件（循環(huán)條件）；根據先判斷條件后執(zhí)行循環(huán)體，還是先執(zhí)行循環(huán)體再判斷條件把循環(huán)結構分為兩類（語義上）： 1）當型循環(huán)：先判斷條件、再執(zhí)行循環(huán)體，然后返回再判斷條件，開始新的

7、一趟。 2）直到型循環(huán)：先執(zhí)行一遍循環(huán)體，再判斷條件，所以在這種結構中，循環(huán)體至少執(zhí)行一遍。 Ref WD,14,7.2 Do循環(huán)結構 1、當型循環(huán)（由Do While Loop組成） 語法格式： Do While 條件表達式 循環(huán)體 Loop 流程圖：,15,例題1改造成Do While結構： Private Sub Form_Load() Dim Sum, Count As Integer Sum = 0 Count = 1 DO While Count =100 Sum = Sum + 1 Count = Count + 1 LOOP Text1.Text = Sum End Sub,當

8、型格式,16,2、直到型循環(huán) （由Do Loop Until組成） 語法格式： Do 循環(huán)體 Loop Until 條件表達式 流程圖：,17,例題1改造成Do Until結構： Private Sub Form_Load() Dim Sum, Count As Integer Sum = 0 Count = 1 DO Sum = Sum + 1 Count = Count + 1 LOOP UNTIL Count 100 Text1.Text = Sum End Sub,直到型格式2,18,7.3 for循環(huán)結構,能夠確定循環(huán)體執(zhí)行的次數，那么使用For循環(huán)結構比使用While循環(huán)結構或Do

9、循環(huán)結構更加清晰、簡潔、方便。,For Next語句的語法為： For 循環(huán)變量初值 To 終值 Step 增量 循環(huán)體 Next 循環(huán)變量 ,1）循環(huán)變量：也稱作計數器，是一個變量，專門用于控制循環(huán)體執(zhí)行的次數。 2）初值：循環(huán)變量的第一次取值。 3）終值：循環(huán)變量與之比較以決定是否結束循環(huán)。 4）增量：也稱作步長，循環(huán)變量每次變化時需增加的數據值，增量可為正數也可為負數。如果增量為正數，則終值應大于或等于初值；如果增量為負數，則終值應小于或等于初值。,19,5）循環(huán)體：由若干條語句組成，并可有Exit For語句。Exit For語句表示無條件退出For循環(huán)。 6）Next 循環(huán)變量：循環(huán)

10、體每執(zhí)行一遍后，循環(huán)變量的值就變化一次。,20,例題1改造成For Next結構 Sum = 0 For i = 1 To 100 Step 1 Sum = Sum + 1 Next i,思考：求100以內所有偶數的和？,【例7.7】在窗體中對比顯示從16號字型到9號字型。,21,Private Sub Form_Load() Dim i As Integer Show 使輸出可見 Form1.Font = 新宋體 For i = 16 To 9 Step -1 Form1.FontSize = i Print i; 號字型 Next i End Sub,分析: 題目要求對字體大小從16到9依

11、次輸出，可以判斷出需要用循環(huán)結構，而且循環(huán)次數確定（初始值16 到終值9），所以可以采用For Next循環(huán)結構，那么思考如何寫呢？,22,VB中保留了GoTo語句和On GoTo語句，他們都可以控制程序的執(zhí)行方向，雖然不提倡使用，但在有些情況下也是有用的，而且能構成循環(huán)結構。,7.4 GoTo型循環(huán),7.4.1 GoTo語句 GoTo語句為無條件轉移語句。GoTo語句的語法格式為： GoTo 標號 | 行號 例如： Goto Start,23,說明： （1）標號：以英文開頭的標示符，它可以出現在GoTo語句之前或者之后，但是要以“：”結束，并且與GoTo語句在同一個過程中存在; （2）行號：

12、是一個整型數字，位于語句行的最前面。行號可以出現在GoTo語句之前或者之后，必須與GoTo語句在同一個過程中存在; 例如： GoTo 1000 1000 ,24,（1）構成循環(huán)：把標號或行號置前，GoTo語句與If語句配合使用可實現有條件地重復執(zhí)行某程序段,從而構成Goto型循環(huán)。 例如：,Private Sub Form_Load() Dim count , Sum As Integer Sum = 0：i = 1 Start： 標號 Sum = Sum + 1 循環(huán)體語句 i = i + 1 循環(huán)體語句 If i =100 Then GoTo Start GoTo語句 Label2.Cap

13、tion = Sum End Sub,25,7.4.2 On GoTo 語句 On GoTo語句可以根據不同的條件從多個出口中選擇一個。其語法格式為： On 數值表達式 GoTo 標號表列 | 行號表列,說明： （1）標號列表：是程序中存在多個標號，多個標號之間用“,”分隔; （2）行號列表：是程序中存在多個行號，多個行號之間也用“,”分隔;標號和行號可以同時使用。,26,例如： On x1 GoTo R1，20，50 y = 10 : Print y : End R1: y = 0 : Print y : End 20 y = 1: Print y : End 50 y = 2 : Prin

14、t y : End,執(zhí)行順序是：先計算“數值表達式”的值后取整，如果此整數范圍在所提供的標號及行號的總個數之內，其值為幾就按順序找到對應的第幾個標號或行號，轉到該處執(zhí)行；如果此整數不在所提供的標號及行號的總個數之內，則執(zhí)行OnGoto之后的下一條語句。,27,在循環(huán)結構中，如果循環(huán)體中又包含循環(huán)結構，就構成了多重循環(huán)，也稱為循環(huán)嵌套。 由于循環(huán)形式具有多種，它們之間可以相互嵌套，所以多重循環(huán)的形式多種多樣。 注意： （1）每一種循環(huán)語句中的開始部分與結束部分的配對使用。（結構完整） （2）多重循環(huán)的循環(huán)體不能相互交叉。（邏輯完整）,7.5 多重循環(huán),28,【例7.10】打印九九乘法口訣。,分析

15、: 因為乘法口訣中相乘的兩個因子都是不斷變化的，因此該問題需要有兩重循環(huán)才能實現，外層循環(huán)控制一個因子的變化，內層循環(huán)控制另一個因子的變化；而且內層因子的取值范圍與外層因子有關系！,29,Private Sub Form_Load() Dim i, j As Single Show 使輸出可見 FontSize = 8 For i = 1 To 9 For j = 1 To i Print j ; * ; i ; = ; i * j ; Next j Print 控制換行 Next i End Sub,30,總結： 形式：VB提供了四種循環(huán)結構的語句： 1）While Wend 2）Do Loop 3