循環(huán)結(jié)構(gòu)續(xù)4課件

循環(huán)結(jié)構(gòu)程序(續(xù)3)2008年4月7日1、復(fù)習(xí)：For—Next循環(huán)結(jié)構(gòu)格式：特點(diǎn)：循環(huán)次數(shù)已知，可由初始值、終止值、步長(zhǎng)值

共同確定。

循環(huán)次數(shù)=Int(終止值-初始值)/步長(zhǎng)值+1For循環(huán)變量=初始值

To

終止值

Step

步長(zhǎng)值

?循環(huán)體

?Next循環(huán)變量正循環(huán)：初始值<=終止值，步長(zhǎng)為正值。

逆循環(huán)：初始值>=終止值，步長(zhǎng)為負(fù)值。

循環(huán)嵌套：就是在循環(huán)體中又嵌有循環(huán)的結(jié)構(gòu)，循環(huán)體外的循環(huán)稱為外循環(huán)，循環(huán)體內(nèi)的循環(huán)稱為內(nèi)循環(huán)。如果程序需要，循環(huán)嵌套可以有多重，重?cái)?shù)沒(méi)有限制，但內(nèi)、外循環(huán)不能相互交叉。舉例：假設(shè)有一張厚度為xmm，面積足夠大的紙，將它不斷對(duì)折。試問(wèn)對(duì)折多少次后，其厚度可達(dá)珠穆朗瑪峰的高度(8844.43m)？分析：設(shè)對(duì)折后的紙的厚度為hmm，計(jì)數(shù)為n。在沒(méi)有對(duì)折時(shí)，紙厚為xmm，每對(duì)折一次，其厚度是上一次的2倍，在未達(dá)到8848m時(shí)，重復(fù)進(jìn)行對(duì)折。

程序界面設(shè)計(jì)：程序代碼：

PrivateSubCommand1_Click()DimhAsSingle,nAsIntegern=0'對(duì)折次數(shù)h=Val(Text1.Text)'紙的厚度

DoWhileh<8844430n=n+1'循環(huán)計(jì)數(shù)器h=2*h

LoopText2.Text=n

EndSub請(qǐng)看⑵DoWhile……Loop循環(huán)結(jié)構(gòu)

本問(wèn)題與前面接觸過(guò)的問(wèn)題不同，雖然也是循環(huán)結(jié)構(gòu)，但循環(huán)的次數(shù)不確定，但可以用一個(gè)條件來(lái)判斷是否結(jié)束循環(huán)。

格式：

DoWhile循環(huán)條件

循環(huán)體Loop任務(wù)：1、完善程序，根據(jù)世界人口報(bào)告預(yù)測(cè)，2007年底的世界人口約為65.5億，如果以每年1.2%的速度增長(zhǎng)，多少年后世界人口達(dá)到或超過(guò)70億。

建立數(shù)學(xué)模型：

設(shè)人口基數(shù)為P0，年均增長(zhǎng)率為r，到第n年的人口數(shù)為P，則

P=P0×(1+r)n

對(duì)于本問(wèn)題，則為P=65.5×(1+1.2%)n程序代碼：

PrivateSubForm_Click()

Dim

pAsDouble,rAsSingle,nAsInteger

p=64.647r=0.012n=0DoWhilep<70

p=p*(1+r)n=n+1Loop

Print"從現(xiàn)在起，再經(jīng)過(guò)“&Cstr(n)&"年，世界人口將達(dá)到或超過(guò)70億。

EndSub2、編寫(xiě)程序，求2*4*6*8*……*200之積。3、完善程序：據(jù)媒體報(bào)道，2005年底中國(guó)人口約為13.04百萬(wàn)，年均增長(zhǎng)率約為6‰，問(wèn)多少年后，中國(guó)人口將達(dá)到或超過(guò)15百萬(wàn)？

PrivateSubForm_Click()

DimpAsDouble,rAsSingle,nAsInteger

p=r=n=0DoWhilep