国家二级ACCESS机试选择题（模块与VBA编程基础）模拟试卷15

国家二级ACCESS机试选择题(模块与

VBA编程基础)模拟试卷15

一、选择题(本题共28题，每题1.0分，共28分。)

1、卜.列四种形式的循环设计中，循环次数最少的是

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

标准答案：C

知识点解析：本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断

在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如

果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为

False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行

循环休，条件为False时退出循环，这一点要注意区分清楚。木题中的A循环执行

4次，B循环执行1次，C循环一次也不执行，D循环执行4次。

2、在窗体中有一个命令按钮run35,对■应的事件代码如下：PrivateSubrun35

Enter()DimnumAsInteger,aAsIntegerDimbAsInteger,!AsIntegerFori=lTO10

num=I叩utBox(“请输入数据：“，“输入"，1)IfInt(num/2)=num/2Thena=a+l

ElseB=b+lEndlfNextiMsgBox("运行结果：a='、&Slr(a)&：“，b="&Str(b))End

Sub运行以上事件所完成的功能是

A、对输入的10个数据求累加和

B、对输入的10个数据求各自的余数，然后再进行累加

C、对输入的10个数据分别统计有几个是整数，有几个是非整数

D、对输入的10个数据分别统计有儿个是奇数，有儿个是偶数

标准答案：D

知识点解析：本题考查程序设计的知识。本题的重点在于判断Int(num/2)=num/

2是什么样的条件。对于任意一个整数来说，若其除2后为整数，也就是Inl(num

/2)=hum/2成立，说明该数是一个偶数；反之若其除2后不为整数，此时

后((皿巾/刀必然不等于叫皿/2,也就是一个整数不可能等于一个小数，说明该数

是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。

3、在VBA中，错误的循环结构是

A、DoWhile条件式循环体Loop

B、DoUntil条件式循环体Loop

C、DoUntil循环体Loop条件式

D^Do循环体LoopWhile条件式

标准答案：C

知识点解析：“条件式”放在While或Until后面。

4、在窗体中有一个命令按钮(名称为run34),对应的事件代码如下：PriateSub

run34Click()sum=0Fori=10To1Stcp-2sum=sum+iNextiMsgBoxsumEndSub运

行以上事件，程序的输出结果是

A、10

B、30

C、55

D、其他结果

标准答案：B

知识点解析：i=10,每循环一次递减2。第一次循环结果：i=10,

sum=sum+i=0+10=10；第二次循环结果：i=8,sum=sum+i=10+8=18：第三次循环

结果：i=6,sum=sum+i=l8+6=24；第四次循环结果：i=4,sum=sum+i=24+4=28：

第五次循环结果：i=2,sum=sum+i=28+2=30c

5、在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，

如果输入的成绩不在。到1D0分之间，则要求重新输入；如果输入的成绩正确，则

进入后续程序处理。run35命令按钮的Click的事件代码如下：PrivateSubrun35

Click()DimflagAsBooleanresult=O：flag=TrueDoWhileflag

result=Val(InputBox(“请输入学生成绩.“输入"))Ifresult>=0Andresult<=l00Then

ElseMsgBOX"成绩输入错误，请重新输入“EndIfLoopRem成

绩输入正确后的程序代码略EndSub程序中有一空白处，需要填入一条语句使程序

完成其功能。下列选项中错误的语句是

A、flag=Fa!se

B、flag=Notflag

C、flag=True

ExitDo

标准答案：C

知识点解析：根据题目要求，当输入正确的成绩后，进入后续的程序处理，Flag初

始为True,进入dowhile循环，循环条件为Flag。当输入错误的成绩时，提示信

息并不改变.Flag标记，即还为True,继续进行循环；当输入正确成绩时，应将

Flag标记为False,这样才可以跳出循环，继续后续的程序处理，否则将一直停留

在循环这里。

6、下列四个选项中，不是VBA的条件函数的是

A、Choose

B、If

C、Ilf

D、Switch

标准答案：B

知识点解析：本题考查条件函数的知识。VBA中的条件函数共有3个：IIF函数根

据表达式的真假值返回两个表达式之一：Switch函数对表达式列表求值，并返回一

个Variant类型的值或与列表中第一个为True的表达式相关联的表达式；Choose函

数从参数列表中选择值并返回。

7、设有如下过程：x=lDox=x+2LoopUntil运行程序，要求循环体执行3次后结

束循环，空白处应填入的语句是

A、x<=7

B、x<7

C、x=7

D^x>7

标准答案：C

知识点解析：本题考查循环的基础知识。本题目要求循环3次，当第3次循环结束

时x的值为7,而Until型循环的特点是当条件表达式为真的时候结束循环，故此

条件应该是x>=7o

8、在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：

PrivateSubCommandlClick。MsgBoxf(24,18)EndSubPublicFunctionf(mAs

Integer,nAsInteger)AsIntegerDoWhilemonDoWhileni>nm=m—nLoopDo

Whilem

A、2

B、4

C、6

D、8

标准答案：C

知识点解析：本题考查VBA程序设计的知识。当调用函数时，形参m=24,

n=18；然后进入循环，由于m>n,所以执行m内值变为6；第2次循环

时由于m

9、在窗体中有一个文本框Textl,编写事件代码如下：+PrivateSubFormClick()

X--val(Inputbox("输入X的值"))Y=1I£K00ThenY=2Textl,Value=YEndSub打开窗

体运行后，在输入框中输入整数12,文本框Tex”中输出的结果是

A、1

B、2

C、3

D、4

标准答案：B

知识点解析：根据题意，可知首先将输入的数值赋给X,Y初始值为1,接着判断

X是否不为0(即输入的值是否不为0),如果不为0,则Y的值为2,并且将Y的值

赋给文本框Texll。由于题意中输入的是12,不为0,此时Y的值为2,所以文本

框中输出的结果为2。

10、在窗体中有一个命令按钮Commandl和一个文本框Texll,编写事件代码如

下：PrivateSubComniandlClick()Forl=1To4x=3Forj=lTo3FOfk=lTo2x=x+3

NextkNextiNextlTextI.value=Slr(x)EndSub打开窗体运行后，单击命令按钮,

文本框Text)输出的结果是

A、6

B、12

C、18

D、21

标准答案：D

知识点解析：各层循环过程及结果如下表所示：

第一层循环X的初始值第二度循环第三层循环X的值

K-1XN

J-I

K-2X-9

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

X.

1-4K=2X=I5

K-!X=I8

J=3

K2X21运行结束

后，x的最终值为21。

11、在窗体中有一个命令按钮Command1,编写事件代码如下：PrivateSub

Command!Click()Dim5AsIntegerS-P(1)+P(2)+P(3)+P(4)debug.Print5EndSub

PublicFunctionP(NASInteger)DimSumAsIntegerSum=0Fori=tToNSum=SuIn+i

NextiP二SumEndFunction打开窗体运行后，单击命令按钮，输出结果是

A、15

B、20

C、25

D、35

标准答案：B

知识点解析：从函数P的代码可知，其功能是计算从1到N的和，在命令按钮的

单击事件代码中，可知S为P(l),P(2),P(3),P(4)的和，显然P(l)=l,

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

12、由“Fori=lTo9Slep-3”决定的循环结构，其循环体将被执行

A0次

、

B1次

、

c4次

、

D5次

、

标准答案：A

知识点解析：循环变量I从1到9按递减顺序，由于1—3=2不满足条件，所以一

次也不执行。

13、在窗体上有一个命令按钮Commandl和一个文本框Texll,编写事件代码如下

PrivateSubConimandl_Click()Dimi,j,xFori=lTo20sep2x=0Forj=iTo20step3

x=x+lNextjNextiTextl.Value=Str(x)EndSub打开窗体运行后，单击命令按钮，

文本框中显示的结果是

A、1

B、7

C、17

D、400

标准答案：A

知识点解析：外循环每次循环都将x重置为0,所以只看外循环的最后一次即i=20

时，此时内循环尸尸2。开始以步长为2开始递增，递增一次执行x=x+l=U+l=l后

便结束循环，所以最后文本框显示的结果为I。

14、在窗体上有一个命令按钮Commandl,编写事件代码如下：PrivateSub

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

10)=10ThenDebug.Printy；LoopUnlilY=0EndSub打开窗体运行后，单击命令

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

结果是

A、375564281919

105020

C、1050200

D、3755642819

标准答案：D

知识点解析：分析if语句，当计算表达式(ymod10)+int(y/10)等于10时，立即窗

口显示输入的数字。当输入第一个数字10时，(ynlod10j+int(y/10)=0+1=1不等

于10,不显示；当输入第二个数字37时，(ymod10)+inl(y/10)=7+3=10,显示数

字37,依次类推，结果为选项D。

15、若变量i的初值为8,则下列循环语句中循环体的执夕亍次数为D。Whileiv=17

i=iLo甲

次

A、

次

B、

次

C、次

D、

标准答案：C

知识点解析：D。While...L。邛循环结构是当条件为假时，重复执行循环体，直至条

件表达式为真，结束循环。每次循环对应的i值：

循环次数i的值

18<-17

28+2=10<-17

311^2=12<=17

412-t2=14<=17

51

14+2-16<-17

16、InputBox函数的返回值类型是

A、数值

B、字符串

C、变体

D、视输入的数据而定

标准答案：B

知识点解析：InputBox输入框：在对话框中显示提示，等待使用者输入文字或按一

下按钮，再返回包含文本框内容的字符串类型值。

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

标准答案：C

知识/解析：想要交换X与Y的值，需要另一个变量作为中间变帚Z,先把X值

赋给Z,再把Y值赋给X,最后把Z的值赋给Y,交换完毕。

18、窗体中有命令按钮commanddl和文本框TextL事件过程如下：Function

rcsult(ByValXAsInteger)AsBooleanIfxMod2=0Thenresult二TrueElsercsult=Falsc

EndIfEndFunctionPrivmeSubCommand!Click()x=Val(InputBox(“请输入一个整

数"))IfThenTextl=str(x)&"是偶数."ElseTextl=str(x)&"是奇数."Endif

EndSub运行程序，单击命令按钮，输入19,在Textl中会显示“19是奇数“。那么

在程序的空白处应填写

A、result(x)="偶数”

B、result(x)

C、result(x)="奇数”

D、NOTrcsult(x)

标准答案：B

知识点解析：result函数返回的是布尔值:True或False,xMod2=0表示如果一个

数除以2为。代表是偶数，那么返回I7ruc值，所以条件判断时只要调用result(x)

即可。

19、窗体有,命令按钮Comrrandl和文本框Texll,刈应的事件代码如下：Private

SubCommandI_Click()Fori=1To4x=3Foij=lTo3Fork=lTo2x=x+3Nextk,j,

iTextl.Value二Str(x)EndSub运行以上事件过程，文本框中的输出是

A、6

B、12

C、18

D、21

标准答案：D

知识点解析：此处嵌套三层循环，最外层循环总是把x值初始化为3,所以只看内

两层循环的次数及累加，内两层一共循环3*2=6次，每次x的值累加3,即共累加

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

2。、窗体中有命令按钮run34,对应的事件代码如下：PfivateSubrun34Enter()

DimsumAsInteger,aAsIntegenbAsInteger,iAsIntegerFori=lTO10

num=InputBox(“请输入数据："，“输入")IfInt(num/2)=num/2Thena=a+lElse

b=b+lEndIfNextiMsgBOX("运行结果：a=,,&Str(a)&44,b="&Str(b))EndSub运行

以上事件过程，所完成的功能是

A、对输入的10个数据求累加和

B、对输入的10个数据求各自的余数，然后再进行累加

C、对输入的10个数据分别统计奇数和偶数的个数

D、对输入的10个数据分另I统计整数和非整数的个数

标准答案：C

知识点解析：因num变量为整型，所以每次输入的数据是整数，int函数是取整函

数,如果num为整数，则inl(num/2)与num/2相等，否则不等,所以此事件代

码完成的功能是统计输入奇数与偶数的个数。

21、运行下列程序，输入数据8、9、3、。后，窗体中显示结果是PrivateSubForm

click()DimsumAsIntcgcr,mAsIntegersum=0Dom=InputBox("输入m")

SUm=sum+mLoopUntilm=0MsgBoxsumEndSub

A、0

R、17

C、20

D、21

标准答案：C

知识点解析：Do…LJntilLcop循环结构是当条件为假时，重复执行循环体，直至

条件表达式为真，结束循环。当输入8、9、3三个数字条件(m=O)不成立，所以累

加,直到输入0后结束，即8+9+3=20。

22、运行下列程序段,结果是Form=10to1step0k=k+3Nextm

A、形成死循环

B、循环体不执行即结束循环

C、出现语法错误

D、循环体执行一次后结束循环

标准答案：B

知识点解析：FOR是循环语句，当step>=0时，I。前数字要小于后面数字，否则将

不执行。本题中t。前数字是10大于后面数字I则不执行此循环体，直接跳过。

23、运行下列程序，结果是PrivateSubCommand32click()簿=1：fl=l：k=lDo

Whilek<=5f=R)+fl：fl)=flfl=f：k=k+lLoopMsgBox''f=,,&fEndSuh

A、f=5

B、f=7

C、f=8

D、f=l3

标准答案：D

知识点解析：D。While...Loop循环结构是当条件为假时，重复执行循环体，直至

每次循环对应的k值

施环次数f的值F0的值FI的值

0(初始值)011

1212

2323

—

3535

4858

条件表达式为真，结束循环。-----------13813

24、有如下事件程序，运行该程序后输出结果是PrivateSubCommand33click()

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

MsgBox“x："&x&“，EndSub

A、x=l,y=0

B、x=4,y=25

C、x=5,y=30

D、输出其他结果

标准答案：A

知识点解析：DoUn山…Loop循环结构是当条件为假时，重复执行循环体，直至条

件表达式为真，结束循环。本题中循环条件是尸0<=25条件为真，即不执行循环

体，所以x、y的值即为初始值。

25、下列程序的功能是计算sum=l+(l+3)+(1+3+5)+……+(1+3+5+……+39)Private

SubCommand34Click()t=0：m=1：sum=0DoT=t+mS