國(guó)家二級(jí)ACCESS機(jī)試選擇題(模塊與

VBA編程基礎(chǔ))模擬試卷第1套

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

1、下列四種形式的循環(huán)設(shè)計(jì)中，循環(huán)次數(shù)最少的是

A、a=5：b=8DoA=a+1LoopWhilea

B、a=5：b=8Doa=a+lLoopUntila

C、a=5：b=8DoUntila

D、a=5：b=8DoUntila>ba=a+lLoop

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

知識(shí)點(diǎn)解析：本題考查VBA中循環(huán)的知識(shí)。對(duì)于這種循環(huán)結(jié)構(gòu)，首先看條件判斷

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

果是后判斷條件，則無(wú)論條件如何至少執(zhí)行一次循環(huán)體.在Lintil循環(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ū)分清楚。本題中的A循環(huán)執(zhí)行

4次，B循環(huán)執(zhí)行1次，C循環(huán)一次也不執(zhí)行，D循環(huán)執(zhí)行4次。

2、在窗體中有一個(gè)命令按鈕run35,對(duì)應(yīng)的事件代碼如下：PrivateSubrun35

Enter()DimnumAsInteger,aAsIntegerDimbAsInteger,iAsIntegerFori=lTO10

num=InputBox(“請(qǐng)輸入數(shù)據(jù)：”，“輸入"，1)IfInt(num/2)=num/2Thena=a+l

ElseB=b+1EndIfNextiMsgBox("運(yùn)行結(jié)果:a="&Str(a)&：",b=,,&Str(b))End

Sub運(yùn)行以上事件所完成的功能是

A、對(duì)輸入的10個(gè)數(shù)據(jù)求累加和

B、對(duì)輸入的10個(gè)數(shù)據(jù)求各自的余數(shù)，然后再進(jìn)行累加

C、對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)是整數(shù)，有幾個(gè)是非整數(shù)

D、對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)是奇數(shù)，有幾個(gè)是偶數(shù)

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

知識(shí)點(diǎn)解析：本題考查程序設(shè)計(jì)的知識(shí)。本題的重點(diǎn)在于判斷Inl(num/2)=num/

2是什么樣的條件。對(duì)于任意一個(gè)整數(shù)來(lái)說(shuō)，若其除2后為整數(shù)，也就是Int(num

/2)=hum/2成立，說(shuō)明該數(shù)是一個(gè)偶數(shù)；反之若其除2后不為整數(shù)，此時(shí)

片1(加01/2)必然不等于111101/2,也就是一個(gè)整數(shù)不可能等于一個(gè)小數(shù)，說(shuō)明該數(shù)

是一個(gè)奇數(shù)。所以本題的功能是對(duì)輸入的數(shù)據(jù)分別統(tǒng)計(jì)奇偶數(shù)的個(gè)數(shù)。

3、在VBA中，錯(cuò)誤的循環(huán)結(jié)構(gòu)是

A、DoWhile條件式循環(huán)體Lo叩

B、DoUntil條件式循環(huán)體Loop

C、DoUntil循環(huán)體Loop條件式

D^Do循環(huán)體LoopWhile條件式

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

知識(shí)點(diǎn)解析：“條件式''放在While或Until后面。

4、在窗體中有一個(gè)命令按鈕(名稱(chēng)為run34),對(duì)應(yīng)的事件代碼如下：PriateSub

run34Click()suni=0Fori=10To1Step-2sum=sum+iNextiMsgBoxsumEndSub運(yùn)

行以上事件，程序的輸出結(jié)果是

A、10

B、30

C、55

D、其他結(jié)果

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

知識(shí)點(diǎn)解析：i=10,每循環(huán)一次遞減2。第一次循環(huán)結(jié)果：i=10,

sum=sum+i=0+10=10：第二次循環(huán)結(jié)果：i=8,sum=sum+i=10+8=18；第三次循環(huán)

結(jié)果：i=6,sum=sum+i=l8+6=24；第四次循環(huán)結(jié)果：i=4,sum=sum+i=24+4=28：

第五次循環(huán)結(jié)果：i=2,sum=sum+i=28+2=30。

5、在窗體中有一個(gè)名稱(chēng)為run35的命令按鈕，單擊該按鈕從鍵盤(pán)接收學(xué)生成績(jī)，

如果輸入的成績(jī)不在0到100分之間，則要求重新輸入；如果輸入的成績(jī)正確，則

進(jìn)入后續(xù)程序處理。run35命令按鈕的Click的事件代碼如下：PrivateSubrun35

Click()DimflagAsBooleanresult=O：flag=TrueDoWhileflag

result=Val(InputBox(“請(qǐng)輸入學(xué)生成績(jī).“輸入"))Ifresult>=OAndresult<=l00Then

ElseMsgBOX"成績(jī)輸入錯(cuò)誤，請(qǐng)重新輸入“EndIfLoopRem成

績(jī)輸入正確后的程序代碼略EndSub程序中有一空白處，需要填入一條語(yǔ)句使程序

完成其功能。下列選項(xiàng)中錯(cuò)誤的語(yǔ)句是

A、flag二False

R、flag=Notflag

C、flag=True

D、ExitDo

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

知識(shí)點(diǎn)解析：根據(jù)題目要求，當(dāng)輸入正確的成績(jī)后，進(jìn)入后續(xù)的程序處理，F(xiàn)lag初

始為T(mén)rue,進(jìn)入dowhile循環(huán)，循環(huán)條件為Flag。當(dāng)輸入錯(cuò)誤的成績(jī)時(shí)，提示信

息并不改變.Flag標(biāo)記，即還為T(mén)rue,繼續(xù)進(jìn)行循環(huán)：當(dāng)輸入正確成績(jī)時(shí)，應(yīng)將

Flag標(biāo)記為False,這樣才可以跳出循環(huán)，繼續(xù)后續(xù)的程序處理，否則將一直停留

在循環(huán)這里。

6、下列四個(gè)選項(xiàng)中，不是VBA的條件函數(shù)的是

A、Choose

B、If

C>Ilf

D、Switch

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

知識(shí)點(diǎn)解析：本題考查條件函數(shù)的知識(shí)。VBA中的條件函數(shù)共有3個(gè)：IIF函數(shù)根

據(jù)表達(dá)式的真假值返回兩個(gè)表達(dá)式之一；Switch函數(shù)對(duì)表達(dá)式列表求值，并返回一

個(gè)Variant類(lèi)型的值或與列表中第一個(gè)為T(mén)rue的表達(dá)式相關(guān)聯(lián)的表達(dá)式；Choose函

數(shù)從參數(shù)列表中選擇值并返回。

7、設(shè)有如下過(guò)程：x=lDox=x+2LoopUntil運(yùn)行程序，要求循環(huán)體執(zhí)行3次后結(jié)

束循環(huán)，空白處應(yīng)填入的語(yǔ)句是

A、x<=7

B、x<7

C、x=7

D、x>7

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

知識(shí)點(diǎn)解析：本題考查循環(huán)的基礎(chǔ)知識(shí)。本題目要求循環(huán)3次，當(dāng)?shù)?次循環(huán)結(jié)束

時(shí)x的值為7,而Until型循環(huán)的特點(diǎn)是當(dāng)條件表達(dá)式為真的時(shí)候結(jié)束循環(huán)，故此

條件應(yīng)該是x>=7o

8、在窗體中添加一個(gè)名稱(chēng)為Commandl的命令按鈕，然后編寫(xiě)如下事件代碼：

PrivateSubCommandlClick()MsgBoxf(24,18)EndSubPublicFunctionf(mAs

Integer,nAsInteger)AsIntegerDoWhilemonDoWhilem>nm=m—nLoopDo

Whilem

A、2

B、4

C、6

D、8

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

知識(shí)點(diǎn)解析：本題考查VBA程序設(shè)計(jì)的知識(shí)。當(dāng)調(diào)用函數(shù)時(shí)，形參m=24,

n=18：然后進(jìn)入循環(huán)，由于m>n,所以執(zhí)行m=m-n,m的值變?yōu)?：第2次循環(huán)

時(shí)由于m

9、在窗體中有一個(gè)文本框Texll,編寫(xiě)事件代碼如下：+PrivateSubFormClick()

X--val(Inputbox("輸入X的值"))Y=1IfXOOThenY=2Textl,Value=YEndSub打開(kāi)窗

體運(yùn)行后，在輸入框中輸入整數(shù)12,文本框Textl中輸出的結(jié)果是

A、I

B、2

C、3

D、4

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

知識(shí)點(diǎn)解析：根據(jù)題意，可知首先將輸入的數(shù)值賦給X,Y初始值為1,接著判斷

X是否不為0(即輸入的值是否不為0),如果不為0：則Y的值為2,并且將Y的值

賦給文本框Textl。由于題意中輸入的是12,不為0,此時(shí)Y的值為2,所以文本

框中輸出的結(jié)果為2。

10、在窗體中有一個(gè)命令按鈕Commandl和一個(gè)文本框Textl,編寫(xiě)事件代碼如

下:PrivateSubCommandlCIick()Forl=1To4x=3Forj=lTo3FOfk=1To2x=x+3

NextkNextiNextlTextl.valuc=Str(x)EndSub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，

文本框Text)輸出的結(jié)果是

A、6

B、12

C、18

D、21

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

知識(shí)點(diǎn)解析：各層循環(huán)過(guò)程及結(jié)果如下表所示：

第一層循環(huán)X的初始值第二層循環(huán)第三層循環(huán)X的值

K-1

J=l

K=2X=9

1=1或1=2或1-3或K=1X=I2

X=342

1-4K=2X-15

K1X-18

J=3

K=2———運(yùn)行結(jié)束

后，X的最終值為21。

11、在窗體中有一個(gè)命令按鈕Command1,編寫(xiě)事件代碼如下：PrivateSub

CommandlClick()DimSAsIntegerS-P(1)+P(2)+P(3)+P(4)debug.PrintSEndSub

PublicFunctionP(NASInteger)DimSumAsIntegerSum=0Fori=tToNSum二Suln+i

NextiP二SumEndFunction打開(kāi)窗體運(yùn)行后，單擊命令按鈕，輸出結(jié)果是

A、15

B、20

C、25

D、35

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

知識(shí)點(diǎn)解析：從函數(shù)P的代碼可知，其功能是計(jì)算從1到N的和，在命令按鈕的

單擊事件代碼中，可知S為P(l),P(2),P(3),P(4)的和，顯然P(l)=l,

P(2)=l+2=3,P(3)=l+2+3=6,P(4)=1+2+3+4=10,所以S=1+3+6+10=20。

12、由“Fori=lTo9Step-3”決定的循環(huán)結(jié)構(gòu)，其循環(huán)體將被執(zhí)行

A0次

、

B1次

、

c4次

、

D5次

、

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

知識(shí)點(diǎn)解析：循環(huán)變量I從1到9按遞減順序，由于1—3=2不滿(mǎn)足條件，所以一

次也不執(zhí)行。

13、在窗體上有一個(gè)命令按鈕Command1和一個(gè)文本框Textl,編寫(xiě)事件代碼如下

PrivateSubCommandl_Click()Dimi,j,xFori=lTo20sep2x=0Foij=iTo20step3

x=x+lNextjNextiTextl.Value=Str(x)EndSub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，

文本框中顯示的結(jié)果是

A、1

B、7

C、17

D、400

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

知識(shí)點(diǎn)解析：外循環(huán)每次循環(huán)都將x重置為0,所以只看外循環(huán)的最后一次即i=20

時(shí)，此時(shí)內(nèi)循環(huán)i=i=20開(kāi)始以步長(zhǎng)為2開(kāi)始遞增，遞增一次執(zhí)行x=x+l=0+l=l后

便結(jié)束循環(huán)，所以最后文本框顯示的結(jié)果為1。

14、在窗體上有一個(gè)命令按鈕Command1,編寫(xiě)事件代碼如下：PrivateSub

CommandI_Click()DimyAsIntegery=0Doy=InPutBox{“y”)If(yMod10)+Int(y/

10)=10ThenDebug.Printy；LoopUntilY=0EndSub打開(kāi)窗體運(yùn)行后,單擊命令

按鈕，依次輸入10、37、50、55、64、20、28、19、-19、0,立即窗口上輸出的

結(jié)果是

A、375564281919

B、1O5020

C、1050200

D、3755642819

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

知識(shí)點(diǎn)解析:分析if語(yǔ)句,當(dāng)計(jì)算表達(dá)式(ymod沿)+int(y/10)等于10時(shí),立即窗

口顯示輸入的數(shù)字。當(dāng)瑜入第一個(gè)數(shù)字10時(shí)，(ynlod10)+int(y/10)=0+1=1不等

于10,不顯示；當(dāng)輸入第二個(gè)數(shù)字37時(shí)，(ymod10)+inl(y/10)=7+3=10,顯示數(shù)

字37,依次類(lèi)推，結(jié)果為選項(xiàng)D。

15、若變量i的初值為8,則下列循環(huán)語(yǔ)句中循環(huán)體的執(zhí)行次數(shù)為D。Whileiv=17

Lo次

A、3

次

B、4

次

C、5次

D、6

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

知識(shí)點(diǎn)解析：D。While...Loop循環(huán)結(jié)構(gòu)是當(dāng)條件為假時(shí)，重復(fù)執(zhí)行循環(huán)體，直至條

件表達(dá)式為真，結(jié)束循環(huán)。每次循環(huán)對(duì)應(yīng)的i值：

循環(huán)次數(shù)i的值

18<-17

28+2=10<=17

3IK2nlz<=17

412^-2=14<=17

514?2>16<-17

16、InputBox函數(shù)的返回值類(lèi)型是

A、數(shù)值

B、字符串

C、變體

D、視輸入的數(shù)據(jù)而定

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

知識(shí)點(diǎn)解析：InpulBox輸入框：在對(duì)話(huà)框中顯示提示，等待使用者輸入文字或按一

下按鈕，再返回包含文本框內(nèi)容的字符串類(lèi)型值。

17、下列能夠交換變量X和Y值的程序段是

A、Y=X：X=Y

B、Z=X：Y=Z：X=Y

C、Z=X：X=Y：Y=Z

D、Z=X：W=Y：Y=Z：X=Y

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

知識(shí)點(diǎn)解析：想要交換X與Y的值，需要另一個(gè)變量作為中間變量Z,先把X值

賦給Z,再把Y值賦給X,最后把Z的值賦給Y,交換完畢。

18、窗體中有命令按鈕commanddl和文本框Textl,事件過(guò)程如下：Function

result(ByValXAsInteger)AsBooleanIfxMod2=0Tlienresult=TrueElseresult=False

EndIfEndFunctionPrivmeSubCommandlClick()x=Val(InputBox(“請(qǐng)輸入一個(gè)整

數(shù)"))IfThenTextl=str(x)&"是偶數(shù)."ElseTextl=str(x)&“是奇數(shù)."EndIf

EndSub運(yùn)行程序，單擊命令按鈕，輸入19,在Textl中會(huì)顯示“19是奇數(shù)那么

在程序的空白處應(yīng)填寫(xiě)

A、result(x)="偶數(shù)”

B、result(x)

C、result(x)="奇數(shù)”

D^NOTresull(x)

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

知識(shí)點(diǎn)解析：resuk函數(shù)返回的是布爾值：True或False,xMod2=0表示如果一個(gè)

數(shù)除以2為0代表是偶數(shù)，那么返回17rue值，所以條件判斷時(shí)只要調(diào)用result(x)

即可。

19、窗體有命令按鈕Commandl和文本框Texll,對(duì)應(yīng)的事件代碼如卜.：Private

SubCommandl_Click()Fori=lTo4x=3Foij=lTo3Fork=lTo2x=x+3Nextk,j,

iTextl.Value=Str(x)EndSub運(yùn)行以上事件過(guò)程，文本框中的輸出是

A、6

B、12

C、18

D、21

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

知識(shí)點(diǎn)解析：此處嵌套三層循環(huán)，最外層循環(huán)總是把x值初始化為3,所以只看內(nèi)

兩層循環(huán)的次數(shù)及累加，內(nèi)兩層一共循環(huán)3*2=6次，每次x的值累加3,即共累加

6*3=18,再加上初始值x=3+18=21。

20、窗體中有命令按鈕run34,對(duì)應(yīng)的事件代碼如、.：PfivateSubrun34Enter()

DimsumAsInteger,aAsInteger,bAsInteger,iAsIntegerFori=lTO10

num=InputBox(”請(qǐng)輸入數(shù)據(jù)："，"輸入")IfInt(num/2)=num/2Thena=a+lElse

b=b+lEndIfNextiMsgBOX("運(yùn)行結(jié)果：a="&Str(a)&"，b="&Str(b))EndSub運(yùn)行

以上事件過(guò)程，所完成的功能是

A、對(duì)輸入的10個(gè)數(shù)據(jù)求累加和

B、對(duì)輸入的10個(gè)數(shù)據(jù)求各自的余數(shù)，然后再進(jìn)行累加

C、對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)奇數(shù)和偶數(shù)的個(gè)數(shù)

D、對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)整數(shù)和非整數(shù)的個(gè)數(shù)

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

知識(shí)點(diǎn)解析：因num變量為整型，所以每次輸入的數(shù)據(jù)是整數(shù)，ini函數(shù)是取整函

數(shù)，如果num為整數(shù)，則3(1］山］］/2)與m1］】/2相等，否則不等，所以此事件代

碼完成的功能是統(tǒng)計(jì)輸入奇數(shù)與偶數(shù)的個(gè)數(shù)。

21、運(yùn)行下列程序，輸入數(shù)據(jù)8、9、3、0后，窗體中顯示結(jié)果是PrivateSubForm

click()DimsumAsInteger,mAsIntegersum=0Dom=Inpi】tRox("輸入m")

SUm=sum+mLoopUntilm=0MsgBoxsumEndSub

A、0

B、17

C、20

D、21

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

知識(shí)點(diǎn)解析：Do...LJntilLoop循環(huán)結(jié)構(gòu)是當(dāng)條件為假時(shí)，重復(fù)執(zhí)行循環(huán)體，直至

條件表達(dá)式為真，結(jié)束循環(huán)。當(dāng)輸入8、9、3三個(gè)數(shù)字條件(m=O)不成立，所以累

加，直到輸入0后結(jié)束,即8+9+3=20。

22、運(yùn)行下列程序段，結(jié)果是Form=10to1step0k=k+3Nextm

A、形成死循環(huán)

B、循環(huán)體不執(zhí)行即結(jié)束循環(huán)

C、出現(xiàn)語(yǔ)法錯(cuò)誤

D、循環(huán)體執(zhí)行一次后結(jié)束循環(huán)

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

知識(shí)點(diǎn)解析：FOR是循環(huán)語(yǔ)句，當(dāng)step>=0時(shí)，2前數(shù)字要小于后面數(shù)字，否則將

不執(zhí)行。本題中io前數(shù)字是10大于后面數(shù)字1則不執(zhí)行此循環(huán)體，直接跳過(guò)。

23、運(yùn)行下列程序,結(jié)果是PrivateSubCommand32click()fO=l：fl=l：k=lDo

Whilek<=5f=fO+fl：fO=flfl=f：k=k+lLoopMsgBox^&fEndSub

A、f=5

B、f=7

C、f=8

D、f=13

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

知識(shí)點(diǎn)解析：D。While...Loop循環(huán)結(jié)構(gòu)是當(dāng)條件為假時(shí)，重復(fù)執(zhí)行循環(huán)體，直至

__________________一次循環(huán)對(duì)應(yīng)的k值

循環(huán)次數(shù)f的值F0的值F1的值

“(初始值)011

I212

2323

____3535

4858

條件表達(dá)式為真，結(jié)束循環(huán)。一、113813

24、有如下事件程序，運(yùn)行該程序后輸出結(jié)果是PrivateSubCommand33Click()

DimXAsInteger,yAsIntegerx=l：y=0DoUntily<=25y=y+x*x：x=x+lLoop

MsgBoxux：y=',&yEndSub

A、x=l,y=0

B、x=4,y=25

C、x=5,y=30

D、輸出其他結(jié)果

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

知識(shí)點(diǎn)解析：D。Until...Loop循環(huán)結(jié)構(gòu)是當(dāng)條件為假時(shí)，重復(fù)執(zhí)行循環(huán)體，直至條

件表達(dá)式為真，結(jié)束循環(huán)。本題中循環(huán)條件是y=0<=25條件為真，即不執(zhí)行循環(huán)

體，所以x、y的值即為初始值。

25、下列程序的功能是計(jì)算sum=l+(l+3)+(1+3+5)+......+(1+3+5+........+39)Private

SubCommand34Click()t=0：m=l：sum=0DoT=t+mSum=Sum+tm=

LoopWhilem<=39MsgBox“Sum="&sunEndSub為保證程序正確完成上述功能，

空白處應(yīng)填入的語(yǔ)句是

A、In+1

B、m+2

C、t+1

D、t+2

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

知識(shí)點(diǎn)解析：根據(jù)題中計(jì)算式可以找出規(guī)律，m變量為奇數(shù)，且相鄰兩個(gè)奇數(shù)相差

為2,所以本題選B。

26、由“Fori=lTo16Step3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行

A4次

、

B5次

、

c6次

、

D7次

、

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

知識(shí)點(diǎn)解析：根據(jù)題意可知，步長(zhǎng)為3,所以當(dāng)i分別為1、4、7、10、13、16時(shí)

執(zhí)行循環(huán)體，所以共執(zhí)行了6次。

27、若有以下窗體單擊事件過(guò)程：PrivateSubFormClick()result=lFori=lTo6

si叩3result=resuk*iNextiMsgBoxresultEndSub打開(kāi)窗體運(yùn)行后，單擊窗體，則

消息框的輸出內(nèi)容是

A、1

B、4

C、15

D、120

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

知識(shí)點(diǎn)解析：根據(jù)題意可知，F(xiàn)or循環(huán)的步長(zhǎng)為3,只有當(dāng)i分別為I和4時(shí)才會(huì)執(zhí)

行循環(huán)體，所以該事件的最終結(jié)果是4。

28、窗體中有命令按鈕Command32,其Click事件代碼如下。該事件的完整功能

是：接收從鍵盤(pán)輸入的10個(gè)大于0的整數(shù)，找出其中的最大值和對(duì)應(yīng)的輸入位

置。PrivateSubCommand32_Click()max=0：max—n=0Fori=lTo10

num=Val(InputBox("請(qǐng)輸入*'&i&“個(gè)大于0的整數(shù)："))IfThen

inax=num：maxn=iEndIfNextiMsgBox("最大值為第”&max_n&"個(gè)輸入

的"&max)EndSub程序空白處應(yīng)該填入的表達(dá)式是

A、num>i

B、i

C、num>max

D、num

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

知識(shí)點(diǎn)解析：由題意可知，max代表最大值，maxn代表最大值的位置，而num為

輸入的數(shù)值。在IF語(yǔ)句中，將num的值賦予max,只有當(dāng)num>max時(shí)，才能實(shí)

現(xiàn)將最大值查找出來(lái)，并記錄其位置。

國(guó)家二級(jí)ACCESS機(jī)試選擇題（模塊與

VBA編程基礎(chǔ)）模擬試卷第2套

一、選擇題（本題共30題，每題1.0分，共30分。）

1、下列變量名中，合法的是

A、4A

B、A—1

C、ABC—1

D、private

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

知識(shí)點(diǎn)解析：變量名必須以字母開(kāi)頭，大小寫(xiě)等價(jià)，不能包括空格或除下劃線(xiàn)之

外的其他字符，不能使用VBA的關(guān)鍵字，變量名長(zhǎng)度小于255個(gè)字符。

2、下列表達(dá)式中，能正確表示條件“x和Y都是奇數(shù)”的是

A、xMod2=0AndYMod2=0

B、xMod2=0OrYMod2=0

C、xMod2=1AndYMod2=1

D、XMod2=1OrYMod2=1

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

知識(shí)點(diǎn)解析：Mod取余函數(shù)，奇數(shù)。mod2=l偶數(shù)mod2=0證明x、y都是奇數(shù)，即

用AND（與）操作符。

3、下列給出的選項(xiàng)中，非法的變量名是

A、Sum

B、Integer2

C、Rem

D、Forml

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

知識(shí)點(diǎn)解析：變量名必須以字母開(kāi)頭，大小寫(xiě)等價(jià)，不能包括空格或除下劃線(xiàn)之

外的其他字符，不能使用VBA的關(guān)鍵字，變量名長(zhǎng)度小于255個(gè)字符，木題中選

項(xiàng)C）為關(guān)鍵字，不能作為變量名使用。

4、表達(dá)式“B=INT（A+0.5）”的功能是

A、將變量A保留小數(shù)點(diǎn)后1位

B、將變量A四舍五入取整

C、將變量A保留小數(shù)點(diǎn)后5位

D、舍去變量A的小數(shù)部分

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

知識(shí)點(diǎn)解析：Inl(V數(shù)值表達(dá)式＞)函數(shù)為取整函數(shù)，返回?cái)?shù)值表達(dá)式的整數(shù)部分。

參數(shù)為負(fù)值時(shí)，返回小于等于參數(shù)值的第一個(gè)負(fù)數(shù)。

5、VBA語(yǔ)句“DimNewArray(10)asInteger''的含義是

A、定義10個(gè)整型數(shù)構(gòu)成的數(shù)組NewArray

B、定義11個(gè)整型數(shù)構(gòu)成的數(shù)組NewArray

C、定義1個(gè)值為整型數(shù)的變量NewArray(lO)

D、定義1個(gè)值為10的變量NewArray

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

知識(shí)點(diǎn)解析：dimnewarray(10)asinteger表示定義了11個(gè)整型數(shù)構(gòu)成的數(shù)組，數(shù)組

元素為newarray(O)至newarray(10)o

6、將一個(gè)數(shù)轉(zhuǎn)換成相應(yīng)字符串的函數(shù)是

A、Str

B、String

C、Asc

D、Chr

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

知識(shí)點(diǎn)解—?析■??：各函數(shù)?...的.—功..能-..如.-下.表--所示:::

將數(shù)值表達(dá)式值轉(zhuǎn)換成字符率.注意，當(dāng)一數(shù)字轉(zhuǎn)成字符

Str(〈數(shù)值表達(dá)式〉)用時(shí)，總會(huì)在前頭保留一空格來(lái)表示正負(fù).表達(dá)式值為正，

返回的字符申包含一前導(dǎo)空格表示有一正號(hào)

String(數(shù)值表達(dá)式?字返回一個(gè)由字符表達(dá)式的第一個(gè)字符重復(fù)蛆成的指定長(zhǎng)度

符發(fā)達(dá)式)為數(shù)值表達(dá)式值的字符申

Chr(〈字符代碼))返回與字符代碼相關(guān)的字符

而選項(xiàng)C)的

Asc只是在SQL語(yǔ)句中實(shí)現(xiàn)排序?yàn)樯虻墓δ堋?/p>

7、VBA中定義符號(hào)常量使用的關(guān)鍵字是

A^Const

Dim

C、Public

D、Static

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

知識(shí)點(diǎn)解析：在VBA編程過(guò)程中，如果在代碼中要反復(fù)使用相同的值，或者代表

一些具有特定意義的數(shù)字或字符串，可以用符號(hào)常量形式來(lái)表示，符號(hào)常量使用關(guān)

鍵字Const來(lái)定義，格式如下：Const符號(hào)常量名稱(chēng)：常量值

8、可以用InpulBox函數(shù)產(chǎn)生“輸入對(duì)話(huà)框。執(zhí)行語(yǔ)句；st-【nputBox(“請(qǐng)輸入字符

串“，"字符串對(duì)話(huà)框“Jaaaa”)當(dāng)用戶(hù)輸入字符串“bbbb"，按OK按鈕后，變量st的

內(nèi)容是

A、aaaa

B、請(qǐng)輸入字符串

C、字符串對(duì)話(huà)框

D^bbbb

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

知識(shí)點(diǎn)解析：輸入框用于在一個(gè)對(duì)話(huà)框中顯示提示，等待用戶(hù)輸入正文并按下按

鈕、返回包含文本框內(nèi)容的字符串?dāng)?shù)據(jù)信息。它的功能在vBA中是以函數(shù)的形式

調(diào)用，其使用格式如下:InputBox(prompt[,title][,default][,xpos][,ypos][,

helpfile,context])InputBox彳了關(guān)參數(shù)說(shuō)明如表9-4所示。

表9-4InputHox冷數(shù)說(shuō)明

叁數(shù)名稱(chēng)承敗說(shuō)明

必能的。作為對(duì)話(huà)根消息出現(xiàn)的字符申表達(dá)式.盾。/摩，的最大氏度大約

是1024個(gè)字符?由所用字符的寬度決定.如果prompt包含多個(gè)行，

Prompt

則可在各行之間用【可車(chē)符(Chr(13))、換行符(ChrflO))或回車(chē)換行符的

組合(ChKI3>&Chr(10))來(lái)分隔

Title可通的.顯不對(duì)話(huà)框標(biāo)題欄中的字符事及達(dá)式.如果省略title,則把應(yīng)

用程序名放入標(biāo)題欄中

Default可選的.顯示文本框中的字符中表達(dá)式，存沒(méi)有其它慟入時(shí)作為缺省值.

如果省略default,則文本樞為空

可選的.數(shù)值表達(dá)式?成對(duì)出現(xiàn)，指定對(duì)話(huà)柩的左邊與解移左邊的水平

Xpos

距離.如果省略xpos.則對(duì)話(huà)框會(huì)在水平方向居中

可選的.數(shù)值表達(dá)式，成對(duì)出現(xiàn),指定對(duì)話(huà)樞的上邊與屏幕上邊的距離.

Ypox如果省略yp(n.則對(duì)話(huà)程被放置在屏幕垂真方向距下邊大約三分之一的

位置

可選的.字符串表達(dá)式，識(shí)別幫助文件，用該文件為對(duì)話(huà)框提供上卜.文

Helpfile

相關(guān)的相助。如果已提供helpfile,則也必須提供context

可選的.數(shù)值表達(dá)式，由幫助文件的作者指定給某個(gè)幫助主遞的幫助上

Context

卜女弟號(hào)。如果己提供context.則也必須委提供helpfile

9、下列不屬于VBA函數(shù)的是

A、Choose

B、If

C、Ilf

D、Switch

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

知識(shí)點(diǎn)解析：I【f()函數(shù)，該函數(shù)可用于選擇操作。調(diào)用格式為：Uf(條件表達(dá)式，

表達(dá)式1,表達(dá)式2)功能：函數(shù)根據(jù)“條件表達(dá)式”的值來(lái)決定返回值。如果“條件

表達(dá)式”的值為“真函數(shù)返回“表達(dá)式1”的值；“條件表達(dá)式”的值為

“假”(Flase),函數(shù)返回“表達(dá)式2”的值。Switch。函數(shù)，該函數(shù)可用于多條件選擇操

作。調(diào)用格式為：Switch(條件式1,表達(dá)式1[,條件式2,表達(dá)式2L..[,條件式

n,表達(dá)式n])功能：函數(shù)分別根據(jù)“條件式1”、“條件式2”…“條件式n”的值來(lái)決

定返回值。條件式是由左至右進(jìn)行計(jì)算判斷的，函數(shù)將返回第一個(gè)條件式為T(mén)rue

的對(duì)應(yīng)“表達(dá)式”的值。Choose。函數(shù)，調(diào)用格式為：Choose(數(shù)值表達(dá)式，表達(dá)式

1[,表達(dá)式表達(dá)式n])功能：函數(shù)根據(jù)“數(shù)值表達(dá)式”的值決定返回值。若不

考慮變量的小數(shù)的定義位數(shù)，當(dāng)“數(shù)值表達(dá)式“值大于1、小于2時(shí):函數(shù)將返回

“表達(dá)式1”的值；值大于2、小于3,返回“表達(dá)式2”的值,依此類(lèi)推。以上3種函

數(shù)均為VBA的函數(shù)。

10、下列關(guān)于VBA事件的敘述中，正確的是

A、觸發(fā)相同的事件可以執(zhí)行不同的事件過(guò)程

B、每個(gè)對(duì)象的事件都是不相同的

C、事件都是由用戶(hù)操作觸發(fā)的

D、事件可以由程序定義

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

知識(shí)點(diǎn)解析：事件是由系統(tǒng)定義的，事件的過(guò)程是由程序員定義的，因此觸發(fā)相同

的事件可以執(zhí)行不同的事件過(guò)程：不同的對(duì)象可能有相同的實(shí)現(xiàn)，如很多控件都具

有“獲取焦點(diǎn)”事件。有些事件并不是用戶(hù)觸發(fā)的，如Resize事件。事件是由系統(tǒng)

定義供程序員使用的，并不能由程序員定義。

11、用來(lái)測(cè)試當(dāng)前讀寫(xiě)位置是否達(dá)到文件末尾的函數(shù)是

A、EOF

B、FileLen

C、Len

D、LOF

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

知識(shí)點(diǎn)解析：在到達(dá)文件末尾之前，EOF函數(shù)一直返回False,到達(dá)文件末尾時(shí)，

EOF返回True；FileLen函數(shù)返回一個(gè)文件的長(zhǎng)度，單位為字節(jié)；Len返回文本串

的字符數(shù)；LOF函數(shù)返回某文件的字節(jié)數(shù)。

12、下列表達(dá)式中，能夠保留變量X整數(shù)部分并進(jìn)行四舍五入的是

Fix(x)

B、Rnd(x)

C、Round(x)

D^Int(x)

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

知識(shí)點(diǎn)解析：Fix(x)和Int(x)返回x的整數(shù)部分，對(duì)于小數(shù)部分完全舍棄。Rnd(x)返

回一個(gè)隨機(jī)數(shù)，Round(x)保留x的整數(shù)部分并進(jìn)行四舍五入。

13、VBA程序中，可以實(shí)現(xiàn)代碼注釋功能的是

A、方括號(hào)(口)

B、冒號(hào)(：)

C、雙引號(hào)(")

D、單引號(hào)。

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

知識(shí)點(diǎn)解析：一個(gè)好的程序一般都有注釋語(yǔ)句。這對(duì)程序的維護(hù)有很大的好處。

在VBA程序中，注釋可以通過(guò)以下兩種方式實(shí)現(xiàn)：使用Rem語(yǔ)句，格式為：

Rem注釋語(yǔ)句用單引號(hào)”巾，格式為：‘注釋語(yǔ)句

14、在窗口中有一個(gè)標(biāo)簽Label。和一個(gè)命令按鈕Command】，Commandl的事件代

碼如下：PrivateSubCommandl_Click()LabelO.Left=LabelO.Left+100EndSub

打開(kāi)窗口，單擊命令按鈕，結(jié)顯是

A、標(biāo)簽向左加寬

B、標(biāo)簽向右加寬

C、標(biāo)簽向左移動(dòng)

D、標(biāo)簽向右移動(dòng)

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

知識(shí)點(diǎn)解析：Left表示的足控件的左邊距，所以leftlOO表示控件向右移動(dòng)。

15、假定有以下循環(huán)結(jié)閡DoUntil條件循環(huán)體Loop則正確的敘述是

A、如果“條件”值為0,則一次循環(huán)體也不執(zhí)行

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

C、如果"條件''值不為0,則至少執(zhí)行一次循環(huán)體

D、不論“條件”是否為“真”，至少要執(zhí)行一次循環(huán)體

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

知識(shí)點(diǎn)解析：本題考查VBA中D。Until...Loop循環(huán)的知識(shí)。對(duì)于這種循環(huán)結(jié)陶，

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

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

循環(huán)中條件為Fake時(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ū)分清楚。本題中

是先判斷條件，條件值為。表示條什是False,則至少執(zhí)行一次循環(huán)體。

16、假定有以下程序段n=0fori=1to3forj=-4to-1n=n+lnextjnexti運(yùn)行完畢后,

n的值是

A、0

B、3

C、4

D、12

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

知識(shí)點(diǎn)解析：本題考查VBA中嵌套For循環(huán)的知識(shí)。這種問(wèn)題要注意分析清楚每

次循環(huán)的變化以及循環(huán)的次數(shù)。在這個(gè)循環(huán)中，內(nèi)循環(huán)執(zhí)行4次，外循環(huán)執(zhí)行3

次，所以里面的循環(huán)體語(yǔ)句n=n+l共執(zhí)行12次，所以最終n的值為12。

17、以下程序段運(yùn)行結(jié)束后，變量X的值為X=2Y=4DOX=x*yY=y+1Loop

Whiley<4

A、2

B、4

C、8

D、20

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

知識(shí)點(diǎn)解析：本題考查VBA中循環(huán)的知識(shí)。在本題中用了Do…LoopWhile循

環(huán)，先運(yùn)行循環(huán)體后判斷條件，當(dāng)條件滿(mǎn)足時(shí)繼續(xù)循環(huán)，條件不滿(mǎn)足時(shí)退出循環(huán)

體。在本題中第一次循環(huán)結(jié)束后y的值為5已經(jīng)不滿(mǎn)足條件，故此木循環(huán)只執(zhí)行一

次，x的值為2*4=8。

18、在窗體上添加一個(gè)命令按鈕(名為Command。，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommandl_Click()Fori=lTo4X=4Foij=lTo3x=3Fork=lTo2X=x+6

NextkNextjNextiMsgBoxXEndSub打開(kāi)窗體后，單擊命令按鈕，消息框的輸出

結(jié)果是

A、7

B、15

C、157

D、528

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

知識(shí)點(diǎn)解析：本題考查VBA中多重循環(huán)的知識(shí)。見(jiàn)到多重循環(huán)的問(wèn)題不要害怕，

認(rèn)真地分析清楚每一次循環(huán)這種問(wèn)題就迎刃而解了。比如這個(gè)例子，我們看到，在

每一次外循環(huán)開(kāi)始的時(shí)候都把x的值置為4,所以我們只分析最后一次循環(huán)就可以

了：同理中層循環(huán)每一次開(kāi)始前都把x置為3,所以這個(gè)問(wèn)題最后實(shí)際上就是x的

初值為3,執(zhí)行最內(nèi)層循環(huán)直到結(jié)束就可以了。根據(jù)程序內(nèi)循環(huán)執(zhí)行兩次，最后

x=3+6+6=l5o

19、在窗體中添加一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：

PrivateSubCommandl_Click()Dima(10,10)Form=2To4Forn=4To5a(m,

n)=m*nNextnNextmMsgBoxa(2,5)+a(3,4)+a(4,5)EndSub窗體打開(kāi)運(yùn)行后,

單擊命令按鈕，則消息框的輸出結(jié)果是

A、22

B、32

C、42

D、52

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

知識(shí)點(diǎn)解析：本題考查數(shù)組和二重循環(huán)的知識(shí)。在這個(gè)問(wèn)題中，我們實(shí)際上可以分

析出，數(shù)組元素的值就是該元素的兩個(gè)下標(biāo)之積(循環(huán)范圍內(nèi))。所以最后的三個(gè)數(shù)

組元素的和也就是2*5+3*4+4*5=42。

20、在窗體中添加一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：

PrivateSubCommandl_Click()A=75IfA>60Then1=1IfA>70Then1=2IfA>80

Then1=3I「A>90Then1=4MsgBoxIEndSub窗體打開(kāi)運(yùn)行后，單擊命令按鈕，貝U

消息框的輸出結(jié)果是

A、1

B、2

C、3

D、4

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

知識(shí)點(diǎn)解析：本題考查VBA中選擇結(jié)構(gòu)的知識(shí)。在本題中用了多個(gè)If分支結(jié)溝，

這些結(jié)構(gòu)是順序的而不是嵌套的，所以會(huì)順序執(zhí)行判斷是否滿(mǎn)足條件。首先75大

于60。所以i=l,然后再判斷75大于70。所以i=2,再接著判斷75既不大于80

也不大于90,所以最后消息框里輸出的i值為2。

21、在窗體中添加一個(gè)名稱(chēng)為Commandl的命令按鈕，然后編寫(xiě)如下事件代碼：

PrivateSubCommandlC1ick()s="ABBACDDCBA"For【=6To2.Step-2x=Mid(s,

I,I)Y=Left(s,I)z=Right(s,I)z=X&Y&ZNextIMsgBoxZEndSub窗體打開(kāi)運(yùn)行

后，單擊命令按鈕，則消息框的輸出結(jié)果是

A、AABAAB

B、ABBABA

C、BABBA

D、BBABBA

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

知識(shí)點(diǎn)解析：本題考查VBA中循環(huán)和取子串函數(shù)的知識(shí)。在VBA中有三種取子

串函數(shù)：Left函數(shù)用于在字符串左端開(kāi)始取n個(gè)字符：Righi函數(shù)用于在字符串右

端開(kāi)始取n個(gè)字符(注意子串中字符的順序與母串中相同)；Mid函數(shù)可以實(shí)現(xiàn)在任

何位置取任何長(zhǎng)度的子申。在本題中由于循環(huán)每次都會(huì)為z賦一個(gè)新的值

Right(s,i),所以只有最后一次循環(huán)中的z值才有意義。最后一次循環(huán)時(shí)i=2,所

以D選項(xiàng)正確。

22、在窗體中添加一個(gè)名稱(chēng)為Commandl的命令按鈕，然后編寫(xiě)如下事件代碼：

PrivateSubCommandl_Click()a=75Ifa>60Thenk=lElselfa>70Thenk=2Flselfa

>80Thenk=3Elselfa>90Thenk=4EndlfMsgBoxkEndSub窗體打開(kāi)運(yùn)行后,單

擊命令按鈕，則消息框的輸出結(jié)果是

A、1

R、2

C、3

D、4

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

知識(shí)點(diǎn)解析：本題考查多分支選擇的知識(shí)。這個(gè)問(wèn)題比較簡(jiǎn)單，只要知道這是?個(gè)

多分支選擇結(jié)構(gòu)，當(dāng)執(zhí)行某分支后就會(huì)退出分支執(zhí)行分支下面的語(yǔ)句就可以做對(duì)。

本題中第一個(gè)分支條件就得到滿(mǎn)足，所以執(zhí)行k=l后退出分支結(jié)構(gòu)，最終結(jié)果

k=lo

23、設(shè)有如下窗體單擊事件過(guò)程：PrivateSubForm_Click()a=lFori=lTo3Select

CaseiCase1,3a=a+lCase2,4a=a+2EndSelectNextiMsgBoxaEndSub打開(kāi)窗

體運(yùn)行后，單擊窗體，則消息框的輸出的結(jié)果是

A、3

B、4

C、5

D、6

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

知識(shí)點(diǎn)解析：本題考查VBA程序設(shè)計(jì)中的多分支選擇和循環(huán)的知識(shí)。在本題的程

序中，共循環(huán)三次，第一次i的值為1,故此執(zhí)行Case語(yǔ)句中的a=a+l；第二次i'

的值為2,故此執(zhí)行Case語(yǔ)句中的@=@+2；第一次i的值為3,故此執(zhí)行Case語(yǔ)句

中的a=a+l0所以最后a的值為1+1+2+1=5。

24、設(shè)有如下程序：PrivateSubCommandl_Click()DimsumAsDouble,xAs

DoubleSum=0n=0Fori=lTo5x=n/in=n+lsum=sum+xNext1EndSub該程序通

過(guò)卜or循環(huán)來(lái)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是

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

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

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

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

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

知識(shí)點(diǎn)解析：本題考查VBA中循環(huán)結(jié)構(gòu)的知識(shí)。這類(lèi)問(wèn)題需要分析出每一次循環(huán)

所做的操作。第一次循環(huán)時(shí)，i=l,n=0,x=0/1,所以累加上去的是0/1；第二

次循環(huán)時(shí)，i=2,n=l,x=l/2o所以累加上去的是1/2；第三次循環(huán)時(shí)，i=3,

n=2,x=2/3,所以累加上去的是2/3;循環(huán)5次后累加的應(yīng)該是0/1十1/2十2/

3+3/4+4/5。

25、下列Case語(yǔ)句中錯(cuò)誤的是

A、Case0To10

B、CaseIs>10

C^CaseIs>10AndIs<50

D、Case3,5Is>10

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

知識(shí)點(diǎn)解析：本題考查SelectCase語(yǔ)句的知識(shí)cCase語(yǔ)句的后面可以包含一個(gè)值.

一組枚舉值、一個(gè)值的范圍以及比較運(yùn)算符。但是當(dāng)Case語(yǔ)句使用1s關(guān)鍵字的時(shí)

候就不能再加入邏輯運(yùn)算符如And等。

26、下列不是分支結(jié)構(gòu)的語(yǔ)句是

A、If...Then...EndlF

B、While...Wend

C、If...Then...Else...Endlf

D、Select...Case...EndSelect

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

知識(shí)點(diǎn)解析：本題考查控制結(jié)構(gòu)的知識(shí)。選項(xiàng)A是個(gè)單分支選擇結(jié)構(gòu)：選項(xiàng)c是

一個(gè)雙分支選擇結(jié)構(gòu);選項(xiàng)D是一個(gè)多分支選擇結(jié)構(gòu)；選項(xiàng)B是一個(gè)循環(huán)結(jié)構(gòu)c

27、在窗體中使用一個(gè)文本框(名為n)接受輸入的值，有一個(gè)命令按鈕run,事件代

碼如下：PrivateSubrun_Click()result=""Fori=lToMe!nFoij=lToMe!nresult=-

result"*"Nextjresult=result+Chr(13)+Chr(10)NextiMesgBoxresultEndSub打開(kāi)窗

體后，如果通過(guò)文本框輸入的的值為4,單擊命令按鈕后輸出的圖型是

*1*af?af*

>rr**1?rn

B、****************

C、2^C2^C2?C33c2^2?{?5j?<}?2^?5?C

D****************

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

知識(shí)點(diǎn)解析：本題考查二重循環(huán)的知識(shí)。在這個(gè)二重循環(huán)中，外循環(huán)的執(zhí)行次數(shù)為

4,內(nèi)循環(huán)的執(zhí)行次數(shù)也為4,并且每次內(nèi)循環(huán)退出后都要換行，所以最后結(jié)果為

一個(gè)4*4的矩陣，矩陣的每個(gè)元素都為“*”。

28、VBA程序流程控制的方式是

A、順序控制和分支控制

B、順序控制和循環(huán)控制

C、循環(huán)控制和分支控制

D、順序、分支和循環(huán)控制

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

知識(shí)點(diǎn)解析?：本題考查結(jié)構(gòu)化程序設(shè)計(jì)的知識(shí)。VBA是一種結(jié)構(gòu)化的程序設(shè)計(jì)方

式，結(jié)構(gòu)化的程序設(shè)計(jì)方式要求程序只能由順序、分支和循環(huán)三種基本控制結(jié)構(gòu)組

成。

29、下列四種形式的循環(huán)設(shè)計(jì)中，循環(huán)次數(shù)最少的是

A、a=5：b=8DOA=a+1LoopWhilea<b

B、a=5：b=8DOa=a+lLoopUntila<b

C、a=5：b=8DoUntila<bb=b+lLoop

D、a=5：b=8DoUntila>ba=a+lLoop

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

知識(shí)點(diǎn)解析：本題考查VBA中循環(huán)的知識(shí)°對(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)中條件為T(mén)rue時(shí)執(zhí)行

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

4次，B循環(huán)執(zhí)行1次，C循環(huán)一次也不執(zhí)行，D循環(huán)執(zhí)行4次。

30、在窗體中有一個(gè)命令按鈕run35,對(duì)應(yīng)的事件代碼如下：PrivateSub

run35_Enter()DimnumAsIntegerDimaAsIntegerDimbAsIntegerDimiAsInteger

Fori=lTo10num=InputBox(”請(qǐng)輸入數(shù)據(jù)："，"輸入"，1)IfInt(num/2)=num/2

Thena=a+lElseB=b+1EndIfNextiMsgBox("運(yùn)行結(jié)果：a：”&Str(a)&："，b="&

Str(i)))EndSub運(yùn)行以上事件所完成的功能是

A、對(duì)輸入的10個(gè)數(shù)據(jù)求累加和

B、對(duì)輸入的10個(gè)數(shù)據(jù)求各自的余數(shù)，然后再進(jìn)行累加

C、對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)是整數(shù)，有幾個(gè)是非整數(shù)

D、對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)是奇數(shù)，有幾個(gè)是偶數(shù)

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

知識(shí)點(diǎn)解析：本題考查程序設(shè)計(jì)的知識(shí)。本題的重點(diǎn)在于判斷Int(num/2)=num/

2是什么樣的條件。對(duì)于任意一個(gè)整數(shù)來(lái)說(shuō)，若其除2后為整數(shù)，也就是Int(num

/2)=num/2成立，說(shuō)明該數(shù)是一個(gè)偶數(shù)：反之若其除2后不為整數(shù)，此時(shí)

lm(num/2)必然不等于hum/2,也就是一個(gè)整數(shù)天可能等于一個(gè)小數(shù)，說(shuō)明該數(shù)

是一個(gè)奇數(shù)。所以本題的功能是對(duì)輸入的數(shù)據(jù)分別統(tǒng)計(jì)奇偶數(shù)的個(gè)數(shù)。

國(guó)家二級(jí)ACCESS機(jī)試選擇題(模塊與

VBA編程基礎(chǔ))模擬試卷第3套

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

1、用來(lái)測(cè)試當(dāng)前讀寫(xiě)位置是否達(dá)到文件末尾的函數(shù)是

A、EOF

B、FileLen

C、Len

D、LOF

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

知識(shí)點(diǎn)解析：在到達(dá)文件末尾之前，EOF函數(shù)一直返回False,到達(dá)文件末尾時(shí)，

EOF返回True；FileLen函數(shù)返回一個(gè)文件的長(zhǎng)度，單位為字節(jié)；Len返回文本串

的字符數(shù)；LOF函數(shù)返回某文件的字節(jié)數(shù)。

2、下列表達(dá)式中，能夠保留變量x整數(shù)部分并進(jìn)行四舍五入的是

A^Fix(x)

B、Rnd(x)

C、Round(x)

D^Int(x)

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

知識(shí)點(diǎn)解析：Fix(x)和Inl(x)返回x的整數(shù)部分，對(duì)于小數(shù)部分完全舍棄。Rnd(x)返

回一個(gè)隨機(jī)數(shù)，Round(x)保留x的整數(shù)部分并進(jìn)行四舍五入。

3、VBA程序中，可以實(shí)現(xiàn)代碼注釋功能的是

A、方括號(hào)(口)

B、冒號(hào)(：)

C、雙引號(hào)(“)

D、單引號(hào)(，)

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

知識(shí)點(diǎn)解析：一個(gè)好的程序一般都有注釋語(yǔ)句。這對(duì)程序的維護(hù)有很大的好處。

在VBA程序中，注釋可以通過(guò)以下兩種方式實(shí)現(xiàn)：使用Rem語(yǔ)句，格式為：

Rem注釋語(yǔ)句用單引號(hào)格式為：注釋語(yǔ)句

4、在窗口中有一個(gè)標(biāo)簽LabelO和一個(gè)命令按鈕Command),Command1的事件代

碼如下：PrivateSubCommandl_CIick()LabelO.Left=LabelO.Left+100EndSub

打開(kāi)窗口，單擊命令按鈕，結(jié)顯是

A、標(biāo)簽向左加寬

B、標(biāo)簽向右加寬

C、標(biāo)簽向左移動(dòng)

D、標(biāo)簽向右移動(dòng)

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

知識(shí)點(diǎn)解析：Left表示的是控件的左邊距，所以left+100表示控件向右移動(dòng)。

5、假定有以下循環(huán)結(jié)構(gòu)DoUntil條件循環(huán)體Loop則正確的敘述是

A、如果“條件”值為0,則一次循環(huán)體也不執(zhí)行

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

C、如果“條件”值不為0,則至少執(zhí)行一次循環(huán)體

D、不論“條件”是否為“真”，至少要執(zhí)行一次循環(huán)體

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

知識(shí)點(diǎn)解析：本題考查V.BA中D。Until...Loop循環(huán)的知識(shí)。對(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ū)分清楚。

本題中是先判斷條件，條件值為。表示條件是False,則至少執(zhí)行一次循環(huán)體。

6、假定有以下程序段n=0fori=lto3foij=-4to-1n=n+lnextjnexti運(yùn)行完畢后，n

的值是

A、0

B、3

C、4

D、12

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

知識(shí)點(diǎn)解析：本題考查VBA中嵌套For循環(huán)的知識(shí)。這種問(wèn)題要注意分析清楚每

次循環(huán)的變化以及循環(huán)的次數(shù)。在這個(gè)循環(huán)中，內(nèi)循環(huán)執(zhí)行4次，外循環(huán)執(zhí)行3

次，所以里面的循環(huán)體語(yǔ)句n=n+l共執(zhí)行12次，所以最終n的值為12。

7、以下程序段運(yùn)行結(jié)束后，變量X的值為X=2y=4DoX=x*yY=y+1LoopWhiley

<4

A、2

B、4

C、8

D、20

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

知識(shí)點(diǎn)解析：本題考查VBA中循環(huán)的知識(shí)。在本題中用了Do…LoopWhile循

環(huán)，先運(yùn)行循環(huán)體后判斷條件，當(dāng)條件滿(mǎn)足時(shí)繼續(xù)循環(huán)，條件不滿(mǎn)足時(shí)退出循環(huán)

體。在本題中第一次循環(huán)結(jié)束后y的值為5已經(jīng)不滿(mǎn)足條件，故此木循環(huán)只執(zhí)行一

次，x的值為2*4=8。

8、在窗體上添加一個(gè)命令按鈕(名為Command。，然后編寫(xiě)如下事件過(guò)程：Private

SubCommand1Click()Fori=lTo4X=4Fori=lTo3X=3Fork=lTo2X=x+6Nextk

NextjNextiMsgBoxXEndSub打開(kāi)窗體后，單擊命令按鈕，消息框的輸出結(jié)果是

A、7

B、15

C、157

D、528

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

知識(shí)點(diǎn)解析：本題考查VBA中多重循環(huán)的知識(shí)。見(jiàn)到多重循環(huán)的問(wèn)題不要害怕，

認(rèn)真地分析清楚每一次循環(huán)這種問(wèn)題就迎刃而解了。比如這個(gè)例子，我們看到，在

每一次外循環(huán)開(kāi)始的時(shí)候都把x的值置為4,所以我們只分析最后一次循環(huán)就可以

了；同理中層循環(huán)每一次開(kāi)始前都把x置為3,所以這個(gè)問(wèn)題最后實(shí)際上就是x的

初值為3,執(zhí)行最內(nèi)層循環(huán)直到結(jié)束就可以了。根據(jù)程序內(nèi)循環(huán)執(zhí)行兩次，最后

x=3+6+6=l5o

9、在窗體中添加一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：

PrivateSubCommand1Click()Dima(10,10)Form=2TO4Forn=4To5a(m,

n)=m*nNextnNextmMsgBoxa(2,5)+a(3?4)+a(4,5)EndSub窗體打開(kāi)運(yùn)行后,

單擊命令按鈕，則消息框的輸出結(jié)果是

A、22

B、32

C、42

D、52

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

知識(shí)點(diǎn)解析：本題考查數(shù)組和二重循環(huán)的知識(shí)。在這個(gè)問(wèn)題中，我們實(shí)際上可以分

析出，數(shù)組元素的值就是該元素的兩個(gè)下標(biāo)之積(循環(huán)范圍內(nèi))。所以最后的三個(gè)數(shù)

組元素的和也就是2*5+3*4+4*5=42。

10、在窗體中添加一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：

PrivateSubCommand1Click()A=75IfA>60Then1=1IfA>70Then1=2IfA>80

Then1=3IfA>90Then1=4MsgBoxIEndSub窗體打開(kāi)運(yùn)行后，單擊命令按鈕.則

消息框的輸出結(jié)果是

A、1

B、2

C、3

D、4

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

知識(shí)點(diǎn)解析：本題考查VBA中選擇結(jié)構(gòu)的知識(shí)。在本題中用了多個(gè)If分支結(jié)溝，

這些結(jié)構(gòu)是順序的而不是嵌套的，所以會(huì)順序執(zhí)行判斷是否滿(mǎn)足條件。首先75大

于60。所以i=l,然后再判斷75大于70。所以i=2,再接著判斷75既不大于80

也不大于90,所以最后消息框里輸出的i值為2。

11、在窗體中添加一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：

PrivateSubCommand1Click()S='、ABBACDDCBA“For1=6102.Step-2x=Mid(s,

I,I)y=Lefl(s,I)z=Right(s,I)z=X&Y&ZNextIMsgBoxZEndSub窗體打開(kāi)運(yùn)行

后，單擊命令按鈕，則消息框的輸出結(jié)果是

A、AABAAB

B、ABBABA

C、BABBA

D、BBABBA

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

知識(shí)點(diǎn)解析：本題考查VBA中循環(huán)和取子串函數(shù)的知識(shí)。在VBA中有三種取子

審函數(shù)：Lefl函數(shù)用于在字符串左端開(kāi)始取n個(gè)字符；Righi函數(shù)用于在字符串布

端開(kāi)始取n個(gè)字符(注意子串中字符的順序與母串中相同)；Mid函數(shù)可以實(shí)現(xiàn)在任

何位置取任何長(zhǎng)度的子串。在本題中由于循環(huán)每次都會(huì)為z賦一個(gè)新的值

Right(s,i),所以只有最后一次循環(huán)中的z值才有意義。最后一次循環(huán)時(shí)i=2,所

以D選項(xiàng)正確。

12、在窗體中添加一個(gè)名稱(chēng)為Commandl的命令按鈕，然后編寫(xiě)如下事件代碼：

PrivateSubCommand1Click()