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

課前回顧：FOR語句格式：

For循環(huán)變量=初值to終值step步長循環(huán)體Next循環(huán)變量x=0Fori=1to20if(imod2=0)and(imod3=0)thenx=x+iendifNextiPrintxS=0Fork=3to5S=s+3NextkPrints練習(xí)(學(xué)業(yè)水平測(cè)試題)1精選課件ppt1、s=1+1/2+1/3+1/4+…1/n，當(dāng)n=?時(shí)，s第一次大于10。

請(qǐng)同學(xué)們仔細(xì)觀察，用曾經(jīng)學(xué)過的程序設(shè)計(jì)的方法能解決這兩個(gè)問題嗎？想一想：2精選課件pptdo循環(huán)語句：

Dowhile條件表達(dá)式

循環(huán)體

LOOP流程圖表達(dá)式是否為真循環(huán)體

LOOPyn如：我從0歲到1歲每天吃飯用while表示？注意：1、定義初值

2、確定條件表達(dá)式

3、寫循環(huán)體（循環(huán)體中要有能改變循環(huán)條件的語句）i=0

dowhilei<=364

吃飯

i=i+1

loopForI=0to364step1

吃飯

nexti3精選課件ppt例1、s=1+1/2+1/3+1/4+…1/n，當(dāng)n=?時(shí)，s第一次大于10

DoWhile條件表達(dá)式

循環(huán)體Loop

DoWhile...Loop語句的功能：當(dāng)條件成立(為真)時(shí)，執(zhí)行循環(huán)體；當(dāng)條件不成立(為假時(shí))，終止循環(huán)程序：S=0n=0dowhile（）n=n+1s=s+1/nloopmsgboxn累加器計(jì)數(shù)器特征：無法預(yù)先知道循環(huán)的次數(shù)，在遞推過程中才能確定是否結(jié)束循環(huán)s<=104精選課件ppt利用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)。5精選課件ppt上機(jī)實(shí)踐：津津?qū)?0000元錢存入銀行，銀行的年利率為1分（即10%），如一直不取出，問按照利滾利的計(jì)算方法，至少經(jīng)過多少年津津才能拿到150000元？Dimsassingle,yearasintegers=10000year=0DoWhile_____________________s=s*(1+0.1)LoopMsgBoxyear分析：第一年：S1=10000*(1+0.1)第二年：S2=S1*(1+0.1)第三年：S3=S2*(1+0.1)…year=year+1S<1500006精選課件ppt枚舉算法7精選課件ppt水仙花問題：春天是鮮花的季節(jié)，水仙花就是其中最迷人的代表，數(shù)學(xué)上有個(gè)水仙花數(shù)，他是這樣定義的：

“水仙花數(shù)”是指一個(gè)三位數(shù)，它的各位數(shù)字的立方和等于其本身，比如：153=1^3+5^3+3^3。

現(xiàn)在要求輸出所有在100和999范圍內(nèi)的水仙花數(shù)。8精選課件ppt分析：設(shè)三位數(shù)i，百位數(shù)為a,十位數(shù)為b，個(gè)位數(shù)為c初始值i=100枚舉范圍：i<=999滿足條件：i=a^3+b^3+c^3思考：如何取出三位數(shù)的每位數(shù)字？9精選課件ppt流程圖程序代碼100<=i<=999a=i\100b=i\10mod10c=Imod100i=a^3+b^3+c^3輸出i是退出i=i+1PrivateSubCommand1_Click()DimI,a,b,cAsIntegerI=100DoWhileI<=999a=I\100b=I\10Mod10c=IMod10IfI=a^3+b^3+c^3Thenn=n+1List1.AddItemStr(I)EndIfI=I+1LoopText1.Text=Str(n)EndSub10精選課件ppt列表框列表框的功能：多列顯示。11精選課件ppt列表框?qū)傩訟dditem方法：增加新項(xiàng)目如:list1.Additemstr(4)removeitem方法：刪除項(xiàng)目，小心：列表框第一個(gè)序號(hào)是０如：litst1.removeitem4clear方法：清除所有項(xiàng)目如：list1.clear控件方法使用格式：控件名.方法[值]說明：可以沒有值12精選課件ppt控件名稱：image圖片框

功能：可以加載圖片、顯示文字、畫圖外，它還能與Frame對(duì)象一樣，在自己本身里頭加載其它的對(duì)象而自成一個(gè)小群組屬性：picture(加載圖片）stretch(返回或設(shè)置一個(gè)值，該值用來指定一個(gè)圖形是否要調(diào)整大小，以適應(yīng)與Image控件的大小。

True表示圖形要調(diào)整大小以與控件相適合。

False（缺省值）表示控件要調(diào)整大小以與圖形相適。image13精選課件ppt什么是枚舉？現(xiàn)實(shí)世界中有一類問題可以采用搜索的方法，在搜索結(jié)果的過