国家二级ACCESS机试选择题（VBA编程）模拟试卷7

国家二级ACCESS机试选择题(VBA编

程)模拟试卷7

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

1、在表达式中引用窗体上的控件值e下列选项中，语法咯式正确的是

A、Forms&［窗体名］&［控件名］

B、Forms-〉［窗体名］-＞［控件名］

C、Forms!［窗体名］!［控件名］

D、Fonns%［窗体名］%［控件名］

标准答案：C

知识点解析：引用窗体上某控件值的语法格式为：Forms［窗体名］!［控件名］或

［Forms］!［窗体名］!［控件名］,所以选项C正确。

2、打开窗体后，下列事件中首先发生的是

A、加载(Load)

B、改变(Change)

C、调整大小(Resize)

D、成为当前(Currenl)

标准答案：A

知识点解析：打开窗体时.，发生的事件依次为：打开(Open)—加载(Load)一调整大

小(Resize)一激活(Activate)一成为当前(Current),所以选项A正确。

3、下列选项中,与VBA中语句DimVar%,sum!等价的是

A、DimVarAsDouhle»sumAsSingle

B、DimVarAsInteger,sumAsDouble

C、DimVarAsSingle,sumAsDouble

D、DimVarAsInteger,sumAsSingle

标准答案：D

知识点解析：整数型数据类型标识为Integer,用“%”表示；单精度数据类型标识为

Single,用“!”表示，所以选项D正确。

4、VBA中一般采用Hungarian符号法命名变量，下列代表复选框的字首码是

A、Chk

B、Cho

C、cmd

D、opl

标准答案：A

知识点解析：Hungarian符号使用一组代表数据类型的码，用小写字母作为变量名

的前缀，“Chk”代表复选框，“Cbo”代表组合框，“cmd”代表命令按钮，“opt”代表选

项按钮，所以选项A正确。

5、下列属于VBA子字符串检索函数的是

A、Lcn

B、InStr

C、Right

D、Replace

标准答案；B

知识点解析：InStr(strl,sti2)函数是检索子字符串str2在字符串strl中最早出现的

位置，返回一个整型数据。因此选项B正确。

6、在VBA程序中，编程打开窗体应使用的命令是

A、Cmd.OpenForm

B、Do.OpenForm

C、DoCmd.OpenForm

D、Command.OpenForm

标准答案：D

知识点解析：在VBA中打开窗体或报表对象应该使用DoCmd命令，所以选项D

正确。

7、调用下面子过程，消息框显示的值是SubSFun()DimX,y,mx=10：y=IOOIfy

ModxThenm=xElsem=yEndIfMsgBoxmEndSub

A、x

B、y

C、10

D、100

标准答案：D

知识点解析：本题考查的是if语句，还有赋值语句的知识点。首先，变量x赋值

10,y赋值100：if语句中的条件语句是ymodx,只要yK被x整除，则条件为

真，否则条件为假。这里y可以被x整除，因此条件为假，执行else后面的语句，

gpm=y=l00o所以应选择选项D。

8、下列循环结构中,循环体被执行的次数是DimiAsInteger,tAsInteger

Fori=9t00t=t+INexti

A0次

、

B1次

、

c4次

、

D5次

、

标准答案：A

知识点解析：For—Next循环结构中，循环变量初始值应该随着循环的执行，逐渐

向终止值“靠拢”，这样才能结束循环。本题中循环便变量i的初始值为9,终止值

为。，步长为默认值1,所以随着循环的执行，初始值是逐渐“背离”终止值的，所

以该循环结构不会被执行，循环语句执行0此，选项A正确。

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

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

MsgBox,,x="&x&",y="&yEndSub

A、x=l,y=0

B、x=4,y=25

C>x=5,y=30

D、输出其他结果

标准答案：A

知识点解析：在DoUntiL.Loop循环结构中，只有当循式条件语句为“假”时，才执

行循环体语句，如果循环条件语句为“真”，则结束循环。本题中变量y的值为

1,,循环条件语句"y<=25”为“真”，所以本题中的循环语句一次也不会执行，最

终x和y的值不会发生变化，所以选项A正确。

10、能够实现从指定记录集里检索特定字段值的函数是。

A、Nz

B、Find

C、Lookup

D、DLookup

标准答案：D

知识点解析：DLookup函数是从指定记录集里检索特定字段的值。它可以直接在

VBA、宏、查询表达式或计算控件中使用，而且主要用于检索来自外部表(而非数

据源表)字段的值，所以选项D正确。

11、若使用如下代码创建数据表Student：DimstrSQLAsStringstrSQL="create

tableStudcnt("strSQL=strSQL+SnoCHAR(10)PRIMARYKEY,"strSQL=strSQL+

SnameVARCHAR(15)NOTNULL,"strSQL=strSQL+"SpartyBIT,

s(rSQL=strSQL+"SphotolMAGE)；"DoCmd.RunSQLstrSQL下列关于字段的叙述

中，错误的是

A、设置Sno为主键

B、设置Sname为非空

C、设置Sparty为是否型

D^设置Sphoto为备注型

标准答案：D

知识点解析：在Access数据库中包含数字型、附件型、备注型以及文本型等数据

类型。用于保存图像和文件的数据类型应定义附件类型。所以应选择选项D。

标准答案：A

知识点解析：调用宏组中子宏的格式为：宏组名.子宏名，所以选项A正确。

16、打开窗体后，下列事件中首先发生的是

A、获得焦点(GotFocus)

B、改变(Change)

C、激活(Activate)

D、成为当前(Currenl)

标准答案：C

知识点解析：打开窗体时，发生的事件依次为：打开(Open)一加载(Load)一调整大

小(Resize)-♦激活(Activate)-♦成为当前(Current),所以选项C正确。

17、VBA中，如果没有显式声明或使用符号来定义变量的数据类型，则变量的默

认类型为

A、变体

B、布尔型

C、双精度

D、货币

标准答案：A

知识点解析：没有直接定义而通过一个值指定给变量名，或Dim定义中省略了As

VVarType＞短语的变量，或当在变量名称后没有附加类型说明字符来指明隐含变

量的数据类型时，默认为Variant(变体)数据类型，所以选项A正确。

18、定义了数组A(2t013),则该数组元素个数为

A、11

B、12

C、15

D、10

标准答案：B

知识点解析：数组A(2⑹3),下标从2开始，到13结束，共12个元素，所以选项

B正确。

19、VBA中采用Hungarian符号法命名变量，下列代表子报表的字首码是

A、sub

Rpt

C、Fmt

D、txt

标准答案：A

知识点解析：Hungarian符号使用一组代表数据类型的码，用小写字母作为变量名

的前缀，“sub”代表子窗体/子报表，“Rpt”代表报表，“Fiet”代表窗体，“txt”代表

文本框，所以选项A正确。

20、运行程序，耍求循环执行3次后结束循环，【】内应填入的语句是x=lD。

x=x+2LoopUntil[]

A、x<=7

B、x<7

C、x>=7

D、x>7

标准答案：C

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

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

件应该是x>=7,选项C正确。

21、运行下列程序,结果是PrivateSubCommandO_Click()k=lDoWhlilek<

>f=ID+flfO=flfl=fk=k+lLoopMsgBox"f="&fEndSub

A、f=5

B、f=7

C、f=8

D、f=13

标准答案：A

知识点解析：本题考查的是dowhile循环的执行过程，在每次循环之前，会检查循

环条件表达式是否满足，循环体是在条件表达式成立的前提下，才会执行。本题

k-5,循环体执行5次，笫5次结束之后，f-5,k-6不满足再次循环的条件，所以

最终f=5,所以选择选项A。

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

SubCommand_Click()t=0m=lsum=0Dot=t+msum=sum+tm=[]LoopWhilem

V=39MsgBox"Sum="&sumEndSub为保证程序正确完成上述功能，空白处【】

应填入的语句是

A^m+1

B、m+2

C、t+1

D、t+2

标准答案：B

知识点解析：本题考杳是while循环知识点。通过while循环实现求取表达式的

值，只要条件满足，while循环会一直继续。通过观察我们可以发现规律：while的

每次循环sum会加一项(1+3+…+m),该项比上一次数据顶多出一个数字，该数字

就是上个数据项最大值加2,即m的值，所以每次循环m需要加2。

23、下列代码实现的功能是：若在窗体中一个名为tNum的文本框中输入学号，则

将“学生表”中对应的“姓名”显示在另一个名为tName文本框中。PrivateSub

tNum_AfferUpdaie()Me!tName=[】(“姓名"，“学生表“，“学号=，"&Me!TNum&”")

EndSub则程序【】如应该填写的是

@A@DLookup@B@Lookup@C@DFind@D@IIf(54)下面过程输；11记录集的记录个

数。SubGeiRecNum（）DimrsAsObjectSetrs=Me.RecordsecMsgBox[]End

Sub则程序【】处应该填写的是

A、DLookup

B、Lookup

C、DFind

D、Ilf

标准答案：A

知识点解析：根据题意，【】处的代码应实现的功能是在“课程表”中查询出“课程

编号”等于（Num文本框中数据的“课程名称”，此DLookup函数有此功能。

DLookup函数的格式为：DLookup（表达式，记录集[,条1牛式]）。其中表达式用来

指定要查询的字段，即题中的”课程名称，记录集用米指定要查询的范围，即题中

的“课程表”。条件式用来指定查询条件，即题中的“课程编号=，"Me!tNum"？所以

选择选项Ao

24、下面过程输出记录集的记录个数。SubGetRecNumODimrsAsObjectSet

rs=Me.RecordsetMsgBox[]EndSub程序空包处【】应该填写的是

A^rs.RecordCount

B、RecordCount

C、rs.Count

D、rs.Record

标准答案：A

知识点解析：题目中对象变量rs返同了当前窗体的RecordSel属性记录集的引用，

那么通过访问对象变量rs的属性RcordCount就可以得到该记录集的记录个数，引

用方法为rs.ReordCOunt,所以选项A正确。

25、子过程Plus完成对当前库中“教师表”的工龄字段都加1的操作。SubPtus（）

DimwsAsDAO.WorkspaceDimdbAsDAO.DatabaseDimrsAsDAO.Recordset

DimfdAsDAO.FieldSetdb=CurrentDb（）Setrs=db.OpcnRecordset（"教师表"）Set

fd=rs.Fields（“工龄"）DoWhileNoirs.EOFrs.Editfd=fd+l[]rs.MoveNext

Looprs.Closedb.CloseSeirs=NoihingSetdb=NothingEndSub程序【】处应该

填写的语句是

A、rS.Update

B、WS.Update

C、fd.Update

D、db.Update

标准答案：A

知识点解析：本题中的DoWhile循环是对记录集中的每一条记录的“工龄”字段加

1,当执行更新操作出=fd+l之后，都需要使用rs.update语句将所更新的记录数

据存储到数据库中，所以选项A正确。

26、安的功能不包括

A、自动进行数据校验

B、打开数据库时自动运行

C、对数据进行分组、计算、汇总和打印输出

D、根据条件的不同执行不同的操作

标准答案：A

知识点解析：宏是一个或多个操作的集合，其中每个操作都可以实现特定的功能，

使用简单，可以提高工作效率。可以设置自动运行或根据需要来进行数据统计计算

以及根据需要设计条件宏，但宏不具有数据校验的功能，所以选择选项A。

27、要在报表中设置筛选条件以限制来自表中的记录，应使用的宏命令是

A^Requery

B、FindRecord

C、ApplyF