2.4程序的循環(huán)結(jié)構(gòu)掌握For循環(huán)語(yǔ)句的基本格式理解For循環(huán)語(yǔ)句的執(zhí)行過(guò)程掌握循環(huán)變量在執(zhí)行過(guò)程中的變化情況能用For循環(huán)結(jié)構(gòu)編寫簡(jiǎn)單的程序?qū)嵗?、編程求1+2+3+…+10的和按照順序結(jié)構(gòu)編寫程序如下：PrivateSubCommand1_Click()dimsasintegers=0s=s+1s=s+2……s=s+10printsendsub用這種方法能不能編程求出1+2+3……+100的和，1+2+3……+1000的和？實(shí)際這10條賦值語(yǔ)句在重復(fù)著同一個(gè)操作，都是將s加一個(gè)數(shù)和賦給s,如果用變量x表示每一個(gè)加數(shù)，那么這10條語(yǔ)句就可以用一條表示：s=s+x，然后讓x的取值分別為1到10這10個(gè)自然數(shù)，重復(fù)執(zhí)行這條語(yǔ)句，就可以實(shí)現(xiàn)該程序的編寫。這就要用到循環(huán)結(jié)構(gòu)。2.4.1用For～Next語(yǔ)句建立循環(huán)結(jié)構(gòu)

用循環(huán)語(yǔ)句編寫：PrivateSubCommand1_Click()Dimsasinteger,xasintegerS=0ForX=1to10step1

S=S+XnextXprintSEndsub循環(huán)變量初值終值步長(zhǎng)循環(huán)體1、For－next循環(huán)語(yǔ)句的格式：用于建立已知循環(huán)次數(shù)的循環(huán)結(jié)構(gòu)

For循環(huán)變量=初值To終值Step步長(zhǎng)循環(huán)體Next循環(huán)變量2、For循環(huán)語(yǔ)句的功能：執(zhí)行For語(yǔ)句：先將初值賦給循環(huán)變量，并記住終值和步長(zhǎng)（兩數(shù)間隔）。然后進(jìn)行判斷，是否超出終值？如“超出”終值時(shí)，執(zhí)行Next下一語(yǔ)句，否則執(zhí)行循環(huán)體。執(zhí)行循環(huán)體

執(zhí)行Next語(yǔ)句：循環(huán)變量加步長(zhǎng)，返回重新判斷

2.4.2For循環(huán)語(yǔ)句的執(zhí)行過(guò)程練一練針對(duì)for循環(huán)語(yǔ)句的語(yǔ)句格式，設(shè)置如下練習(xí)，指出下面程序中的錯(cuò)誤:1、求1+2+3+4+5的和s=0fori=1to5step1s=s+inextjprints2、在VB窗體界面上輸出1~10這10個(gè)自然數(shù)forI=1to10printij-i循環(huán)變量的名稱要相同。

For語(yǔ)句與Next語(yǔ)句必須成對(duì)出現(xiàn)，而且僅只步長(zhǎng)為1時(shí)，才可以省略step1

3、求5+4+3+2+1的和s=0forI=5to1s=s+InextIprints4、求7+5+3+1的和：S=0ForI=7to1Step2S=S+INextIPrintS當(dāng)初值小于終值時(shí)，步長(zhǎng)為正數(shù)；當(dāng)初值大于終值時(shí)，步長(zhǎng)為負(fù)數(shù)；補(bǔ)充：1、循環(huán)變量必須為數(shù)值型，

初值、終值：都是數(shù)值型，可以是數(shù)值表達(dá)式。2、循環(huán)體：在For語(yǔ)句和Next語(yǔ)句之間的語(yǔ)句序列?？梢允且粭l語(yǔ)句，也可以是多條語(yǔ)句。Step－1－2問(wèn)題2求S=1+2+……+100和值分析

a、用循環(huán)產(chǎn)生1～100的自然數(shù)

b、每產(chǎn)生一個(gè)自然數(shù)將其累加到求和變量中

即：S=S+N

c、重復(fù)執(zhí)行S=S+N

即：循環(huán)體

d、打印和的值的語(yǔ)句應(yīng)在程序的末尾

即：Print"S=1+2+……+1000=";S

程序：PrivateSubCommand1_Click()

DimNasinteger,Sasinteger

S=0

ForN=1To100

S=S+N

NextN

Print"S=1+2+……+100=";S

EndSub

問(wèn)題3：一小球從200米高度自由下落，每次落地后反彈為原來(lái)高度的一半，然后再落下……，求該小球第十次落地時(shí)共經(jīng)過(guò)了多少米的路程？

分析：

設(shè)S表示小球經(jīng)過(guò)的路程變量

S=S+2H

H表示小球反跳的高度變量

H=H/2

I表示小球落地的次數(shù)變量

I=2To10PrivateSubCommand1_Click()DimHasinteger,Sasinteger,Iasinteger

S=200

H=S/2

For

I=2To10

S=S+2*H

H=H/2

Next

I

Print

"到第十次落地共經(jīng)過(guò)的路程是：";

S;"米"endsub問(wèn)題3：一小球從200米高度自由下落，每次落地后反彈為原來(lái)高度的一半，然后再落下……，求該小球第十次落地時(shí)共經(jīng)過(guò)了多少米的路程？

分析：

設(shè)S表示小球經(jīng)過(guò)的路程變量

S=S+H

H表示小球反跳的高度變量

H=H/2

I表示小球落地的次數(shù)變量

I=2To10PrivateSubCommand1_Click()DimHasinteger,Sasinteger,Iasinteger

S=200

H=S/2

For

I=2To10

S=S+2*H

H=H/2

Next

I

Print

"到第十次落地共經(jīng)過(guò)的路程是：";

S;"米"endsubPrivateSubCommand1_Click()DimSasinteger,IasintegerS=200ForI=2To10S=S+200*2*(0.5^(I-1))NextIPrint"到第十次落地共經(jīng)過(guò)的路程是：";S;"米"endsub問(wèn)題4：一小球從200米高度自由下落，每次落地后反彈為原來(lái)高度的一半，然后再落下……，求該小球多少次落地時(shí)經(jīng)過(guò)的路程大于600米呢？PrivateSubCommand1_Click()DimSasinteger,IasintegerS=200

I=2

dowhileS<600

S=S+200*2*(0.5^(I-1))I=I+1LoopPrint

“到“;I;”次時(shí)落地經(jīng)過(guò)的路程是超過(guò)600米"endsubPrivateSubCommand1_Click()DimSasinteger,IasintegerS=200

I=2

do

S=S+200*2*(0.5^(I-1))I=I+1LoopuntilS>600Print

“到“;I;”次時(shí)落地經(jīng)過(guò)的路程是超過(guò)600米"endsub2.4.4用Do語(yǔ)句建立循環(huán)結(jié)構(gòu)

1、Do語(yǔ)句的功能：用于建立循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)2、Do語(yǔ)句的格式：格式一（當(dāng)循環(huán)）

DoWhile<條件>

循環(huán)體

Loop

功能：執(zhí)行Do語(yǔ)句先判斷條件，當(dāng)條件滿足，則執(zhí)行循環(huán)體，然后執(zhí)行Loop語(yǔ)句就回到DoWhile再判斷，直到條件不滿足，跳出循環(huán)，執(zhí)行Loop下一語(yǔ)句。

S＝0N＝0DoWhileN<=10

S=S+1

N=N+1

Loop

Do語(yǔ)句的第二種格式（直到循環(huán)）

1、直到形循環(huán)格式

Do

循環(huán)體

Loopwhile<條件>

2、格式二功能：執(zhí)行Do語(yǔ)句，就進(jìn)入循環(huán)，直接執(zhí)行循環(huán)體，在判斷條件，當(dāng)條件滿足，回到上面執(zhí)行循環(huán)體，直到條件不滿足，跳出循環(huán)，執(zhí)行Loop下一語(yǔ)句。S=0

N=0

Do

N=N+1

S=S+N

LoopwhileN<100

三種循環(huán)求解S=1+2+……+100和值PrivateSubCommand1_Click()DimNAsinteger,SAsintegerS=0

ForN=1To100S=S+NNextNPrint“S＝";SEndSubPrivateSubCommand1_Click()DimsAsInteger,nAsIntegers=0n=0DoWhilen<=100s=s+nn=n+1LoopPrintsEndSubPrivateSubCommand1_Click()Dimsasinteger,nasintegerS=0N=0DoS=S+NN=N+1Loopuntil(n>100)

printSEndsubP12實(shí)踐（1）“猴子摘桃”PrivateSubCommand1_Click()DimdayAsInteger,SAsIntegerS=1Forday=9To1Step-1S=(S+1)*2NextdayPrint"s=";SEndSub猴子吃桃：每次吃掉一半多一個(gè)，直到第10天只剩一個(gè)，第一天共摘了多少個(gè)桃子？問(wèn)題8要將100元的鈔票換成等值的10元、5元、2元、1元的小鈔票。要求每次換成40張小鈔票，每種至少一張，有多少種換法？分析：10元一張最多能換9張，5元一張最多能換17張，2元一張最多能換37張，一元只要用40減去10、5、2元的數(shù)目就可以了！

DimiAsInteger,jAsInteger,kAsInteger,mAsInteger,sumAsIntegersum=0Fori=1To9Forj=1To17Fork=1To37m=40-i-j-kIf(m>=1)And(i*10+j*5+k*2+m=100)Thensum=sum+1Print"i=";i,"j=";j,"k=";k,"m=";mEndIfNextkNextjNextiPrint"sum=";sumEndSub2.4.5循環(huán)語(yǔ)句嵌套的定義雙重循環(huán)語(yǔ)句：在循環(huán)體內(nèi)含有另一個(gè)循環(huán)語(yǔ)句的結(jié)構(gòu)

如:

For循環(huán)變量1=初值To終值Step步長(zhǎng)

For循環(huán)變量2=初值To終值Step步長(zhǎng)

循環(huán)體

Next循環(huán)變量2

Next循環(huán)變量1多重循環(huán)：如循環(huán)體內(nèi)再包含循環(huán)結(jié)構(gòu)，我們將這種循環(huán)結(jié)構(gòu)稱作多重循環(huán)。

多重循環(huán)的原則是:外層循環(huán)與內(nèi)層循環(huán)必須層層相套，循環(huán)體之間不能交叉。每個(gè)循環(huán)必須有一個(gè)唯一的循環(huán)控制變量。問(wèn)題5求解1–2+3

－4+……+99－100PrivateSubCommand1_Click()DimiAsinteger,SAsintegerS=0

Fori=1To100s=s+(-1)^(i+1)*iNextiPrint“S＝";SEndSubPrivateSubCommand1_Click()DimiAsinteger,SAsintegerS=0Fori=1To100

IfiMod2=0Then

s=s–i

Else

s=s+i

EndIfNexti

Print“S＝";SEnd