高中信息技術(shù)中的VB循環(huán)語(yǔ)句復(fù)習(xí)題

高中信息技術(shù)VB循環(huán)語(yǔ)句瀏覽題閱覽題會(huì)考復(fù)習(xí)題

學(xué)校:姓名：班級(jí)：考號(hào)：

評(píng)卷人得分

一、選擇題

1.下列程序運(yùn)行后的運(yùn)行成果為_(kāi)__。

X=8：Y=X：Z=10

IFX<=YTHEN

PRINTX；Y；

ELSE

IFZ>=XTHEN

PRINTZ

ENDIF

ENDIF

A.108

B.88

C.1010

D.810

【答案】B

【解析】

2.數(shù)組排序。點(diǎn)擊〃產(chǎn)生隨機(jī)數(shù)〃按鈕，讓計(jì)算機(jī)隨機(jī)產(chǎn)生10個(gè)整數(shù)，并對(duì)這10個(gè)整

數(shù)進(jìn)行標(biāo)號(hào)，再點(diǎn)擊〃排序〃按鈕，對(duì)這10個(gè)整數(shù)進(jìn)行從大到小排序。如圖所示。

程序代碼如下：

Dima(lTo10)AsInteger

Dim\,j,k,ktAsInteger

PrivateSubCommandl_Click()

Listl.Clear，清除列表框數(shù)據(jù)

Fori=1To10

Randomize'隨機(jī)數(shù)初始化

a(i)=lnt(Rnd()*1000)

Listl.AddltemStr(i)+"=〃+Str(a(i))

Nexti

Command2.Enabled=True'激活排序按鈕

EndSub

PrivateSubCommand2_Click()

Fori=1To9

k=i

Forj=①To10

Ifa(j)>a(k)Thenk=j

Nextj

Ifi<>kThen

一②—

EndIf

Nexti

List2.Clear

Fori=1To10

List2.AddltemStr(i)+"="+Str(a(i))

Nexti

EndSub

請(qǐng)?jiān)冖?、②劃線處填入合適的語(yǔ)句或體現(xiàn)式，把程序補(bǔ)充完整：

程序中①劃線處應(yīng)填入;

程序中②劃線處應(yīng)填入O

【答案】①1+1；②t=a(k)：a(k)=a(i):a(i)=t

【解析】

3.由“Fork=35To0Step3:Nextk”循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是。

A、12B、0C、-10D、-11

【答案】B

【解析】

4.Subtest7()

Fori=1To6

S=S+(-1)Ai*2Ai

Nexti

MsgBox⑸

Endsub

該程序的運(yùn)行成果是（）

A、126B、-126C、-42D、42

【答案】D

【解析】

5.Subtest2（）

a=12：b=12：c=5

Labell.Caption=""

Label2.Caption=""

Ifa>bOrNotb<cThen

Labell.Caption="monday"

Else

Label2.Caption="tiger"

EndIf

LabeB.Caption="Labell.Caption+"Labell.Caption

Endsub

該程序段運(yùn)行后，在標(biāo)簽Label3的Caption屬性值是（）

A."monday"B."tiger"C."mondaytiger"D.""

【答案】A

【解析】

6.根據(jù)下列程序段運(yùn)行后a時(shí)值，劃線處應(yīng)當(dāng)填入的合理數(shù)據(jù)類(lèi)型為（）

DimaAs________

a=1

Fori=1To8

a=a*i

Nexti

A、IntegerB、LongC、SingleD、Double

【答案】B

【解析】

7.小金編寫(xiě)了VB程序，部分程序如下所示，在調(diào)試程序的時(shí)候出現(xiàn)如圖所示的錯(cuò)誤

信息：

PrivateSubCommandl_Click()

DimxAsString,iAsInteger

Fori="1"To10

IfiModx="1"Then

x=“奇數(shù)”

Else

x="偶數(shù),，

Nexti

EndSub

產(chǎn)生此錯(cuò)誤的語(yǔ)句是（）。

A.ForB.EndIf

8.下圖是當(dāng)循環(huán)、直到循環(huán)兩種循環(huán)構(gòu)造,請(qǐng)結(jié)合下圖選擇下列說(shuō)法中對(duì)的的是

()

L^JU

寺循環(huán)d到循環(huán)

A.當(dāng)循環(huán)是當(dāng)條件成立退出循環(huán)

B.當(dāng)循環(huán)不也許出現(xiàn)不執(zhí)行循環(huán)環(huán)節(jié)的狀況

C.直到循環(huán)是條件成立時(shí)執(zhí)行循環(huán)環(huán)節(jié)

D.直到循環(huán)至少執(zhí)行一次循環(huán)環(huán)節(jié)

【答案】D

【解析】

9.對(duì)如下程序段的說(shuō)法對(duì)的的是()

s=0

i=0

DoWhiles<10

i=i+l

s=s+i*i

Loop

A.該程序的循環(huán)體執(zhí)行了3次

B.該程序段結(jié)束后i時(shí)值為3

C.該程序段結(jié)束后i時(shí)值為4

D.該程序段結(jié)束后s時(shí)值為13

【答案】ABD

【解析】

10.某算法的流程圖如下所示：

當(dāng)輸入a、b、c的值分別為5、2、8時(shí)，該算法時(shí)輸出成果為（）

A.8B.2C.5D.7

【答案】B

【解析】

11.若輸入兩數(shù)1,-4,輸出成果

/輸由m/

』?、

（結(jié)束'）

A.-5B.-3

C.5D.3

【答案】C

【解析】

12.某算法要實(shí)現(xiàn)0到100的偶數(shù)之和，流程圖如圖所示。則時(shí)+2被執(zhí)行的次數(shù)是

A.50B.51C.100D.101

【答案】B

【解析】

13.在某銀行取款機(jī)上，顧客銀行卡密碼驗(yàn)證的過(guò)程如下圖所示：當(dāng)顧客輸入密碼時(shí),

若第1次輸入錯(cuò)誤，第2次輸入才對(duì)的，則整個(gè)操作過(guò)程的執(zhí)行流程是（)

A、①今②3③今④今⑤

B、①T②今③今④今⑥今⑦

C、①今②今③今④今⑥今②今③今④今⑤

D、①今②今③〉④今⑥今⑦今②今③今④今⑤

【答案】C

【解析】

14.求兩數(shù)之和的算法是：輸入兩數(shù)a和b的值，計(jì)算c=a+b,輸出c的值。該算法的

基本構(gòu)造屬于()o

A.次序構(gòu)造B.選擇構(gòu)造C.循環(huán)構(gòu)造D.框架構(gòu)造

【答案】A

【解析】

15.下列VB程序段的運(yùn)行成果是：

Dima(lTo3)AsInteger

a(l)=l

Fori=2To3

a(i)=2*a(i-l)+l

Next

Printa(i-l)

A>0B、3C>7D、15

【答案】C

【解析】

16.有如下程序段：

Fori=1To2

Forj=2To7-i

Ifa(j)>a(j-1)Then

k=a(j):a(j)=a(j-1):a(j-1)=k

EndIf

Nextj

Nexti

數(shù)組元素a(l)到a(6)時(shí)值依次為“71,54,58,29,31,78”,通過(guò)該程序段"加工”后，

下列說(shuō)法對(duì)的的是()

A.數(shù)組元素a⑴到a(6的值依次為54,29,31,58,71,78

B.此過(guò)程中數(shù)據(jù)共需比較次數(shù)為8次

C.此過(guò)程中數(shù)據(jù)共需互換次數(shù)為5次

D.此過(guò)程中數(shù)據(jù)“54”共被比較5次

【答案】C

【解析】

17.某算法的部分流程圖如第5題圖所示。執(zhí)行這部分流程后，"x6x-2”被執(zhí)行的次

數(shù)為

【答案】C

【解析】

18.有如下VB程序，它的I輸出成果是

S=0

Fori=lTo10

Ifimod2=0ThenS=S+i

Nexti

Print"S=";S

A.S=0B.S=25C.S=30D.S=55

【答案】C

【解析】

19.下列VB程序段運(yùn)行完畢后，變量x的值為

x="2":y=64

Dowhilex<=Sqr(y)

x=x+3

Loop

A.2B.5C.8D.11

【答案】D

【解析】

20.某算法流程圖如圖所示，執(zhí)行該算法后，“sGs+i”共被執(zhí)行的次數(shù)是（）

A.0B.6C.7D.8

【答案】C

【解析】

21.小明編寫(xiě)一種模擬登錄的VB程序。當(dāng)輸入顧客名、密碼和驗(yàn)證碼，點(diǎn)擊登錄

按鈕后，會(huì)跳出信.息框提醒與否驗(yàn)證成功。部分程序與流程圖如下所示：

uname=Textl.Text'輸入顧客名

psd=Text2.Text'輸入密碼

vcode=Val(Text3.Text),輸入驗(yàn)證碼

Ifvcode<>Val(Label3.Caption)Then

MsgBox,Label3顯示的I是隨機(jī)驗(yàn)證碼

Elselfuname<>"admin"Orpsd<>"123456"Then

MsgBox”

Else

MsgBox"I_____O___"

方框中對(duì)時(shí)的語(yǔ)句是()o

A.①中“驗(yàn)證成功"B.②中"輸出顧客名或密碼有誤"

C.②中“驗(yàn)證成功D.③中“輸出驗(yàn)證碼錯(cuò)誤”

【答案】B

【解析】

Subtest3()雙重循環(huán)運(yùn)行輸出圖形與3反復(fù)，但3已改題

Fori="1"To22.step1

s=""

Forj="l"To2*i-l

s="Str(j)"+s

Nextj

Listl.Additems

Nexti

EndSub

該程序時(shí)運(yùn)行后列表框輸出的第三行是()

A.33333B.55555C.12345D.54321

【答案】D

【解析】

23.若輸入28,以上代碼輸出成果是

Dimxaslong

x=inputbox（〃輸入x時(shí)值〃）

y="x"mod7

ify="4"ory="5"ory="6"then

xq=y-3

else

xq=y+4

endif

printxq

【答案】4

【解析】

24.下列為部分VB程序語(yǔ)句代碼：（）

Fori=lTo10Step

s=s/2

Nexti

上述程序語(yǔ)句執(zhí)行結(jié)束后，s時(shí)值為2,則循環(huán)語(yǔ)句的步長(zhǎng)（劃?rùn)M線處）應(yīng)填（

A.1B.2C.3D.4

【答案】C

【解析】

25.如圖所示的部分流程圖中，”ses+i〃被執(zhí)行次數(shù)為()

1

A.0B.1

C.32D.33

【答案】C

【解析】

26.如下語(yǔ)句中錯(cuò)誤的是()

A.Constvarl=123

B.Dimvar2AsString

C.x+y=9

D.Dimd(lto500)AsDouble

【答案】c

【解析】

27.如下有關(guān)循環(huán)構(gòu)造的描述中，對(duì)的的是()o

A.與分支構(gòu)造不一樣，循環(huán)構(gòu)造一定會(huì)對(duì)循環(huán)條件進(jìn)行多次判斷。

B.循環(huán)構(gòu)造中，反復(fù)執(zhí)行的內(nèi)容有時(shí)候一次都不被執(zhí)行。

C.在循環(huán)構(gòu)造的流程圖中，除了有向下的流程線外還應(yīng)有向上返回的流程線。

D.根據(jù)實(shí)際需要，在流程圖中可出現(xiàn)多種循環(huán)構(gòu)造。

【答案】BCD

【解析】

評(píng)卷入得分

28.求兩個(gè)整數(shù)的最大公約數(shù)分析：求最大公約數(shù)的算法思想：

(1)對(duì)于已知兩數(shù)m,n,使得m>n；

(2)m除以n得余數(shù)r；

(3)若r=0,則n為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行(4)；

(4)m?-n,n<-r,再反復(fù)執(zhí)行(2)。

例如：求m=14,n=6歐J最大公約數(shù).

Mnr

1462

620

請(qǐng)根據(jù)以上思緒補(bǔ)充下面的程序代碼：

PrivateSubCommandl_Click()

m=lnputBox("m=")

n=lnputBox("n=")

Ifm<nThent=m:m=n:n=t

DoWhile(r<>0)

r=mModn

Loop

Print"最大公約數(shù)=",n

EndSub

【答案】mmodn

【解析】

評(píng)卷人得分

29.有如下VisualBasic程序段：

s=0

n=l

fori=4to1step-1

n=n*i

s=s+a

nexti

問(wèn)：該程序段運(yùn)行后，

(1)共循環(huán)次。

(2)變量s的值是o

【答案】(1)4(2)64

【解析】

30.小貝對(duì)街機(jī)中的"打手掌"游戲很感謝愛(ài)好，于是也用VB做了個(gè)打手游戲，界面如

圖。點(diǎn)擊開(kāi)始按鈕command!.,標(biāo)簽labell開(kāi)始從3秒倒計(jì)時(shí)，倒計(jì)時(shí)結(jié)束開(kāi)打，假如

打中手掌，labell顯示"打中了"，假如超過(guò)去3.1秒，則顯示"沒(méi)打中"，游戲結(jié)束。點(diǎn)開(kāi)始

按鈕可以重來(lái)。請(qǐng)根據(jù)題意將下列程序補(bǔ)充完整。

?打手茅成-1□1x|

1

開(kāi)始

DimtAsInteger弋用來(lái)計(jì)時(shí)

PrivateSubCommandl_click()

lmagel.left=64

Labell.caption^

t=0

Terval=100

(1)_______________

lmagel.Enabled=False

Endsub

PrivateSublmagel_click()

Timerl.Enabled=False

Imagel.Enadled=False

Labell.caption="打中了"

EndSub

PrivateSubTimerl.Timer()

t=t+l

ift<=30thenlabell.caption=3-int(t/10)

ift>32then

labell.caption=〃沒(méi)打中”

Fori=lto10，手迅速移開(kāi)aI動(dòng)畫(huà)

lmagel.left=lmagel.left-20

Forj=lto10000

Doevents

Nextj

Nexti

Timerl.Enabled=False

lmagel.Enabled=False

Endif

Ift=30then

，當(dāng)t=30時(shí)，即倒計(jì)時(shí)3秒結(jié)束，容許開(kāi)打，對(duì)象imagel開(kāi)始容許響應(yīng)事件

(2)_____________

Endif

Endsub

【答案】

(1)timerl.enabled=true

(2)image1.enabled=true

【解析】

31.用VB編寫(xiě)時(shí)函數(shù)bubble_sort是一種用冒泡措施實(shí)現(xiàn)排序的函數(shù)，其調(diào)用時(shí)需要

三個(gè)參數(shù)：布爾類(lèi)型參數(shù)SX來(lái)確定是升序還是降序，SX為T(mén)rue時(shí)為升序，否則為降序;

整數(shù)型數(shù)組a()是待排序的數(shù)據(jù)，數(shù)據(jù)從a⑴開(kāi)始寄存；整數(shù)型參數(shù)n表達(dá)傳入的數(shù)組

長(zhǎng)度，該函數(shù)的返回值也是一種整數(shù)型數(shù)組。因此調(diào)用此函數(shù)實(shí)現(xiàn)排序非常以便:

例如有一種整數(shù)型數(shù)組a(lto10)需要降序排序，可以直接這樣調(diào)用：

a()=bubble_sort(False,a(),10)

該函數(shù)VB代碼如下：

Functionbubble_sort(sxAsBoolean,a()AsInteger,nAsInteger)Aslnteger()

Dimj,tAsInteger

Fori=lTon—1

Forj=①Step—1

If(2)Then

Ifa(j)<a(j-l)Thent=a(j)：a(j)=a(j-l)：a(j-l)=t

Else

lfa(j)>a(j-l)Thent=a(j)：a(j)=a(j-l)：a(j-l)=t

EndIf

Nextj

Nexti

bubble_sort=a()

EndFunction

請(qǐng)將代碼補(bǔ)充完整：

①o

②。

【答案】⑴ntoi+1(2)sx或者sx=True

【解析】

32.已知出租車(chē)計(jì)費(fèi)措施如下：旅程在3公里以?xún)?nèi)（包括3公里）收起步價(jià)10元，旅

程超過(guò)3公里不超過(guò)10公里(包括10公里)部分按每公里2元計(jì)費(fèi)，超過(guò)10公里部

分按每公里3元計(jì)費(fèi)?，F(xiàn)要設(shè)計(jì)一種VB出租車(chē)計(jì)費(fèi)系統(tǒng)程序，在旅程文本框中中輸入

旅程數(shù)，單擊計(jì)算按鈕可以計(jì)算出應(yīng)付金額并顯示到金額文本框中，請(qǐng)回答如下問(wèn)題:

圖一V圖二d

在設(shè)計(jì)該程序界面時(shí)，要從圖二界面到圖一界面，需要進(jìn)行哪些設(shè)置?

為計(jì)算按鈕添加單擊事件后，并在其中添加程序代碼，代碼如下:

DimdAsSingle

DimfAsSingle

d=Val(Textl.Text)

lfd<=3Then3公里如下計(jì)費(fèi)

f=10

endif

Ifd>3Andd<=10Then3公里至10公里計(jì)費(fèi)

，①

EndIf

lfd>10Then公里以上計(jì)費(fèi)

，②

EndIf

Text2.Text=Str(f)

請(qǐng)完善以上程序代碼，在①，②處填入對(duì)時(shí)時(shí)語(yǔ)句

①________________________________

②________________________________

完善程序代碼后，若輸入旅程數(shù)為10,則應(yīng)付金額為元

實(shí)現(xiàn)該程序所用的算法構(gòu)造屬于(選擇構(gòu)造/循環(huán)構(gòu)造)

【答案】⑴添加一種按鈕設(shè)置caption屬性值為“計(jì)算”，將窗體的caption屬性值

設(shè)置為“出租車(chē)計(jì)費(fèi)系統(tǒng)”；(2)f=10+(d-3)*2f=10+14+(d-10)*3；(3)24；(4)

選擇構(gòu)造

【解析】

33.某同學(xué)編寫(xiě)了VB程序其功能和界面如下所示。在文本框(textl)中輸入一段英文，

點(diǎn)擊“記錄刪除"按鈕，在標(biāo)簽(LabeB)中顯示該語(yǔ)句中最長(zhǎng)的單詞(如有多種長(zhǎng)度相似的

單詞則顯示靠后的單詞)，在標(biāo)簽(Label5)中顯示該單詞的字符長(zhǎng)度，在標(biāo)簽(Label7)中顯

示刪除該單詞后的句子。

輸入原蛤字符串

|Theybringyouanexperienceofpeace,ormakeyoulaugh.

長(zhǎng)度最大的單詞是：experience----------------------

；統(tǒng)計(jì)刪除i

長(zhǎng)度為：10

剝除后：

Theybringyouanofpeace,ormakeyoulaugh.

PrivateSubCommandl_Click()

DimsAsInteger,imaxAsInteger,pimaxAsInteger,tAsInteger

DimsourceAsString

source=Textl.Text

s=Len(source)

imax=l

pimax=l

t=0

Fori=lTos

d=①

If(d>="a"AnddV="z")Or(d>="A"AnddV="Z")Then

—②一

Else

Ift>=imaxThen

imax=t

―③—

EndIf

t=0

EndIf

Nexti

LabeB.Caption=Mid(source,pimax,imax)

Label5.Caption=imax

Label7.Caption=④+Mid(source,pimax+imax,s—imax)

EndSub

①處程序代碼為_(kāi)_________________________________________________

②處程序代碼為_(kāi)_________________________________________________

③處程序代碼為

④處程序代碼為_(kāi)_______________________________________________________

【答案】①M(fèi)id(source,i,1)②t=t+l③pimax=i—t

(4)Mid(source,1,pimax—1)

【解析】

【答案】(1)14(2)2.5(3)87856(4)105

【解析】

35.小明編寫(xiě)了一種VB程序，功能如下：在文本框Textl中輸入一段英文，并在文本

框Text2中輸入英文段落中的某個(gè)單詞(或字符串)，單擊"最大間距"按鈕(Command。

后，在文本框Text3中顯示該單詞在文中某兩次出現(xiàn)的最大間距，若只出現(xiàn)一次或不出

現(xiàn)則顯示值為0。程序運(yùn)行界面如下圖所示：

實(shí)現(xiàn)上述功能的VB程序如下：

PrivateSubCommandl_Click()

Dima(lTo1000)AsString'數(shù)組a存儲(chǔ)文中出現(xiàn)該指定單詞(或字符串)的各個(gè)位置

DimsAsString,cAsString,chAsString

DimnAsInteger,maxAsInteger,iAsInteger

s=Textl.Text

c=Text2.Text

n=0:Max=0

Fori=1ToLen(s)-Len(c)+1

ch=①

Ifch=cThen

n=n+1

a(n)=i

lfn>=2Then[來(lái)源:學(xué)|科|網(wǎng)Z|X|X|K]

Ifa(n)-a(n-1)-Len(c)>MaxThenMax=a(n)-a(n-1)-Len(c)

EndIf

EndIf

Nexti

Text3.Text=②

EndSub

以上程序段運(yùn)行時(shí)，為了實(shí)現(xiàn)上述功能，劃線處①和②應(yīng)填入的代碼分別為：

(1);(2)

【答案】⑴(2分)Mid(s,i,Len(c))(2)(2分)Str(Max)

【解析】

36.某VisualBasic程序如下：

PrivateSubCommandl_Click()

DimxAsInteger;yAsInteger,aAsInteger,bAsInteger

X=0

y=0

Fora=lTo3

x=x+l

Forb=2to4

Y=Y+1

Nextb

Nexta

Textl.text=str(a)

Text2.text=str(b)

EndSub

單擊Command!.按鈕后，Textl顯示①,Text2顯示②

【答案】①3（2分）；②9（2分）

【解析】

37?【加試題】小王模擬超市收銀機(jī)掃描商品條形碼后計(jì)算總價(jià)的過(guò)程制作了一種VB

程序。功能如下：在文本框Textl中輸入商品條形碼，按回車(chē)鍵后會(huì)將已經(jīng)輸入的條形

碼顯示在列表框Listl中，同步將商品明細(xì)顯示在列表框List2中。點(diǎn)擊按鈕”計(jì)算商品

總價(jià)"后，會(huì)將所有商品的總價(jià)顯示在文本框Text2中。程序界面如圖所示:

0條形碼掃描儀

輸入商品條形碼：已購(gòu)物品匯總：商品明細(xì)：

薯片

乙5o

503742牛奶6o

綠箭5.

503743工5O

503748

503741可樂(lè)5.00

1計(jì)算商品總價(jià)

商品總價(jià)：

21.6

實(shí)現(xiàn)上述功能的部分VB程序如下，請(qǐng)?jiān)谌齻€(gè)劃線處填入合適代碼。

'定義全局?jǐn)?shù)組變量

Dima(lTo10)AsLong

Dimb(lTo10)AsString

，自動(dòng)加載條形碼信息以及對(duì)應(yīng)的商品信息

PrivateSubForm_Load()

DimiAsInteger

a(l)=503741

Fori=2To10

a(i)=a(i-1)+1

Nexti

b⑴="可樂(lè)5.00"

b(2)="薯片7.50"

b(3)="牛奶5.60"

b(4)="橙汁7.50"

b(5)=''面包4.00"

b(6)="蜂蜜28.00"

b(7)=''蛋糕12.00"

b(8)="綠箭3.50"

b(9)=''餅干6.00"

b(10)="雪碧5.00"

EndSub

‘輸入條形碼，查找條形碼，并顯示條形碼及其對(duì)應(yīng)的商品信息

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

DimtxmAsLong:

DimiAsInteger:

DimjAsInteger

txm=Val(Textl.Text)

IfKeyAscii=13Then

Iftxm>=503741Andtxm<=503750Then

Listl.Addltemtxm

Textl.Text=""

i=l:j=10

DoWhilei<=j

①

Iftxm=a(m)Then

List2.Addltemb(m)

ExitDo

Elselftxm>a(m)Then

i=m+1

Else

②

EndIf

Loop

Else

MsgBox”條形碼輸入錯(cuò)誤，無(wú)此商品“