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

2、 循環(huán)體 LOOP,如：我從0歲到1歲每天吃飯用while表示？,注意： 1、定義初值 2、確定條件表達(dá)式 3、寫循環(huán)體（循環(huán)體中要有能改變循環(huán)條件的語句）,i=0 do while i=364 吃飯 i=i+1 loop,For I=0 to 364 step 1吃飯next i,.,4,例1、s=1+1/2+1/3+1/4+1/n， 當(dāng)n=?時(shí)，s第一次大于10,Do While 條件表達(dá)式 循環(huán)體 Loop Do While.Loop語句的功能： 當(dāng)條件成立(為真)時(shí)，執(zhí)行循環(huán)體；當(dāng)條件不成立(為假時(shí))，終止循環(huán),程序： S=0 n=0 do while （ ） n=n+1 s=s+1/

3、n loop msgbox n,特征：無法預(yù)先知道循環(huán)的次數(shù)，在遞推過程中才能確定是否結(jié)束循環(huán),s=10,.,5,利用DO循環(huán)寫程序要點(diǎn)：,（1）首先要確定初值,（2）確定滿足循環(huán)條件的表達(dá)式（邏輯型）,（3）寫循環(huán)體，在循環(huán)體中一定要有能改變循環(huán)條件變量的表達(dá)式,說明：For循環(huán)只能用在循環(huán)次數(shù)已知的情況；凡是用FOR循環(huán)的程序都可以用DO循環(huán)來寫；而循環(huán)次數(shù)未知時(shí)，只能用DO循環(huán)。,.,6,上機(jī)實(shí)踐：津津?qū)?0000元錢存入銀行，銀行的年利率為1分（即10%），如一直不取出，問按照利滾利的計(jì)算方法，至少經(jīng)過多少年津津才能拿到150000元？,Dim s as single, year as

4、 integer s = 10000 year = 0 Do While _ _ s = s * (1 + 0.1) Loop MsgBox year,分析： 第一年： S1=10000*(1+0.1) 第二年： S2=S1*(1+0.1) 第三年： S3=S2*(1+0.1) ,year = year + 1,S150000,.,7,枚舉算法,.,8,水仙花問題：,春天是鮮花的季節(jié)，水仙花就是其中最迷人的代表，數(shù)學(xué)上有個水仙花數(shù)，他是這樣定義的：“水仙花數(shù)”是指一個三位數(shù)，它的各位數(shù)字的立方和等于其本身，比如：153=13+53+33?，F(xiàn)在要求輸出所有在100和999范圍內(nèi)的水仙花數(shù)。,.,

5、9,分析：,設(shè)三位數(shù)i，百位數(shù)為a,十位數(shù)為b，個位數(shù)為c 初始值i=100 枚舉范圍：i=999 滿足條件：i=a3+b3+c3,思考：如何取出三位數(shù)的每位數(shù)字？,.,10,流程圖,程序代碼,Private Sub Command1_Click() Dim I, a, b, c As Integer I = 100 Do 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 Tex

6、t1.Text = Str(n) End Sub,.,11,列表框,列表框的功能：多列顯示。,.,12,列表框?qū)傩?Additem方法：增加新項(xiàng)目如: list1 . Additem str(4) removeitem方法：刪除項(xiàng)目，小心：列表框第一個序號是 如： litst1.removeitem 4 clear方法：清除所有項(xiàng)目 如：list1.clear,控件方法使用格式：控件名.方法值說明：可以沒有值,.,13,控件名稱：image 圖片框 功能：可以加載圖片、顯示文字、畫圖外，它還能與 Frame對象一樣，在自己本身里頭加載其它的對象而自成一個小群組 屬性：picture(加載圖片） stretch(返回或設(shè)置一個值，該值用來指定一個圖形是否要調(diào)整大小，以適應(yīng)與 Image 控件的大小。True 表示圖形要調(diào)整大小以與控件相適合。 False （缺省值）表示控件要調(diào)整大小以與圖形相適。,image,.,14,什么是枚舉？,現(xiàn)實(shí)世界中有一類問題可以采用搜索的方法，