循環(huán)結構續(xù)4課件

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

共同確定。

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

To

終止值

Step

步長值

?循環(huán)體

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

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

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

程序界面設計：程序代碼：

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

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

LoopText2.Text=n

EndSub請看⑵DoWhile……Loop循環(huán)結構

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

格式：

DoWhile循環(huán)條件

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

建立數(shù)學模型：

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

P=P0×(1+r)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)過“&Cstr(n)&"年，世界人口將達到或超過70億。

EndSub2、編寫程序，求2*4*6*8*……*200之積。3、完善程序：據(jù)媒體報道，2005年底中國人口約為13.04百萬，年均增長率約為6‰，問多少年后，中國人口將達到或超過15百萬？

PrivateSubForm_Click()

DimpAsDouble,rAsSingle,nAsInteger

p=r=n=0DoWhilep