1、2.4 程序的循環(huán)結(jié)構(gòu),2019年4月,學(xué)習(xí)目標,理解循環(huán)結(jié)構(gòu)的基本思想。 掌握用Do循環(huán)語句的格式、功能和執(zhí)行過程。 學(xué)會使用VB語言的Do循環(huán)語句來實現(xiàn)循環(huán)控制結(jié)構(gòu)，解決實際問題。,韓信點兵,循環(huán)結(jié)構(gòu),循環(huán)結(jié)構(gòu)是程序設(shè)計中的一種基本結(jié)構(gòu)。當程序中出現(xiàn)需要反復(fù)執(zhí)行相同的代碼解決同一問題時，就可以用循環(huán)結(jié)構(gòu)來實現(xiàn)。循環(huán)結(jié)構(gòu)既可以簡化程序，又可以提高程序的效率。,循環(huán)結(jié)構(gòu),循環(huán):是在指定的條件下多次重復(fù)執(zhí)行一組語句。VB繼承了所有Basic語言中的各種循環(huán)語句，而且在VB中實現(xiàn)循環(huán)結(jié)構(gòu)的語句最多。,1. For Next,2. DoLoop,1. While循環(huán), Do While 循環(huán)體 Lo

2、op,執(zhí)行過程:（先判斷，后執(zhí)行） 先判斷循環(huán)條件, 若為真:執(zhí)行循環(huán)體,再判斷循環(huán)條件 否則，跳過循環(huán)體,執(zhí)行Loop之后語句,DoLoop循環(huán), Do While 循環(huán)體 Loop,Dim I, s As Integer For I = 1 To 10 s = s + I Next I Print I, s,例1:求1+2+3+4+10的和.,Dim I,s As Integer I=1 Do While Loop Print I,s,s=s+I,I=10,I=I+1,I=11,(1)循環(huán)體執(zhí)行了幾次? (2)沒有I=1會怎樣? (3)將Print語句移到Loop的 前面結(jié)果怎樣? (4)

3、I先賦值為11,結(jié)果如何?,1. While循環(huán),DoLoop循環(huán), D0 循環(huán)體 Loop While ,執(zhí)行過程:（先執(zhí)行，后判斷） 先執(zhí)行循環(huán)體,再判斷循環(huán)條件, 若為真， 繼續(xù)執(zhí)行循環(huán)體; 否則，結(jié)束循環(huán),執(zhí)行Loop之后語句,1. While循環(huán),DoLoop循環(huán), D0 循環(huán)體 Loop While ,例4:修改例3,Dim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s,Dim I,s As Integer I=1 Do s=s+I I=I+1 Loop While I=10 Print I,s,(1)循環(huán)體

4、執(zhí)行幾次？ (2)將I先賦值為11， 執(zhí)行結(jié)果如何?,1. While循環(huán),DoLoop循環(huán), Do While 循環(huán)體 Loop, D0 循環(huán)體 Loop While ,區(qū)別:(1)執(zhí)行順序不同 形式一:先判斷,后執(zhí)行循環(huán)體; 形式二:先執(zhí)行循環(huán)體,后判斷 (2)執(zhí)行次數(shù)不同（特殊情況下） 形式一:條件不滿足,循環(huán)體可能一次也不執(zhí)行 形式二:不論條件如何,至少執(zhí)行一次,1.While循環(huán),DoLoop循環(huán),Dim I, s As Integer I=1 Do While I=10 s = s + I I = I + 1 Loop Print I, s,例2: 求10！,Dim I, s As

5、 Integer I=1 Do While I=10 s = s * I I = I + 1 Loop Print I, s,例1:求1+2+3+4+ +10之和.,s=1 Do While I=10 s = s * I I = I + 1 Loop,Do While I=10 s=1 s = s * I I = I + 1 Loop,Long,練習(xí)1：用輾轉(zhuǎn)相除法求兩自然數(shù)m、n的最大公約數(shù)和最小公倍數(shù),分析： 最大公約數(shù) 已知兩數(shù)m、n m Mod n的值為r mn，nr 若r0 ，則重復(fù) 否則，循環(huán)結(jié)束，m為所求的最大公約數(shù) 最小公倍數(shù) 原兩個數(shù)相乘，再除以最大公約數(shù),DoLoop循環(huán),

6、執(zhí)行過程:（先判斷，后執(zhí)行） 先判斷循環(huán)條件： 條件為假: 執(zhí)行循環(huán)體, 然后再判斷條件. 條件為真: 跳過循環(huán)體, 執(zhí)行Loop之后語句, Do Until 循環(huán)體 Loop,2.Until循環(huán),DoLoop循環(huán),修改Until, Do Until 循環(huán)體 Loop,例5:修改上例,Dim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s,Dim I,s As Integer I=1 Do Until s=s+I I=I+1 Loop Print I,s,條件應(yīng)該如何寫出? 顯示的I、S值與 上例一樣嗎？,I10,DoLo

7、op循環(huán),2.Until循環(huán),執(zhí)行過程:（先執(zhí)行，后判斷） 后判斷循環(huán)條件： 條件為假: 繼續(xù)執(zhí)行循環(huán)體, 然后再判斷條件. 條件為真: 跳過循環(huán)體, 執(zhí)行Loop之后語句,2.Until循環(huán),DoLoop循環(huán), Do 循環(huán)體 Loop Until , Do Until 循環(huán)體 Loop, D0 循環(huán)體 Loop Until ,區(qū)別:(1)執(zhí)行順序不同 形式一:先判斷,后執(zhí)行循環(huán)體; 形式二:先執(zhí)行循環(huán)體,后判斷 (2)執(zhí)行次數(shù)不同（特殊情況下） 形式一:條件不滿足,循環(huán)體可能一次也不執(zhí)行 形式二:不論條件如何,至少執(zhí)行一次,1.While循環(huán),DoLoop循環(huán),幾種形式比較:,Do Whil

8、e 循環(huán)體 Loop（ While ）,Do Until 循環(huán)體 Loop（ Until ）,區(qū)別: While 條件為真時執(zhí)行循環(huán)體,否則退出循環(huán) Until 條件為假時執(zhí)行循環(huán)體,否則退出循環(huán),關(guān)系： while和Until可以相互轉(zhuǎn)換，但循環(huán)條件取反,DoLoop循環(huán),素數(shù) 最大公約數(shù) 最小公倍數(shù) 階乘 逆序 求一個數(shù)的因子 韓信點兵,常用算法復(fù)習(xí),Private Sub Command1_Click() Dim X As Integer, Y As Integer X = 1 Y = 0 Do If (X Mod 3 = 1) And (X Mod 5 = 1) And (X Mod 7 = 1) Then Y = X End If X = X + 1 Loop Print 點兵的人數(shù)為：; Y End Sub,Until Y 600,While Y = 600,小試牛刀,分組討論：用Do循環(huán)的四種形式各編寫一個程序，實現(xiàn)輸入一個大于2的自然數(shù)M，判斷這個自然數(shù)是否是素數(shù)。如果是素數(shù)，則輸出“這是一個素數(shù)！