林卓然VB教程課件循環(huán)結(jié)構(gòu)第5章教案.ppt

1、1,第 5 章,循環(huán)結(jié)構(gòu)程序設(shè)計(jì),2,采用循環(huán)程序可以解決一些按一定規(guī)則重復(fù)執(zhí)行的問(wèn)題。例如，統(tǒng)計(jì)一個(gè)班幾十名學(xué)生，甚至全校幾千名學(xué)生的學(xué)期成績(jī)，如求平均分、不及格人數(shù)等 本章主要內(nèi)容,第5章 循環(huán)結(jié)構(gòu)程序設(shè)計(jì),Do.Loop,For.Next,退出,循環(huán)出口語(yǔ)句(Exit),循環(huán)語(yǔ)句,多重循環(huán),列表框與組合框,常用算法,程序舉例,3,循環(huán)是指在指定的條件下多次重復(fù)執(zhí)行一組語(yǔ)句 被重復(fù)執(zhí)行的一組語(yǔ)句稱為循環(huán)體 VB提供的循環(huán)語(yǔ)句有 For.Next Do.Loop While.Wend For Each.Next 最常用的是For.Next和Do.Loop語(yǔ)句,4,For.Next循環(huán)主要是用

2、在知道循環(huán)次數(shù)的情況下；若事先不知道循環(huán)次數(shù)，可以使用當(dāng)型循環(huán)Do.Loop 1. For.Next循環(huán)語(yǔ)句 (計(jì)數(shù)控制) For 循環(huán)變量初值 To 終值 Step 步長(zhǎng)值 循環(huán)體 Next 循環(huán)變量 2. Do While.Loop語(yǔ)句 (條件控制) Do While|Until 條件 循環(huán)體 Loop,5.1 循環(huán)語(yǔ)句 示例 求S = 1 + 2 + 3 + + 8,s = 0 For k = 1 To 8 s = s + k Next k Print s=; s 程序運(yùn)行結(jié)果如下： s36,n = 1: s = 0 Do While n = 8 s = s + n n = n + 1

3、Loop Print s=; s,例5.2,K為循 環(huán)變量,專設(shè)變量n來(lái)控制循環(huán),5,例5.2 求S = 1 + 2 + 3 + 8，把結(jié)果顯示在窗體上。 s = 0 累加器初值為0 For k = 1 To 8 s = s + k 累加器，在原有和的基礎(chǔ)上每次加一個(gè)數(shù) Next k Print s= ; s 程序執(zhí)行結(jié)果是：s36 分析,6,算法：通常采用重復(fù)運(yùn)算來(lái)解決問(wèn)題 累加、累乘等 如用級(jí)數(shù) /41 - 1/3 + 1/5 - 1/7 + 來(lái)求 設(shè)置循環(huán)變量 使每次運(yùn)算變量值有所不同 控制循環(huán) 計(jì)數(shù)控制或條件控制,循環(huán)結(jié)構(gòu)程序的實(shí)現(xiàn),求 S = 1 + 2 + 3 + + 8 s =

4、0 For k = 1 To 8 s = s + k Next k Print s=; s 把長(zhǎng)式子改為8次加,7,采用Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Load() Show t = 1 For c = 1 To 8 t = t * c Next c Print T=; t End Sub 程序運(yùn)行結(jié)果是： T40320語(yǔ)句 t=t*c 稱為乘法器。先將t置1(不能置0)。在循環(huán)程序中，常用累加和累乘來(lái)完成各種計(jì)算任務(wù),例5.3 求T = 8! = 1238,例5.3,8,例5.3 T = 8! = 123 8，把結(jié)果顯示在網(wǎng)頁(yè)上。 t = 1 累

5、乘器初值為 For c = 1 To 8 t = t * c 累乘器，在原有積的基礎(chǔ)上每次乘一個(gè)數(shù) Next c Print T=; t 程序執(zhí)行結(jié)果是：T40320 分析,9,采用Print直接在窗體上輸出結(jié)果，程序代碼如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 s表示加或減運(yùn)算 For c = 1 To 10000 Step 2 pi = pi + s / c s = -s 交替改變加、減號(hào) Next c Print =; pi * 4 End Sub

6、程序運(yùn)行結(jié)果是： 3.141397,例5.4 用/41 - 1/3 + 1/5 - 1/7 + 級(jí)數(shù)求的近似值 (取前5000項(xiàng)來(lái)進(jìn)行計(jì)算),例5.4,10,For t = 1 To 3 If t = 1 Then a = 3 If t = 2 Then a = 2 If t = 3 Then a = 1 Print a; Next t Print t A. 3 3 3 3 B. 1 2 3 4 C. 3 2 1 4 D. 1 1 1 4,下列程序的運(yùn)行結(jié)果是？,想一想,思考題,D,11,For t = 1 To 3 If t = 1 Then a = 3 If t = 2 Then a =

7、2 If t = 3 Then a = 1 Print a; Next t Print t A. 3 3 3 4 B. 1 2 3 4 C. 3 2 1 4 D. 1 1 1 4,下列程序的運(yùn)行結(jié)果是？,想一想,思考題,C,12,運(yùn)行下面程序后，循環(huán)體執(zhí)行了_次。 i = 0: n = 1 Do While i 32 i = (i + 1) * (i + 1) n = n + 1 Loop Print n A. 2 B. 3 C. 4 D. 5,請(qǐng)回答問(wèn)題,想一想,思考題,C,13,s = ABCDEFGHIJ: c = For k = 2 To Len(s) Step 3 a = Mid(s

8、, k) c = c + Left(a, 1) Next k Print c A. BDF B. CFI C. BEH D.BEI,下列程序的運(yùn)行結(jié)果是？,想一想,思考題,C,14,5.1.2 DoLoop循環(huán)語(yǔ)句,前測(cè)型DoLoop循環(huán) 語(yǔ)句格式: DoWhile|Until條件 循環(huán) Loop 說(shuō)明:Do whileLoop:當(dāng)條件成立時(shí),執(zhí)行循環(huán)體,當(dāng)條件不成立的時(shí)候,終止循環(huán). Do UntilLoop:當(dāng)條件不成立時(shí),執(zhí)行循環(huán)體,直到條件成立時(shí),終止循環(huán).,15,采用Do While.Loop語(yǔ)句 采用Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Lo

9、ad() Dim n As Integer, s As Long Show n = 1: s = 0 Do While n = 100 s = s + n * n n = n + 1 Loop Print s=; s End Sub 程序運(yùn)行結(jié)果： S338350,例5.5 求 S12 + 22 + + 1002,例5.5,16,后測(cè)型DoLoop循環(huán),語(yǔ)句格式: Do 循環(huán) Loop While|Until條件 說(shuō)明:先執(zhí)行循環(huán)體，然后判斷條件，根據(jù)條件決定是否繼續(xù)執(zhí)行循環(huán)體。 本語(yǔ)句執(zhí)行循環(huán)的次數(shù)最少為1，而前測(cè)型語(yǔ)句的最少次數(shù)為0,17, 用上述公式求/4的近似值，即逐項(xiàng)進(jìn)行累加，直到某

10、項(xiàng) 1 / n * (1 / 2 n + 1 / 3 n)= 10(-5) 逐項(xiàng)累加的條件，累加到t10(-5)為止 pi = pi + s * t 把當(dāng)前項(xiàng)進(jìn)行累加 s = -s 交替改變正、負(fù)號(hào) n = n + 2 變動(dòng)值n加2 t = 1 / n * (1 / 2 n + 1 / 3 n) 求當(dāng)前項(xiàng)的絕對(duì)值 Loop Print =; pi * 4 程序運(yùn)行結(jié)果： 3.141562,例5.6 用 級(jí)數(shù),求的近似值。當(dāng)最后一項(xiàng)的絕對(duì)值小于10-5時(shí)，停止計(jì)算,例5.6,18,“輾轉(zhuǎn)相除法”算法：求出m/n余數(shù)p，若p0，n即為最大公約數(shù)；若p非0，則把原來(lái)的分母n作為新的分子m，把余數(shù)p作

11、為新的分母n繼續(xù)求解 設(shè)計(jì)步驟如下： (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性,例5.7 輸入兩個(gè)正整數(shù)，求它們的最大公約數(shù),例5.7,19,編寫的“計(jì)算”按鈕Click事件過(guò)程代碼如下： Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val(Text1.Text) : n = Val(Text2.Text) If m 0 Text3.Text = m End Sub 若輸入的m和n的值為85和68，則運(yùn)行結(jié)果如上圖,20,語(yǔ)句格式： While 條件 循環(huán)體 Wend 功能：當(dāng)條件

12、成立(為真)時(shí)，執(zhí)行循環(huán)體；當(dāng)條件不成立(為假)時(shí)，終止循環(huán)。 本語(yǔ)句與上述Do While.Loop循環(huán)語(yǔ)句相似，其差別是：While.Wend語(yǔ)句中不能使用Exit語(yǔ)句跳出循環(huán)。,5.1.3 While.Wend循環(huán)語(yǔ)句 ,21,用于提前退出循環(huán) 格式： Exit For|Do功能：直接從For循環(huán)或Do循環(huán)中退出 當(dāng)程序運(yùn)行時(shí)遇到Exit語(yǔ)句時(shí)，就不再執(zhí)行循環(huán)體中的任何語(yǔ)句而直接退出，轉(zhuǎn)到循環(huán)語(yǔ)句(Next、Loop)的下面繼續(xù)執(zhí)行,5.1.4 循環(huán)出口語(yǔ)句,22,把每次輸入的數(shù)累加。當(dāng)輸入-1時(shí)結(jié)束程序的運(yùn)行創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 編寫程序代碼 Private Sub F

13、orm_Load() Show Sum = 0 Do While True 條件為真，循環(huán)無(wú)終止進(jìn)行下去 x = Val(InputBox(請(qǐng)輸入要加入的數(shù)(-1表示結(jié)束), 輸入數(shù)據(jù)) If x = -1 Then Exit Do End If Sum = Sum + x Text1.Text = Sum Loop MsgBox (累加運(yùn)算結(jié)束) End Sub 以-1作為“終止循環(huán)標(biāo)志”,例5.8 設(shè)計(jì)一個(gè)“加法器”程序,例5.8,23,多重循環(huán)是指循環(huán)體內(nèi)含有循環(huán)語(yǔ)句的循環(huán) 例5.9 多重循環(huán)程序示例 程序運(yùn)行結(jié)果 Private Sub Form_Load() 1 5 Show 1 6

14、 For i = 1 To 3 外循環(huán) 1 7 For j = 5 To 7 內(nèi)循環(huán) 2 5 Print i, j 2 6 Next j 2 7 Next i 3 5 End Sub 3 6 3 7 注意內(nèi)、外循環(huán)層次要分清，不能交叉,5.2 多 重 循 環(huán),例5.9,24,本例可采用兩重循環(huán)來(lái)實(shí)現(xiàn)。外循環(huán)控制輸出7行，內(nèi)循環(huán)控制每行輸出要求的字符數(shù)。 在進(jìn)入內(nèi)循環(huán)之前，使用Print Tab()來(lái)對(duì)起始輸出位置定位，退出內(nèi)循環(huán)后，使用Print來(lái)控制換行。,例5.10 編一程序，輸出下列所示的圖形,例5.10,25,采用Print直接在窗體上輸出結(jié)果，程序代碼如下： Private Sub

15、Form_Load() Show For i = 1 To 7 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print Chr(i + 48); Next j Print Next i End Sub Print Chr(i+48)與Print i有所不同,26,(1)分析：設(shè)一元硬幣為a枚，二元硬幣為b枚，五元硬幣為c枚，可列出方程 a+b+c=10 a+2b+5c=25采用兩重循環(huán)，外循環(huán)變量a從010，內(nèi)循環(huán)變量b從010 (2)創(chuàng)建應(yīng)用程序的用戶界面,例5.11 取一元、二元、五元的硬幣共十枚，付 給25元錢，有多少種不同的取法?,例5.11,2

16、7,(3)編寫程序代碼 程序通過(guò)Print方法把處理結(jié)果輸出在標(biāo)簽的下方。 Private Sub Form_Load() Show CurrentX = 0 : CurrentY = 1500 確定開始顯示的坐標(biāo) Print , 五元, 二元, 一元 n = 0 記錄解的組數(shù) For a = 0 To 10 For b = 0 To 10 c = 10 - b - a If a + 2 * b + 5 * c = 25 And c = 0 Then n = n + 1 Print (; n; ), c, b, a End If Next b, a End Sub,28,執(zhí)行下列程序段后，變量

17、t 的值是_。 t = 0 For x = 2 To 3 n = 1 Do While n=x t = t + n n = n + 1 Loop Next x A. 8 B. 9 C.10D. 11,請(qǐng)回答問(wèn)題,想一想,思考題,B,29,請(qǐng)回答問(wèn)題,想一想,思考題,顯示結(jié)果為： 16,執(zhí)行下列程序段后，顯示的結(jié)果是_ s = 0 For m = 1 To 4 Step 2 n = 1 Do While n=m s = s + n n = n + 1 Loop Next m Print s + m + n,例5.12a,30,5.3 列表框與組合框,列表框和組合框都能為用戶提供若干個(gè)選項(xiàng)，供用戶

18、從中任意選擇 5.3.1 列表框(ListBox) List屬性：字 符型數(shù)組, 存放列表 框的表項(xiàng) 數(shù)組的下標(biāo)從0開始。 例如，List1.List(0)的值為“教授”， List1.List(1)的值為“副教授” 。 ListCount屬性：表項(xiàng)數(shù)目 Text屬性：當(dāng)前選定表項(xiàng)的文本內(nèi)容 ListIndex屬性：返回已選定表項(xiàng)的順序號(hào)(索引)。若未選定任何項(xiàng)，則ListIndex的值為-1 Selected屬性：邏輯型數(shù)組，表示列表框中某一表項(xiàng)是否被選中,例5.12b,31,假設(shè)列表框List1中有四個(gè)表項(xiàng)，并已選定第2項(xiàng)，則 有： List1.ListIndex 為1 List1.Tex

19、t的值為”副教授” List1.Selected(1)為True,32,方法 (1) AddItem方法：用于把一個(gè)列表項(xiàng)加入列表框 格式： 對(duì)象.AddItem 列表項(xiàng)，索引 舉例：List1.AddItem 海南省 ，28 (2) Clear方法：用于清除列表框中的所有項(xiàng)目 (3) RemoveItem方法：用于刪除指定的列表項(xiàng) 采用以下方法，可為列表框List1賦值： (1)在屬性窗口中設(shè)置 (2)利用AddItem賦值 (3) 利用List屬性賦值 List1.AddItem “教授” List1.List(0)= “教授” List1.AddItem “副教授” List1.List

20、(1)= “副教授” List1.AddItem “講師” List1.List(2)= “講師” List1.AddItem “助教” List1.List(3)= “助教”,33,列表框表項(xiàng)的輸出 (1) 用鼠標(biāo)單擊列表框內(nèi)某一表項(xiàng)，則該表項(xiàng)值存放在Text屬性中。 例如：x = List1.Text 把表項(xiàng)值存放在x變量中 (2) 指定索引號(hào)來(lái)取表項(xiàng)的內(nèi)容，例如： List1.ListIndex = 3 x = List1.Text (3) 直接從數(shù)組List()中讀取，例如： x = List1.List(5),34,(1)分析：判別條件為 (n Mod 14=0) And (n Mo

21、d 10=8) (2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性,例5.12 設(shè)計(jì)一程序，找出三位數(shù)中能被14整除且個(gè)位數(shù)為8的自然數(shù)，把這些自然數(shù)顯示在列表框中，其個(gè)數(shù)顯示在標(biāo)簽中。,例5.12,35,(3)編寫程序代碼 編寫的“顯示”按鈕Click事件過(guò)程代碼： Private Sub Command1_Click() “顯示” List1.Clear For n = 100 To 800 If (n Mod 14 = 0) And (n Mod 10 = 8) Then List1.AddItem n End If Next n Label1.Caption = 符合條件的自然數(shù)的個(gè)數(shù)為： _

22、 Combo1.Text Picture1.Print 硬盤(GB)：; Combo2.Text Picture1.Print 內(nèi)存(MB)：; Combo3.Text End Sub,42,5.4 常用算法,算法是對(duì)某個(gè)問(wèn)題求解過(guò)程的描述。 常用的算法有：窮舉法、遞推法、排序法、查找法、遞歸法等。 1. 累加、連乘和計(jì)數(shù) 累加（如s=s+k）是在原有和的基礎(chǔ)上一次一次地每次加一個(gè)數(shù)，連乘（如t=t*c）則是在原有積的基礎(chǔ)上一次一次地每次乘一個(gè)數(shù)。計(jì)數(shù)通常每次增加的值不是一個(gè)加數(shù)，而是1。 例5.15 找出100999三位數(shù)中的“水仙花”數(shù)，計(jì)算其個(gè)數(shù)。所謂水仙花數(shù)，是指各位數(shù)字立方和等于該數(shù)

23、本身，如153是一個(gè)水仙花數(shù)，因?yàn)?53=13 + 53 + 33。 程序中采用計(jì)數(shù)方法n=n+1（或稱“計(jì)數(shù)器”）來(lái)記錄有多少個(gè)“水仙花”數(shù)。,43,找水仙花數(shù),Private Sub Form_load() Dim k As Integer, a As Integer, b As Integer Dim c As Integer, n As Intege Show n = 0 Print 三位數(shù)的水仙花數(shù)是： For k=100 To 999 a = Int(k/100) 求百位數(shù) b = Int(k-100*a)/10) 求十位數(shù) c = k Mod 10 求個(gè)位數(shù) If k=a3 +

24、b3 + c3 Then Print k 輸出水仙花數(shù) n=n+1 對(duì)滿足條件的數(shù)進(jìn)行計(jì)數(shù) End If Next k Print 一共有 x, Print “小雞只數(shù)為:”; y End If Next x End Sub,例5.16,46,3. 遞推法,“遞推法”也稱為“迭代法”，其基本思想是把一個(gè)復(fù)雜的計(jì)算過(guò)程轉(zhuǎn)化為簡(jiǎn)單過(guò)程的多次重復(fù)。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值，并由新值代替舊值。 通過(guò)InputBox函數(shù)輸入a值，并以a作為x的初值。要求前后兩次求出的x的差的絕對(duì)值小于10-5。 分析：這是一個(gè)“遞推”問(wèn)題，先從a推出第一個(gè)x值 即(a+a/a）/2x，再以該x值（舊值）推出x

25、的新值 即(x+a/x）/2x，依次向前推，每次以x舊值推出x的新值 即(x+a/x）/2x。當(dāng)x舊值與新值之差的絕對(duì)值小于10-5時(shí)，此時(shí)的x新值為所求。,47,例5.17,Private Sub Form_Load() Dim a As Single, xn0 As Single, xn1 As Single Show 用xn0表示舊值，xn1表示新值 a = Val(InputBox(請(qǐng)輸入一個(gè)正數(shù)) xn1 = a 以a作為x的初值 Do xn0 = xn1 確定舊值 xn1 = (xn0 + a / xn0) / 2 計(jì)算新值 Loop While Abs(xn0 - xn1) =

26、0.00001 判斷 Print a; 的平方根為; xn1 End Sub 如果輸入的a值為3，程序運(yùn)行結(jié)果是： 3的平方根為 1.732051,例5.17,48,5.5 程序舉例,例5.18 從鍵盤輸入一個(gè)正整數(shù)，然后把該數(shù)的每位數(shù)字按逆序輸出。例如：輸入3485，則輸出5843；輸入100000，則輸出000001。 以下采用兩種不同解法。 （1）數(shù)值處理方法 通過(guò)表達(dá)式x Mod 10取出該整數(shù)x的個(gè)位數(shù)并輸出，如對(duì)于x=3485,則取出5； 利用賦值語(yǔ)句x = x 10截去x的個(gè)位數(shù), 如對(duì)于x=3485,處理后x=348；重復(fù)執(zhí)行和,直到x= 10 Print x Mod 10;

27、x = x 10 Loop,例5.18A,49,（2）字符串處理方法,把該整數(shù)作為一個(gè)數(shù)字字符串，從字符串后部往前逐個(gè)取出字符，即可實(shí)現(xiàn)按逆序輸出。 Dim x As String x = InputBox(請(qǐng)輸入一個(gè)正整數(shù)) 把該數(shù)以字符串方式賦給變量x For k = Len(x) To 1 Step -1 Print Mid(x, k, 1); 從后部往前逐個(gè)取出字符并顯示 Next k,例5.18B,50,例5.19 求解s = 1! + 2! + 3! + + 10!的值,采用兩種不同解法 （1）解法一：采用兩重循環(huán)，外循環(huán)10次，每次循環(huán)計(jì)算一次階乘，把每次階乘值累加起來(lái)，即得求解

28、結(jié)果。 Dim s As Long, t As Long s = 0 For j = 1 To 10 計(jì)算10個(gè)階乘 t = 1 計(jì)算1個(gè)階乘前，先賦初值 For k = 1 To j 計(jì)算j!，需要循環(huán)j次 t = t * k 連乘j次 Next k s = s + t 把每次計(jì)算得到的階乘值t累加 Next j Print s,例5.19A,51,（2）解法二,這10個(gè)階乘有一個(gè)特點(diǎn)，后一個(gè)階乘為上一個(gè)階乘再乘以一個(gè)數(shù)，如2!=1!*2，3!=2!*3，4!=3!*4，k!=(k-1)!*k 。根據(jù)這一特點(diǎn)，程序只須采用單重循環(huán)就可以求解。把該整數(shù)作為一個(gè)數(shù)字字符串，從字符串后部往前逐個(gè)取出字符，即可實(shí)現(xiàn)按逆序輸出。 Dim s As Long, t As Long s = 0 t = 1 For k = 1 To 10 循環(huán)10次，每次求1個(gè)階乘 t = t * k 求k!，其值等于(k-1)!*k，即t*k s = s + t 每次加入一個(gè)階乘值t Next k Print s,例5.19B,52,(1)創(chuàng)建應(yīng)用程