visual basic (vb)第5章-2(循環(huán)語句)

第5章程序控制結(jié)構(gòu)二循環(huán)結(jié)構(gòu)主要內(nèi)容1.為什么要使用循環(huán)結(jié)構(gòu)？2.For…Next循環(huán)語句3.While循環(huán)4.Do…Loop循環(huán)5.循環(huán)嵌套6.循環(huán)語句使用舉例

如果要編寫一個程序，在窗體上輸出6行“**********”，如下圖所示：1.為什么要使用循環(huán)結(jié)構(gòu)？

該程序最直覺的編寫方法如下：1為什么要使用循環(huán)結(jié)構(gòu)？PrivateSubForm_Click()

Print"**********"Print"**********"Print"**********"Print"**********"Print"**********"Print"**********"EndSub但上述程序結(jié)構(gòu)讓人覺得煩瑣，尤其是當(dāng)需要100行或1000行“**********”的話，源程序?qū)⒆兊煤荛L。所以，在程序設(shè)計中，我們需要使用循環(huán)結(jié)構(gòu)，來進(jìn)行一系列重復(fù)的動作。在VB中，當(dāng)需要對某一段程序反復(fù)執(zhí)行多次，且反復(fù)執(zhí)行的次數(shù)是可以預(yù)知的或可以用某種條件控制的，就可以使用循環(huán)結(jié)構(gòu)。1為什么要使用循環(huán)結(jié)構(gòu)？

使用循環(huán)結(jié)構(gòu)，上述程序可以修改為：1為什么要使用循環(huán)結(jié)構(gòu)？PrivateSubForm_Click()

ForI=1To6Print"**********"NextIEndSub

與前面的程序相比，循環(huán)結(jié)構(gòu)使得程序更加清晰，功能更加強大，修改也更加方便。

在VB中，通?？梢允褂萌缦卵h(huán)語句：

■For…Next語句：適合處理循環(huán)次數(shù)預(yù)知的循環(huán)問題。

■

While...Wend語句、Do…Loop語句：適合處理用循環(huán)條件控制的循環(huán)問題。1為什么要使用循環(huán)結(jié)構(gòu)？

For…Next循環(huán)語句適合處理循環(huán)次數(shù)已知的循環(huán)結(jié)構(gòu)。

For…Next循環(huán)語句的格式：

For<循環(huán)控制變量>=<初值>TO<終值>[Step<步長>]<循環(huán)體>

[ExitFor]Next<循環(huán)控制變量>2For…Next循環(huán)語句ForI=1To6Print"**********"NextI

For…Next循環(huán)語句的執(zhí)行過程

2For…Next循環(huán)語句循環(huán)變量賦初值循環(huán)變量未超過終值?循環(huán)體循環(huán)變量加上一個步長FalseTrue功能：

當(dāng)循環(huán)變量的值在初值到終值范圍內(nèi)時,執(zhí)行一次循環(huán)體中的語句塊,并使初值增加一個步長。當(dāng)循環(huán)變量的值不在初值到終值范圍內(nèi)時,就退出循環(huán),執(zhí)行Next后面的語句。

2For…Next循環(huán)語句④注意：（1）For循環(huán)語句是先判斷后執(zhí)行。（2）當(dāng)退出循環(huán)后，循環(huán)變量的值保持退出時的值。（3）在循環(huán)體內(nèi)可多次引用循環(huán)控制變量，但最好不要給它賦值，否則會影響原來的循環(huán)控制規(guī)律。例題1計算S=1+2+3+……+100PrivateSubForm_Click()

DimSAsInteger,IAsIntegerS=0ForI=1To100S=S+INextIPrint"1+2+3+……+100=",SEndSub■問題3：根據(jù)例題1，自己編寫程序計算20！，與計算累加和相比，計算階乘時應(yīng)注意什么問題？例題2：七彩字PrivateSubForm_click()Dimi%Randomize

Fori=1To1000 Form1.CurrentX=500+i Form1.CurrentY=500+i

ForeColor=RGB(Int(256*Rnd),Int(256*Rnd),Int(256*Rnd)) Print"Hello"

NextiEndSub3While循環(huán)語句While循環(huán)又稱“當(dāng)”型循環(huán)，它是通過“循環(huán)條件”控制重復(fù)執(zhí)行一組語句。While<循環(huán)條件> <循環(huán)體>Wend例題2：使用while語句，計算：S=1+2+3+……100的值。

Do…Loop循環(huán)語句的四種形式4Do…Loop循環(huán)語句DoWhile<條件><循環(huán)體>[ExitDo]LoopDo<循環(huán)體>[ExitDo]LoopWhile<條件>DoUntil<條件><循環(huán)體>[ExitDo]LoopDo<循環(huán)體>[ExitDo]LoopUntil<條件>

四種形式的Do…Loop語句的比較：

■四種循環(huán)結(jié)構(gòu)都是以Do語句開始，而以Loop語句結(jié)束。

■若循環(huán)控制條件跟在Do語句后，則要先判斷條件，再執(zhí)行循環(huán)體，因此是一種當(dāng)型循環(huán)；若循環(huán)控制條件跟在Loop語句后，則是先執(zhí)行循環(huán)體，再判斷條件

■若條件語句使用While，則當(dāng)條件為真時，執(zhí)行循環(huán)體，條件為假時，退出循環(huán)；若條件語句使用Until，則當(dāng)條件為假時，執(zhí)行循環(huán)體，條件為真時，則退出循環(huán)。4Do…Loop循環(huán)語句例題2：分別使用四種形式的Do…Loop語句，計算：S=1+2+3+……100的值。例題2-1用Do語句計算1+…+100PrivateSubForm_Click()

DimSAsInteger,IAsIntegerS=0I=0DoWhileI<=100S=S+II=I+1LoopPrint"1+2+3+……+100=",SEndSub例題2-2用Do語句計算1+…+100PrivateSubForm_Click()

DimSAsInteger,IAsIntegerS=0I=0DoS=S+II=I+1LoopWhileI<=100Print"1+2+3+……+100=",SEndSub例題2-3用Do語句計算1+…+100PrivateSubForm_Click()

DimSAsInteger,IAsIntegerS=0I=0DoUntilI>100S=S+II=I+1LoopPrint"1+2+3+……+100=",SEndSub例題2-4用Do語句計算1+…+100PrivateSubForm_Click()

DimSAsInteger,IAsIntegerS=0I=0DoS=S+II=I+1LoopUntilI>100Print"1+2+3+……+100=",SEndSub趣味問題1有一箱球（1到100個），如果一次數(shù)4個則余2個，一次數(shù)5個則余3個，一次數(shù)6個正好，問有多少個球？

無論是For循環(huán)還是Do循環(huán)，它們的循環(huán)體中還再次可以包含循環(huán)語句，這樣就形成了循環(huán)嵌套（也叫多重循環(huán)）。在VB中，F(xiàn)or循環(huán)和Do循環(huán)可以互相嵌套。5循環(huán)嵌套

循環(huán)嵌套的結(jié)構(gòu)

內(nèi)層循環(huán)必須完整地嵌套在外層循環(huán)之內(nèi)，即內(nèi)層循環(huán)是外層循環(huán)體的一部分，內(nèi)外層循環(huán)不能交叉。例如：

循環(huán)嵌套的執(zhí)行過程

多重循環(huán)的執(zhí)行由里向外展開，即先執(zhí)行內(nèi)層循環(huán)，再執(zhí)行外層循環(huán)。例如，一個三重循環(huán)的執(zhí)行過程與鐘表的秒針、分針和時針的運轉(zhuǎn)類似。5循環(huán)嵌套以下程序段，每層循環(huán)各執(zhí)行多少次？寫出運行結(jié)果。

ForI=1To3Print"######"ForJ=1To2Print"@@@@@@" NextJNextI5循環(huán)嵌套分析

■根據(jù)前面的經(jīng)驗，計算階乘可以用循環(huán)結(jié)構(gòu)完成，計算階乘的累加和也可以使用循環(huán)結(jié)構(gòu)完成。

■構(gòu)造兩重循環(huán)，外層循環(huán)實現(xiàn)累加，完成和的計算；內(nèi)層循環(huán)實現(xiàn)累乘，完成階乘的計算。例題3：計算S=1！+2！+3！+……+20！VB程序設(shè)計基礎(chǔ)課件例題3計算S=1!+2!+……+20!PrivateSubForm_Click()

DimSAsSingle,tempAsSingleDimIAsInteger,JAsIntegerS=0ForI=1To20

temp=1ForJ=1ToI

temp=temp*JNextJS=S+tempNextIPrint"1!+2!+……20!=",SEndSubVB程序設(shè)計基礎(chǔ)課件6循環(huán)語句使用舉例例題4：找出100~999之間的所有水仙花數(shù)。所謂水仙花數(shù)，是指這樣三位數(shù)：它的各位數(shù)字的立方和等于它本身。例如：407=43+03+73

。例題5：編程輸出乘法口訣例題4找出所有的水仙花數(shù)PrivateSubForm_Click()DimIAsInteger,aAsIntegerDimbAsInteger,cAsIntegerForI=100To999

a=I\100b=(I-100*a)\10c=I-100*a-10*b

IfI=a^3+b^3+c^3ThenPrintINextIEndSub例題5輸出乘法口訣—1PrivateSubForm_Click()Dimi%,j%Fori=1To9 Forj=1Toi Printi*j; Nextj PrintNextiEndSubPrivateSubform_Click()ForI=1To9ForJ=1ToI

PrintI;"*";J;"=";I*J;

'不換行NextJ

Print'換行NextIEndSub例題5輸出乘法口訣—2例6輸出圖形PrivateSubpicture1_Click()Picture1.Cls'清除圖片框

n=Val(InputBox("請輸入行數(shù)"))

Fori=1Ton Picture1.PrintTab(n+1-i);'控制打印起點

Forj=1To2*i-1 Picture1.Print"*";

Nextj Picture1.Print

Nex