[教育]第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-在線瀏覽
2024-12-01 07:50本頁(yè)面
【正文】 If bw ^ 3 + sw ^ 3 + gw ^ 3 = i Then str1 = str1 + Str(i) + vbCrLf End If Next MsgBox(結(jié)果為： + vbCrLf + str1, , 求水仙花數(shù) ) 例子 從鍵盤輸入一個(gè)字符串，分別統(tǒng)計(jì)字母“ M”和“ m”在其中出現(xiàn)的次數(shù)。 s = 1*2+2*3+3*4+4*5+……+n*(n+1)+… 計(jì)算并輸出所有 6位正整數(shù)中能被 6整除且其十位數(shù)不是 4的數(shù)之和，并求它們中的最大數(shù)。 數(shù)列為： 2/1,3/2,5/3,8/5,13/8,21/13,…… While...End While循環(huán) 此循環(huán)也稱“當(dāng)型循環(huán)”，表示當(dāng)條件成立時(shí)，重復(fù)執(zhí)行某個(gè)動(dòng)作。若表達(dá)式的值為 True，則執(zhí)行語(yǔ)句塊。 執(zhí)行的流程如圖所示。 分析：輾轉(zhuǎn)相除法求兩個(gè)數(shù) m， n的最大公約數(shù)的思想如下： （ 1）求 m除以 n的余數(shù) r，即 r=m mod n； (2) 若 r≠0，轉(zhuǎn)（ 3）；若 r=0，則此時(shí)的 n就是最大公約數(shù)，轉(zhuǎn)（ 4）； (3) 把 n的值給 m，把 r的值給 n，即 m←n ， n←r ，轉(zhuǎn)（ 1）； （ 4） 循環(huán)結(jié)構(gòu)的下一個(gè)語(yǔ)句。 Dim m, n, r, x, y, z As Integer m = n = x = m : y = n ’保存最初兩個(gè)數(shù)的值給 x和 y，以備求最小公倍數(shù)時(shí)使用 r = m Mod n While r 0 m = n n = r r = m Mod n End While z = x * y / n ’求最小公倍數(shù) MsgBox(最大公約數(shù)為： + Str(n) + vbCrLf + 最小公倍數(shù)為： + Str(z), , 求最大公約和最小公倍 ) 例：判斷一個(gè)數(shù) n是否為素?cái)?shù)?？梢酝茢啵喝绻灰l(fā)現(xiàn)了從 2到 n1之間的一個(gè)整數(shù)能被 n整除，則 n就不是素?cái)?shù)；否則， n就是素?cái)?shù)。然后把從 2到 n1之間的所有整數(shù)試一遍，只要發(fā)現(xiàn)某一個(gè)數(shù)能被 n整除，就把標(biāo)志變量 Flag的值賦值為 False，表示 n不再是素?cái)?shù)。 Dim n, i As Integer Dim flag As Boolean n = InputBox(請(qǐng)輸入一個(gè)數(shù)值 n： , 判斷素?cái)?shù) ) flag = True i = 2 While i = n 1 If n Mod i = 0 Then flag = False Exit while End If i = i + 1 End While If flag Then MsgBox(Str(n) + 是素?cái)?shù) !, , 判斷素?cái)?shù) ) Else MsgBox(Str(n) + 不是素?cái)?shù) !, , 判斷素?cái)?shù) ) End If 例 :求式子的和，直到表達(dá)式的最后一項(xiàng)的值小于 。因此，再加一次。若在第一次進(jìn)入循環(huán)結(jié)構(gòu)之前，條件不成立，那么循環(huán)體一次也不執(zhí)行。 Dim n, i As Integer Dim flag As Boolean n = InputBox(請(qǐng)輸入一個(gè)數(shù)值 n： , 判斷素?cái)?shù) ) flag = True i = 2 Do While i = Sqrt(n) If n Mod i = 0 Then flag = False Exit Do End If i = i + 1 Loop If flag Then MsgBox(Str(n) + 是素?cái)?shù) !, , 判斷素?cái)?shù) ) Else MsgBox(Str(n) + 不是素?cái)?shù) !, , 判斷素?cái)?shù) ) End If 2. Do…Loop While 循環(huán)結(jié)構(gòu) 語(yǔ)句形式如下： Do 語(yǔ)句塊 A [Exit Do] 語(yǔ)句塊 B Loop While 條件 根據(jù)語(yǔ)句形式的書寫可以看出，此結(jié)構(gòu)是先執(zhí)行循環(huán)體，后進(jìn)行條件的判斷，以決定是否進(jìn)行下一次循環(huán)。 例：求自然對(duì)數(shù) e的近似值，要求其誤差小于 (即求和公式的最后一項(xiàng)的值小于 )，近似公式為： 分析：本例涉及兩個(gè)重要的運(yùn)算：一個(gè)是累加求和，另一個(gè)是求階乘。 3. Do Until … Loop 循環(huán)語(yǔ)句 語(yǔ)句形式如下： Do Until 條件表達(dá)式 語(yǔ)句塊 A [Exit do] 語(yǔ)句塊 B Loop 此語(yǔ)句與 Do While…Loop 語(yǔ)句的功能的區(qū)別僅僅在于：若條件表達(dá)式的值為 False，就執(zhí)行循環(huán)體；否則，退出循環(huán)。 4. Do… Loop Until 循環(huán)語(yǔ)句 語(yǔ)句形式如下： Do 語(yǔ)句塊 A [Exit Do] 語(yǔ)句塊 B Until 條件表達(dá)式 此語(yǔ)句與 Do…While Loop 語(yǔ)句的功能的區(qū)別僅僅在于：若條件表達(dá)式的值為 False，就執(zhí)行下次循環(huán)體；否則，退出循環(huán)。 例：求 1+2+3+…+100 的和。 說明： （ 1）條件表達(dá)式在循環(huán)體前面的循環(huán)（包括 While、 Do While、 Do Until ）的循環(huán)體有可能執(zhí)行零次或者多次；條件表達(dá)式在循環(huán)體后面的循環(huán)（包括 Do …Loop While、 Do…Loop Until ）的 循環(huán)體至少要執(zhí)行一次。 （ 2）在 Do…Loop 中可以在任何位置放置任意多個(gè)Exit Do語(yǔ)句，隨時(shí)跳出 Do…Loop 循環(huán)。 循環(huán)的嵌套 在一個(gè)循環(huán)體內(nèi)又包含了另一個(gè)循環(huán)結(jié)構(gòu)的循環(huán)，稱為循環(huán)的嵌套
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1