2.4程序的循環(huán)結(jié)構(gòu)

案例：超級(jí)水稻種植試驗(yàn)的統(tǒng)計(jì)分析

袁隆平院士是我國(guó)著名的雜交水稻專(zhuān)家。他主持研究的超級(jí)水稻，每公頃產(chǎn)量能達(dá)14000公斤以上，居世界領(lǐng)先地位，被譽(yù)為“超級(jí)水稻之父”。他在研究實(shí)驗(yàn)超級(jí)水稻時(shí)，經(jīng)常要開(kāi)展在不同因素環(huán)境下的種植試驗(yàn)，對(duì)試驗(yàn)得到的大量數(shù)據(jù)進(jìn)行統(tǒng)計(jì)分析，從中找出規(guī)律，培育出更高產(chǎn)、更優(yōu)質(zhì)的水稻。陳婷是一個(gè)生物迷，她與同組的李明和張軍一起參加了學(xué)校的水稻種植研究性學(xué)習(xí)活動(dòng)。在活動(dòng)中，需要對(duì)多種因素不同水平（如不同的溫度、濕度、地壤酸堿度等）的影響下水稻生長(zhǎng)情況進(jìn)行觀(guān)察，收集數(shù)據(jù)，并進(jìn)行統(tǒng)計(jì)分析和研究，從中篩選出適合各種因素水平的種子。陳婷提出：能否利用計(jì)算機(jī)對(duì)水稻種植試驗(yàn)的大量數(shù)據(jù)進(jìn)行統(tǒng)計(jì)分析呢？水平第1次第2次第3次第4次第5次水平19081099790886845水平2509699843755788水平398711009551020995……問(wèn)題：現(xiàn)已知某個(gè)因素的幾種水平5次試驗(yàn)的畝產(chǎn)量，求各種水平環(huán)境下的平均畝產(chǎn)量。1、分析問(wèn)題

求各種水平影響下5次試驗(yàn)的平均畝產(chǎn)量，實(shí)際上就是一個(gè)簡(jiǎn)單重復(fù)求5次試驗(yàn)的平均畝產(chǎn)量問(wèn)題。

公式為：Average=(Crop1+Crop2+Crop3+Crop4+Crop5)/5

因此，只要輸入水平數(shù)M，重復(fù)計(jì)算M次就行。2、設(shè)計(jì)算法

①輸入水平數(shù)M

②對(duì)于每一個(gè)I（I=1，2,…M）重復(fù)③④⑤

③輸入5次的實(shí)驗(yàn)畝產(chǎn)量Crop1-Crop5

④計(jì)算Average=(Crop1+Crop2+Crop3+Crop4+Crop5)/5

⑤輸入水平數(shù)I的平均畝產(chǎn)量Average流程圖：開(kāi)始輸入M的值重復(fù)計(jì)算M次數(shù)據(jù)輸入數(shù)據(jù)求平均值輸出結(jié)果結(jié)束定義M、I等量的數(shù)據(jù)類(lèi)型案例：超級(jí)水稻種植試驗(yàn)的統(tǒng)計(jì)分析

3、編寫(xiě)程序

PrivateSubCommand1_Click()

DimIAsInteger,MAsInteger

DimCrop1AsSingle,Crop2AsSingle,Crop3AsSingle

DimCrop4AsSingle,Crop5AsSingle

DimAverageAsSingle

M=InputBox("請(qǐng)輸入水平數(shù)M：")

ForI=1ToM

Crop1=Val(InputBox("請(qǐng)輸入第一次實(shí)驗(yàn)的畝產(chǎn)量："))

Crop2=Val(InputBox("請(qǐng)輸入第二次實(shí)驗(yàn)的畝產(chǎn)量："))

Crop3=Val(InputBox("請(qǐng)輸入第三次實(shí)驗(yàn)的畝產(chǎn)量："))

Crop4=Val(InputBox("請(qǐng)輸入第四次實(shí)驗(yàn)的畝產(chǎn)量："))

Crop5=Val(InputBox("請(qǐng)輸入第五次實(shí)驗(yàn)的畝產(chǎn)量："))

Average=(Crop1+Crop2+Crop3+Crop4+Crop5)/5

Print"水平";I;"的平均畝產(chǎn)量Average=";Average

NextI

EndSub4、調(diào)試程序

FOR循環(huán)語(yǔ)句的格式的基本格式是：

For

循環(huán)變量=初值

To

終值

Step

步長(zhǎng)值

語(yǔ)句組

Next循環(huán)變量FOR循環(huán)語(yǔ)句說(shuō)明：

（1）循環(huán)變量是數(shù)值型變量；

（2）初值、終值、步長(zhǎng)均為數(shù)值表達(dá)式；

（3）當(dāng)初值<終值時(shí)，步長(zhǎng)應(yīng)為正數(shù)；當(dāng)初值>終值時(shí)，步長(zhǎng)應(yīng)為負(fù)數(shù)；如省略Step，則步長(zhǎng)為1；

（4）語(yǔ)句組可是一個(gè)或多個(gè)語(yǔ)句，也稱(chēng)為循環(huán)體

（5）循環(huán)次數(shù)=（終值-初值）/步長(zhǎng)+1

的整數(shù)部分。FOR循環(huán)語(yǔ)句的格式的基本格式是：

For

循環(huán)變量=初值

To

終值

Step

步長(zhǎng)值

語(yǔ)句組

Next循環(huán)變量FOR循環(huán)語(yǔ)句For循環(huán)語(yǔ)句的執(zhí)行過(guò)程

（1）循環(huán)變量被賦初值；

（2）判斷循環(huán)變量是否超過(guò)終值，如果超過(guò)，則退出循環(huán)執(zhí)行NEXT后的語(yǔ)句；如沒(méi)超過(guò)則繼續(xù)執(zhí)行循環(huán)體；

（3）遇到NEXT語(yǔ)句，則循環(huán)變量增加一個(gè)步長(zhǎng)，轉(zhuǎn)（2），繼續(xù)循環(huán)體。循環(huán)變量=初值循環(huán)變量是否超過(guò)終值執(zhí)行循環(huán)體循環(huán)變量增加一個(gè)步長(zhǎng)NoYes實(shí)踐

問(wèn)題1：求1000以?xún)?nèi)所有正整數(shù)的和。

Private

Sub

Command_Click()

S=0ForI=2To1000

Step

2

S=S+INext

IPrint

SEnd

Sub水平第1次第2次第3次……第N次水平19081099790845水平2509699843788……水平M9871100955995問(wèn)題：現(xiàn)已知某個(gè)因素的M種水平N次試驗(yàn)的畝產(chǎn)量，求各種水平環(huán)境下的平均畝產(chǎn)量。PrivateSubCommand1_Click()

M=InputBox("請(qǐng)輸入水平數(shù)M：")

N=InputBox("請(qǐng)輸入試驗(yàn)的次數(shù)N：")

ForI=1ToM

Sum=0

ForJ=1ToN

Crop=Val(InputBox("請(qǐng)輸入第"+Str$(J)+"次實(shí)驗(yàn)的畝產(chǎn)量："))

Sum=Sum+Crop

NextJ

Average=Sum/N

Print"水平";I;"的平均畝產(chǎn)量Average=";Average

NextI

EndSubFor

循環(huán)變量1=初值

To

終值

Step

步長(zhǎng)值

For

循環(huán)變量2=初值

To

終值

Step

步長(zhǎng)值

語(yǔ)句組

Next循環(huán)變量2

Next循環(huán)變量1FOR循環(huán)語(yǔ)句的循環(huán)嵌套多重循環(huán)的原則：

外層循環(huán)與內(nèi)層循環(huán)必須層層相套，循環(huán)體之間不能交叉。課外拓展

1、求