2.4 程序的循環(huán)結(jié)構(gòu),袁隆平 Yuan Longping (1930.9.7 -) 出生于北平，1953年畢業(yè)于西南農(nóng)學(xué)院。1964年開始研究雜交水稻，1973年實(shí)現(xiàn)三系配套，1974年育成第一個(gè)雜交水稻強(qiáng)優(yōu)組合南優(yōu)2號，1975年研制成功雜交水稻制種技術(shù)，從而為大面積推廣雜交水稻奠定了基礎(chǔ)。1985年提出雜交水稻育種的戰(zhàn)略設(shè)想，為雜交水稻的進(jìn)一步發(fā)展指明了方向。1987年任863計(jì)劃兩系雜交稻專題的責(zé)任專家，1995年研制成功兩系雜交水稻，1997年提出超級雜交稻育種技術(shù)路線，2000年實(shí)現(xiàn)了農(nóng)業(yè)部制定的中國超級稻育種的第一期目標(biāo)，2004年提前一年實(shí)現(xiàn)了超級稻第二期目標(biāo)。1995年當(dāng)選為中國工程院院士。先后獲得“國家特等發(fā)明獎”、“首屆最高科學(xué)技術(shù)獎”等多項(xiàng)國內(nèi)獎項(xiàng)和聯(lián)合國“科學(xué)獎”、“沃爾夫獎”、“世界糧食獎”等11項(xiàng)國際大獎。出版中、英文專著6部，發(fā)表論文60余篇。,已知某個(gè)因素M種水平5次試驗(yàn)的畝產(chǎn)量如下表所示，求各種水平影響下的平均畝產(chǎn)量。,某個(gè)因素M種水平5次試驗(yàn)的畝產(chǎn)量（單位：千克）,1、分析問題,求各種水平影響下5次試驗(yàn)的平均畝產(chǎn)量，實(shí)際上就是一個(gè)簡單重復(fù)求5次試驗(yàn)的平均畝產(chǎn)量問題。5次試驗(yàn)的平均畝產(chǎn)量可為 Average=(Crop1+Crop2Crop3+Crop4+Crop5)/5 所以，只要輸入水平數(shù)M，重復(fù)計(jì)算M次就可以了。,2、設(shè)計(jì)算法,輸入水平數(shù)M。,對于每一個(gè)I(I=1,2,3M)做如下第步 輸入第一次實(shí)驗(yàn)的畝產(chǎn)量Crop1. 輸入第二次實(shí)驗(yàn)的畝產(chǎn)量Crop2. 輸入第三次實(shí)驗(yàn)的畝產(chǎn)量Crop3. 輸入第四次實(shí)驗(yàn)的畝產(chǎn)量Crop4. 輸入第五次實(shí)驗(yàn)的畝產(chǎn)量Crop5.,計(jì)算Average=(Crop1+Crop2+Crop3+Crop4+Crop5)/5的值。,輸出水平數(shù)I的平均畝產(chǎn)量Average。,結(jié)束,循環(huán)結(jié)構(gòu)：根據(jù)條件判斷是否成立，如果條件成立則重復(fù)執(zhí)行循環(huán)結(jié)構(gòu)中某語句序列功能，直到條件不成立，退出循環(huán)結(jié)構(gòu)為止。,循環(huán)的本質(zhì)：不斷地重復(fù)某種動作,在VB語言中，用于循環(huán)結(jié)構(gòu)程序設(shè)計(jì)的語句有For循環(huán)語句和Do循環(huán)語句。,For循環(huán)語句主要用于描述預(yù)先知道循環(huán)次數(shù)的循環(huán)結(jié)構(gòu)，是一種計(jì)數(shù)循環(huán)；Do循環(huán)語句是根據(jù)條件是否滿足而決定循環(huán)是否繼續(xù)進(jìn)行。,1、 循環(huán)語句格式 For 循環(huán)變量=初值 To 終值 step 步長 語句組 next 循環(huán)變量,For循環(huán)語句,（1）循環(huán)變量為數(shù)值型變量。 （2）初值、終值、步長均為數(shù)值表達(dá)式。 （3）當(dāng)初值小于終值時(shí)，步長應(yīng)為正數(shù)；當(dāng)初值大于終值時(shí)，步長應(yīng)為負(fù)數(shù)；如果省略Step，則步長為1。 （4）語句組可以是一個(gè)或者多個(gè)語句，又稱作循環(huán)體。 （5）循環(huán)體執(zhí)行的次數(shù)為（終值初值）/步長1的整數(shù)部分。,Private Sub Command1_Click(),M = InputBox(“請輸入水平數(shù)M：“),For I = 1 To M,Crop1 = Val(InputBox(“請輸入第一次實(shí)驗(yàn)的畝產(chǎn)量：“) Crop2 = Val(InputBox(“請輸入第二次實(shí)驗(yàn)的畝產(chǎn)量：“) Crop3 = Val(InputBox(“請輸入第三次實(shí)驗(yàn)的畝產(chǎn)量：“) Crop4 = Val(InputBox(“請輸入第四次實(shí)驗(yàn)的畝產(chǎn)量：“) Crop5 = Val(InputBox(“請輸入第五次實(shí)驗(yàn)的畝產(chǎn)量：“),Average = (Crop1 + Crop2 + Crop3 + Crop4 + Crop5) / 5,Print “水平“; I; “ 的平均畝產(chǎn)量Average=“; Average,Next I,End Sub,2、For循環(huán)語句的執(zhí)行過程,For,Next,Do循環(huán)語句,1、Do循環(huán)語句的基本格式 Do 循環(huán)體 Loop Until 循環(huán)終止條件,其中：循環(huán)體是一組VB語句；循環(huán)終止條件是一個(gè)邏輯表達(dá)式。,2、Do語句的執(zhí)行過程,練習(xí)：用Do循環(huán)語句設(shè)計(jì)求“100以內(nèi)能被3整除的所有正整數(shù)”的VB程序。,Private Sub Command1_Click( ),i=1,Do,If i Mod 3 = 0 Then Print i,i=i+1,Loop Until i100,End Sub,實(shí)踐： P52、,For _To _,Sum = 0 For i = 1 To 100 Sum = Sum + i Next i Print “sum=“; Sum,