【正文】 lick() x = 13 n = 0 Do While x 26 x = x * n = n + 1 Loop Print n, x End Sub 例 輾轉(zhuǎn)相除法求 兩自然數(shù) m， n的最大公約數(shù)和最小公倍數(shù)。 分析：求最大公約數(shù)的算法思想： (1)對(duì)于已知兩數(shù) m， n， 使得 mn； (2) m除以 n得余數(shù) r； (3)若 r=0，則 n為最大公約數(shù)結(jié)束；否則執(zhí)行 (4)； (4)m?n， n?r，再重復(fù)執(zhí)行 (2)。 例 求 m=14 ,n=6 的最大公約數(shù) . If m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公約數(shù) =, n m n r 14 6 2 6 2 0 輾轉(zhuǎn)相減法 ? m=mn mn ? n=nm nm ? m、 n為公約數(shù) m=n Do 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 2 Loop 3. 循環(huán)的嵌套 一個(gè)循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套 . 例 . For i = 1 To 9 For j = 1 To 9 se = i amp。 amp。 j amp。 = amp。 i * j Tab((j 1) * 9 + 1)。 se。 Next j Next i 思考： 打印上三角或下三角程序如何改動(dòng)？要打印下三角 ? For j = 1 To i 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 對(duì)于循環(huán)的嵌套，要注意以下事項(xiàng)： ?內(nèi)循環(huán)變量與外循環(huán)變量不能同名； ?外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； ?不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，反之則可以。 正確 錯(cuò)誤 其他輔助控制語句 1. Go To 語句 形式 : Go To {標(biāo)號(hào) |行號(hào) } 作用：無條件地轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)指定的那行語句 . 標(biāo)號(hào)是一個(gè)字符序列 ,行號(hào)是一個(gè)數(shù)字序列 . 多種形式： 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é)束一個(gè)程序的運(yùn)行；其余表示某個(gè)結(jié)構(gòu)的結(jié)束，與對(duì)應(yīng)的結(jié)構(gòu)語句配對(duì)出現(xiàn)。 語句 形式如下： With 對(duì)象 語句塊 End With 作用：對(duì)某個(gè)對(duì)象執(zhí)行一系列的操作，而不用重復(fù)指出對(duì)象的名稱。 With Label1 .Height = 2022 .Width = 2022 .FontSize=22 .Caption = MyLabel End With = 2022 = 2022 =22 = MyLabel 等價(jià) 常用算法（一） 算法是對(duì)某個(gè)問題求解過程的描述 1. 累加、連乘 1～ 100的 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 3～ 10的乘積 t = 1 For i =3 To 10 t = t * i Next i Print t 思考： 若把循環(huán)體前面置各變量初值的語句放在循環(huán)體內(nèi)，程序運(yùn)行時(shí)會(huì)產(chǎn)生什么情況？ 例 求自然對(duì)數(shù) e的近似值 ,要求其誤差小于 ，近似公式為: 該例題涉及兩個(gè)問題： （ 1）用循環(huán)結(jié)構(gòu)求級(jí)數(shù)和的問題。本例根據(jù)某項(xiàng)值的精度來控制循環(huán)的結(jié)束與否。 （ 2）累加： e=e+t 循環(huán)體外對(duì)累加和的變量清零 e=0 連乘： n=n*i 循環(huán)體外對(duì)連乘積變量置 1 n=1 Private Sub Form_Click() Dim i%,namp。, t!, e! e = 0 : n = 1 ? e存放累加和、 n存放階乘 i = 0 : t = 1 ? i計(jì)數(shù)器、 t第 i項(xiàng)的值 Do While t e = e + t : i = i + 1 ? 累加、連乘 n = n * i : t = 1 / n Loop Print 計(jì)算了 。 i。 項(xiàng)的和是 。 e End Sub ??????????????? m1i0i i!11i!1 ... !1...3!1!211!11ei2. 求素?cái)?shù) 素?cái)?shù)是一個(gè)大于 2，且 不能被 1和本身以外的整數(shù)整除的整數(shù)。 判別某數(shù) m是否為素?cái)?shù)最簡單的方法是 : 對(duì)于 m 從 i=2， 3， … ， m1判別 m能否被 i整除，只要有一個(gè)能整除， m不是素?cái)?shù)，否則 m是素?cái)?shù)。 例 求 100以內(nèi)素?cá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 NotNextM: Next m m是否為素?cái)?shù) 求 100以內(nèi)的素?cái)?shù) 思考： 此例用 Go To語句對(duì)非素?cái)?shù)不作判斷，若不用 GoTo語句，如何修改程序？ “窮舉法”也稱為“枚舉法”或“試湊法”，即將可能出現(xiàn)的各種情況一一測試，判斷是否滿足條件，一般采用循環(huán)來實(shí)現(xiàn)。 例 百元買百雞問題 。 假定小雞每只 5角 ， 公雞每只 2元 ， 母雞每只 3元 。 現(xiàn)在有 100元錢要求買 100只雞 ， 編程列出所有可能的購雞方案 。 設(shè)母雞 、 公雞 、 小雞各為 x、 y、 z只 ， 根據(jù)題目要求 ， 列出方程為： x+y+y=100 3x+2y+=100 三個(gè)未知數(shù)，兩個(gè)方程，此題有若干個(gè)解。 解決此類問題采用“試湊法”，把每一種情況都考慮到。 方法一：最簡單三個(gè)未知數(shù)利用三重循環(huán)來實(shí)現(xiàn)。 方法二：從三個(gè)未知數(shù)的關(guān)系，利用兩重循環(huán)來實(shí)現(xiàn)。 “遞推法”又稱為“迭代法”，其基本思想是把一個(gè)復(fù)雜的計(jì)算過程轉(zhuǎn)化為簡單過程的多次重復(fù)。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值，并由新值代替舊值。 例 猴子吃桃子 。 小猴在某天摘桃若干個(gè) ， 當(dāng)天吃掉一半多一個(gè)；第二天吃了剩下的桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè) ，到第 7天要吃時(shí)只剩下一個(gè) ， 問小猴共摘下了多少個(gè)桃子 ？ 分析：這是一個(gè) “ 遞推 ” 問題 ， 先從最后一天推出倒數(shù)第二天的桃子 ， 再從倒數(shù)第二天的桃子推出倒數(shù)第三天的桃子 …… 。 設(shè)第 n天的桃子為 xn， 那么它是前一天的桃子數(shù) 的 xn1 的一半減 1， 即 xn =（ xn1 +1） 2 、最大值 在若干個(gè)數(shù)中求最大值 ， 一般先假設(shè)一個(gè)較小的數(shù)為最大值的初值 ，若無法估計(jì)較小的值 ， 則取第一個(gè)數(shù)為最大值的初值；然后將每一個(gè)數(shù)與最大值比較 ， 若該數(shù)大于最大值 ， 將該數(shù)替換為最大值；依次逐一比較 。 例 隨機(jī)產(chǎn)生 10個(gè) 100～ 200之間的數(shù) ， 求最大值 。 Private Sub Command1_Click() Max = 100 For i = 1 To 10 x = Int(Rnd * 101 + 100) Print x。 If x Max Then Max = x Next i Print Print 最大值 =。 Max End Sub 例 實(shí)際應(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 ? 最小值初值取鋼材料的長度 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 ? 最短殘料時(shí) a的段數(shù) ib = b ? 最短殘料時(shí) b的段數(shù) End If Next a Next b Print ia, ib, r End Sub 常 見 錯(cuò) 誤 1. 不循環(huán)