VB程序設(shè)計do循環(huán)實例

1、課前回顧：課前回顧：FOR語句格式：語句格式： For 循環(huán)變量循環(huán)變量 = 初值初值 to 終值終值 step 步長步長 循環(huán)體循環(huán)體 Next 循環(huán)變量循環(huán)變量x=0For i=1 to 20 if (i mod 2=0) and (i mod 3=0) then x=x+i end ifNext iPrint xS=0For k= 3 to 5 S=s+3Next kPrint s練習(xí)(學(xué)業(yè)水平測試題)1、s=1+1/2+1/3+1/4+1/n，當，當n=?時，時，s第第一次大于一次大于10。 請同學(xué)們仔細觀察，用曾經(jīng)學(xué)過的程序設(shè)請同學(xué)們仔細觀察，用曾經(jīng)學(xué)過的程序設(shè)計的方法能解決這兩個問

2、題嗎？計的方法能解決這兩個問題嗎？想一想：想一想：流程圖流程圖表達式是否為真循環(huán)體循環(huán)體LOOPyn如：我從如：我從0歲到歲到1歲每天吃飯用歲每天吃飯用while表示？表示？注意：注意： 1、定義初值、定義初值 2、確定條件表達式、確定條件表達式 3、寫循環(huán)體（循環(huán)體中要有能改變循環(huán)條件的語句）、寫循環(huán)體（循環(huán)體中要有能改變循環(huán)條件的語句）i=0 do while i=364 吃飯吃飯 i=i+1 loopFor I=0 to 364 step 1吃飯吃飯next i例例1、s=1+1/2+1/3+1/4+1/n，當當n=?時，時，s第一次大于第一次大于10 Do While 條件表達式條件表

3、達式 循環(huán)體循環(huán)體 Loop Do While.Loop語句的功能：語句的功能：當條件成立當條件成立(為真為真)時，執(zhí)行循時，執(zhí)行循環(huán)體；當條件不成立環(huán)體；當條件不成立(為假時為假時)，終止循環(huán)終止循環(huán)程序：程序：S=0n=0do while （ ） n=n+1 s=s+1/nloopmsgbox n累加器計數(shù)器特征：無法預(yù)先知道循環(huán)的次數(shù)，特征：無法預(yù)先知道循環(huán)的次數(shù)，在遞推過程中才能確定是否結(jié)束循在遞推過程中才能確定是否結(jié)束循環(huán)環(huán)s=10利用利用DO循環(huán)寫程序要點：循環(huán)寫程序要點：（1）首先要確定初值）首先要確定初值（2）確定滿足循環(huán)條件的表達式（邏輯型）確定滿足循環(huán)條件的表達式（邏輯型）

4、（3）寫循環(huán)體，）寫循環(huán)體，在循環(huán)體中一定要有能改在循環(huán)體中一定要有能改變循環(huán)條件變量的表達式變循環(huán)條件變量的表達式說明：For循環(huán)只能用在循環(huán)次數(shù)已知的情況；凡是用FOR循環(huán)的程序都可以用DO循環(huán)來寫；而循環(huán)次數(shù)未知時，只能用DO循環(huán)。上機實踐：上機實踐：津津?qū)⒔蚪驅(qū)?0000元錢存入銀行，銀行的年利率元錢存入銀行，銀行的年利率為為1分（即分（即10%），如一直不取出，問按照利滾利的計），如一直不取出，問按照利滾利的計算方法，至少經(jīng)過多少年津津才能拿到算方法，至少經(jīng)過多少年津津才能拿到150000元？元？Dim s as single, year as integers = 10000yea

5、r = 0Do While _ _ s = s * (1 + 0.1)LoopMsgBox year分析：分析：第一年：第一年： S1=10000*(1+0.1)第二年：第二年： S2=S1*(1+0.1)第三年：第三年： S3=S2*(1+0.1)year = year + 1S150000思考：如何取出三位數(shù)的每位數(shù)字？思考：如何取出三位數(shù)的每位數(shù)字？流程圖流程圖程序代碼程序代碼100=i=999a=i100b=i10 mod 10c=I mod 100i=a3+b3+c3輸出i是退出i=i+1Private Sub Command1_Click()Dim I, a, b, c As In

6、tegerI = 100Do While I = 999 a = I 100 b = I 10 Mod 10 c = I Mod 10 If I = a 3 + b 3 + c 3 Then n = n + 1 List1.AddItem Str(I) End If I = I + 1 Loop Text1.Text = Str(n)End Sub列表框列表框列表框的功能：多列顯示。Additem方法：增加新項目如方法：增加新項目如: list1 . Additem str(4)removeitem方法：刪除項目，小心：列表框第一個序號是方法：刪除項目，小心：列表框第一個序號是 如：如： litst1.removeitem 4clear方法：清除所有項目方法：清除所有項目 如：如：list1.clear控件方法使用格式：控件名控件方法使用格式：控件名.方法方法值值說明：可以沒有值說明：可以沒有值控件名稱：image 圖片框 功能：可以加載圖片、顯示文字、畫圖外，它還能與Frame對象一樣，在自己本身里頭加載其它的對象而自成一個小群組屬性：picture(加載圖片） stre