VB-第七章-控制結(jié)構(gòu)程序設(shè)計(jì)2-循環(huán)結(jié)構(gòu)課件

*6.2循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

在實(shí)際工作中，常遇到一些操作過(guò)程不太復(fù)雜，但又需要反復(fù)進(jìn)行相同處理的問(wèn)題，比如，在窗體上打印一百條相同的字符串，這個(gè)問(wèn)題的解決邏輯上并不復(fù)雜，但如果單純用順序結(jié)構(gòu)來(lái)處理，那將得到一個(gè)非常乏味且冗長(zhǎng)的程序：*6.2循環(huán)結(jié)構(gòu)程序設(shè)計(jì)在實(shí)際工作中，常遇到一些操*Print“你好“Print"你好“Print"你好“Print"你好“Print"你好“Print"你好“……Print"你好“Print"你好“100次*Print“你好“100次*

由上面的例子不難看出，程序其實(shí)就是在反復(fù)執(zhí)行語(yǔ)句：Print"你好"，程序當(dāng)然非常簡(jiǎn)單易懂，但缺乏最基本的編程技巧。要想方便地解決這類問(wèn)題，最好的辦法就是用循環(huán)語(yǔ)句。 所謂循環(huán)就是重復(fù)地執(zhí)行一組語(yǔ)句。 我們用循環(huán)語(yǔ)句解決上面的問(wèn)題，程序非常簡(jiǎn)短：Fori=1To100Print"你好“

Nexti*由上面的例子不難看出，程序其實(shí)就是在反復(fù)執(zhí)行*

上述程序段便是一個(gè)循環(huán)語(yǔ)句，在循環(huán)過(guò)程中第2句被反復(fù)執(zhí)行了100次，從而打印出最終的圖形。 通過(guò)上面的對(duì)比可知，循環(huán)結(jié)構(gòu)非常適合于解決處理的過(guò)程相同、處理的數(shù)據(jù)相關(guān)，但處理的具體值不同的問(wèn)題。我們把能夠處理這類問(wèn)題的語(yǔ)句稱為循環(huán)語(yǔ)句。

VB提供了三種不同風(fēng)格的循環(huán)語(yǔ)句，它們分別是： （1）For…Next語(yǔ)句； （2）While…Wend語(yǔ)句； （3）Do…Loop語(yǔ)句。 我們將對(duì)這3種循環(huán)語(yǔ)句逐一介紹。*上述程序段便是一個(gè)循環(huán)語(yǔ)句，在循環(huán)過(guò)程中*6.2.1用For…Next語(yǔ)句實(shí)現(xiàn)循環(huán)For循環(huán)變量=初始值To終止值[Step步長(zhǎng)]

循環(huán)體

[ExitFor]Next[循環(huán)變量]說(shuō)明循環(huán)變量：亦稱為循環(huán)控制變量，必須為數(shù)值型。初值、終值：都是數(shù)值型，可以是數(shù)值表達(dá)式。步長(zhǎng)：循環(huán)變量的增量，是一個(gè)數(shù)值表達(dá)式。一般來(lái)說(shuō)，步長(zhǎng)為正，初始值應(yīng)小于終止值；若為負(fù)，初始值應(yīng)大于終止值。步長(zhǎng)不能是0。如果步長(zhǎng)是1，Step1可略去不寫(xiě)。循環(huán)變量的值是自動(dòng)改變的，不要人為改變，否則會(huì)出錯(cuò)。

For跟Next必須成對(duì)出現(xiàn)。Next后面的循環(huán)變量與For語(yǔ)句中的循環(huán)變量必須相同。ExitFor用于：當(dāng)需要無(wú)條件跳出循環(huán)時(shí)循環(huán)次數(shù)：Int(（終值-初值）/步長(zhǎng)+1)例子說(shuō)明*6.2.1用For…Next語(yǔ)句實(shí)現(xiàn)循環(huán)例子說(shuō)明*For循環(huán)結(jié)構(gòu)執(zhí)行過(guò)程*For循環(huán)結(jié)構(gòu)執(zhí)行過(guò)程*Forn=1To10Step3Printn;Nextn具體執(zhí)行情況如下：第幾次循環(huán) n 與終值比較 執(zhí)行循環(huán)體否

1 1 <10

2 4 <10

3 7 <10

4 10 =10

5 13 >10

上面程序的執(zhí)行結(jié)果為：

14710我們通過(guò)分析下面的程序來(lái)理解For語(yǔ)句的執(zhí)行過(guò)程。執(zhí)行執(zhí)行執(zhí)行執(zhí)行停止執(zhí)行返回*Forn=1To10Step3我們通過(guò)分析下面的*思考題題1:Forn=1To10Step3Printn;Nextn上面程序的執(zhí)行結(jié)果為：

14710題2:a=0Fori=1to10step–1a=a+1printaNexti‘以上循環(huán)體執(zhí)行次數(shù)為?Forn=1To10Step3……NextnPrintn上面程序的執(zhí)行結(jié)果？

13打開(kāi)程序*思考題題1:題2:Forn=1To10Step3PrivateSubCommand1_Click()DimN,iAsInteger’i為循環(huán)變量DimsumAsLongN=Text1.Textsum=0Fori=1ToNsum=sum+iNextiText2.Text=sumEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub例6-6：求1+2+3+…+n的值，n從鍵盤(pán)輸入。思考：若改為1*2*……*N，如何實(shí)現(xiàn)？例6-6程序PrivateSubCommand1_Click()例6*6.2.2While……Wend循環(huán)結(jié)構(gòu)循環(huán)語(yǔ)句必須包含的三部分內(nèi)容循環(huán)初始條件終止條件循環(huán)體While……Wend實(shí)現(xiàn)循環(huán)語(yǔ)法：While條件 語(yǔ)句塊（循環(huán)體）Wend

*6.2.2While……Wend循環(huán)結(jié)構(gòu)循環(huán)語(yǔ)句必*結(jié)合下面的程序段，我們做進(jìn)一步的說(shuō)明：

x=1Whilex<5Printx;

x=x+1Wend該程序段的執(zhí)行結(jié)果是：

1234循環(huán)的初始條件循環(huán)的終止條件循環(huán)體*結(jié)合下面的程序段，我們做進(jìn)一步的說(shuō)明：循環(huán)的初始條件循環(huán)的*思考：如果令第一條語(yǔ)句：“x=1”改為x=5,會(huì)出現(xiàn)什么情況？如果把第二句的“x<5”改為“x>0”以及”x>1”結(jié)果又都如何？如果刪去x=x+1這一條語(yǔ)句結(jié)果會(huì)如何？x=1Whilex<5Printx;x=x+1Wend*思考：x=1*While循環(huán)的幾點(diǎn)說(shuō)明While循環(huán)語(yǔ)句本身不能修改循環(huán)條件，所以必須在While…Wend語(yǔ)句的循環(huán)體內(nèi)設(shè)置相應(yīng)語(yǔ)句，使得整個(gè)循環(huán)趨于結(jié)束，以避免死循環(huán)。While循環(huán)語(yǔ)句先對(duì)條件進(jìn)行判斷，然后才決定是否執(zhí)行循環(huán)體。如果開(kāi)始條件就不成立，則循環(huán)體一次也不執(zhí)行?！纠?-9】求2000年我國(guó)有人口13億,按人口年增長(zhǎng)率0.8%計(jì)算,多少年后我國(guó)人口超過(guò)26億?

*While循環(huán)的幾點(diǎn)說(shuō)明*程序如下：PrivateSubForm_Click()

DimxAsDouble,NAsInteger

x=13

N=0

Whilex<=26

x=x*1.008

N=N+1

Wend

PrintN;xEndSub例6-9程序*程序如下：例6-9程序*6.2.3Do…Loop語(yǔ)句實(shí)現(xiàn)循環(huán)Do循環(huán)語(yǔ)句的格式:Do

循環(huán)體LoopDo……Loop通常會(huì)與While或Until語(yǔ)句合用，組成當(dāng)循環(huán)或直到型循環(huán)當(dāng)型循環(huán)當(dāng)條件表達(dá)式為T(mén)rue時(shí)執(zhí)行循環(huán)，為False時(shí)退出循環(huán)關(guān)鍵字為while條件循環(huán)體FalseTrue條件循環(huán)體FalseTrue這是最簡(jiǎn)單的Do循環(huán)格式,這種結(jié)構(gòu)沒(méi)有任何條件,循環(huán)將無(wú)休止地進(jìn)行下去,除非循環(huán)體內(nèi)包含有控制語(yǔ)句(如Exitdo等)直到型循環(huán)執(zhí)行循環(huán)，直到條件表達(dá)式的值為T(mén)rue時(shí)才結(jié)束循環(huán)關(guān)鍵字為until條件循環(huán)體FalseTrue*6.2.3Do…Loop語(yǔ)句實(shí)現(xiàn)循環(huán)Do循環(huán)語(yǔ)句的格式*當(dāng)型循環(huán)

DoWhile條件

循環(huán)體

Loop

Do

循環(huán)體

Loopwhile條件直到型循環(huán)

DoUntil條件 循環(huán)體

Loop

Do

循環(huán)體

LoopUntil條件注意：使用For實(shí)現(xiàn)的循環(huán)，循環(huán)的次數(shù)事先已知，而doloop(while或until)實(shí)現(xiàn)的循環(huán)次數(shù)事先未知條件循環(huán)體FalseTrue條件循環(huán)體TrueFalse條件循環(huán)體FalseTrue條件循環(huán)體TrueFalse*直到型循環(huán)

注意：使用For實(shí)現(xiàn)的循環(huán)，循環(huán)的次數(shù)事先已知*例6-10：改用Do語(yǔ)句實(shí)現(xiàn)例6-9PrivateSubForm_Click()DimxAsDouble,NAsIntegerx=13N=0DoWhilex<=26N=N+1x=x*1.008LoopPrintN;xEndSub課外作業(yè)：請(qǐng)大家用上頁(yè)的其他三種類型改寫(xiě)該程序*例6-10：改用Do語(yǔ)句實(shí)現(xiàn)例6-9課外作業(yè)：請(qǐng)大家用上頁(yè)例6-13：用輾轉(zhuǎn)相除法求兩自然數(shù)m，n的最大公約數(shù)和最小公倍數(shù)。求最大公約數(shù)的算法:（1）使m>n（2）m除以n得到余數(shù)r；（3）若r=0，則n為要求的最大公約數(shù)，算法結(jié)束；否則執(zhí)行(4)（4）mn，

nr，再轉(zhuǎn)到（2）執(zhí)行。求最小公倍數(shù)的算法:最小公倍數(shù)為兩個(gè)數(shù)的積除以它們的最大公約數(shù)*例2736MNr362792790例6-13：用輾轉(zhuǎn)相除法求兩自然數(shù)m，n的最大公約數(shù)和最小公**程序如下：Dimm%,n%,r%,m1%,n1%PrivateSubcommand1_Click（）

m1=Val（Text1.Text）

n1=Val（Text2.Text）m=iif(m1>n1,m1,n1)n=iif(n1<m1,n1,m1)r=mModnDoUntilr=0m=nn=rr=mModnLooplabel3.caption=nEndSubPrivateSubCommand2_Click()Label4.Caption=m1*n1/nEndSub*M=val(text1.text)N=val(text2.text)Ifm<nthentemp=mm=nn=tempEndif……程序如下：*M=val(text1.text)……*例6-14：判定給定的整數(shù)是否為素?cái)?shù)。(課后思考題)算法分析:素?cái)?shù)是只能被1和本身整除的數(shù)。根據(jù)這一特性，利用循環(huán)來(lái)判斷該數(shù)能否被2~n-1之間的數(shù)整除，如果無(wú)一能被整除，那么該數(shù)即為素?cái)?shù)*例6-14：判定給定的整數(shù)是否為素?cái)?shù)。(課后思考題)*6.2.4循環(huán)的嵌套循環(huán)的嵌套是指一個(gè)循環(huán)體內(nèi)完整地包括了另一個(gè)循環(huán)。一重循環(huán)套一重為二重循環(huán)，如果二重循環(huán)的內(nèi)循環(huán)中又包含一個(gè)循環(huán)，則稱為三重循環(huán)，依此類推。三重以上的可稱為多重循環(huán)。（循環(huán)語(yǔ)句還可以與條件語(yǔ)句的嵌套）注意：使用幾個(gè)For循環(huán)嵌套時(shí)要注意使用不同的變量名For循環(huán)和Do可以混合嵌套，但是各循環(huán)間不得交叉。下例是非法的循環(huán)嵌套。ForI…ForJ……NextINextJ就和我們一層層的包裹東西是一樣的！*6.2.4循環(huán)的嵌套循環(huán)的嵌套是指一個(gè)循環(huán)體內(nèi)完整地包括了*DoFor DoLoopNextLoop二重循環(huán)三重循環(huán)正確的循環(huán)為：*Do二重循環(huán)三重循環(huán)正確的循環(huán)為：*Do ForI=1to10… …forI=1to10 Do … … ExitDo ExitfornextI Loop … …Loop NextI例2.25打印九九乘法表**循環(huán)結(jié)構(gòu)程序思考題1.

找出所有小于50的正整數(shù)中等于7的倍數(shù)的數(shù)2.用“*”輸出一個(gè)倒三角形3.在窗體上打印如下圖形4.今有物不知其數(shù)：三三數(shù)之余二，五五數(shù)之余三，七七數(shù)之余二，問(wèn)物幾何?(假設(shè)在100以內(nèi))*循環(huán)結(jié)構(gòu)程序思考題*6.2循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

在實(shí)際工作中，常遇到一些操作過(guò)程不太復(fù)雜，但又需要反復(fù)進(jìn)行相同處理的問(wèn)題，比如，在窗體上打印一百條相同的字符串，這個(gè)問(wèn)題的解決邏輯上并不復(fù)雜，但如果單純用順序結(jié)構(gòu)來(lái)處理，那將得到一個(gè)非常乏味且冗長(zhǎng)的程序：*6.2循環(huán)結(jié)構(gòu)程序設(shè)計(jì)在實(shí)際工作中，常遇到一些操*Print“你好“Print"你好“Print"你好“Print"你好“Print"你好“Print"你好“……Print"你好“Print"你好“100次*Print“你好“100次*

由上面的例子不難看出，程序其實(shí)就是在反復(fù)執(zhí)行語(yǔ)句：Print"你好"，程序當(dāng)然非常簡(jiǎn)單易懂，但缺乏最基本的編程技巧。要想方便地解決這類問(wèn)題，最好的辦法就是用循環(huán)語(yǔ)句。 所謂循環(huán)就是重復(fù)地執(zhí)行一組語(yǔ)句。 我們用循環(huán)語(yǔ)句解決上面的問(wèn)題，程序非常簡(jiǎn)短：Fori=1To100Print"你好“

Nexti*由上面的例子不難看出，程序其實(shí)就是在反復(fù)執(zhí)行*

上述程序段便是一個(gè)循環(huán)語(yǔ)句，在循環(huán)過(guò)程中第2句被反復(fù)執(zhí)行了100次，從而打印出最終的圖形。 通過(guò)上面的對(duì)比可知，循環(huán)結(jié)構(gòu)非常適合于解決處理的過(guò)程相同、處理的數(shù)據(jù)相關(guān)，但處理的具體值不同的問(wèn)題。我們把能夠處理這類問(wèn)題的語(yǔ)句稱為循環(huán)語(yǔ)句。

VB提供了三種不同風(fēng)格的循環(huán)語(yǔ)句，它們分別是： （1）For…Next語(yǔ)句； （2）While…Wend語(yǔ)句； （3）Do…Loop語(yǔ)句。 我們將對(duì)這3種循環(huán)語(yǔ)句逐一介紹。*上述程序段便是一個(gè)循環(huán)語(yǔ)句，在循環(huán)過(guò)程中*6.2.1用For…Next語(yǔ)句實(shí)現(xiàn)循環(huán)For循環(huán)變量=初始值To終止值[Step步長(zhǎng)]

循環(huán)體

[ExitFor]Next[循環(huán)變量]說(shuō)明循環(huán)變量：亦稱為循環(huán)控制變量，必須為數(shù)值型。初值、終值：都是數(shù)值型，可以是數(shù)值表達(dá)式。步長(zhǎng)：循環(huán)變量的增量，是一個(gè)數(shù)值表達(dá)式。一般來(lái)說(shuō)，步長(zhǎng)為正，初始值應(yīng)小于終止值；若為負(fù)，初始值應(yīng)大于終止值。步長(zhǎng)不能是0。如果步長(zhǎng)是1，Step1可略去不寫(xiě)。循環(huán)變量的值是自動(dòng)改變的，不要人為改變，否則會(huì)出錯(cuò)。

For跟Next必須成對(duì)出現(xiàn)。Next后面的循環(huán)變量與For語(yǔ)句中的循環(huán)變量必須相同。ExitFor用于：當(dāng)需要無(wú)條件跳出循環(huán)時(shí)循環(huán)次數(shù)：Int(（終值-初值）/步長(zhǎng)+1)例子說(shuō)明*6.2.1用For…Next語(yǔ)句實(shí)現(xiàn)循環(huán)例子說(shuō)明*For循環(huán)結(jié)構(gòu)執(zhí)行過(guò)程*For循環(huán)結(jié)構(gòu)執(zhí)行過(guò)程*Forn=1To10Step3Printn;Nextn具體執(zhí)行情況如下：第幾次循環(huán) n 與終值比較 執(zhí)行循環(huán)體否

1 1 <10

2 4 <10

3 7 <10

4 10 =10

5 13 >10

上面程序的執(zhí)行結(jié)果為：

14710我們通過(guò)分析下面的程序來(lái)理解For語(yǔ)句的執(zhí)行過(guò)程。執(zhí)行執(zhí)行執(zhí)行執(zhí)行停止執(zhí)行返回*Forn=1To10Step3我們通過(guò)分析下面的*思考題題1:Forn=1To10Step3Printn;Nextn上面程序的執(zhí)行結(jié)果為：

14710題2:a=0Fori=1to10step–1a=a+1printaNexti‘以上循環(huán)體執(zhí)行次數(shù)為?Forn=1To10Step3……NextnPrintn上面程序的執(zhí)行結(jié)果？

13打開(kāi)程序*思考題題1:題2:Forn=1To10Step3PrivateSubCommand1_Click()DimN,iAsInteger’i為循環(huán)變量DimsumAsLongN=Text1.Textsum=0Fori=1ToNsum=sum+iNextiText2.Text=sumEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub例6-6：求1+2+3+…+n的值，n從鍵盤(pán)輸入。思考：若改為1*2*……*N，如何實(shí)現(xiàn)？例6-6程序PrivateSubCommand1_Click()例6*6.2.2While……Wend循環(huán)結(jié)構(gòu)循環(huán)語(yǔ)句必須包含的三部分內(nèi)容循環(huán)初始條件終止條件循環(huán)體While……Wend實(shí)現(xiàn)循環(huán)語(yǔ)法：While條件 語(yǔ)句塊（循環(huán)體）Wend

*6.2.2While……Wend循環(huán)結(jié)構(gòu)循環(huán)語(yǔ)句必*結(jié)合下面的程序段，我們做進(jìn)一步的說(shuō)明：

x=1Whilex<5Printx;

x=x+1Wend該程序段的執(zhí)行結(jié)果是：

1234循環(huán)的初始條件循環(huán)的終止條件循環(huán)體*結(jié)合下面的程序段，我們做進(jìn)一步的說(shuō)明：循環(huán)的初始條件循環(huán)的*思考：如果令第一條語(yǔ)句：“x=1”改為x=5,會(huì)出現(xiàn)什么情況？如果把第二句的“x<5”改為“x>0”以及”x>1”結(jié)果又都如何？如果刪去x=x+1這一條語(yǔ)句結(jié)果會(huì)如何？x=1Whilex<5Printx;x=x+1Wend*思考：x=1*While循環(huán)的幾點(diǎn)說(shuō)明While循環(huán)語(yǔ)句本身不能修改循環(huán)條件，所以必須在While…Wend語(yǔ)句的循環(huán)體內(nèi)設(shè)置相應(yīng)語(yǔ)句，使得整個(gè)循環(huán)趨于結(jié)束，以避免死循環(huán)。While循環(huán)語(yǔ)句先對(duì)條件進(jìn)行判斷，然后才決定是否執(zhí)行循環(huán)體。如果開(kāi)始條件就不成立，則循環(huán)體一次也不執(zhí)行?！纠?-9】求2000年我國(guó)有人口13億,按人口年增長(zhǎng)率0.8%計(jì)算,多少年后我國(guó)人口超過(guò)26億?

*While循環(huán)的幾點(diǎn)說(shuō)明*程序如下：PrivateSubForm_Click()

DimxAsDouble,NAsInteger

x=13

N=0

Whilex<=26

x=x*1.008

N=N+1

Wend

PrintN;xEndSub例6-9程序*程序如下：例6-9程序*6.2.3Do…Loop語(yǔ)句實(shí)現(xiàn)循環(huán)Do循環(huán)語(yǔ)句的格式:Do

循環(huán)體LoopDo……Loop通常會(huì)與While或Until語(yǔ)句合用，組成當(dāng)循環(huán)或直到型循環(huán)當(dāng)型循環(huán)當(dāng)條件表達(dá)式為T(mén)rue時(shí)執(zhí)行循環(huán)，為False時(shí)退出循環(huán)關(guān)鍵字為while條件循環(huán)體FalseTrue條件循環(huán)體FalseTrue這是最簡(jiǎn)單的Do循環(huán)格式,這種結(jié)構(gòu)沒(méi)有任何條件,循環(huán)將無(wú)休止地進(jìn)行下去,除非循環(huán)體內(nèi)包含有控制語(yǔ)句(如Exitdo等)直到型循環(huán)執(zhí)行循環(huán)，直到條件表達(dá)式的值為T(mén)rue時(shí)才結(jié)束循環(huán)關(guān)鍵字為until條件循環(huán)體FalseTrue*6.2.3Do…Loop語(yǔ)句實(shí)現(xiàn)循環(huán)Do循環(huán)語(yǔ)句的格式*當(dāng)型循環(huán)

DoWhile條件

循環(huán)體

Loop

Do

循環(huán)體

Loopwhile條件直到型循環(huán)

DoUntil條件 循環(huán)體

Loop

Do

循環(huán)體

LoopUntil條件注意：使用For實(shí)現(xiàn)的循環(huán)，循環(huán)的次數(shù)事先已知，而doloop(while或until)實(shí)現(xiàn)的循環(huán)次數(shù)事先未知條件循環(huán)體FalseTrue條件循環(huán)體TrueFalse條件循環(huán)體FalseTrue條件循環(huán)體TrueFalse*直到型循環(huán)

注意：使用For實(shí)現(xiàn)的循環(huán)，循環(huán)的次數(shù)事先已知*例6-10：改用Do語(yǔ)句實(shí)現(xiàn)例6-9PrivateSubForm_Click()DimxAsDouble,NAsIntegerx=13N=0DoWhilex<=26N=N+1x=x*1.008LoopPrintN;xEndSub課外作業(yè)：請(qǐng)大家用上頁(yè)的其他三種類型改寫(xiě)該程序*例6-10：改用Do語(yǔ)句實(shí)現(xiàn)例6-9課外作業(yè)：請(qǐng)大家用上頁(yè)例6-13：用輾轉(zhuǎn)相除法求兩自然數(shù)m，n的最大公約數(shù)和最小公倍數(shù)。求最大公約數(shù)的算法:（1）使m>n（2）m除以n得到余數(shù)r；（3）若r=0，則n為要求的最大公約數(shù)，算法結(jié)束；否則執(zhí)行(4)（4）mn，

nr，再轉(zhuǎn)到（2）執(zhí)行。求最小公倍數(shù)的算法:最小公倍數(shù)為兩個(gè)數(shù)的積除以它們的最大公約數(shù)*例2736MNr362792790例6-13：用輾轉(zhuǎn)相除法求兩自然數(shù)m，n的最大公約數(shù)和最小公**程序如下：Dimm%,n%,r%,m1%,n1%PrivateSubcommand1_Click（）

m1=Val（Text1.Text）

n1=Val（Text2.Text）m=iif(m1>n1,m1,n1)n=iif(n1<m1,n1,m1)r=mModnDoUntilr=0