幾種循環(huán)語句的比較安徽省靈璧第一中學張萍1適用對象：高中學生學科：信息技術教材：粵教版《算法與程序設計》單元：第二章第四節(jié)知識點：For循環(huán)語句與Do循環(huán)語句的比較困惑與問題：概念理解不清結(jié)構(gòu)無法掌握幾種循環(huán)的適用情況使用時的注意事項2VB循環(huán)語句相關概念在解決一些實際問題的過程中，常常需要重復執(zhí)行某些操作，才能得到結(jié)果。

描述這種重復操作的一組語句稱為循環(huán)體，實現(xiàn)每重復一次循環(huán)體都必須依據(jù)一定的條件做出繼續(xù)或停止循環(huán)的判斷的語句稱為循環(huán)語句。3在VB語言中，用于循環(huán)結(jié)構(gòu)程序設計的語句有For循環(huán)語句和Do循環(huán)語句。一、兩種循環(huán)語句適用條件的比較For循環(huán)語句主要用于描述預先知道循環(huán)次數(shù)的循環(huán)結(jié)構(gòu)，是一種計數(shù)循環(huán)。例如：

1.求S=

1+2+3+4+5+……+100的值2.求10內(nèi)的偶數(shù)的積4Do循環(huán)語句是根據(jù)條件是否滿足而決定循環(huán)是否繼續(xù)進行，

既可以用于預先不確定循環(huán)次數(shù)的循環(huán)結(jié)構(gòu)，

例如：S=1+2+3+……+N,找出一個最大的整數(shù)N，使得S<1000。也可用于預先知道循環(huán)次數(shù)的循環(huán)結(jié)構(gòu)，例如：求100內(nèi)奇數(shù)的和。二、語句格式的比較種類語句格式For循環(huán)語句

Do循環(huán)語句

5For循環(huán)變量=初值TO終值Step步長循環(huán)體Next循環(huán)變量DO循環(huán)體LoopUntil循環(huán)終止的條件三、兩種循環(huán)語句執(zhí)行過程的比較6For循環(huán)的執(zhí)行過程如下：

（1）將循環(huán)變量賦初值；

（2）比較循環(huán)變量是否在初值與終值之間，若循環(huán)條件成立，運行一次循環(huán)體中的語句；如果循環(huán)條件不成立時，循環(huán)結(jié)束，執(zhí)行Next后面的語句；

（3）遇到Next語句，循環(huán)變量增加增量值，轉(zhuǎn)到（2）繼續(xù)循環(huán)；

滿足循環(huán)執(zhí)行的條件執(zhí)行循環(huán)體是否應用舉例（一）：1.求S=1+2+3+4+……+100的值

2.求10內(nèi)的偶數(shù)的積。

73.S=1+2+3+……+N,找出一個最大的整數(shù)N，使得S<1000。ForA=1To100S=S+ANextAForA=2To10Step2S=S*ANextAStep1DoN=N+1S=S+NLoopUntilN>=10004.求S=1+2+3+4+5+……+100的值

DoA=A+1S=S+ALoopUntilA>100四、Do循環(huán)語句四種形式的比較條件判斷放在循環(huán)語句的開頭部分條件判斷放在循環(huán)語句的結(jié)尾部分所列條件滿足時

執(zhí)行循環(huán)所列條件滿足時退出循環(huán)所列條件滿足時

執(zhí)行循環(huán)所列條件滿足時退出循環(huán)DOWhile條件循環(huán)體LoopDO循環(huán)體LoopUntil條件DO循環(huán)體LoopWhile條件DO循環(huán)體LoopUntil條件8分析比較上表中的各列內(nèi)容，討論Do循環(huán)語句的格式與功能。交流討論：9討論Do循環(huán)語句的格式和功能，回答如下問題：（2）使用While和Until的區(qū)別在于：（1）條件放在前面和放在后面的Do循環(huán)語句的區(qū)別在于：答：條件放在前面時，先判斷條件在進入循環(huán)體。條件放在后面時，先執(zhí)行一次循環(huán)體再對條件做出判斷。答：While后面是循環(huán)執(zhí)行的條件，而Until后面是退出循環(huán)的條件。應用舉例（二）：求1+2+3+...+100的值用DO-LOOPUNTIL編寫程序如下：PrivateSubCommand1_Click()s=0i=0DoUntili>100i=i+1:s=s+i

LoopUntili>100Print"1+2+3+...+100=";sEndSub10用DO-LOOPWHILE編寫程序如下：PrivateSubCommand1_Click()s=0i=0Do

i=i+1:s=s+i

LoopWhilei=<100Print"1+2+3+...+100=";sEndSub鞏固練習：1、PrivateSubCommand1_Click()DimiAsInteger

Fori=2To9

a=(i*i)Mod10

Ifa=iThenPrinti*i

NextiEndSub

當運行程序點擊按鈕Command1時，將出現(xiàn)結(jié)果為：

112、運行時，單擊窗體然后在輸入框中依次輸入10、37、50、55、64、20、28、-19、0，寫出運行結(jié)果。PrivateSubForm_Click()

DimxAsInteger

Do

x=Val(InputBox("x="))

If(xMod10)+Int(x/10)