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

1、循環(huán)結(jié)構(gòu)VB程序設(shè)計3.3.1 3.3.1 ForFor循環(huán)語句循環(huán)語句 ( (一般用于循環(huán)次數(shù)已知一般用于循環(huán)次數(shù)已知) )形式如下：形式如下：For For 循環(huán)變量初值循環(huán)變量初值 to Step 語句塊語句塊 Exit For 語句塊語句塊Next 循環(huán)變量循環(huán)變量循環(huán)變量循環(huán)變量: :必須是數(shù)值型必須是數(shù)值型語句塊語句塊: :可以是一條或多條語句可以是一條或多條語句, , 稱之為循環(huán)體稱之為循環(huán)體 For For 循環(huán)流程圖循環(huán)流程圖有Exit ForFTTF循環(huán)變量得到初值循環(huán)變量在終值內(nèi)語句塊循環(huán)變量加步長Exit for :Exit for :當(dāng)遇到該語句當(dāng)遇到該語句, ,退出

2、循環(huán)退出循環(huán), , 執(zhí)行執(zhí)行NextNext的下一條語句的下一條語句步長步長0 初值初值 終值終值 =1 =1 時時, ,可省略可省略 終值終值=0 死循環(huán)死循環(huán)循環(huán)次數(shù)循環(huán)次數(shù)intint（終值終值- -初值）初值）/ /步長步長+1+1）例例: :For I=2 To 13 Step 3 Print I , Next I Print : Print “I=“; I結(jié)果：結(jié)果： 輸出輸出I I的值分別為的值分別為: : 2 5 8 11循環(huán)執(zhí)行次數(shù)：循環(huán)執(zhí)行次數(shù)：4) 1(3213Int循環(huán)結(jié)束輸出為循環(huán)結(jié)束輸出為: : I=14I=14( (初值初值+ +循環(huán)次數(shù)循環(huán)次數(shù)* *步長步長)

3、)思考：若初值和終值顛倒，循環(huán)執(zhí)行幾次？若初值和終值顛倒，循環(huán)執(zhí)行幾次？ 若步長若步長Step為為-3，循環(huán)幾次？，循環(huán)幾次？下面程序的作用是什么？下面程序的作用是什么？Private Sub Form_Load()Dim i As Integer, s As Integer Show 加載窗體時，顯示數(shù)據(jù)加載窗體時，顯示數(shù)據(jù)s = 0For i = 2 To 100 Step 2 s = s + iNext iPrint s=; sEnd Sub例：求自然數(shù)例：求自然數(shù)1-301-30的乘積的乘積( (即即3030的階乘的階乘) )Private Sub Form_Click()s = 1F

4、or i = 1 To 10 s = s * i Print i; 的階乘是：的階乘是：; sNext iEnd Sub習(xí)題1、計算下列循環(huán)的次數(shù)、計算下列循環(huán)的次數(shù) （1）For I= -3 To 20 Step 4 （4）For I= -3 To 20 Step 02119不循環(huán)不循環(huán)無數(shù)次無數(shù)次2、要使下列、要使下列For語句循環(huán)執(zhí)行語句循環(huán)執(zhí)行20次，循環(huán)變量的次，循環(huán)變量的初值應(yīng)當(dāng)是：初值應(yīng)當(dāng)是： For k= _ To 5 Step -2333、以下、以下_是正確的是正確的ForNext結(jié)構(gòu)。結(jié)構(gòu)。 A. For x = 1 Next xFor x=3 To 10 Step 3 N

5、ext yB. For x=3 To 3 Step 3 Next xB3.3.2 3.3.2 DoDoLoopLoop循環(huán)語句循環(huán)語句 ( (用于控制循環(huán)次數(shù)未知用于控制循環(huán)次數(shù)未知) )形式形式1：形式形式2：Do While|Until 語句塊語句塊 Exit Do 語句塊語句塊LoopDo 語句塊語句塊 Exit Do 語句塊語句塊Loop While|Until Do While Do While Loop Loop 流程圖流程圖Do Do While Loop While Loop 流程圖流程圖條件語句塊語句塊TF語句塊語句塊條件TF有Exit DoFT有Exit DoFT注意：注意

6、： 1. 1.形式形式1 1先判斷后執(zhí)行，有可能一次也不執(zhí)行；先判斷后執(zhí)行，有可能一次也不執(zhí)行； 形式形式2 2先執(zhí)行后判斷，最少執(zhí)行一次循環(huán)體。先執(zhí)行后判斷，最少執(zhí)行一次循環(huán)體。 2. 2.WhileWhile用于指明條件為真時執(zhí)行循環(huán)體；用于指明條件為真時執(zhí)行循環(huán)體； UntilUntil剛好相反。剛好相反。 3. 3.當(dāng)省略了當(dāng)省略了 While|UntilWhile|Until 子句，表示子句，表示 無條件循環(huán)，循環(huán)體中應(yīng)有無條件循環(huán)，循環(huán)體中應(yīng)有Exit DoExit Do語句，語句， 否則為死循環(huán)。否則為死循環(huán)。Exit DoExit Do語句時退出循環(huán)，執(zhí)行語句時退出循環(huán)，執(zhí)行L

7、oopLoop下一下一 條語句。條語句。例例: :我國有我國有13.213.2億人口億人口, ,按出生率為按出生率為0.5%0.5%的增長的增長率率, ,多少年后超過多少年后超過2020億億Private Sub Form_Load()Dim m As DoubleDim yearr As IntegerShowm = 1320000000#: yearr = 0Do While m 200000000000# yearr = yearr + 1LoopPrint yearr; 年后我國的人口為：年后我國的人口為：; mEnd SubDoLoop循環(huán)循環(huán)解決算術(shù)運(yùn)算解決算術(shù)運(yùn)算 例例3-13D

8、oLoop與 ForNext的轉(zhuǎn)換 For I=1 to 10 I=1 Do Next I=I+1 Loop While I=101、DoLoop替換替換ForNext2、ForNext替換替換DoLoop Do For While 循環(huán)條件循環(huán)條件 If 循環(huán)條件為假循環(huán)條件為假 Then Exit For Next 讓讓For語句語句循環(huán)無數(shù)次？循環(huán)無數(shù)次？求求 m=14 ,n=6m=14 ,n=6 的最大公約數(shù)。的最大公約數(shù)。If m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公約數(shù)最大公約數(shù)=, n 2, 輸入一個數(shù)，判斷該數(shù)是否為素數(shù)。輸入一個數(shù)，判斷該數(shù)是否為素數(shù)。 素數(shù)只能被素數(shù)只能被1和他本身整除的數(shù)（例：和他本身整除的數(shù)（例：5，7，11）。）。Dim a As Integer , ii As Integera=Val ( InputBox(“請輸入一個數(shù)請輸入一個數(shù)”)