【文章內容簡介】 束，轉loop 的下面一條語句去執(zhí)行。（2）執(zhí)行l(wèi)oop 語句時，返回（1）流程圖P68 圖413 （b）格式四功能：（1）執(zhí)行循環(huán)體語句（2）執(zhí)行l(wèi)oop 語句時，判斷 e 的值，若為 false , 返回（1），若為 true , 則循環(huán)結束，轉loop 的下面一條語句去執(zhí)行。流程圖P68 圖413 （a）特別說明：無論哪種格式，記住循環(huán)體執(zhí)行的條件： （1） while 后的條件值為 true 時，執(zhí)行循環(huán)體，為 false 時，循環(huán)結束。 （２）until 后的條件值為false 時，執(zhí)行循環(huán)體，為true時，循環(huán)結束。程序舉例：P68 例43第七講 選擇分支與循環(huán) VB程序設計的常用算法重點：重點掌握結構程序設計的方法和思想；理解和掌握VB中常用算法的思想和設計方法；算法（Algorithm）：計算機解題的基本思想方法和步驟。算法的描述：是對要解決一個問題或要完成一項任務所采取的方法和步驟的描述，包括需要什么數(shù)據(jù)（輸入什么數(shù)據(jù)、輸出什么結果）、采用什么結構、使用什么語句以及如何安排這些語句等。通常使用自然語言、結構化流程圖、偽代碼等來描述算法。一、計數(shù)、求和、求階乘等簡單算法此類問題都要使用循環(huán)，要注意根據(jù)問題確定循環(huán)變量的初值、終值或結束條件，更要注意用來表示計數(shù)、和、階乘的變量的初值。例：用隨機函數(shù)產生100個[0，99]范圍內的隨機整數(shù)，統(tǒng)計個位上的數(shù)字分別為1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù)并打印出來。本題使用數(shù)組來處理，用數(shù)組a(1 to 100)存放產生的確100個隨機整數(shù)，數(shù)組x(1 to 10)來存放個位上的數(shù)字分別為1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù)。即個位是1的個數(shù)存放在x(1)中，個位是2的個數(shù)存放在x(2)中，……個位是0的個數(shù)存放在x(10)。將程序編寫在一個GetTJput過程中，代碼如下：Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer 39。產生100個[0，99]范圍內的隨機整數(shù)，每行10個打印出來 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) 10 Then Space(2)。 a(i)。 Else Space(1)。 a(i)。 End If If i Mod 10 = 0 Then Next i 39。統(tǒng)計個位上的數(shù)字分別為1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù)，并將統(tǒng)計結果保存在數(shù)組x(1),x(2),...,x(10)中，將統(tǒng)計結果打印出來 For i = 1 To 100 p = a(i) Mod 10 39。 求個位上的數(shù)字 If p = 0 Then p = 10 x(p) = x(p) + 1 Next i 統(tǒng)計結果 For i = 1 To 10 p = i If i = 10 Then p = 0 個位數(shù)為 + Str(p) + 共 + Str(x(i)) + 個 Next iEnd Sub二、求兩個整數(shù)的最大公約數(shù)、最小公倍數(shù)分析：求最大公約數(shù)的算法思想：(最小公倍數(shù)=兩個整數(shù)之積/最大公約數(shù)) (1) 對于已知兩數(shù)m，n，使得mn； (2) m除以n得余數(shù)r； (3) 若r=0，則n為求得的最大公約數(shù)，算法結束；否則執(zhí)行(4)； (4) m←n，n←r，再重復執(zhí)行(2)。 例如: 求 m=14 ,n=6 的最大公約數(shù). m n r 14 6 2 6 2 0m=inputBox(m=)n=inputBox(n=)nm=n*mIf 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 Print 最小公倍數(shù)=, nm/n三、判斷素數(shù)只能被1或本身整除的數(shù)稱為素數(shù) 基本思想：把m作為被除數(shù)，將2—INT（）作為除數(shù)，如果都除不盡，m就是素數(shù)，否則就不是。（可用以下程序段實現(xiàn)）m =val( InputBox(請輸入一個數(shù))) For i=2 To int(sqr(m)) If m Mod i = 0 Then Exit For Next i If i int(sqr(m)) Then Print 該數(shù)是素數(shù) Else Print 該數(shù)不是素數(shù) End If將其寫成一函數(shù),若為素數(shù)返回True，不是則返回FalsePrivate Function Prime( m as Integer) As Boolean Dim i% Prime=True For i=2 To int(sqr(m)) If m Mod i = 0 Then Prime=False: Exit For Next i End Function四、驗證哥德巴赫猜想（任意一個大于等于6的偶數(shù)都可以分解為兩個素數(shù)之和）基本思想：n為大于等于6的任一偶數(shù)，可分解為n1和n2兩個數(shù)，分別檢查n1和n2是否為素數(shù)，如都是，則為一組解。如n1不是素數(shù)，就不必再檢查n2是否素數(shù)。先從n1=3開始，檢驗n1和n2（n2=Nn1）是否素數(shù)。然后使n1+2 再檢驗nn2是否素數(shù)，… 直到n1=n/2為止。利用上面的prime函數(shù)，驗證哥德巴赫猜想的程序代碼如下：Dim n%,n1%,n2% n=Val(InputBox(輸入大于6的正整數(shù))) For n1=3 to n\2 step 2 n2=nn1 If prime(n1) Then If prime(n2) then Print n amp。 = amp。 n1 amp。 + amp。 n2 Exit For 39。結束循環(huán) End if End if Next n1五、迭代法算法思想：對于一個問題的求解x，可由給定的一個初值x0，根據(jù)某一迭代公式得到一個新的值x1，這個新值x1比初值x0更接近要求的值x；再以新值作為初值，即：x1→x0,重新按原來的方法求x1,重復這一過和直到|x1x0|ε(某一給定的精度)。此時可將x1作為問題的解。例：用迭代法求某個數(shù)的平方根。 已知求平方根的迭代公式為：Private Function Fsqrt( a As single ) AS singleDim x0 As Single, x1 As Single x0 =a/2 39。迭代初值 x1 = *(x0 + a/x0) Do x0 = x1 39。為下一次迭代作準備 x1 = *(x0 + a/x0) Loop While Abs(x1 x0) Fsqrt=x1End Function六、數(shù)制轉換 將一個十進制整數(shù)m轉換成 →r(2－16)進制字符串。方法：將m不斷除 r 取余數(shù)，直到商為零，以反序得到結果。下面寫出一轉換函數(shù)，參數(shù)idec為十進制數(shù)，ibase為要轉換成數(shù)的基（如二進制的基是2，八進制的基是8等），函數(shù)輸出結果是字符串。Private Function TrDec(idec As Integer, ibase As Integer) As String Dim strDecR$, iDecR% strDecR = Do While idec 0 iDecR = idec Mod ibase If iDecR = 10 Then strDecR = Chr$(65 + iDecR 10) amp。 strDecR Else strDecR = iDecR amp。 strDecR End If idec = idec \ ibase Loop TrDec = strDecR End Function七、字符串的一般處理1．簡單加密和解密 加密的思想是： 將每個字母C加（或減）一序數(shù)K，即用它后的第K個字母代替，變換式公式： c=chr(Asc(c)+k) 例如序數(shù)k為5，這時 A→ F， a→ f，B→ G… 當加序數(shù)后的字母超過Z或z則 c=Chr(Asc(c)+k 26) 例如：You are good→ Dtz fwj ltti 解密為加密的逆過程 將每個字母C減（或加）一序數(shù)K，即 c=chr(Asc(c)k), 例如序數(shù)k為5，這時 Z→U， z→u，Y→T… 當加序數(shù)后的字母小于A或a則 c=Chr(Asc(c)k +26)下段程序是加密處理：i = 1: strp = nL = Len(RTrim(strI))Do While (i = nL) strT = Mid$(strI, i, 1) 39。取第i個字符 If (strT = A And strT = Z) Then iA = Asc(strT) + 5 If iA Asc(Z) Then iA = iA 26 strp = strp + Chr$(iA) ElseIf (strT = a And strT = z) Then iA = Asc(strT) + 5 If iA Asc(z) Then iA = iA 26 strp = strp + Chr$(iA) Else strp = strp + strT End If i = i + 1 LoopPrint strp2．統(tǒng)計文本單詞的個數(shù) 算法思路： （1）從文本（字符串）的左邊開始，取出一個字符；設邏輯量WT表示所取字符是否是單詞內的字符，初值設為False （2）若所取字符不是“空格”，“逗號”，“分號”或“感嘆號”等單詞的分隔符，再判斷WT是否為True，若WT不為True則表是新單詞的開始，讓單詞數(shù)Nw=Nw+1，讓WT=True。 （3）若所取字符是“空格”，“逗號”，“分號”或“感嘆號”等單詞的分隔符， 則表示字符不是單詞內字符，讓WT=False。(4) 再依次取下一個字符，重得（2）(3)直到文本結束。下面程序段是字符串strI中包含的單詞數(shù)Nw = 0: Wt = FalsenL = Len(RTrim(strI))For i = 1 To nL strT = Mid$(strI, i, 1) 39。取第i個字符 Select Case strT Case , , 。, ! Wt = False Case Else If Not Wt Then Nw = Nw + 1 Wt = True End If End SelectNext i