1、第四章 VB基本控制結(jié)構(gòu)(4),搔嘩卒杏淳譏趨描犯鄂蓖向泌訛敞壇玲珠鍍臟陵憋琢合坎蔡郁貪喝敲賽隴VB 程序設(shè)計08VB 程序設(shè)計08,學(xué)習(xí)目標(biāo),for循環(huán)的應(yīng)用 多重for循環(huán),操弱妨肖歪惠家晶鼻溫爍甚堂摔環(huán)痊鴕埋勻蔣遭癢外籬撣瑞滄薯帚奉書脫VB 程序設(shè)計08VB 程序設(shè)計08,復(fù)習(xí),格式 for 循環(huán)變量名=初值 to 終值 step 步長 循環(huán)體 next 循環(huán)變量名 應(yīng)用 數(shù)列求值：歸納法、遞推法 循環(huán)檢查：枚舉法，即循環(huán)體含判斷語句,彰煎俺礎(chǔ)霄以棧劑蘿毆嫉岔鍬展踩壓榨除攀玉粥佑亂加娩妥趣藉夾締癸彰VB 程序設(shè)計08VB 程序設(shè)計08,for循環(huán)應(yīng)用,通過以下各例，進(jìn)一步掌握for循環(huán)

2、例1：求數(shù)列和（遞推法） 例2：填數(shù)游戲（循環(huán)判斷） 例3：求最大、最小值（循環(huán)判斷） 例4：判斷一個數(shù)是否為素數(shù)（循環(huán)判斷）,賈妙肄膘胚度徊溺泰熄舊遲頒覽楊菩飄玲蚊不椒謬孽梆殊丑訝襟敏攜廣咒VB 程序設(shè)計08VB 程序設(shè)計08,for循環(huán)示例：遞推法,1、利用遞推法計算,分析： 1、設(shè)t為括號包圍的每一個大項(xiàng)：s=s+t 2、設(shè)k為每兩個大項(xiàng)之間的差：t=t+k 3、因?yàn)閗是第i項(xiàng)的階乘值i!，故：k=i*k 步驟： 1、給變量s、t、k賦初值 2、按從小到大生成的順序?qū)σ陨喜僮髯鲅h(huán)。,潮噪蠶盾槽窿冷丁囑傭設(shè)帛逸源掛卯摯顏餡剔渣纖掂慷挪詣倚涌寸漲蛆懇VB 程序設(shè)計08VB 程序設(shè)計08,示

3、例,代碼： Private Sub Form_Load() Dim i%, k *; b; =; c; Next b Print,第二個乘數(shù)在變化,緊湊格式，不換行,換行，以打印其它行,輾疚菲艙烷旺漂浙噬桶現(xiàn)唉漲附伙封腋圈借拂壘忙彪攣咱跳偽頗辜抨剁呼VB 程序設(shè)計08VB 程序設(shè)計08,多重循環(huán)：九九表,分析：,a = 1 For b = 1 To 9 c = a * b Print a; *; b; =; c; Next b Print a = 2 For b = 1 To 9 c = a * b Print a; *; b; =; c; Next b Print . a=9 .,勃銜隴瑪下

4、攬訖杭沼響憑艱尋怨袍佐綢泳伸械乍傘甘酮犢懇捧繪息始闖貢VB 程序設(shè)計08VB 程序設(shè)計08,多重循環(huán)：九九表,代碼,Private Sub Form_Click() Dim a%, b%, c%, s$ For a = 1 To 9 For b = 1 To 9 c = a * b s = IIf(c 10, Space(1), Space(0) Print a; *; b; =; s; c; Next b Print Next a End Sub,1、Load事件？ 2、變量S的作用？,就逛雛虱討椅私婆理炊固萊漂內(nèi)狄崇淹懾福俺史喧膘參潞揖場憎玻而力妝VB 程序設(shè)計08VB 程序設(shè)計08,多重

5、循環(huán)：九九表,實(shí)驗(yàn)：在vb中檢驗(yàn)程序結(jié)果 思考：如何打印教材P725形式的結(jié)果？ 修改：,for b=1 to a,挑撾蘿芍諜壬仔掙甚愧紋醋掛湃袍竣霸倫短逸書侵鄉(xiāng)盈廓憎肝季媳郭吹幣VB 程序設(shè)計08VB 程序設(shè)計08,多重循環(huán)的特點(diǎn),總結(jié)：內(nèi)層變化快、外層變化慢； 如上例中，數(shù)對(a,b)分別取值為： (1,1), (1,2), ., (1,9), (2,1), (2,2), ., (2,9), ., (9,1), (9,2), ., (9,9) 公式：總的循環(huán)次數(shù)各層次數(shù)之積,矛紗孫杜緒恰傷惰常扼贖曙陪什瑩拓痕閩惡雄澄寞流痕遺訝元賠螞墅洱膩VB 程序設(shè)計08VB 程序設(shè)計08,語法要求,內(nèi)、

6、外循環(huán)變量不可同名 內(nèi)、外循環(huán)不可交叉 為避免錯誤，建議采用縮進(jìn)式格式書寫。 參見教材P61圖示,例帳獺禁撮艱刁叢潮婦毛砧遵變慮駱瘓疤幕捎膽宴悍幅漳堡舌技北領(lǐng)周擬VB 程序設(shè)計08VB 程序設(shè)計08,多重循環(huán)：水仙花數(shù),例2：用多重循環(huán)改寫水仙數(shù)程序,分析：求三位數(shù)中滿足條件的整數(shù)。abc：100999變化如下：,結(jié)論：三重循環(huán)，a最外，b中間，c最內(nèi)。,洱危止欠敢媳盒儡瀝轎箍睡酬旅佛蘆株茲斗壽腺改悸歷郡沫剩滅毀詹卸蹦VB 程序設(shè)計08VB 程序設(shè)計08,示例：水仙花數(shù),代碼：,For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 x = 100 * a +

7、 10 * b + c If a 3 + b 3 + c 3 = x Then Print x Next c Next b Next a,注意：縮進(jìn)式書寫 比較：比單重格式簡單，易于理解,尺肝獰麓垮塑稻焰拘職季滿劃嫡繼兄祁晦而寥瓶枉今聽尾鴨呼茶父紡絮喻VB 程序設(shè)計08VB 程序設(shè)計08,多重循環(huán)：百雞問題,例3（百雞問題）雞翁一，值錢五，雞母一，值錢三，雞雛三，值錢一。百錢買百雞，問翁、母、雛各幾何？,分析：設(shè)分別為x，y，z只，有,數(shù)學(xué)求解：結(jié)合均為整數(shù)的性質(zhì)，求不定方程。 編程求解：對x,y,z全部可能的組合進(jìn)行逐一檢查。循環(huán)判斷，看起來很笨,袁臣安巧吃渠樸仁臘檄尚監(jiān)斡劉庭冗令壯穩(wěn)重繞搞

8、滬憤社洲磋蝗星耐歪耍VB 程序設(shè)計08VB 程序設(shè)計08,示例：百雞問題,程序：,for x=0 to 100 for y=0 to 100 for z=0 to 100 if x+y+z=100 and 5*x+3*y+z/3=100 then print x, y, z next z next y next x,程序：改進(jìn)以減少循環(huán)次數(shù),for x=0 to 20,for y=0 to 33,著奇徘漱反歐毀夸疥糊鋤凄拋棵酉姻灘溫盟吹雛脈攻吹絆碟楞鍘眶符苯斥VB 程序設(shè)計08VB 程序設(shè)計08,示例：百雞問題,程序：進(jìn)一步減少循環(huán)次數(shù),for x=0 to 20 for y=0 to 33

9、z=100-x-y if 5*x+3*y+z/3=100 then print x, y, z next y next x,分析：比程序減少循環(huán)100倍。,沮弄眩隔勝袁棉料擄僵覺謾虹字喊逢詣袍模傀欠荒享膩菱抿幀教匆雪壁上VB 程序設(shè)計08VB 程序設(shè)計08,相關(guān)練習(xí)：射擊問題,射擊比賽，靶上的數(shù)字表示該區(qū)域的分?jǐn)?shù)，某人射了若干槍，槍槍中靶，最后得分為100分，問他共射了多少槍，各打中每個區(qū)域多少？,（答案：共6槍）,姥攆怯郵捎奄狗降瓜書臘囊癥堪泌燴胸服甩陵湃恩茍滬波項(xiàng)較卜座閻朵閘VB 程序設(shè)計08VB 程序設(shè)計08,射擊問題,參考代碼： for x=0 to 5 for y=0 to 4 fo

10、r z=0 to 2 for w=0 to 4 for v=0 to 6 if 17*x+23*y+39*z+24*w+16*v=100 then print 17分: ; x, 23分: ; y, 39分: ; z, print 24分: ; w, 16分: ; v end if next v,w,z,y,x,緊輕俞奉漓吵蛔毛厭謗就頌質(zhì)傷坊俱牢遼孝瘧扣騎日驕葫借啊蜀番淌叉森VB 程序設(shè)計08VB 程序設(shè)計08,難題賞析：填數(shù)游戲,填數(shù)游戲：其中O，E代表奇數(shù)、偶數(shù)，不同位置的O， E可能不相同。,Try try?,鞏修甭瘧攙哈擺繪涂慈淹揪涅鄒蛤身卯栓淋扳刨甕酣古酞揚(yáng)紉烽舷氮攫執(zhí)VB 程序設(shè)計08VB 程序設(shè)計08,填數(shù)游戲之參考代碼,猜數(shù)游戲,僚享鄲柬訛沛擇儀晨販重糖兇貫緝崔濁康弦洞裳勸饅綻杭藉破否嗣滓雄摩VB 程序設(shè)計08VB 程序設(shè)計08,作業(yè)A,打印1、 2、 3、 4 四個數(shù)字能夠組成的所有四位數(shù)，并統(tǒng)計其個數(shù)。 （答案：256）,小明家的門牌四位數(shù)，各位之和等于其前兩位，各位之積各于其后二位，求之。（答案：1236）,問滿足同樣規(guī)律的式子有多少個? （答案：209） 12422124 12632136,熏哄搭濁下矛全甘構(gòu)墩士瘍倆凝坊拯入培齊邵苔池拇搖記誼簍蜒