國(guó)家二級(jí)VB機(jī)試（選擇題）模擬試卷2（共236題）

家二級(jí)VB機(jī)試(選擇題)模擬試卷2

(共6套)

(共236題)

家二級(jí)VB機(jī)試(選擇題)模擬試卷

第1套

一、選擇題(本題共38題，每題1.0分，共38分。)

1、在窗體上畫(huà)一個(gè)名稱(chēng)為Commandl的命令按鈕，編寫(xiě)如下事件過(guò)程：Privaie

SubCominandl_Click()n=0Fori=0To10X=2*i-lIfXMod3=0Thenn=n+lNexti

PrimnEndSub運(yùn)行程序，單擊命令按鈕，則窗體上顯示的是

A、1

B、3

C、5

D、7

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：本題的For循環(huán)共執(zhí)行11次，在每次循環(huán)中計(jì)算出一個(gè)X的值，然

后判斷能否被3整除，如能整除則令計(jì)數(shù)器n自加建

2、體上有一個(gè)名稱(chēng)為T(mén)extl的文本框，一個(gè)名稱(chēng)為Command1的命令按鈕。要求編

寫(xiě)一個(gè)程序，統(tǒng)計(jì)文本框中0-9各數(shù)字字符的個(gè)數(shù)。某人編寫(xiě)如下程序：Private

SubCommandl_Click()Dimcount(10)AsInteger'第1個(gè)For循環(huán)Fori=0To9

count(i)=0Nexts=Trim(Textl.Text)strLen=Len⑸'第2個(gè)For循環(huán)Fori=lTostrLen

c=Mid(s,i,1)Ifc>=,,0,,Andc<=,,9,,Thcnx=Val(c)：count(i)=count(i)+lEndIf

Next'第3個(gè)For循環(huán)Fori=0To9PrintStr(i),count(i)NextEndSub運(yùn)行程序后，

發(fā)現(xiàn)不能實(shí)現(xiàn)題目的要求，程序應(yīng)該進(jìn)行的修改是

A、將第2個(gè)For循環(huán)的初值改為0

B、將第2個(gè)For語(yǔ)句改為Fori=0To9

C、去掉x=Val?語(yǔ)句

D、Wcount(i)=count(i)+l改為count(x尸count(x)+l

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題中要求分別統(tǒng)計(jì)數(shù)字0?9的個(gè)數(shù)，使用了一個(gè)數(shù)組coum來(lái)存

放各個(gè)數(shù)字的個(gè)數(shù)。在第一個(gè)For循環(huán)中，將數(shù)組的各個(gè)元素設(shè)置為0,在第二個(gè)

循環(huán)中，依次取出字符串中的每一個(gè)字符，判斷是不是在。?9之間，如果在范圍

內(nèi)，則應(yīng)該令對(duì)應(yīng)的數(shù)組元素加1。如果寫(xiě)成couni(i)=counKi)+l,只能順序的令每

一個(gè)數(shù)組元素都加1,只有改寫(xiě)成count(x)=counl(x)+l,讓x作為下標(biāo)，才能保證

讓x對(duì)應(yīng)的數(shù)組元素加lo

3、在窗體上畫(huà)一個(gè)組合框，其名稱(chēng)為Combol,然后編寫(xiě)如下事件過(guò)程：Private

SubForm_Load()CombO1.Text=,,T,Fori=lTO10Sum=Sum+iNexti

Combol.lcxt=SumEndSub程序運(yùn)行后,輸出結(jié)果為

A、在組合框的編輯區(qū)中顯示1

B、在組合框的編輯區(qū)中顯示不定值

C、在組合框的編輯區(qū)中顯示55

D、出錯(cuò)信息

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：組合框的Text屬性將會(huì)返回或者設(shè)置編輯區(qū)中的文本，本題中顯示

的是1?10的累加和55o

4、設(shè)a、b都是自然數(shù)，為求a除以b的余數(shù)，某人編寫(xiě)了以下函數(shù)：Function

fun(aAsIntegenbAsInteger)Whilea>ba=a-bWendfun=aEndFunction在調(diào)試時(shí)發(fā)

現(xiàn)函數(shù)是錯(cuò)誤的。為使函數(shù)能產(chǎn)生正確的返回值，應(yīng)做的修改是

A、把a(bǔ)=a-b改為a=b-a

B、把a(bǔ)=a-b改為a二a\b

C、把Whilea>b改為Whilea<b

D、把Whilea>b改為Whilea>=b

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題函數(shù)過(guò)程的原代碼僅適合a不能被b整除的兩數(shù)，而當(dāng)a能被b

整除時(shí)則不適用,如a=4,h=2,a除以h的余數(shù)為0,而原代碼返I川的函數(shù)值為

2o因此需將語(yǔ)句Whilea>b改為Whilea>=bo

5、設(shè)有如下事件過(guò)程：PrivateSubForm_Click()x=0Whilex<10x=x+l：x=x*x

WendPrintxEndSub運(yùn)行程序,單擊窗體,輸出結(jié)果是

A、16

B、19

C、20

D、25

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題是簡(jiǎn)單While循環(huán)，在循環(huán)中改變循環(huán)變量x的值，要注意退出

循環(huán)時(shí)x必然是不會(huì)滿(mǎn)足循環(huán)條件的。本題中循環(huán)中x依次變化為1、4、25o

6、假定有以下循環(huán)結(jié)構(gòu)DoUntil條件表達(dá)式循環(huán)體Loop則以下正確的描述是

A、如果”條件表達(dá)式”的值是0,則一次循環(huán)體也不執(zhí)行

B、如果”條件表達(dá)式”的值不為0,則至少執(zhí)行一次循環(huán)體

C、不論”條件表達(dá)式”的值是否為“真”，至少要執(zhí)行一次循環(huán)體

D、如果”條件表達(dá)式”的值恒為0,則無(wú)限次執(zhí)行循環(huán)體

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題考查的考點(diǎn)是有關(guān)Do型循環(huán)的。對(duì)于這種循環(huán)結(jié)構(gòu)，首先看條

件判斷在循環(huán)體的前面還是后面，如果是先判斷條件，則有可能一次也不執(zhí)行循環(huán)

體；如果是后判斷條件，則無(wú)論條件如何至少執(zhí)行一次循環(huán)體。在Unlil循環(huán)中條

件為False時(shí)執(zhí)行循環(huán)體，條件為T(mén)rue時(shí)退出循環(huán)；在While循環(huán)中條件為T(mén)rue

時(shí)執(zhí)行循環(huán)體，條件為False時(shí)退出循環(huán)，這一點(diǎn)要注意區(qū)分清楚。

7、以下VisualBasic不支持的循環(huán)結(jié)構(gòu)是

A、For...Next

ForEach...Next

C、Do...Loop

D^Do...EndDo

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析:VisualBasic支持的循環(huán)結(jié)構(gòu)包括:For...Next循環(huán)、ForEach…Next

循環(huán)、Do…Loop循環(huán)和While循環(huán)。

8、在窗體上畫(huà)兩個(gè)文本框(名稱(chēng)分別為T(mén)extl和Tex⑵和一個(gè)命令按鈕(名稱(chēng)為

Commandl),然后編寫(xiě)如下事件過(guò)程：PrivateSubCommandi_Click()x=0DoWhile

x<50x=(x+2)*(x+3)：n=n+lLoopTextl.Text=Str(n)：Text2.Text=Str(x)EndSub

程序運(yùn)行后，單擊命令笈鈕，在兩個(gè)文本框中顯示的值分別為

A、1和0

B、2和72

C、3和50

D、4和168

標(biāo)準(zhǔn)答案：R

知識(shí)點(diǎn)解析：本題考查的考點(diǎn)是有關(guān)D。型循環(huán)的。對(duì)于這種循環(huán)結(jié)構(gòu)，首先看條

件判斷在循環(huán)體的前面還是后面，如果是先判斷條件，則有可能一次也不執(zhí)行循環(huán)

體：如果是后判斷條件，則無(wú)論條件是什么，至少執(zhí)行一次循環(huán)體。在Until循環(huán)

中條件為False時(shí)執(zhí)行循環(huán)體，條件為T(mén)rue時(shí)退出循環(huán)；在While循環(huán)中條件為

True時(shí)執(zhí)行循環(huán)體，條件為False時(shí)退出循環(huán)，這一點(diǎn)要注意區(qū)分清楚。本題只需

要實(shí)際計(jì)算一下兩次循環(huán)中x和n值的變化即可容易的得出結(jié)果。

9、編寫(xiě)如卜程序：PrivateSubCommandl_Click()DimxAsInteger,yAsInteger

x=l：y=lDoy=x*yIfy>10ThenExitDoElsex=x+3EndIfLoopUntilx<=10Print

x：yEndSub程序運(yùn)行后，單擊命令按鈕Commands輸出結(jié)果為

A、I1

B、41

C>42

D、728

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：D。型循環(huán)結(jié)構(gòu)，首先看條件判斷在循環(huán)體的前面還是后面，如杲是

先判斷條件，則有可能一次也不執(zhí)行循環(huán)體；如果是后判斷條件，則無(wú)論條件是什

么，至少執(zhí)行一次循環(huán)體。在Unlil循環(huán)中條件為False時(shí)執(zhí)行循環(huán)體，條件為

True時(shí)退出循環(huán)；在While循環(huán)中條件為T(mén)rue時(shí)執(zhí)行循環(huán)體，條件為False時(shí)退出

循環(huán)。本題中使用的是后判斷型循環(huán)，第一次循環(huán)時(shí)y的值為1,不滿(mǎn)足y>10,

執(zhí)行Else分支，x變成4,此時(shí)由于滿(mǎn)足x<=10所以結(jié)束循環(huán)。

10、編寫(xiě)如下程序：PrivateSubCommandI_Click（）DimnAsLong,sAsString

n=lnputBox（“輸入一個(gè)數(shù)''）DoWhilen<>0s=s&nMod10：s=s&n\10Mod10n=n

\100LoopPrintsEndSub程序運(yùn)行后，單擊命令按鈕Command!,并輸入數(shù)值

123456,則輸出結(jié)果為

A、654321

B、563412

C、642531

D、615243

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題在循環(huán)中先將n除以10的余數(shù)（即個(gè)位數(shù)字）連接到s上，然后將

整除10后除以10的余數(shù)（即十位，數(shù)字）連接到s_L,然后n整除100的值賦值給

n（即去掉最后兩位），然后繼續(xù)進(jìn)行循環(huán)，所以最終將會(huì)輸出數(shù)字的逆序。

11、下面程序計(jì)算并輸出的是PrivateSubCommandl_Click（）a=10：s=0Do

s=s+a*a*a：a=a-lLoopUntila<=0PrintsEndSub

A、13+23+33…+103的值

B、10!+...4-3!+2!+l!的值

C、（1+2+3+…+10）3的值

D、10個(gè)103的和

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：對(duì)于D。型循環(huán)結(jié)構(gòu)，首先看條件判斷在循環(huán)體的前面還是后面，如

果是先判斷條件，則有可能一次也不執(zhí)行循環(huán)體；如果是后判斷條件，則無(wú)論條件

是什么，至少執(zhí)行一次循環(huán)體。在Until循環(huán)中條件為False時(shí)執(zhí)行循環(huán)體，條件

為T(mén)rue時(shí)退出循環(huán)；在While循環(huán)中條件為T(mén)rue時(shí)執(zhí)行循環(huán)體，條件為False時(shí)

退出循環(huán)。本題是一個(gè)比較簡(jiǎn)單的D。循環(huán)，計(jì)算從1到10的立方和。

12>窗體上有1個(gè)名稱(chēng)為Commandl的命令按鈕，事件過(guò)程如下：PrivateSub

Commandl_Click（）Dimx%,y%,z%x=InputBox（"請(qǐng)輸入第1個(gè)整數(shù)”）:

y=InputBox（”請(qǐng)輸入第2個(gè)整數(shù)”）DoUntilx=yIfx>yThenx=x-yElsey=y-xEndif

LoopPrintxEndSub運(yùn)夕亍程序，單擊命令按鈕，并輸入2個(gè)整數(shù)169和39,則在

窗體上顯示的內(nèi)容為

A、11

B、13

C、23

D、39

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：本題的循環(huán)中將兩個(gè)輸入的數(shù)x和y互相相減，直到x=y為止，實(shí)際

上就是輾轉(zhuǎn)相減法求最大公約數(shù)的過(guò)程。

13、窗體上有1個(gè)名稱(chēng)為Command的命令按鈕，事件過(guò)程及函數(shù)過(guò)程如下：

PrivateSubCommandl_Click()DimmAsStringm=InputBox("請(qǐng)輸入字符串”)Print

pick_str(m)EndSubPrivateFunctionpick_str(sAsString)AsStringtemp="n：i=l：

sLen=Len(s)DoWhilei<=sLen/2temp=temp+Mid(s,i,1)+Mid(s,sLen-i+1,1)

i=i+lLooppick_str=tcmpEndFunction運(yùn)行程序，單擊命令按鈕，并在輸入對(duì)話(huà)框

中輸入“basic”，則在窗體上顯示的內(nèi)容為

A、bcai

B、cbia

C、bcais

D^cbias

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題的函數(shù)中使用了D。循環(huán)，循環(huán)條件是i<=sLen/2；由于字符

串的長(zhǎng)度為5,所以循環(huán)會(huì)執(zhí)行兩次：在每次循環(huán)中使用Mid函數(shù)依次取得字符串

的笫一個(gè)字符、最后一個(gè)字符、笫二個(gè)字符、倒數(shù)第二個(gè)字符。

14、編寫(xiě)如下程序：PrivateSubCommand1Click()DimmAsInteger,nAsInteger

m=l：n=0DoWhilem<20n=m+n：m=3*m+lLoopPrintm,nEndSub程序運(yùn)行

后，單擊命令按鈕Commands輸出結(jié)果為

A、4018

B、4019

C、2064

D、2164

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題的D。循環(huán)是一個(gè)先判斷條件型的循環(huán)，在循環(huán)中將循環(huán)變量m

的值每次改變。分析循環(huán)可看出，在4次循環(huán)中m的值分別為1、4、13、40,而

只有前三次循環(huán)中的m值被累加到n中，最后一次循環(huán)由于不滿(mǎn)足mV20而跳

出。

15、下列循環(huán)中，可以正常結(jié)束的是

A、i=10Doi=i+1LoopUntili<1

B、i=lDoi=i+lLoopUntili=10

C、i=10Doi=i+lLoopWhilei>1

D、i=10Doi=i-2LoopUntili=l

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：Do循環(huán)語(yǔ)句的功能是：當(dāng)指定的“循環(huán)條件”為真或直到指定的“循環(huán)

條件”變?yōu)檎嬷爸貜?fù)執(zhí)行循環(huán)體。DoWhilc|Until…Loop循環(huán)是在條件滿(mǎn)足的情況

下才執(zhí)行一次循環(huán)體，而Do...LoopWhile|Until循環(huán)不管是否滿(mǎn)足條件都先執(zhí)行一

次循環(huán)體，然后再判斷條件是否成立以決定后續(xù)操作。本題的A選項(xiàng)由于i的值從

10開(kāi)始遞增，永遠(yuǎn)不會(huì)滿(mǎn)足i〈l而無(wú)限循環(huán)；C選項(xiàng)由于i的值從10開(kāi)始遞增，

永遠(yuǎn)滿(mǎn)足>1而無(wú)限循環(huán)：D選項(xiàng)由于i的值從10開(kāi)始遞減，但是因?yàn)槊看芜f減

2,所以i永遠(yuǎn)為偶數(shù)，不會(huì)滿(mǎn)足i=l而無(wú)限循環(huán)。

16、以下能夠正常結(jié)束循環(huán)操作的程序段是

A、i=5Doi=i+lLoopUntili<0

B、i=5Doi=i+2LoopUntili=l

C、i=5DoWhilei>0i=i-2Loop

D、1=0DoWhilei<Ii=i-2Loop

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：D。循環(huán)語(yǔ)句的功能是：當(dāng)指定的“循環(huán)條件”為真或直到指定的“循環(huán)

條件''變?yōu)檎嬷爸貜?fù)執(zhí)行循環(huán)體。DoWhilc|Until...Loop循環(huán)是在條件滿(mǎn)足的情況

下才執(zhí)行一次循環(huán)體，而Do...LoopWhile|Until循環(huán)不管是否滿(mǎn)足條件都先執(zhí)行一

次循環(huán)體，然后再判斷條件是否成立以決定后續(xù)操作。本題的A選項(xiàng)由于i的值從

5開(kāi)始遞增，永遠(yuǎn)不會(huì)滿(mǎn)足i<0而無(wú)限循環(huán)；B選項(xiàng)由于i的值從5開(kāi)始遞增，永

遠(yuǎn)滿(mǎn)足i=l而無(wú)限循環(huán)；D選項(xiàng)由于i的值從0開(kāi)始遞減，永遠(yuǎn)滿(mǎn)足i〈l而無(wú)限循

環(huán)。

17、窗體上有一個(gè)名稱(chēng)為Command1的命令按鈕，其單擊事件過(guò)程如下：Private

SubCommandl_Click()DimsAsDoubles=0：i=lDoWhilei<6s=s+i/(i+1)：i=i+l

LoopPrintsEndSub該事件過(guò)程的功能是計(jì)算一個(gè)表達(dá)式的值，該表達(dá)式是

A、1+1/2+2/3+3/4+4/5

B、1+1/2+2/3+3/4+4/5+5/6

C、1/2+2/3+3/4+4/5

D、1/2+2/3+3/4+4/5+5/6

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題中D。循環(huán)的循環(huán)變量i的初值為1.繼續(xù)循環(huán)的條件是iV6.

在每次循環(huán)中i的值加1,因此循環(huán)會(huì)執(zhí)行5次；在第一次循環(huán)中累加1,2,第二

次循環(huán)中累加2/3,第三次循環(huán)中累加3/4……即最后計(jì)算的是1/2+2/3+3/

4+4/5+5/6的值

18、假定有如下程序：PrivateSubForm_Click()DimNAsInteger,]AsIntegerN=0

J=1DoUntilN>2N=N-1：J=J+N*(N+1)LoopPrimN：JEndSub運(yùn)行程序,單擊

窗體，輸出結(jié)果是

A、321

B、37

C、01

D、313

標(biāo)準(zhǔn)答案:A

知識(shí)點(diǎn)解析：D。循環(huán)語(yǔ)句的功能是：當(dāng)指定的“循環(huán)條件”為真或直到指定的“循環(huán)

條件''變?yōu)檎嬷爸貜?fù)執(zhí)行循環(huán)體。DoWhile|UntiL..Loop循環(huán)是在條件滿(mǎn)足的情況

下才執(zhí)行一次循環(huán)體，而Do...LoopWhi1e|Until循環(huán)不管是否滿(mǎn)足條件都先執(zhí)行一

次循環(huán)體，然后再判斷條件是否成立以決定后續(xù)操作。本題的循環(huán)共執(zhí)行3次，跳

出循環(huán)時(shí)N的值為3,J的值為21。

19、有如下程序:Functionfun(ByValnumAsInteger)AsIntegerDimkAsInteger

k=lnum=Abs(num)DoWhilenumk=k*(numMod10)：num=num\10Loopfun=k

EndFunctionPrivateSubForm_Click()DimnAsInteger,rAsIntegern=InputBox(“請(qǐng)輸

入一個(gè)數(shù)：")：n=Int(n)：r=fun(n)：PrintrEndSub程序運(yùn)行后,單擊窗體，在輸入

對(duì)話(huà)框中輸入246,輸巴結(jié)果為

A、120

B、48

C、24

D、60

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：在函數(shù)fun中會(huì)對(duì)傳過(guò)來(lái)的參數(shù)num進(jìn)行判斷，如果不為。則進(jìn)行循

環(huán)，將各位數(shù)字乘到一起然后作為函數(shù)的返回值。

20、F面程序的功能是輸出100以?xún)?nèi)所有素?cái)?shù)：PrivateSubCommandl_Click()For

n=2To100isprime=True：k=2DoWhilek<=n/2AndIfnModk=0Then

isprime=Fa!sek=k+lLoopIfisprimeThenPrintnNextnEndSub為使上面程序可以

實(shí)現(xiàn)該功能，程序代碼中橫線(xiàn)處應(yīng)填寫(xiě)的代碼是

A、isprime

B、Notisprime

C、n<100

D、nV=100

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：求素?cái)?shù)的基本思路是，用2到n/2依次去除要判斷的數(shù)n,如果能

整除就將isprime置為Fake代表不是素?cái)?shù)：如果isprime已經(jīng)為False,那么循環(huán)沒(méi)

有繼續(xù)執(zhí)行的必要了，所以應(yīng)填入isprime=Truc,由于是布爾型變量，可以簡(jiǎn)寫(xiě)為

isprime。

21、編寫(xiě)如下程序：DimnumAsInteger,rAsInteger,nAsInteger,!As

Integer,arr(5)AsIntegerPrivateSubCommandl_Click()num=12：r=2Callsubl(num,

r,n)Fori=nTo1Step-1Printarr(i)；NextiEndSubSubsubl(dAsInteger,rAs

Integer,kAsInteger)k=0DoWhiled<>0k=k+1：arr(k)=dModr：d=d\rLoopEnd

Sub程序運(yùn)行后，單擊命令按鈕Command】，輸出結(jié)果為

A、1100

B、0011

C、0101

D、1010

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題實(shí)際上是在子過(guò)程subl中對(duì)arr數(shù)組進(jìn)行的賦值工作，形參d的

值為12,r的值為2,k的初值為0；在循環(huán)中計(jì)算d除以2的余數(shù)放到數(shù)組的第一

個(gè)元素，整除2后再除以2的余數(shù)放到第二個(gè)元素……以此類(lèi)推，最后數(shù)組arr中

存放的是(0、0、1、1),在Commandl_Click()過(guò)程中調(diào)用完子過(guò)程對(duì)數(shù)組進(jìn)行賦值

以后，逆序輸出了數(shù)組的值。

22>編寫(xiě)如下程序：PrivateSubCommandl_Click()DimnAsLong,sAsString

n=lnputBox(“輸入一個(gè)數(shù)“)DOWhilen<>0Printn\10Mod10；：PrintnMod

10；：n=n\100LoopPrintsEndSub程序運(yùn)行后，單擊命令按鈕Commandl,并輸

入數(shù)值123456,則輸出結(jié)果為

A、654321

B、563412

C、642531

D、615243

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：本題中是在一個(gè)D。循環(huán)中對(duì)一個(gè)數(shù)字進(jìn)行分解，首先輸出該數(shù)字整

除10之后再除以10得到的余數(shù)(即H立上數(shù)字)，然后輸出該數(shù)除以10得到的余

數(shù)(即個(gè)位數(shù)字)，然后將該數(shù)去掉十位和個(gè)位上的數(shù)字以后繼續(xù)循環(huán)，最終依次輸

出5、6、3、4、1、2?

23、假定有以下程序段Fori=lTo3Fori=5To1Step-1Printi*jNextjNexti則語(yǔ)句

Printi*j的執(zhí)行次數(shù)是

A、15

B、16

C、17

D、18

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題考查的考點(diǎn)是有關(guān)二重循環(huán)的°For…Next循環(huán)語(yǔ)句可提供一個(gè)

重復(fù)執(zhí)行的語(yǔ)句序列，遵循“先檢查，后執(zhí)行''的規(guī)則，執(zhí)行過(guò)程中，循環(huán)次數(shù)

=Inl(終值-初值)/步長(zhǎng)+1。二重循環(huán)的內(nèi)循環(huán)語(yǔ)句執(zhí)行次數(shù)等于內(nèi)外循環(huán)次數(shù)之

積。

24、在窗體上畫(huà)1個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程：PrivateSubCommand

l_Click()Dima(3,3)Form=lTO3Forn=lTo3Ifn=mOrn=4-mThena(m,n)=m+n

Elsea(m,n)=0EndIfPrinta(m,n)；NextnPrintNextmEndSub運(yùn)行程序，單擊

命令按鈕，窗體上顯示的內(nèi)容為

A、200040006

B、204040406

C、230340006

D、200045056

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：本題通過(guò)一個(gè)嵌套的For循環(huán)為二維數(shù)組a的各元素賦值，該二維數(shù)

組對(duì)應(yīng)矩陣的主對(duì)角線(xiàn)上的元素(即滿(mǎn)足條件m=n)卻副對(duì)角線(xiàn)上的元素(即滿(mǎn)足條

件m+n=4)其值為m+n,即主對(duì)角線(xiàn)上的元素從左一卜至右下依次為2、4、6,副

對(duì)角線(xiàn)上的元素均為4,而其它元素均為0。

25、編寫(xiě)如下程序：PrivateSubCommandl_Click()DimnumAsInteger,kAs

Intcgcr,nAsIntegernum=InputBox("請(qǐng)輸入一個(gè)正整數(shù)：")k=numn=2DoDoWhile

numModn=0Printn；：num=num/nLoopn=n+lLoopUntiln>k/2EndSub程序

運(yùn)行后，單擊命令按鈕Command1,并輸入數(shù)值20,則輸出結(jié)果為

A、225

B、234

C、2345

D、25

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：D。型循環(huán)結(jié)構(gòu)，首先看條件判斷在循環(huán)體的前面還是后面，如杲是

先判斷條件，則有可能一次也不執(zhí)行循環(huán)體；如果是后判斷條件，則無(wú)論條件是什

么，至少執(zhí)行一次循環(huán)體。在Unlil循環(huán)中條件為False時(shí)執(zhí)行循環(huán)體，條件為

True時(shí)退出循環(huán)；在While循環(huán)中條件為T(mén)rue時(shí)執(zhí)行循環(huán)體，條件為False時(shí)退出

循環(huán)。本題是一個(gè)嵌套的D。循環(huán)，外層循環(huán)是后判斷條件的Until型循環(huán)，內(nèi)層

循環(huán)是先判斷條件的While型循環(huán)。根據(jù)輸入的值20可判斷出三次輸出的結(jié)果為

2、2、5o

26、編寫(xiě)如下程序：PrivateSubCommandl_Click()Dima(3,3)AsInteger,b(3,

3)AsIntegerFori=lTo3Forj=lTo3a(i,j)=i+j：b(i,j)=a(i,j)+i*(j*l)NextiNexti

Fori=lTo3Forj=lTo3Printb(i,j)；NextjPrintNextiEndSub程序運(yùn)行后，單擊

命令按鈕Command1，輸出結(jié)果為

A、234345456

R、2463694812

C、357581171115

D、46871013101418

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：本題中有兩個(gè)二維數(shù)組a和b,然后用一個(gè)二重循環(huán)為兩個(gè)數(shù)組賦

值，根據(jù)每次循環(huán)中i和i的值不難得出B為正確答案。

27、已知在4行3列的全局?jǐn)?shù)組score(4,3)中存放了4個(gè)學(xué)生3門(mén)課程的考試成績(jī)

(均為整數(shù))?，F(xiàn)需要計(jì)算每個(gè)學(xué)生的總分，某人編寫(xiě)程序如下：OptionBasel

PrivateSubCommandl_Click()DimsumAsIntegersum=0Fori=lTo4Fori=lTo3

sum=sum+score(i,j)NextjPrint"第“&i&”個(gè)學(xué)生的總分是：“；sumNextiEndSub

運(yùn)行此程序時(shí)發(fā)現(xiàn)，除第1個(gè)人的總分計(jì)算正確外，其他人的總分都是錯(cuò)誤的，程

序需要修改。以下修改方案中正確的是

A^把外層循環(huán)語(yǔ)句Fori=lTo4改為Fori=lTo3內(nèi)層循環(huán)語(yǔ)句Forj=lTo3改為

Fori=lTo4

B、把sum=O移到Fori=lTo4和Foij=lTo3之間

C>ffisum=sum+score(i,j)改為sum=sum+score(j,i)

D^把sum=sum+score(i,j)改為sun尸score。,j)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：本題考查的考點(diǎn)是有關(guān)循環(huán)求和和二維數(shù)組的。本題要對(duì)二維數(shù)組的

每行進(jìn)行累加求和，每計(jì)算新的一行就應(yīng)該將累加和變量sum清零，否則上一行

的累加計(jì)算結(jié)果將會(huì)在下一行繼續(xù)累加，造成結(jié)果不正確。

28、在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱(chēng)分別為Command1和LabelL然

后編寫(xiě)如下事件過(guò)程：FnvatcSubCommandl_Click()Countcr=0Fori=lIo4bor

i=6To1Stcp-2Counter=Countcr+1NextjNextiLabelLCaption=Str(Countcr)EndSub

程序運(yùn)行后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是

A、11

B、12

C、16

D、20

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：本題考查的考點(diǎn)是有關(guān)循環(huán)的。通過(guò)觀察可以得知，在每次內(nèi)循環(huán)中

Counter的值會(huì)增加1,所以最終結(jié)果就是內(nèi)循環(huán)執(zhí)行的總次數(shù)。由于內(nèi)循環(huán)和外

循環(huán)都是For循環(huán)，所以循環(huán)次數(shù)一定，外循環(huán)共執(zhí)行4次，每次外循環(huán)中內(nèi)循環(huán)

都執(zhí)行3次，故內(nèi)循環(huán)執(zhí)行的總次數(shù)為4*3=12次。

29、在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand

l_Click()DimI,NumRandomizeDoFor1=1To100()Num=!nt(Rnd*I00)：Print

Num；SelectCaseNumCase12ExitForCase58ExitDoCase65,68,92EndEnd

SelectNextILoopEndSub上述事件過(guò)程執(zhí)行后，下列描述中正確的是

A、D。循環(huán)執(zhí)行的次數(shù)為1000次

B、在For循環(huán)中產(chǎn)生的隨機(jī)數(shù)小于或等于100

C、當(dāng)所產(chǎn)生的隨機(jī)數(shù)為12時(shí)結(jié)束所有循環(huán)

D、當(dāng)所產(chǎn)生的隨機(jī)數(shù)為65、68或92時(shí)窗體關(guān)閉、程序結(jié)束

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題考查的考點(diǎn)是有關(guān)隨機(jī)數(shù)和退出語(yǔ)句的。在本題中，首先在循環(huán)

中生成一個(gè)隨機(jī)數(shù)，由于Rnd函數(shù)可以生成0?I開(kāi)區(qū)間的數(shù)，所以Inl(Rnd*100)

能夠生成0?99之間的整數(shù)，隨后對(duì)此數(shù)進(jìn)行判斷，當(dāng)隨機(jī)數(shù)為12時(shí)退出內(nèi)循

環(huán)；當(dāng)隨機(jī)數(shù)為58時(shí)退出外循環(huán)；當(dāng)隨機(jī)數(shù)為65、68或92時(shí)將會(huì)結(jié)束整個(gè)窗體

的運(yùn)行。本題中的循環(huán)次數(shù)受隨機(jī)數(shù)控制，所以次數(shù)不定。

30、運(yùn)彳丁如卜程序PrivateSubCommandl_Click()Dima(5,5)AsIntegerFori=lTo

5Foij=1To4a(i,j)=i*2+jIfa(i,j)/7=a(i,j)\7Thenn=n+1EndIfNextjNext

PrintnEndSub貝ijn的值是

A、2

B、3

C、4

D、5

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：在二重循環(huán)中為二維數(shù)組賦初值，每個(gè)元素的值均為行號(hào)*2加上列

號(hào)；在If語(yǔ)句中進(jìn)行判斷，如果數(shù)組元素能被7整除則令計(jì)數(shù)器n加1,所以整個(gè)

程序的功能就是統(tǒng)計(jì)二維數(shù)組中能被7整除的數(shù)的個(gè)數(shù)。

31、命令按鈕Command1的單擊事件過(guò)程如下：PrivateSubCommandl_Click(i

Dima(10,10)AsIntegerx=0Fori=lTo3Foij=lTo3a(i,j)=i*2ModjIfx<a(i,

j)lhcnx=a(i,j)NextNextBrintxEndSub執(zhí)行上述事件過(guò)程后，窗體上顯示的是

A、1

B、2

C、3

D、4

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：本題中使用二重循環(huán)為二維數(shù)組賦初值，每個(gè)元素的值為行號(hào)x2然

后除以列號(hào)的余數(shù)；接下來(lái)找出數(shù)組的最大值。由于列號(hào)最大只能為3,所以余數(shù)

的最大值為2。

32、設(shè)有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivate

SubCommand1click()'循環(huán)1Fori=lTo3Foij=lTo4b(j,i)=a(i,j)NextjNextT

循環(huán)2x=b(l,1)Fori=lTo4Foij=lTo3Printb(i,j)；Ifx<b(i,J)Thenx=b(i,j)

NextjPrintNextiEndSub程序中的數(shù)組a已被賦值。以下關(guān)于上述程序的敘述中，

正確的是

A、窗體模塊中，不能使用Dim聲明a、b數(shù)組

B、“循環(huán)B可以正常運(yùn)行

C、“循環(huán)2”中循環(huán)變量i、j的終值不對(duì)，所以不能正常運(yùn)行

D、程序可以正常運(yùn)行.x中保存的是數(shù)如人中所有元素中最小的數(shù)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：在窗體模塊中使用Dim聲明模塊接變量，也可以聲明模塊級(jí)數(shù)組：

在循環(huán)1中i從1到3,j從1到4,無(wú)論是訪(fǎng)問(wèn)b(j,i)還是a(i,j)均在數(shù)組的范圍

內(nèi)，可以正常運(yùn)行；在循環(huán)2中b(i,i)的值也在數(shù)組范圍內(nèi)，循環(huán)可以正常運(yùn)行；

最后x里面保存的是數(shù)組中最大的數(shù)。

33、有如下程序:PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=lFori=l

To4Forj=lTois=s+jNextjp=p*sNextiPrintpEndSub程序運(yùn)行后,單擊窗體，

則輸出結(jié)果是

A、90

B、180

C、400

D、800

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題是一個(gè)二重循環(huán)，而且內(nèi)循環(huán)次數(shù)根據(jù)外循環(huán)的循環(huán)變量而定。

內(nèi)循環(huán)完成累加，內(nèi)循環(huán)結(jié)束后將累加和乘到p中保存起來(lái)。在4次外循環(huán)中分別

累乘的是1、4、10、20o

34、窗體上有1個(gè)名稱(chēng)為Command1的命令按鈕，事件過(guò)程如下：PrivateSub

Commandl_Click()Dimarr_x(5,5)AsIntegerFori=lTo3Foij=2To4arr_x(i,j)=i*j

NextjNextiPrintart_x(2,I)：arr_x(3,2)；art_x(4,3)EndSub運(yùn)行程序，并單擊

命令按鈕，窗體上顯示的內(nèi)容為

A、060

B、260

C、0612

D、2612

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題二重循環(huán)為二維數(shù)組的部分元素賦值，其中arr_x(2,1)的值因

為列號(hào)為1，并沒(méi)有在循環(huán)中賦值，保持了默認(rèn)初值0;arr_x(3,2)的值被賦值為

3*2的值6；arr_xx(4,3)的值因?yàn)樾刑?hào)為4也沒(méi)有在循環(huán)中賦值，也保持默認(rèn)初值

0o

35、在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕,并編寫(xiě)如下程序：Option

BaseIPrivateSubCommandl_Click()Dima(4,4)Fori=lTo4Fori=lTo4a(i,

j)=(i-l)*3+jNextjNextiFori=3To4Foij=3To4Printa(j,i)；NextjPrintNextiEnd

Sub運(yùn)行程序，單擊命令按鈕，則輸出結(jié)果為

A、69710

B、710811

C、811912

D、9121013

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題中首先用一個(gè)二重循環(huán)為二維數(shù)組的每一個(gè)元素賦值,然后輸出

二維數(shù)組的部分元素，即依次輸出a(3,3)、a(4,3)、a(3,4)、a(4,4)的值，根據(jù)

二維數(shù)組元素的值，輸出分別為9、12、10、13。

36、編寫(xiě)如下程序：PrivateSubCommandl_Click()Dima(3,3)AsInteger,sAs

IntegerFori=lTo3Fori=ITo3a(i,j)=i*j+iNextjNextis=0Fori=lTo3s=s+a(i,

4-i)NextiPrintsEndSub程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果為

A、7

B、13

C、16

D、20

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：本題中首先用一個(gè)二重循環(huán)為二維數(shù)組的每一個(gè)元素賦值，然后累加

二維數(shù)組的部分元素，即依次累加a(l,3)、a(2,2)、a(3,1)的值，相當(dāng)于對(duì)角線(xiàn)

求和。

37、編寫(xiě)如下程序：PrivateSubCommandl_Click()DimiAsIntegerJAsInteger

n=InputBox("輸入一個(gè)大于1的正整數(shù)")Fori=2TonFoij=2ToSqr(i)IfiModj=0

ThenExitForNextjIfj>Sqr(i)ThenPrintiNextiEndSub該程序的功能是

A、判斷n是否為素?cái)?shù)

B、輸出n以?xún)?nèi)所有的奇數(shù)

C、輸出n以?xún)?nèi)所有的偶數(shù)

D、輸出n以?xún)?nèi)所有的素?cái)?shù)

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題中的外循環(huán)是從2循環(huán)到n,然后進(jìn)入內(nèi)循環(huán)，在內(nèi)循環(huán)中依次

判斷i能否被j整除，若能整除則退出內(nèi)循環(huán)：內(nèi)循環(huán)結(jié)束后進(jìn)行判斷，如果是中

途退出內(nèi)循環(huán)的則必然不滿(mǎn)足i>SqKi),不會(huì)輸出i的值；只有i不能被任何一個(gè)j

整除的情況下才會(huì)輸出i的值，即判斷i是不是素?cái)?shù)，只有素?cái)?shù)才輸出。

38、命令按鈕Command)的事件過(guò)程如下：PrivateSubCommandl_Click()Dim

art(5,5)AsIntegerDimiAsIntegerjAsIntegerFori=lTo4Foij=2To4arr(i,j)=i+j

NextjNextiPrintart(1,3)+art(3,4)EndSub執(zhí)行上述過(guò)程,輸出結(jié)果是

A、6

B、7

C、11

D、12

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：本題中首先在一個(gè)二重循環(huán)中給二維數(shù)組arr的部分元素賦值，循環(huán)

結(jié)束后輸出兩個(gè)數(shù)組元素的和，根據(jù)題意arr(l,3)+arr(3,4)=4+7=1lo

國(guó)家二級(jí)VB機(jī)試(選擇題)模擬試卷

第2套

一、選擇題(本題共50題，每題1.0分，共50分。)

1、在窗體上畫(huà)一個(gè)通用對(duì)話(huà)框，程序運(yùn)行中用ShowOpen方法顯示“打開(kāi)”對(duì)詬框

時(shí)，希望在該對(duì)話(huà)框的“文件類(lèi)型”欄中只顯示擴(kuò)展名為DOC的文件，則在設(shè)計(jì)階

段應(yīng)把通用對(duì)話(huà)框的Filter屬性設(shè)置為

A、”(*.DOC)*.DOC”

B、”(*.DOC)||.DO

C、”(*?DOC)||*.DOC^^

D、”(*.DOC)|*.DOC”

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：通用對(duì)話(huà)框(CommonDialog)是可提供諸如打開(kāi)文件、保存文件、設(shè)

置打印選項(xiàng)、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框。打開(kāi)(Open)和

保存(Save)文件對(duì)話(huà)框中的Filter。屬性是過(guò)濾器，返回或設(shè)置在對(duì)話(huà)框的類(lèi)型列

表框中所顯示的文件類(lèi)型，例如，過(guò)濾器為*.1X3表示顯示所有的文本文件，語(yǔ)

法為：通用對(duì)話(huà)框名.Filter"描述|文件擴(kuò)展名”，使用管道符⑴將描述與過(guò)濾器隔

開(kāi)，同樣使用管道符將多個(gè)過(guò)濾器相互分隔；FilteHndex屬性返回或設(shè)置“打開(kāi)”或

“另存為”對(duì)話(huà)框中的一個(gè)默認(rèn)的過(guò)濾器，第一個(gè)過(guò)濾器的索引號(hào)是1,如果只有一

個(gè)過(guò)濾器則無(wú)需設(shè)置。Filterindex屬性。

2、以下關(guān)于通用對(duì)話(huà)框的敘述中，錯(cuò)誤的是

A、在程序運(yùn)行狀態(tài)下，通用對(duì)話(huà)框控件是不顯示的

B、通用對(duì)話(huà)框控件是VisualBasic的標(biāo)準(zhǔn)控件

C、設(shè)計(jì)時(shí)，通用對(duì)話(huà)框控件的大小是固定的，不能改變

D、在同一個(gè)程序中，一個(gè)通用對(duì)話(huà)框控件可以作為打開(kāi)、保存等多種對(duì)話(huà)框

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：通用對(duì)話(huà)框(CommonDialog)是ActiveX控件，提供諸如打開(kāi)文件、保

存文件、設(shè)置打印選項(xiàng)、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框。該

控件設(shè)計(jì)時(shí)大小固定不能改變，運(yùn)行時(shí)不可見(jiàn)。

3、窗體上有一個(gè)名稱(chēng)為CD1的通用對(duì)話(huà)框，一個(gè)名稱(chēng)為Commandl的命令按鈕，

相應(yīng)的事件過(guò)程如卜：PrivateSubCommandl_Click()CD1.Fiker="All

File|*,*|TextFile|*.txt|PPT|*.ppt“CDLFilterlndex=2：CD1.InitDir=X：

CD1.FilcName^'dcfaulf'：CD1.ShowSavcEndSub關(guān)于上述過(guò)程，以下敘述中

正確的是

A、默認(rèn)過(guò)濾器為“*.ppt”

B、指定的初始目錄為“C：\”

C、打開(kāi)的文件對(duì)話(huà)框的標(biāo)題為“default”

D、卜而事件過(guò)程實(shí)現(xiàn)保存文件的操作

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：通用對(duì)話(huà)框(CommonDialog)是可提供諸如打開(kāi)文件、保存文件、設(shè)

置打印選項(xiàng)、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框。打開(kāi)(Open)和

保存(Save)文件對(duì)話(huà)框有共同的主要屬性，若沒(méi)有指定InitDir屬性值，則起始目錄

為當(dāng)前目錄；FileName屬性返回或設(shè)置所選文件的路徑和文件名；Filter屬性是過(guò)

濾器，返回或設(shè)置在對(duì)話(huà)框的類(lèi)型列表框中所顯示的文件類(lèi)型，例如，過(guò)濾器為

*.txt,表示顯示所有的文本文件，語(yǔ)法為：通用對(duì)話(huà)框名.Filter”描述|文件擴(kuò)展

名“，使用管道符(1)將描述與過(guò)濾器隔開(kāi)，同樣使用管道符將多個(gè)過(guò)濾器相互分

隔；RMrlndcx屬性返回或設(shè)置“打開(kāi)”或“另存為”對(duì)話(huà)框中一個(gè)默認(rèn)的過(guò)濾器，第

一個(gè)過(guò)濾器的索引號(hào)是1：如果只有一個(gè)過(guò)濾器則無(wú)需設(shè)置Fikerlndex屬性。本題

中只是顯示了一個(gè)“保存”對(duì)話(huà)框，并不能真正實(shí)現(xiàn)保存操作。

4、在窗體畫(huà)一名為CoinmonDialogl,則下列與CommonDialogl.ShowOpen方法

等效的語(yǔ)句是

A、CommonDialog1.Action=l

CommonDialog1.Action=2

C、CommonDialog1.Action=3

D、CommonDialog1.Action=4

標(biāo)準(zhǔn)答案：A,

知識(shí)點(diǎn)解析：通用對(duì)話(huà)框提供諸如打開(kāi)文件、保存文件、設(shè)置打印選項(xiàng)、選擇顏色

和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框，該控件運(yùn)行時(shí)不可見(jiàn)。Aclion屬性用

于設(shè)置被打開(kāi)對(duì)話(huà)框的類(lèi)型，與ShowXXX方法相對(duì)應(yīng)，如下表所示：

Action屬性值顯示的對(duì)話(huà)類(lèi)取VisualBasic6中對(duì)應(yīng)方法

0無(wú)操作

1打開(kāi)ShowOpen

*2另存為ShowSave

3廉色ShowCoior

4字體ShowFont

5打印ShowPrinter

6調(diào)用Windows幫助ShowHelp

5、下列關(guān)于利用通用對(duì)話(huà)框產(chǎn)生的文件對(duì)話(huà)框的相關(guān)屬性的描述中，錯(cuò)誤的是

A、InitDir屬性用于設(shè)置對(duì)話(huà)框中顯示的起始目錄

B、Filter屬性用于設(shè)置對(duì)話(huà)框默認(rèn)的過(guò)濾器

C、DefaukExl屬性用于設(shè)置對(duì)話(huà)框中默認(rèn)的文件類(lèi)型

D、FileTitle屬性用于存放對(duì)話(huà)框中所選擇的文件名

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：通用對(duì)話(huà)框(CommonDialog)是可提供諸如打開(kāi)文件、保存文件、設(shè)

置打印選項(xiàng)、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框。打開(kāi)(Open)和

保存(Save)文件對(duì)話(huà)框有共同的主要屬性，若沒(méi)有指定InitDir屬性值，則起始目錄

為當(dāng)前目錄；FileName屬性返回或設(shè)置所選文件的路徑和文件名；Filter屬性是過(guò)

濾器，返回或設(shè)置在對(duì)話(huà)框的類(lèi)型列表框中所顯示的文件類(lèi)型，例如，過(guò)濾器為

*.txt,表示顯示所有的文本文件，語(yǔ)法為：通用對(duì)話(huà)框名.Filtcr="描述|文件擴(kuò)展

名”，使用管道符⑴將描述與過(guò)濾器隔開(kāi)，同樣使用管道符將多個(gè)過(guò)濾器相互分

隔；FiMrlndcx屬性返回或設(shè)置“打開(kāi)”或“另存為”對(duì)話(huà)框中一個(gè)默認(rèn)的過(guò)濾器，第

一個(gè)過(guò)濾器的索引號(hào)是1；FileTiUe屬性用于存放對(duì)話(huà)框中所選擇的文件名；

DefaultExt屬性用于設(shè)置對(duì)話(huà)框中默認(rèn)的文件類(lèi)型。

6、下列大于通用對(duì)話(huà)框CommonDialog1的敘述中，錯(cuò)誤的是

A、只要在“打開(kāi)”對(duì)話(huà)框中選擇了文件，并單擊“打開(kāi)”按鈕，就可以將選中的文件

打開(kāi)

B、使用CommonDialogl.ShowColor方法，可以顯示“顏色”對(duì)話(huà)框

C、CancelError屬性用于控制用戶(hù)單擊“取消”按鈕關(guān)閉對(duì)話(huà)框時(shí)，是否顯示出錯(cuò)警

D、在顯示“字體”對(duì)話(huà)框前，必須先設(shè)置CommonDialogl的Flags屬性,否則會(huì)出

錯(cuò)

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析:通用對(duì)話(huà)框(CotnmonDialog)提供諸如打開(kāi)文件(ShowOpen)、保存文

件(ShowSave)、設(shè)置打印選項(xiàng)(ShowPrinler)、選擇顏色和字體(ShowFonl)、顯示幫

助(ShowHelp)等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框，該控件運(yùn)行時(shí)不可見(jiàn)。當(dāng)通用對(duì)話(huà)框顯示

為“打開(kāi)”類(lèi)型時(shí).，單擊“打開(kāi)”按鈕后其FilcName屬性可返回或設(shè)置所選文件的路

徑和文件名，但并不能直接打開(kāi)該文件。使用顯示字體(Font)對(duì)話(huà)框之前，必須先

設(shè)置控件的Flags屬性為cdlCFBoth、cdlCFPrinterFonts^cdlCFScreenFonts這3個(gè)

值中的一個(gè)。CancclError屬性用于設(shè)置當(dāng)用戶(hù)選擇“取消”按鈕時(shí)，是否顯示錯(cuò)誤信

息(默認(rèn)為否)。

7、通用對(duì)話(huà)框Filter屬性的作用是

A、設(shè)置對(duì)話(huà)框的標(biāo)題

B、指定對(duì)話(huà)框所選擇的文件名

C、指定對(duì)話(huà)框的打開(kāi)方式

D、指定對(duì)話(huà)框中顯示的文件類(lèi)型

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：通用對(duì)話(huà)框(CommonDialog)是可提供諸如打開(kāi)文件、保存文件、設(shè)

置打印選項(xiàng)、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框。Filter屬性是

過(guò)濾器，返回或設(shè)置在對(duì)話(huà)框的類(lèi)型列表框中所顯示的文件類(lèi)型，例如，過(guò)濾器

為.txt,表示顯示所有的文本文件，語(yǔ)法為：通用對(duì)話(huà)框名.Filter"描述|文件擴(kuò)

展名“，使用管道符(|)將描述與過(guò)濾器隔開(kāi)，同樣使用管道符將多個(gè)過(guò)濾器相互分

隔：Fillerindex屬性返回或設(shè)置“打開(kāi)”或“另存為”對(duì)話(huà)框中一個(gè)默認(rèn)的過(guò)濾器，第

一個(gè)過(guò)濾器的索引號(hào)是1。

8、窗體上有一個(gè)名稱(chēng)為CD1的通用對(duì)話(huà)框，一個(gè)名稱(chēng)為T(mén)cxtl的文本框，窗體的

單擊事件過(guò)程如下：PrivateSubForm_Click()CDI.DialogTitle="改變顏色”：

CD1.Color=Forml.BackColorCD1.Action=3：Textl.BackColor=CD1.Color

EndSub運(yùn)行程序時(shí)，單擊窗體，則以下敘述中錯(cuò)誤的是

A、通用對(duì)話(huà)框的標(biāo)題被改為“改變顏色”

B、通用對(duì)話(huà)框被打開(kāi)為顏色對(duì)話(huà)框

C、若選擇顏色對(duì)話(huà)框中的“取消”按鈕，則文本框的背景色改為窗體背景色

D、若選擇顏色對(duì)話(huà)框中的“確定”按鈕，則文本框的背景色改為在顏色對(duì)話(huà)框中選

中的顏色

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：通用對(duì)話(huà)框(CommonDialog)提供諸如打開(kāi)文件、保存文件、設(shè)置打

印選項(xiàng)、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框，該控件運(yùn)行時(shí)不可

見(jiàn)。通用對(duì)話(huà)框的DialogTitle屬性用于返回或設(shè)汽該對(duì)話(huà)框標(biāo)題欄上所顯示的文

本：Action屬性用于設(shè)置被打開(kāi)對(duì)話(huà)框的類(lèi)型，3為“打開(kāi)”顏色對(duì)話(huà)框類(lèi)型。只有

設(shè)置了Aclion屬性后對(duì)話(huà)框才被打開(kāi)，對(duì)對(duì)話(huà)框?qū)傩缘脑O(shè)也才能起作用，由于本

題中設(shè)置DialogTitle的語(yǔ)句在設(shè)置Action屬性之前，因此不起作用。

9、假定在窗體上添加了一個(gè)通用對(duì)話(huà)框控件，其名稱(chēng)為CD1,并有如下程序段：

CD1.ShowOpen：CDI.DefaultExt=”doc”在打開(kāi)文件的對(duì)話(huà)框中選擇了“c：\

理el?txt”文件,則FileTitle屬性的值是

A^filel.doc

B、filel.txt

C、c：\filel.txt

D、c：\filel.doc

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：通用對(duì)話(huà)框(CommonDialog)是可提供諸如打開(kāi)文件、保存文件、設(shè)

置打印選項(xiàng)、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框。打開(kāi)(Open)和

保存(Save)文件對(duì)話(huà)框有共同的主要屬性，若沒(méi)有指定InilDir屬性值，則起始目錄

為當(dāng)前目錄；FileName屬性返回或設(shè)置所選文件的路徑和文件名；Filter屬性是過(guò)

濾器，返回或設(shè)置在對(duì)話(huà)框的類(lèi)型列表框中所顯示的文件類(lèi)型，例如，過(guò)濾器為

*.txt,表示顯示所有的文本文件，語(yǔ)法為：通用對(duì)話(huà)框名.Filter“描述|文件擴(kuò)展

名”，使用管道符(1)將描述與過(guò)濾器隔開(kāi)，同樣使用管道符將多個(gè)過(guò)濾器相互分

隔：Fihcrlndcx屬性返回或設(shè)置“打開(kāi)、蹴"另存為”對(duì)話(huà)框中一個(gè)默認(rèn)的過(guò)濾器，笫

一個(gè)過(guò)濾器的索引號(hào)是1;FileTiUe屬性用于存放對(duì)話(huà)框中所選擇的文件名；

DefauItExt屬

10、利用通用對(duì)話(huà)框控件打開(kāi)字體對(duì)話(huà)框的操作是

A、把通用對(duì)話(huà)框控件的Action屬性設(shè)置為4

B、把通用對(duì)話(huà)框控件的Action屬性設(shè)置為5

C、調(diào)用通用對(duì)話(huà)框控件的OpenFont方法

D、調(diào)用通用對(duì)話(huà)框控件的ShowText方法

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：通用對(duì)話(huà)框(CommonDialog)提供諸如打開(kāi)文件、保存文件、設(shè)置打

印選項(xiàng)、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框，該控件運(yùn)行時(shí)不可

見(jiàn)。Action屬性用于設(shè)置被打開(kāi)對(duì)話(huà)框的類(lèi)型，要想打開(kāi)字體對(duì)話(huà)框，需要將通用

對(duì)話(huà)框控件的Action屬性設(shè)置為4,或者調(diào)用對(duì)話(huà)框的ShowFont方法。

11、以下關(guān)于多重窗體程序的敘述中，錯(cuò)誤的是

A、對(duì)于多重窗體程序，需要單獨(dú)保存每個(gè)窗體

B、在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體

C、在多重窗體程序中，各窗體的菜單是彼此獨(dú)立E勺

D、用Hide方法不僅可以隱藏窗體，而且還可以清除內(nèi)存中的窗體

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：包含多個(gè)窗體的程序稱(chēng)為多重窗體程序(MutilForm)。多重窗體是單

一窗體的集合，每個(gè)窗體獨(dú)立保存，各窗體之間的控件、菜單等對(duì)象都是相互獨(dú)立

的。對(duì)于多重窗體程序，必須指定其中某一個(gè)窗體為啟動(dòng)窗體，如果未指定，設(shè)計(jì)

時(shí)的第一個(gè)窗體默認(rèn)為啟動(dòng)窗體。只有啟動(dòng)窗體才能在運(yùn)行程序時(shí)自動(dòng)顯示出來(lái)，

其他窗體必須通過(guò)Load及Show方法才能看到，使用Hide方法使窗體隱藏，即不

在屏幕上顯示，但仍在內(nèi)存中。

12、下列操作中不能向工程添加窗體的是

A、執(zhí)行“工程”菜單中的“添加窗體”命令

B、單擊工具欄上的“添加窗體”按鈕

C、右擊窗體，在彈出的菜單中選擇“添加窗體”命令

D、右擊工程資源管理器，在彈出的菜單中選擇“添加”命令，然后在下一級(jí)菜單中

選擇''添加窗體”命令

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：可以通過(guò)執(zhí)行“工程(Project)”一“添加窗體(AddForm)”菜單命令來(lái)建

立窗體，每執(zhí)行一次就新建立一個(gè)窗體：也可以單擊工具欄上的“添加窗體”按鈕；

右擊工程資源管理器，在彈出的菜單中選擇“添加『命令，然后在下一級(jí)菜單中選擇

“添加窗體”命令也可以添加窗體。

13、對(duì)于含有多個(gè)窗體的工程而言，以下敘述中正確的是

A、沒(méi)有指定啟動(dòng)窗體時(shí)，系統(tǒng)自動(dòng)將最后一個(gè)添加的窗體設(shè)置為啟動(dòng)窗體

B、啟動(dòng)窗體可以通過(guò)“工程屬性”對(duì)話(huà)框指定

C、Load方法兼有裝入劉顯示窗體兩種功能

D、Hide方法可以將指定的窗體從內(nèi)存中清除

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：沒(méi)有指定啟動(dòng)窗體時(shí)，系統(tǒng)自動(dòng)將第一個(gè)添加的窗體設(shè)置為啟動(dòng)窗

體；啟動(dòng)窗體可以通過(guò)“工程屬性”對(duì)話(huà)框指定。Load方法用于將窗體裝入內(nèi)存，

Show方法用于顯示窗體，Hide方法用于隱藏窗體，Unload方法可以將指定的窗體

從內(nèi)存中清除。

14、設(shè)工程中有Fonnl>Form2兩個(gè)窗體，要求單擊Fonn2上的Commandl命令按

鈕，F(xiàn)orm2就可以從屏幕上消失，下面的事件過(guò)程中不能實(shí)現(xiàn)此功能的是

ANPrivateSubCommandl_Click()Form2.HideEndSub

B、PrivateSubCommandl_Click()UnloadMeEndSub

C、PrivateSubCommandl_Click()Form2.UnloadEndSub

D、PrivateSubCommandl_Click()Me.HideEndSub

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)露析：Hide方法可以隱藏一個(gè)窗體，Me指代當(dāng)前窗體，所以語(yǔ)句

Form2.Hide和Me.Hide均可以隱藏當(dāng)前窗體Form2；Unload語(yǔ)句可以在內(nèi)存中

卸載一個(gè)窗體，該語(yǔ)句不能當(dāng)作方法使用。

15、工程中有Forml>Form2兩個(gè)窗體(Fonnl中有文本框Textl；Form2中有Textl

文本框和Command1命令按鈕)。Forml是啟動(dòng)窗體，在這些模塊中編寫(xiě)下面的程序

代碼：Forml中的代碼如下：PrivateSubText1DblClick()Textl=^^VisualBasic^^

Form2.ShowEndSubForm2中的代碼如F：PrivateSubCommandl_Click()

Textl=Forml.TextlForml.ShowEndSub下面關(guān)于程序的敘述中錯(cuò)誤的是

A^雙擊Forml的Textl后，Textl中顯示“VisualBasic"，彈出Form2

B、雙擊Forml的Texll后，F(xiàn)orm2成為當(dāng)前窗體

C、單擊Form2的命令按鈕，F(xiàn)orml成為當(dāng)前窗體

D^Form2的Textl=Forml.Textl語(yǔ)句不能正確執(zhí)行

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：本題中Forml中文本框的雙擊事件中會(huì)將文本框里面的內(nèi)容設(shè)置為指

定的值，而且打開(kāi)窗體Form2并使Form2成為當(dāng)前窗體；在Form2的命令按鈕中

的單擊事件中會(huì)將本窗體中的Textl內(nèi)容賦值成Forml窗體的文本框Textl的內(nèi)

容，并使Fonnl成為當(dāng)前窗體。

16、設(shè)工程中有2個(gè)窗體：FormlForm2,每個(gè)窗體上都有一個(gè)名稱(chēng)為T(mén)extl的

文本框。若希望把Forml上文本框中的內(nèi)容復(fù)制到Form2上的文本框中，應(yīng)進(jìn)行

的操作是

AN執(zhí)行Forml中的語(yǔ)句:Forml.Tcxtl=Form2.Textl

B、執(zhí)行Forml中的語(yǔ)句:Textl=Forml.Text

C^執(zhí)行Form2中的語(yǔ)句：Forml.Textl=Textl

D、執(zhí)行Fonn2中的語(yǔ)句：Tcxtl=Forml.Textl

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：文本框的默認(rèn)屬性是Text屬性，在當(dāng)前窗體中引用控件不必加上窗

體前綴。

17、設(shè)工程文件包含兩個(gè)窗體文件Forml.(Ym、Form2.frm及一個(gè)標(biāo)準(zhǔn)模塊文件

Module1.bas。兩個(gè)窗體上分別只有一個(gè)名稱(chēng)為Commandl的命令按鈕。Forml的

代碼如下：PublicxAsIntegerPrivateSubForm_Load()x=1：y=5EndSubPrivate

SubCommandl_Click()Form2.ShowEndSubForm2的代碼如F：PrivateSub

Commandl_Click()PrintForml.x.yEndSuhModulel的代碼如下：PublicyAs

Integer運(yùn)行以上程序，單擊Forml的命令按鈕Commandl,則顯示Fonn2；再單擊

Form2上的命令按鈕Commandl,則窗體上顯示的是

A、15

B、05

C、00

D、程序有錯(cuò)

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：本題考查的考點(diǎn)是有關(guān)變量的作用域的。本題中的y就是在標(biāo)準(zhǔn)模塊

中定義的全局變量，在任何一個(gè)窗體中都能應(yīng)用，并在