電子章循環(huán)結(jié)構(gòu)

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

循環(huán)結(jié)構(gòu)For循環(huán)控制結(jié)構(gòu)用于需要重復(fù)執(zhí)行的語句.

格式：

For循環(huán)變量=初值To終值[Step步長] [循環(huán)體][ExitFor]Next[循環(huán)變量]

注意:

循環(huán)變量,用于控制循執(zhí)行的變量.1.初值,終值,步長其值是數(shù)值表達(dá)式(可以是浮點(diǎn)數(shù))2.初值小于終值,步長為正數(shù).

初值大于終值,步長為負(fù)數(shù).*

步長不能取值為0,如果步長為1,則可省略不寫.

4.ExitFor用于提前退出循環(huán)過程.5.Next的循環(huán)變量和For循環(huán)變量一樣,也可以不寫.ForI=1to100step2sum=sum+INexti6.For循環(huán)執(zhí)行步驟:(1).步長值為正值時

forI=1to10step2printinext

第一次執(zhí)行時是把初值賦給循環(huán)控制變量,接著判斷循環(huán)變量是否小于等于終值.

如果小于等于終值,就執(zhí)行一次循環(huán),否則跳出循過程.以后執(zhí)行循環(huán)時,是把循環(huán)控制變量加上步長值,賦給循環(huán)控制變量,接著判斷是否小于等于終值,滿足條件就執(zhí)行,不滿足就不執(zhí)行.

例:打印AAAAAAAAA(2).步長值為負(fù)值時

forI=10to1step-2printInext

第一次執(zhí)行時是把初值賦給循環(huán)控制變量,接著判斷循環(huán)變量是否大于等于終值.如果大于等于終值,就執(zhí)行一次循環(huán),否則跳出循過程.以后執(zhí)行循環(huán)時,是把循環(huán)控制變量加上步長值,賦給循環(huán)控制變量,接著判斷是否大于等于終值,滿足條件就執(zhí)行,不滿足就不執(zhí)行.先判斷后執(zhí)行的原則7.循環(huán)次數(shù)的確定:

循環(huán)次數(shù)=int((終值-初值)/步長)+1

在循環(huán)體內(nèi)可以被引用或著賦值.

引用時,稱作“操作變量”,不被引用的循環(huán)變量叫做“形式變量”.

8.關(guān)于循環(huán)體內(nèi)使用ExitFor語句例:判斷一個數(shù)是否為素數(shù).

把一個循環(huán)放在另一個循環(huán)體內(nèi).叫做嵌套循環(huán)或者叫多重循環(huán).

格式:N個循環(huán).當(dāng)具有相同終點(diǎn)時,可以寫成

next i,j,k….

當(dāng)循環(huán)當(dāng)循環(huán)(WhileWend)格式:While條件

[語句]Wend

當(dāng)條件為true時就執(zhí)行循環(huán).否則就不執(zhí)行循環(huán).

例:我國現(xiàn)有人口13億,人口年增長率1.2%,計算多少年后增加到20億.while1print“k”;wendDoLoop循環(huán)格式:1.DoWhile條件2.DoUntil條件

[語句][語句][ExitDo][ExitDo]LoopLoop

3.Do4.Do[語句][語句][ExitDo][ExitDo]LoopWhile條件LoopUntil條件說明:1.第一,三兩種叫當(dāng)循環(huán)(條件為真時執(zhí)行)

第二,四兩種叫直到循環(huán)（條件為假時執(zhí)行）

2.第三四兩種不管條件滿不滿足,至少要執(zhí)行一次循環(huán).3.ExitDo用于提前退出循環(huán)過程。WhileWend里面沒有。強(qiáng)化訓(xùn)練11.編寫如下程序:PrivateSubCommand1_Click()Dimiasinteger,jasintegern=inputbox(“輸入一個大于1的正整數(shù)”)Fori=2tonForj=2tosqr(i)Ifimodj=0thenexitforNextjIfj>sqr(i)thenprintiNextiEndsub該程序的功能是

A.輸出n以內(nèi)所有的素數(shù)B.輸出n以內(nèi)所有的奇數(shù)C.輸出n以內(nèi)所有的偶數(shù)D.判斷n是否為素數(shù)2.窗體的單擊事件過程如下:Privatesubform_click()K=1Fori=5to1step-1T=t*10+kS=s+tNextiPrintsEndsub運(yùn)行程序時，單擊窗體后,顯示的是A.12345 B.11111 C.54321 D.023.For循環(huán)的循環(huán)控制變量

A.當(dāng)出現(xiàn)在循環(huán)體內(nèi)時,一定會改變循環(huán)次數(shù)

B.不能再循環(huán)體內(nèi)出現(xiàn)

C.可以出現(xiàn)在循環(huán)體內(nèi),也可以不出現(xiàn)在循環(huán)體內(nèi)

D.必須在循環(huán)體內(nèi)出現(xiàn)4.有如下程序:PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=1Fori=1To4Forj=1Tois=s+jNextjp=p*sNextiPrintpEndSub程序運(yùn)行后,單擊窗體，則輸出結(jié)果是A.400 B.180C.800 D.903-45.在窗體上畫1個名稱為command1的命令按鈕,并編寫如下事件過程:PrivateSubCommand1_Click()x=1s=0Fori=1To5x=x/is=s+xNextPrintsEndSub該事件過程的功能是計算A.

B.

C.

D.56.窗體上有1個名稱為command1的命令按鈕,事件過程如下:Privatesubcommand1_click()Dimx%,y%,z%X=inputbox(“請輸入第1個整數(shù)”)Y=inputbox(“請輸入第2個整數(shù)”)DoUntilx=yIfx>ythenx=x-yelsey=y-xLoopPrintxEndsub運(yùn)行程序,單擊命令按鈕,并輸入2個整數(shù)169和39，則在窗體上顯示的內(nèi)容為A.39 B.13

C.23 D.1167.有下面程序代碼:PrivateSubCommand1_Click()i=1DoWhilei<5 Doj=j+1print“*”;LoopUntili+j>103>104>1010>1011>105>10...printi=i+2

LoopEndSub程序運(yùn)行時輸出字符“*”的個數(shù)是A.15

B.50 C.16 D.2078.編寫如下程序:Privatesubcommand1_click()Dimxasinteger,yasintegerx=1y=1

Doy=x*y