VB程序設(shè)計(第2版)教學(xué)課件4-9-循環(huán)結(jié)構(gòu)

VB程序設(shè)計循環(huán)結(jié)構(gòu)VB程序設(shè)計循環(huán)結(jié)構(gòu)1問題引入你有過等交通信號燈的經(jīng)歷嗎？每隔一定的時間，紅、黃、綠就變換一次，這就是……？問題引入你有過等交通信號燈的經(jīng)歷嗎？每隔一定的時間，紅、黃2列表框While…Wend語句1

Dowhile…Loop語句2

For…Next語句3循環(huán)結(jié)構(gòu)列表框While…Wend語句13循環(huán)結(jié)構(gòu)概述0當(dāng)重復(fù)進(jìn)行某件事時，就可用循環(huán)結(jié)構(gòu)。

在循環(huán)結(jié)構(gòu)中將某些語句重復(fù)執(zhí)行若干次，這些語句稱為循環(huán)體；每重復(fù)一次都要判斷是繼續(xù)重復(fù)還是停止重復(fù)，這個判斷所依據(jù)的條件稱為循環(huán)條件；循環(huán)體與循環(huán)條件一起構(gòu)成了循環(huán)結(jié)構(gòu)。循環(huán)結(jié)構(gòu)概述0當(dāng)重復(fù)進(jìn)行某件事時，就可用循環(huán)結(jié)4While…Wend語句1【格式】While<表達(dá)式>

<循環(huán)體語句>

Wend表達(dá)式真？循環(huán)體語句真(非0)假(0)While…Wend語句1【格式】While<表達(dá)式>表達(dá)式5While…Wend語句1當(dāng)“表達(dá)式”成立（為True）時，反復(fù)執(zhí)行循環(huán)體語句，當(dāng)“表達(dá)式”不成立（為False），則執(zhí)行Wend語句后面的語句

。【功能】“表達(dá)式”指的是什么？While…Wend語句1當(dāng)“表達(dá)式”成立（為6While…Wend語句1可以是：任何表達(dá)式常用的有：關(guān)系表達(dá)式、邏輯表達(dá)式

Whilex>=65

……WendWhilex>0Andx<6……WendWhile…Wend語句1可以是：任何表達(dá)式While7While…Wend語句1【應(yīng)用】利用循環(huán)結(jié)構(gòu)：計算1+2+3+......+99+100=?PrivateSubCommand1_Click()

DimsAsInteger,iAsInteger

s=0

Whilei<=100

s=s+i

i=i+1

Wend

PrintsEndSub規(guī)劃：“i<=100”成立時進(jìn)行循環(huán)。i

就是循環(huán)控制變量。While…Wend語句1【應(yīng)用】利用循環(huán)結(jié)構(gòu)：計算1+2+8DoWhile…Loop語句2【格式】DoWhile<表達(dá)式>

<循環(huán)體語句>Loop當(dāng)“表達(dá)式”成立（為True）時，反復(fù)執(zhí)行循環(huán)體語句，當(dāng)“表達(dá)式”不成立（為False），則執(zhí)行Loop語句后面的語句

。DoWhile…Loop語句2【格式】DoWhile9DoWhile…Loop語句2【應(yīng)用】輸出1-50之間可以被7整除的數(shù)。規(guī)劃：“i<=50”成立時進(jìn)行循環(huán)。被7整除：imod7=0PrivateSubCommand1_Click()DimiAsIntegeri=1

DoWhilei<=50IfiMod7=0ThenPrintiEndIfi=i+1

LoopEndSubDoWhile…Loop語句2【應(yīng)用】輸出1-50之間可以10For…Next語句3【格式】For<循環(huán)變量>=<初值>To<終值>[Step<步長>]<循環(huán)體語句>Next<循環(huán)變量>[Step<步長>]省略，則表示步長為1。For…Next語句3【格式】For<循環(huán)變量>=<11For…Next語句3⑴循環(huán)變量是一個數(shù)值型的變量，而初值、終值、步長可是數(shù)值型的值或表達(dá)式。⑵在默認(rèn)省略狀態(tài)下，step為1。當(dāng)“步長>=0”，“終值>=初值”時，遞增循環(huán)。當(dāng)“步長<0”，“終值<=初值”時，遞減循環(huán)。

【說明】For…Next語句3⑴循環(huán)變量是一個數(shù)值型的變量，而初值12For…Next語句3【應(yīng)用】利用For…Next語句計算n!PrivateSubCommand1_Click()n=Val(Text1.Text)k=1

Fori=1Tonk=k*iNextiText2.Text=kEndSubFor…Next語句3【應(yīng)用】利用For…Next語句13For…Next語句3循環(huán)部分也可以寫成如下形式：

Fori=nTo1step-1k=k*iNextiFor…Next語句3循環(huán)部分也可以寫成如下形式：14For…Next語句3【應(yīng)用】輸出9*9表。PrivateSubCommand1_Click()Fornum=1To9

Fori=1TonumPrinti;"*";num;"=";num*i;

NextiPrintNextnumEndSubFor…Next語句3【應(yīng)用】輸出9*9表。Private15循環(huán)應(yīng)用小明有10本書，你來設(shè)計一個小程序，找出書價最低的書，想一想，如何實現(xiàn)?循環(huán)應(yīng)用小明有10本書，你來設(shè)計一個小程序，找出16總結(jié)

當(dāng)重復(fù)進(jìn)行某件事時，就可用循環(huán)結(jié)構(gòu)。

常用的循環(huán)語句有三種。

循環(huán)結(jié)構(gòu)是程序設(shè)計基本結(jié)構(gòu)之一?？偨Y(jié)當(dāng)重復(fù)進(jìn)行某件事時，就可用循環(huán)結(jié)構(gòu)。17善于思考善于學(xué)習(xí)善于思考善于學(xué)習(xí)18VB程序設(shè)計循環(huán)結(jié)構(gòu)VB程序設(shè)計循環(huán)結(jié)構(gòu)19問題引入你有過等交通信號燈的經(jīng)歷嗎？每隔一定的時間，紅、黃、綠就變換一次，這就是……？問題引入你有過等交通信號燈的經(jīng)歷嗎？每隔一定的時間，紅、黃20列表框While…Wend語句1

Dowhile…Loop語句2

For…Next語句3循環(huán)結(jié)構(gòu)列表框While…Wend語句121循環(huán)結(jié)構(gòu)概述0當(dāng)重復(fù)進(jìn)行某件事時，就可用循環(huán)結(jié)構(gòu)。

在循環(huán)結(jié)構(gòu)中將某些語句重復(fù)執(zhí)行若干次，這些語句稱為循環(huán)體；每重復(fù)一次都要判斷是繼續(xù)重復(fù)還是停止重復(fù)，這個判斷所依據(jù)的條件稱為循環(huán)條件；循環(huán)體與循環(huán)條件一起構(gòu)成了循環(huán)結(jié)構(gòu)。循環(huán)結(jié)構(gòu)概述0當(dāng)重復(fù)進(jìn)行某件事時，就可用循環(huán)結(jié)22While…Wend語句1【格式】While<表達(dá)式>

<循環(huán)體語句>

Wend表達(dá)式真？循環(huán)體語句真(非0)假(0)While…Wend語句1【格式】While<表達(dá)式>表達(dá)式23While…Wend語句1當(dāng)“表達(dá)式”成立（為True）時，反復(fù)執(zhí)行循環(huán)體語句，當(dāng)“表達(dá)式”不成立（為False），則執(zhí)行Wend語句后面的語句

?！竟δ堋俊氨磉_(dá)式”指的是什么？While…Wend語句1當(dāng)“表達(dá)式”成立（為24While…Wend語句1可以是：任何表達(dá)式常用的有：關(guān)系表達(dá)式、邏輯表達(dá)式

Whilex>=65

……WendWhilex>0Andx<6……WendWhile…Wend語句1可以是：任何表達(dá)式While25While…Wend語句1【應(yīng)用】利用循環(huán)結(jié)構(gòu)：計算1+2+3+......+99+100=?PrivateSubCommand1_Click()

DimsAsInteger,iAsInteger

s=0

Whilei<=100

s=s+i

i=i+1

Wend

PrintsEndSub規(guī)劃：“i<=100”成立時進(jìn)行循環(huán)。i

就是循環(huán)控制變量。While…Wend語句1【應(yīng)用】利用循環(huán)結(jié)構(gòu)：計算1+2+26DoWhile…Loop語句2【格式】DoWhile<表達(dá)式>

<循環(huán)體語句>Loop當(dāng)“表達(dá)式”成立（為True）時，反復(fù)執(zhí)行循環(huán)體語句，當(dāng)“表達(dá)式”不成立（為False），則執(zhí)行Loop語句后面的語句

。DoWhile…Loop語句2【格式】DoWhile27DoWhile…Loop語句2【應(yīng)用】輸出1-50之間可以被7整除的數(shù)。規(guī)劃：“i<=50”成立時進(jìn)行循環(huán)。被7整除：imod7=0PrivateSubCommand1_Click()DimiAsIntegeri=1

DoWhilei<=50IfiMod7=0ThenPrintiEndIfi=i+1

LoopEndSubDoWhile…Loop語句2【應(yīng)用】輸出1-50之間可以28For…Next語句3【格式】For<循環(huán)變量>=<初值>To<終值>[Step<步長>]<循環(huán)體語句>Next<循環(huán)變量>[Step<步長>]省略，則表示步長為1。For…Next語句3【格式】For<循環(huán)變量>=<29For…Next語句3⑴循環(huán)變量是一個數(shù)值型的變量，而初值、終值、步長可是數(shù)值型的值或表達(dá)式。⑵在默認(rèn)省略狀態(tài)下，step為1。當(dāng)“步長>=0”，“終值>=初值”時，遞增循環(huán)。當(dāng)“步長<0”，“終值<=初值”時，遞減循環(huán)。

【說明】For…Next語句3⑴循環(huán)變量是一個數(shù)值型的變量，而初值30For…Next語句3【應(yīng)用】利用For…Next語句計算n!PrivateSubCommand1_Click()n=Val(Text1.Text)k=1

Fori=1Tonk=k*iNextiText2.Text=kEndSubFor…Next語句3【應(yīng)用】利用For…Next語句31For…Next語句3循環(huán)部分也可以寫成如下形式：

Fori=nTo1step-1k=k*iNextiFor…Next語句3循環(huán)部分也可以寫成如下形式：32For…Next語句3【應(yīng)用】輸出9*9表。PrivateSubCommand1_Click()Fornum=1To9

Fori=1TonumPrinti;"*";num;"=";num*i;

NextiPrint