1、VB蔣加伏第四版第5章第5章 Visual Basic控制結(jié)構(gòu) 5.1 算法及其描述 5.2 選擇結(jié)構(gòu) 5.3 循環(huán)結(jié)構(gòu) 5.4 常用算法 VB蔣加伏第四版第5章5.1 5.1 算法及其描述 1.算法的概念 是解決問題的有序步驟。 2.算法的特征 (1) 有窮性。 (2) 確定性。 (3) 有效性。 (4) 零個或多個輸入。 (5) 至少有一個輸出。VB蔣加伏第四版第5章 3.算法的描述 （1）自然語言 文字冗長、表達(dá)不確切、二義性。 （2）流程圖 圖形方法，直觀、形象、易于理解，應(yīng)用廣泛。 （3）N-S圖 是流程圖的發(fā)展，去掉了流程線，算法都表示在一個矩形框內(nèi)。VB蔣加伏第四版第5章 3.三

2、種基本控制結(jié)構(gòu) （1）順序結(jié)構(gòu) 在順序結(jié)構(gòu)中，算法的每一步操作都是按從上到下的線性次序執(zhí)行的。 （2）選擇結(jié)構(gòu) 又稱分支結(jié)構(gòu)，根據(jù)給出的條件，選擇執(zhí)行一個分支。因此，在選擇結(jié)構(gòu)中，必然包含了條件判斷。 （3）循環(huán)結(jié)構(gòu) 又稱重復(fù)執(zhí)行結(jié)構(gòu)。根據(jù)給出的條件，判斷是否重復(fù)執(zhí)行某一組操作。VB蔣加伏第四版第5章基本的循環(huán)結(jié)構(gòu)有兩種：當(dāng)循環(huán)和直到循環(huán)。當(dāng)循環(huán)：首先判斷條件是否成立，若成立，執(zhí)行循環(huán)體再判斷條件，決定是否繼續(xù)進(jìn)行循環(huán)；若不成立，跳過這組操作，執(zhí)行此循環(huán)結(jié)構(gòu)后面的操作。直到循環(huán)：首先執(zhí)行循環(huán)體，然后判斷條件是否成立，若成立，則繼續(xù)進(jìn)行循環(huán)操作；若不成立，執(zhí)行此循環(huán)結(jié)構(gòu)后面的操作。 在程序設(shè)計中

3、，算法是由一系列的控制結(jié)構(gòu)構(gòu)成，每一個控制結(jié)構(gòu)又由若干個語句組成。語句是程序中有確切含義的基本單位，也是構(gòu)成程序的基本成分，程序功能是由一條條語句的執(zhí)行來實現(xiàn)的，可把語句視為命令。VB蔣加伏第四版第5章5.2 5.2 選選 擇擇 結(jié)結(jié) 構(gòu)構(gòu) 1. IfThen1. IfThen語句語句( (單分支結(jié)構(gòu)單分支結(jié)構(gòu)) ) If Then 語句塊語句塊 End If（注意多行（注意多行if語句要有語句要有End If） 或或 If Then VB蔣加伏第四版第5章 重要的是學(xué)會兩個數(shù)的交換，若上述語句重要的是學(xué)會兩個數(shù)的交換，若上述語句次序變一下，結(jié)果如何？次序變一下，結(jié)果如何？ 例：已知兩個數(shù)x和

4、y，比較它們的大小，使得x大于y. If xy Then t=x x=y y=t End If 或或 If xy Then t=x: x=y: y=tVB蔣加伏第四版第5章2. IfThenElse2. IfThenElse語句語句( (雙分支結(jié)構(gòu)雙分支結(jié)構(gòu)) ) If Then Else End If If Then Else 計算分段函數(shù)：yxxxxxxxsincos231030VB蔣加伏第四版第5章 雙分支結(jié)構(gòu)實現(xiàn)： If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)x3+3*x End If單分支結(jié)構(gòu)實現(xiàn)： y=cos(x)x3+3*x If x

5、0 Then y=sin(x)+sqr (x*x+1) VB蔣加伏第四版第5章3. IfThenElseIf3. IfThenElseIf語句語句( (多分支結(jié)構(gòu)多分支結(jié)構(gòu)) ) 形式： If Then ElseIf Then Else 語句塊語句塊 n+1 End IfVB蔣加伏第四版第5章例5.1(補) 已知變量strC中存放了一個字符，判斷該字符是字母字符、數(shù)字字符還是其它字符。用多分支結(jié)構(gòu)實現(xiàn)用多分支結(jié)構(gòu)實現(xiàn): If Ucase(strC) =A And Ucase (strC) =0 And strC = 90 Then Print 優(yōu) ElseIf mark = 80 Then P

6、rint 良 ElseIf mark = 70 Then Print 中 ElseIf mark = 60 Then Print 及格 Else Print 不及格 End If 方法二 If mark 60 Then Print 不及格 ElseIf mark 70 Then Print 及格 ElseIf mark 80 Then Print 中 ElseIf mark = 60 Then Print 及格 ElseIf mark = 70 Then Print 中 ElseIf mark = 80 Then Print 良 ElseIf mark = 90 Then Print 優(yōu) El

7、se Print 不及格 End If VB蔣加伏第四版第5章4 4IfIf語句的嵌套語句的嵌套 If語句的嵌套是指If或Else后面的語句塊中又包含If語句。 形式如下： If Then If Then End If End If T x yT z 為最小數(shù)T 使得 x yFFF x yzx y x 與 y 交換y z y 與 z 交換xyz，用一個IF語句和一個嵌套的IF語句實現(xiàn) If xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xy Then t=x: x=y: y=t End If End IfIf語句的嵌套注意事項：書寫鋸齒型；

8、 If 與End If配對。VB蔣加伏第四版第5章：與同類型的下面四種形式之一： 表達(dá)式 例: A 一組枚舉表達(dá)式(用逗號分隔) 2,4,6,8 表達(dá)式1 To 表達(dá)式2 60 To 100 Is 關(guān)系運算符表達(dá)式 Is =A And Ucase (strC) =0 And strC 0 And y 0 Then Print 在第一象限 ElseIf x 0 Then Print 在第二象限 ElseIf x 0 And y 0 And y 0 And y 0Print 在第一象限 Case x 0Print 在第二象限 Case x 0 And y 0 And y 0Print 在第四象限E

9、nd Select方法二代碼錯誤：1. Select Case 后不能出現(xiàn)多個變量；后不能出現(xiàn)多個變量；2. Case后不能出現(xiàn)變量及有關(guān)運算符后不能出現(xiàn)變量及有關(guān)運算符。VB蔣加伏第四版第5章例5.6 商店售貨，按購買貨物的多少分別給予不同優(yōu)惠折扣如下:編程計算購物款數(shù)。購物不足250元，無折扣，購物滿250元、不足500元，減價5%，計算機(jī)根據(jù)學(xué)生的答案判斷正確與否，當(dāng)結(jié)束時給出成績。購物滿500元、不足1000元，減價7.5%，購物滿1000元、不足2000元，減價10%，購物滿2000元，減價15%。 分析:設(shè)購物款為m，折扣為d，以上規(guī)定可表示如下： d=0 (m250)5% (25

10、0m500)7.5% (500m1000)10% (1000m2000)15% (2000m)代碼如下：VB蔣加伏第四版第5章Private Sub Command1_Click() Dim s As Single, d As Single m = Val(InputBox(請輸入應(yīng)付款:) Select Case m Case Is 250 d = 0 Case Is 500 d = 0.05 Case Is 1000 d = 0.075 Case Is y，x，y） （2）Choose函數(shù)形式是： Choose（數(shù)字類型變量，值為（數(shù)字類型變量，值為1的返回值，值為的返回值，值為2的返回值

11、的返回值） 例如，Nop是1-4的值，轉(zhuǎn)換成 + 、-、運算符的語句如下： Op= Choose（Nop，+，-，） 當(dāng)值為1，返回字符串“+”，然后放入Op變量中，值為2，返回字符串“-”，依次類推；當(dāng)Nop是1-4的非整數(shù)，系統(tǒng)自動取Nop的整數(shù)再判斷；若Nop不在14之間，函數(shù)返回Null值。 （3） Switch函數(shù)形式是： Switch（條件表達(dá)式（條件表達(dá)式1，條件表達(dá)式，條件表達(dá)式1為為True時的值時的值，條件表達(dá)式，條件表達(dá)式2，條件表達(dá)式，條件表達(dá)式2為為True時的值時的值）VB蔣加伏第四版第5章常常 見見 錯錯 誤誤1在選擇結(jié)構(gòu)中缺少配對的結(jié)束語句對多行式的If塊語句中

12、，應(yīng)有配對的 End If語句結(jié)束。2. 多邊選擇ElseIf關(guān)鍵字的書寫和條件表達(dá)式的表示 ElseIf 不要寫成Else If。3. Select Case語句的使用 Select Case 后不能出現(xiàn)多個變量；Case子句后不能出現(xiàn)變量，見例5.5。VB蔣加伏第四版第5章5.3 5.3 循循 環(huán)環(huán) 結(jié)結(jié) 構(gòu)構(gòu)1. For循環(huán)語句循環(huán)語句 (一般用于循環(huán)次數(shù)已知)形式 For 循環(huán)變量初值循環(huán)變量初值 to 終值終值 Step 步長步長 語句塊語句塊Exit For 語句塊語句塊 Next 循環(huán)變量循環(huán)變量 循環(huán)變量 =終值 語句塊 Exit For 語句塊 循環(huán)變量加步長 T F 循環(huán)變

13、量得初值 循環(huán)體例5.7(補) 計算1100的奇數(shù)和，程序段如下： Dim i %, s% 等價于： Dim i %, s% s=0 s=0 ： i = 1 For i = 1 To 100 step 2 re: If i 0 初值終值 =1 時,可省略終值=0 死循環(huán)循環(huán)次數(shù)) 1(步長初值終值Int要注意：要注意：v 出了循環(huán)，循環(huán)控制變量值的問題。 例程序段： For i=2 To 13 Step 3 循環(huán)執(zhí)行次數(shù) Print i , 輸出 i的值分別為: Next i 2 5 8 11 Print : Print “I=“, i 出了循環(huán)輸出為: I=14v 在循環(huán)體內(nèi)對循環(huán)控制變量可

14、多次引用；但最好不要對其賦值，否則影響原來的循環(huán)控制規(guī)律。4) 1(3213Int步長VB蔣加伏第四版第5章例5.8(補)改變循環(huán)控制變量對循環(huán)的影響Private Sub Command1_Click() j = 0 For i = 1 To 20 Step 2 i = i + 3 j = j + 1 Print 第; j; 次循環(huán)i=; i Next i Print 退出循環(huán)后i=; i End Sub正常情況：i=1,3,5,7,9,11,13,15,17,19現(xiàn)在：i=4,9,14,19例5.9 輸入一個班的學(xué)習(xí)成績，統(tǒng)計其中及格的學(xué)生人數(shù)，并計算出全班的平均分?jǐn)?shù)。學(xué)生人數(shù)不定，輸入負(fù)

15、數(shù)時截止。設(shè)全班人數(shù)不超過50人。VB蔣加伏第四版第5章 Private Sub Command1_Click() Dim Score As Single, PassN As Integer, n As Integer Dim i As Integer, Sum As Single Text1 = : Text2 = : Text3 = Sum = 0: PassN = 0: n = 0 For i = 1 To 50 統(tǒng)計人數(shù)大于50時停止循環(huán) Score = Val(InputBox(請輸入學(xué)生成績:) If Score = 60 Then PassN = PassN + 1 統(tǒng)計及格人數(shù)

16、 n = n + 1 統(tǒng)計總?cè)藬?shù) Sum = Sum + Score 統(tǒng)計總分 End If Next i Text1.Text = Str$(n) Text2.Text = Str$(PassN) Text3.Text = Str$(Sum / n) End Sub VB蔣加伏第四版第5章2. DoLoop循環(huán)語句循環(huán)語句(用于控制循環(huán)次數(shù)未知)形式1： Do While|Until 語句塊語句塊 Exit Do 語句塊語句塊 Loop形式2：Do 語句塊語句塊 Exit Do 語句塊語句塊Loop While|Until 表達(dá)式列表 1 F T F T Exit Do 語句塊 語句塊 Ex

17、it Do 語句塊 語句塊 表達(dá)式列表 1 Do Loop While Do WhileLoop VB蔣加伏第四版第5章例5.10(補)我國有13億人口，按人口年增長0.8%計算，多少年后我國人口超過26億。分析：解此問題可利用Do Loop循環(huán)求得，程序如下：Private Sub Command1_Click() x = 13 n = 0 Do While x n； (2) m除以n得余數(shù)r； (3)若r=0，則n為最大公約數(shù)結(jié)束；否則執(zhí)行(4)； (4)mn，nr，再重復(fù)執(zhí)行(2)。 例 求 m=14 ,n=6 的最大公約數(shù). If m n Then t = m: m = n: n =

18、t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公約數(shù)最大公約數(shù)=“; n m n r 14 6 2 6 2 0輾轉(zhuǎn)相減法 m=m-n mn n=n-m nm m、n為公約數(shù) m=nDo While m n m n If m n Then 14 6 m = m n 8 6 Else 2 6 n = n m 2 4 End If 2 2LoopVB蔣加伏第四版第5章3.While-Wend結(jié)構(gòu) 形式如下： While 條件 循環(huán)體 Wend 功能：當(dāng)給定的“條件”為True時，執(zhí)行循環(huán)體；否則，跳出循環(huán)體，執(zhí)行Wend后面的語

19、句。 注意：（1）該循環(huán)結(jié)構(gòu)先測試條件，然后決定是否執(zhí)行循環(huán)體。（2）如果“條件”總成立，則構(gòu)成死循環(huán)，所以，在循環(huán)體中應(yīng)該包含有修改“條件”的操作，使循環(huán)能正常結(jié)束。（3）當(dāng)循環(huán)可以嵌套，不允許交叉。每個Wend和最近的While相匹配。 例5.12(補) 小紅今年12歲，她父親比她大30歲，編程計算她的父親在幾年后比她年齡大一倍，那時父女的年齡各為多少？VB蔣加伏第四版第5章 代碼如下： Private Sub Form_Click() Dim age As Integer age = 12 While age * 2 age + 30 age = age + 1 Wend Print 經(jīng)

20、過; age - 12; 年 Print 小紅父女的年齡分別是：; age + 30; 和; age End SubVB蔣加伏第四版第5章4. 循環(huán)的嵌套循環(huán)的嵌套 一個循環(huán)體內(nèi)又包含了一個完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套. 例5.13(補)打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i & & j & = & i * j Print Tab(j - 1) * 9 + 1); se; Next j Print Next i思考：思考：打印上三角或下三角程序如何改動？要打印下三角打印上三角或下三角程序如何改動？要打印下三角?

21、For j = 1 To iVB蔣加伏第四版第5章 For ii =1 To 10 For jj=1 To 20 Next ii Next jj For ii =1 To 10 For ii=1 To 20 Next ii Next ii For ii =1 To 10 For jj=1 To 20 Next jj Next ii For ii =1 To 10 Next ii For ii =1 To 10 Next ii 對于循環(huán)的嵌套，要注意以下事項：內(nèi)循環(huán)變量與外循環(huán)變量不能同名；外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉；不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，反之則可以。正確錯誤VB蔣加伏第四版第5章

22、 其它輔助控制語句其它輔助控制語句 1. Go To 語句語句 形式形式: Go To 標(biāo)號標(biāo)號|行號行號 作用：無條件地轉(zhuǎn)移到標(biāo)號或行號指定的那行語句。 標(biāo)號是一個字符序列，行號是一個數(shù)字序列。 2.Exit語句語句 多種形式： Exit For、Exit Do、Exit Sub、Exit Function等。 作用：退出某種控制結(jié)構(gòu)的執(zhí)行。 3. End語句語句 多種形式： End、 End If、 End Select、 End With、 End Type、 End Sub、 End Function、 作用：End結(jié)束一個程序的運行；其余表示某個結(jié)構(gòu)的結(jié)束，與對應(yīng)的結(jié)構(gòu)語句配對出現(xiàn)。

23、VB蔣加伏第四版第5章4.With 語句語句 形式如下： With 對象 語句塊 End With 作用：對某個對象執(zhí)行一系列的操作，而不用重復(fù)指出對象的名稱。 With Label1 .Height = 2000 .Width = 2000 .FontSize=22 .Caption = MyLabel End With Label1.Height = 2000 Label1.Width = 2000 Label1.FontSize=22 Label1.Caption = MyLabel 等價VB蔣加伏第四版第5章5.4 5.4 常用算法常用算法算法是對某個問題求解過程的描述。1. 1. 累

24、加、連乘累加、連乘 1100的5或7的倍數(shù)的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 310的乘積 t = 1 For i =3 To 10 t = t * i Next i Print t思考：若把循環(huán)體前面置各變量初值的語句放在循環(huán)體內(nèi)，程序運行時會產(chǎn)生什么情況？VB蔣加伏第四版第5章例5.14(補) 求自然對數(shù)e的近似值,要求其誤差小于0.00001，近似公式為: 該例題涉及兩個問題： （1）用循環(huán)結(jié)構(gòu)求級數(shù)和的問題。本例根據(jù)某項值

25、的精度來控制循環(huán)的結(jié)束與否。 （2）累加：e=e+t 循環(huán)體外對累加和的變量清零 e=0 連乘：n=n*i 循環(huán)體外對連乘積變量置1 n=1 m1i0ii!11i!1 . !1.3!1! 211!11eiVB蔣加伏第四版第5章定義Form_Click()事件過程如下： Private Sub Form_Click() Dim i%, n&, t!, e! Cls e = 0: n = 1 e存放累加和、n存放階乘 i = 0: t = 1 i計數(shù)器、t第i項的值 Do While t 0.00001 e = e + t: i = i + 1 累加、連乘 n = n * i: t = 1

26、 / n Loop CurrentX = 200: CurrentY = 200 Print 計算了; i; 項的和是 ; e End SubVB蔣加伏第四版第5章 2. 求素數(shù)求素數(shù)素數(shù)是一個大于2，除了1和自身外，不能被任何整數(shù)整除的整數(shù)。 判別某數(shù)m是否為素數(shù)最簡單的方法是:對于m ，從 i=2，3，m-1判別m能否被i整除，只要有一個能整除，m不是素數(shù)，否則m是素數(shù)。例5.15(補) 求100以內(nèi)的素數(shù)。代碼如下： For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoTo NotNextM Next i Print m

27、;NotNextM: Next mm是否為素數(shù)求100以內(nèi)的素數(shù)思考：思考： 此例用Go To語句對非素數(shù)不作判斷，若不用GoTo語句，如何修改程序？ VB蔣加伏第四版第5章3.3.窮舉法窮舉法 “窮舉法”也稱為“枚舉法”或“試湊法”，即將可能出現(xiàn)的各種情況一一測試，判斷是否滿足條件，一般采用循環(huán)來實現(xiàn)。 例5.16(補) 百元買百雞問題。假定小雞每只5角，公雞每只2元，母雞每只3元。現(xiàn)在有100元錢要求買100只雞，編程列出所有可能的購雞方案。 設(shè)母雞、公雞、小雞各為x、y、z只，根據(jù)題目要求，列出方程為： x+y+z=100 3x+2y+0.5z=100三個未知數(shù)，兩個方程，此題有若干個解

28、。解決此類問題采用“試湊法”，把每一種情況都考慮到。 方法一：最簡單三個未知數(shù)利用三重循環(huán)來實現(xiàn)。 方法二：從三個未知數(shù)的關(guān)系，利用兩重循環(huán)來實現(xiàn)。VB蔣加伏第四版第5章4.4.遞推法遞推法 “遞推法”又稱為“迭代法”，其基本思想是把一個復(fù)雜的計算過程轉(zhuǎn)化為簡單過程的多次重復(fù)。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值，并由新值代替舊值。 例5.17(補) 猴子吃桃子。小猴在某天摘桃若干個，當(dāng)天吃掉一半多一個；第二天吃了剩下的桃子的一半多一個；以后每天都吃剩下桃子的一半多一個，到第7天要吃時只剩下一個，問小猴共摘下了多少個桃子？分析：這是一個“遞推”問題，先從最后一天推出倒數(shù)第二天的桃子，再從倒數(shù)第二

29、天的桃子推出倒數(shù)第三天的桃子。設(shè)第n天的桃子數(shù)為xn，那么它是前一天的桃子數(shù)的xn-1 的一半減1，即xn = xn-1 /2-1，即 xn-1=（ xn+1）*2VB蔣加伏第四版第5章5.5.最小、最大值最小、最大值在若干個數(shù)中求最大值，一般先假設(shè)一個較小的數(shù)為最大值的初值，若無法估計較小的值，則取第一個數(shù)為最大值的初值；然后將每一個數(shù)與最大值比較，若該數(shù)大于最大值，將該數(shù)替換為最大值；依次逐一比較。例5.18(補) 隨機(jī)產(chǎn)生10個100200之間的整數(shù)，求最大值。 Private Sub Command1_Click() Max = 100 For i = 1 To 10 x = Int(

30、Rnd * 101 + 100) Print x; If x Max Then Max = x Next i Print Print 最大值=; MaxEnd SubVB蔣加伏第四版第5章例5.19(補) 實際應(yīng)用，求最短殘料。有一根長度為321米的鋼材料，要將它截取成兩種規(guī)格a、b的長度分別為17米和27米的短料，每種至少1段，問分隔成a，b各多少段后，剩余的殘料r最少？分析，該題利用“試湊法”通過二重循環(huán)求殘料r的最小值正數(shù)，殘料不可能是負(fù)數(shù)。程序如下：Private Sub Command1_Click() Dim a%, b%, r!, ia%, ib% r = 321 最小值初值取鋼

31、材料的長度 For b = 1 To 321 27 b最多的段數(shù) For a = 1 To 321 17 - b a最多的段數(shù) t = 321 - b * 27 - a * 17 當(dāng)前的殘料 If t 0 And t r Then r = t 求最短的殘料 ia = a 最短殘料時a的段數(shù) ib = b 最短殘料時b的段數(shù) End If Next a Next b Print ia, ib, rEnd SubVB蔣加伏第四版第5章常常 見見 錯錯 誤誤1. 不循環(huán)或死循環(huán)的問題不循環(huán)或死循環(huán)的問題 主要是循環(huán)條件、循環(huán)初值、循環(huán)終值、循環(huán)步長的設(shè)置有問題。2. 循環(huán)結(jié)構(gòu)中缺少配對的結(jié)束語句循環(huán)

32、結(jié)構(gòu)中缺少配對的結(jié)束語句 For 缺少 配對的Next 3. 循環(huán)嵌套時循環(huán)嵌套時,內(nèi)外循環(huán)交叉內(nèi)外循環(huán)交叉4. 累加、連乘時，存放累加、連乘結(jié)果的變量賦初值問題累加、連乘時，存放累加、連乘結(jié)果的變量賦初值問題 (1)一重循環(huán) 在一重循環(huán)中,存放累加、連乘結(jié)果的變量初值設(shè)置應(yīng)在循環(huán)語句前。（2）多重循環(huán) 這要視具體問題分別對待。VB蔣加伏第四版第5章本章小結(jié) 選擇結(jié)構(gòu)：if，selectcase, iif,choose 循環(huán)結(jié)構(gòu): for,doLoop語句,輔助語句（GoTo,Exit, End,Stop,WithEnd With） 常用算法:累加，連乘，最大值，最小值，窮舉，遞推VB蔣加伏第四版第5章習(xí)題講解1. 在窗體中添加一個命令按鈕（Name屬性為Command1），然后編寫如下代碼： Private Sub Command1_Click() s = 0 For k = 1 To 3 If k = 1 Then x = 1 ElseIf k = 2 Then x = 2 El