基礎(chǔ)vb循環(huán)計(jì)算

學(xué)案23循環(huán)語(yǔ)句1．掌握DO語(yǔ)句的基本格式2.掌握FOR語(yǔ)句的基本格式3.能夠通過(guò)簡(jiǎn)單循環(huán)語(yǔ)句程序代碼，計(jì)算出程序運(yùn)行的結(jié)果4.在程序設(shè)計(jì)過(guò)程中能熟練應(yīng)用DO語(yǔ)句與FOR語(yǔ)句解決簡(jiǎn)單問(wèn)題重點(diǎn)：掌握DO語(yǔ)句與FOR語(yǔ)句基本格式及其區(qū)別難點(diǎn)：在程序設(shè)計(jì)過(guò)程中能熟練應(yīng)用DO語(yǔ)句與FOR語(yǔ)句解決問(wèn)題目標(biāo)定位1自學(xué)導(dǎo)引2循環(huán)語(yǔ)句的功能是實(shí)現(xiàn)程序中的語(yǔ)句的重復(fù)。VB中循環(huán)語(yǔ)句主要有For語(yǔ)句和Do語(yǔ)句兩種。1．For語(yǔ)句的基本格式For循環(huán)變量＝初值

To終值

Step步長(zhǎng)循環(huán)體Next循環(huán)變量For后面的循環(huán)變量在初值到終值之間每取得一個(gè)合理值，就執(zhí)行一次循環(huán)體，直到循環(huán)變量的取值超出初值與終值之間的范圍。當(dāng)步長(zhǎng)為1的時(shí)候

Step1可以省略，步長(zhǎng)可以是正數(shù)，也可以是負(fù)數(shù)，但是不能為0或者小數(shù)。當(dāng)步長(zhǎng)為負(fù)數(shù)的時(shí)候，初值必須大于終值。32．Do語(yǔ)句的基本格式DoWhile條件表達(dá)式循環(huán)體LoopDowhile后面的條件表達(dá)式結(jié)果為True的時(shí)候，就執(zhí)行一次循環(huán)體，直到條件表達(dá)式的結(jié)果為False，跳出循環(huán)。4實(shí)例點(diǎn)撥5

有如下程序段：x＝1for

y＝1to5step2x＝x*ynext

y該程序執(zhí)行后，變量x的值是______________，y的值是______________。答案：15

76解析：本題考查的是循環(huán)結(jié)構(gòu)程序運(yùn)行后，相關(guān)變量的值。For后面的循環(huán)變量每取得一個(gè)合法的值，循環(huán)體就執(zhí)行一次。因此，程序運(yùn)行過(guò)程中x、y的值如下表：第幾次循環(huán)y的取值x的取值11x＝1*1=123x＝1*3=335x＝3*5=1547結(jié)束循環(huán)7

有VisualBasic程序段如下：x＝－3DoWhilex<0x＝x＋

2Loop該程序段運(yùn)行后，變量x的值是(

)A．－3

B．－1

C．1

D．3答案：C8解析：x的初值為－3，所以關(guān)系表達(dá)式x<0結(jié)果為True，執(zhí)行循環(huán)體x＝x＋

2，x的值變?yōu)椋?。x的為－1，關(guān)系表達(dá)式x<0結(jié)果為True，執(zhí)行循環(huán)體x＝x＋

2，x的值變?yōu)?。x的值為1時(shí)，關(guān)系表達(dá)式x<0結(jié)果為False，循環(huán)結(jié)束。所以本題答案為C。93．下列VB程序運(yùn)行時(shí)，單擊命令按鈕Command1后，文本框Text1中顯示的內(nèi)容是______________，文本框Text2中顯示的內(nèi)容是______________。PrivateSubCommand1_Click(

)Dima(1To5)AsLong,iAsIntegera(1)＝1Fori＝2To5a(i)＝a(i

－

1)*iNextiText1.Text＝Str(a(2))Text2.Text＝Str(a(5))EndSub10答案：2

120解析：a(1)＝1，當(dāng)i＝2的時(shí)候

a(2)＝a(1)*2＝2；當(dāng)i＝3的時(shí)候

a(3)＝a(2)*3＝2*3=6;當(dāng)i=4的時(shí)候a(4)=a(3)*4=6*4=24;當(dāng)i=5的時(shí)候a(5)=a(4)*5=24*5=120;當(dāng)i=6的時(shí)候超出初值與終值的范圍,循環(huán)結(jié)束，本題Txet1.Text=Str(a(2)),Text1中顯示的是a(2)的值2,Text2.Text=Str(a(5)),Text1中顯示的是a(5)的值120。11自學(xué)檢測(cè)121．如圖所示循環(huán)結(jié)構(gòu)的算法，回答以下問(wèn)題：(1)循環(huán)變量?？刂蒲h(huán)的變量是_______，其變化范圍________，每次變化的增量是________。(2)循環(huán)體。循環(huán)體語(yǔ)句是______________，該語(yǔ)句的功能是_____________________，重復(fù)執(zhí)行的次數(shù)為_________。(3)該算法的功能是__________________________________。

k

[5,100]

5

s＝s＋k

將s＋k的結(jié)果賦值給s

20

求s＝5＋10＋15＋……＋100的和

132．有如下visualbasic程序段：

s＝1i＝10Dowhilei>＝1s＝s*i*(i－1)__①__loop若要使語(yǔ)句s＝s*i*(i－1)執(zhí)行5次，則①

處空格內(nèi)應(yīng)填寫的語(yǔ)句是(

)A．s＝s＋2

B．s＝s－2C．i＝i＋2

D．i＝i－2D

143．有如下VisualBasic程序段：Forx＝10To1Step－1

a(x)＝x＋

1Nextx該程序段運(yùn)行后數(shù)組元素a(3)的值為(

)A．9 B．8 C．4 D．34．下列語(yǔ)句是用于計(jì)算sum＝1＋3＋5＋7＋……

＋99的VisualBasic語(yǔ)句：①

s＝s＋i

②

nexti

③

s＝0

④

fori＝1to99step2正確的語(yǔ)句序列是(

)A．③④①②

B．①④③②

C．④③①②

D．③④②①

C

A

155．以下visualbasic程序段：

s＝0Fori＝1to10step3s＝s＋i*iNexti該程序段執(zhí)行完后，變量i的值為(

)A．1

B．10

C．11

D．13D

166．分析以下visualbasic程序段的功能k＝a(1)fori＝2to10ifa(i)<kthenk＝a(i)nextitext1.text＝str(k)(1)分析循環(huán)變量。該程序段中，循環(huán)變量是_______，其變化范圍是______，步長(zhǎng)是________，因此循環(huán)體執(zhí)行次數(shù)為__________。i

[2,10]

1

9

17(2)分析循環(huán)體的功能，該程序段中，循環(huán)體語(yǔ)句是____________________。(3)如果數(shù)組元素a(1)到a(10)的值依次是：88、22、45、36、17、46、31、23、55、12，該程序運(yùn)行后text1輸出的結(jié)果是____________________。

ifa(i)<kthenk＝a(i)

12

187．有如下VB程序段：

Dima(lTo5)AsInteger,iAsInteger,cAsInteger

a(l)＝2:a(2)＝1:a(3)＝3:a(4)＝4:a(5)＝5

c＝0

Fori＝3To5Ifa(i

－

2)＋

a(i

－

1)＝a(i)Thenc＝c＋

1

NextiTextl.Text＝Str(c)該程序段運(yùn)行后，文本框Textl中顯示的內(nèi)容是(

)A．1

B．2

C．3

D．4B

198．有如下程序段：DimkAsInteger，sAsIntegerk＝0；s＝0DoWhilek＞＝10k＝k＋1s＝s＋kLoop該程序段執(zhí)行后，變量s的值是(

)A．0

B．1

C．10

D．11A

209．運(yùn)行如下VisualBasic程序，單擊命令按鈕Command1，出現(xiàn)如圖所示的出錯(cuò)信息。發(fā)生“下標(biāo)越界”錯(cuò)誤時(shí)所執(zhí)行的語(yǔ)句是(

)PrivateSubCommand1_Click(

)

Dima(0To5)AsInteger

DimiAsInteger′①