国家二级ACCESS机试选择题（VBA编程）模拟试卷5
(总分：60.00，做题时间：90分钟)
一、 选择题(总题数：30，分数：60.00)
1.在VBA中，要引用“学生名单”窗体中的控件对象，正确的格式是 （分数：2.00）
A.Forms!学生名单!控件名称[．属性名称] √ B.Forms．学生名单．控件名称[．属性名称] C.Forms!学生名单!控件名称[!属性名称] D.Forms!学生名单．控件名称[．属性名称]
解析：解析：VBA中引用Access窗体中的控件对象的格式为：Forms!窗体名称!控件名[．属性名]，所以选项A正确。
2.在窗体中有一个名称为Command1的按钮，该模块内还有一个函数过程： Public Function f(x As Integer)As Integer Dim y As Integer x=20：y=2：f=x*y End Function Private Sub Command1_Click() Dim y As Integer Static x As Integer x=10 y=5 y=f(x) Debug．Print x；y End Sub 打开窗体运行后，如果单击按钮，则在立即窗口上显示的内容是 （分数：2.00） A.105 B.1040 C.205 D.2040 √
解析：解析：本题主要考查局部变量的使用和函数调用过程中的参数传递。参数传递的方式有传值和传址两种形式，其中默认的方式是传址。本题中Click事件和函数f都有变量y，但都是各自的局部变量，只是同名而已。同样Click事件和函数f中的x也是局部变量(形式参数也属于局部变量)，但此处的参数传递是传址，因此函数f对变量x的修改会带回到Click事件。在Click事件中，调用函数f的同时将参数x以传址的方式传给了函数f。在函数f中x被重新赋值为20，并与函数f的局部变量y相乘得结果40，并通过函数f传回了Click事件。在Click事件中该结果被赋值给该事件的局部变量y，所以调用的结果是Click事件中的局部变量x和y分别变成了20和40。所以此正确答案为选项D。
3.若数据库中有表STUD，则下列函数实现的功能是 Function DropPrimaryKey() Dim strSQL As String strSQL=\CurrentProject．Connection．ExecutestrSQL End Function （分数：2.00）
A.为关系STUD中设置主关键字 B.取消关系STUD中的主关键字 C.为关系STUD添加索引 D.取消关系STUD的全部索引 √
解析：解析：首先，函数内定义字符串变量strSOL；然后将SOL语句赋值，该语句的功能是将表STUD中字段学号取消为关键字(ALTER修改、Drop删除、PRIMARY_KEY关键字)；最后执行语句执行SQL。所以应选择选项B。
4.下列子过程实现对“教师表”中的基本工资涨10％的操作。 Sub GongZi() Dim cn As New
ADODB．Connection Dim rs As New ADODB．Recordset Dim fd As ADODB Field Dim strConnect As String Dim strSQL As String Set cn=CurrentProject．Connection strSQL=\基本工资from教师表\rs．Open strSQL，cn，adOpenDynamic，adLockOptimistic，adCmdText' Set fd=rs．Fields(\基本工资\Do While Not rs．EOF [] rs．Update rs．MoveNext Loop rs．Close cn．Close Set rs=Nothing Set cn=Nothing End Sub 程序空白处[]应该填写的语句是 （分数：2.00） A.fd=fd*1．1 √ B.rs=rs*1．1
C.基本工资=基本工资*1．1 D.rs．fd=rs．fd*1．1
解析：解析：程序中“Do While Not rs．EOF”中“rs．EOF”表示文件记录是否是该查询结果集的最后一条记录，如果是，则返回真，如果不是，则返回假。“Set fd=rs．Fields(\基本工资\本工资”字段的引用，本题中需要对“教师表”中的基本工资涨10％，所以程序空白处应该填上“fd=fd*1．1”。
5.在计算控件的表达式中必须使用运算符是 （分数：2.00） A.= √ B.! C.圆括号() D.方括号[]
解析：解析：计算控件的表达式中必须以“=”开头，所以选项A正确。
6.在窗体“学生信息”中，若要用宏操作GoToControl将焦点移到“学号”字段上，则该宏操作的参数“控件名称”应设置为 （分数：2.00）
A.[F0ms]![学生信息]![学号] B.[学生信息]![学号] C.[学号]![学生信息] D.[学号] √
解析：解析：使用GoToControl操作，可以把焦点移到打开的窗体、窗体数据表、表数据表或查询数据表中当前记录的指定字段或控件上。要想将焦点移动到“学号”字段，必需先引用该字段。在Access中引用窗体对象上某一控件的语法格式为：Forms![窗体名称]![控件名称][，属性名]，由上述语法格式可知，“控件名称\参数应设置为该控件的字段名称，所以选择选项D。 7.下列关于宏操作MessageBox的叙述中，错误的是 （分数：2.00）
A.可以在消息框中给出提示或警告
B.可以设置在显示消息框的同时扬声器发出嘟嘟声 C.可以设置消息框中显示的按钮的数目 √ D.可以设置消息框中显示的图标的类型
解析：解析：宏操作MessageBox可以设置“消息”、“发嘟嘟声”、“类型”以及“标题”信息，不能设置消息框中显示的按钮的数目，所以选项C错误。 8.内部计算函数Min的功能是 （分数：2.00）
A.计算所有指定字段值的最小值 √ B.计算全部数值型字段的最小值 C.计算一条记录中数值型字段的最小值 D.计算一条记录中指定字段的最小值
解析：解析：Min函数的功能是求指定字段值的最小值，所以选项A正确。 9.打开报表的宏命令是 （分数：2.00） A.DocmD．OpenTable B.DocmD．OpenReport C.OpenTable D.OpenReport √
解析：解析：Docmd对象是VBA中使用的，在宏中打开报表对象，直接使用宏命令“OpenReport”，所以选项D正确。
10.在Hungarian命名法中使用约定的字首码代表特定的类型，代表复选框的字首码是 （分数：2.00）
A.Chk √ B.Cbo C.cmd D.opt
解析：解析：Hungarian符号使用一组代表数据类型的码。用小写字母作为变量名的前缀，“Chk”代表复选框，“Cbo”代表组合框，“cmd”代表命令按钮，“opt”代表选项按钮，所以选项A正确。 11.已知事件对应的程序代码如下： Private Sub CommandO_Click() Dim J As Integer J=100 Call GetData(J+5) MsgBox J End Sub Private Sub GetData(ByRef f As Integer) f=f+120 End Sub 运行程序，则输出结果是 （分数：2.00） A.100 √ B.120 C.125 D.225
解析：解析：ByRef是指参数按地址传递，但是在这里面参数是一个表达式(J+5)，表达式的结果会赋给一个Il缶时变量，然后把临时变量的地址传递给f，因此f的计算结果并不会影响J的值。 12.下列选项中，与VBA语句：DimNew％，sum!等价的是 （分数：2.00）
A.Dim New As Double，sum As Single B.Dim New As Integer，slim As Double C.Dim New As Integer，sum As Single √ D.Dim New As Double，sum As Integer
解析：解析：整数型数据类型标识为Integer，用“％”表示；单精度数据类型标识为Single，用“!”表示，所以选项A正确。
13.VBA中要进行读文件操作，应使用的命令是 （分数：2.00） A.Input √ B.Read C.Get D.Fgets
解析：解析：语法：Input#filenumber，varname，其功能是从已打开的顺序文件中读出一行并将它分配给String变量，所以选择选项A。
14.已知过程对应的代码如下： Sub Proc0 f1=0：t2=1 For n=1 to 5 f=f1+f2 Debug．Printf f1=t2 f2=f Next n End Sub 过程Proc在立即窗口中依次显示的数值是 （分数：2.00） A.12358 √ B.12345 C.1261015 D.12468
解析：解析：程序执行过程如下： 程序初始化f1=0；f2=1； 当n=1时；For n=1 to 5；执行第一次循环，条件为true；f=f1+f2=0+1=1输出f的值为1；f1=f2=1；f2=f=2； 当n=2时；执行第二次循环，条件为true：f=f1+f2=1+1=2输出f的值为2；f1=f2=1；f2=f=2； 当n=3时；执行第三次循环，条件为true；f=f1+f2=1+2=3输出f的值为3；f1=f2=2：f2=f=3； 当n=4时：执行第四次循环，条件为true；f=f1+f2=2+3=5输出f的值为5；f1=f2=3；f2=f=5； 当n=5时；执行第五次循环，条件为true；f=f1+f2=3+5=8输出f的值为8；f1=f2=5；f2=f=8； 当n=6时；执行第六次循环，条件为false，结束循环。 综上所述，程序输出结果依次为1，2，3，5，8，所以选项A正确。
15.“用户表”中包含4个字段：用户名(文本，主关键字)，密码(文本)，登录次数(数字)，最近登录时间(日期／时间)。在“登录界面”的窗体中有两个名为tUser和tPassword的文本框，一个登录按钮CommandO。进入登录界面后，用户输入用户名和密码，点击登录按钮后，程序查找“用户表\。如果用户名和密码全部
正确，则登录次数加1，显示上次的登录时间，并记录本次登录的当前日期和时间；否则，显示出错提示信息。 为完成上述功能，请在程序中[]处填入适当语句。 Private Sub Command0_Click() Dim ca As New ADODB．Connection Dim rs As New ADODB．Recordset Dim fdl As ADODB．Field Dim fd2 As ADODB．Field Dim strSQL As String Setcn=CurrentProject．Connection strSQL=\登录次数，最近登录时间From用户表Where用户名='\＆Me!tUser＆\密码='\＆Me!tPassword＆\．Open strSQL，ca，adOpenDynamic，adLockOptimistic，adCmdText Set fdl=rs．Fields(\登录次数\Set fd2=rs．Fields(\最近登录时间\lf Not rs．EOF Then fdl=fdl+1 MsgBox\用户已经登录：\＆fdl＆\次\＆Chr(13)＆Chr(13)＆”上次登录时间：\＆fd2 fd2=Now() [] Else MsgBox\用户名或密码错误。\End If rs．Close cn．Close Set rs=Nothing Set cn=Nothing End Sub （分数：2.00） A.rs．Update √ B.Update C.rs．Change D.Change
解析：解析：本题中的if语句是是否到文件结尾，当执行更新操作fd1=fd1+1；fd2=Now()之后，都需要使用rs．update语句将所更新的记录数据存储到数据库中，所以选项A正确。
16.以下程序的功能是求“x^3-5”表达式的值，其中x的值由文本框Text0输入，运算的结果由文本框Text3输出。 Private Sub Command0_Click() Dim xAs Integer，y As Long Me．Text0=x y=x^3-5 Me．Text3=y End Sub 上述程序有错误。错误的语句是 （分数：2.00） A.Dim x As Integer B.Me．Text0=x √ C.Me．Text3=y D.Dim y As Long
解析：解析：根据题意，程序功能是求“x^3*5”表达式的值，x的值由文本框Text0输入，则在程序中应该将TextO的值赋给变量x，而程序中Me．Text0=x的功能是将x的值赋给Text0，所以选择选项B。 17.下列代码实现的功能是：若在文本框tNum中输入课程编号，则将在文本框tName显示“课表”中对应的“课程名称”。 Private Subt Num_AtterUpdate() Me!tName=[](\课程名称\，\课表\，\课程编号='\＆Me!tNum＆\则程序中[]处应该填写的是 （分数：2.00） A.DLookup √ B.Switch C.DFind D.Choose
解析：解析：根据题意，[]处的代码应实现的功能是在“课程表”中查询出“课程编号”等于tNum文本框中数据的“课程名称”，此DLookup函数有此功能。DLookup函数的格式为：DLookup(表达式，记录集[，条件式])。其中表达式用来指定要查询的字段，即题中的“课程名称”。记录集用来指定要查询的范围，即题中的“课程表”。条件式用来指定查询条件，即题中的“课程编号='”Me!tNum“'”，所以选择选项A。
18.已知代码下： Dim strSQL As String strSQL=\
strSQL=strSQL+\，\，\strSQL=strSQL+\；\．Run SQLstrSQL 以上代码实现的功能是 （分数：2.00） A.创建表Student √
B.删除Student表中指定的字段 C.为Student表建立索引 D.为Student表设置关键字
解析：解析：在SOL语言中，可以使用CREATE TABLE语句建立基本表，本题是将创建基本表student的SQL语句，存放在StrsQL变量中，然后使用Docmd．RunsQL命令，执行该sQL语句，所以本题是动态创建表对象student，所以选项A正确。
19.在VBA变量的Hungarian命名法中，代表复选框的字首码是 （分数：2.00） A.Chk √ B.Cbo C.cmd D.opt
解析：解析：Hungarian符号使用一组代表数据类型的码。用小写字母作为变量名的前缀，“Chk”代表复选框，“Cbo”代表组合框，“cmd”代表命令按钮，“opt”代表选项按钮，所以选项A正确。
20.在窗体上有一个按钮，当单击该按钮时，若将窗体标题改为“欢迎”，则设计该宏时应选择的宏操作是 （分数：2.00） A.AddMenu B.RepaintObject C.SetMenultem D.SetProperty √
解析：解析：根据题意，单击按钮时调用宏，宏的功能是将窗体的标题改为\欢迎\，窗体的标题属于窗体的一个属性，则宏的功能是改变窗体的属性值，A选项中AddMenu的功能是增加菜单，不符合题意。B选项RepaintObject功能是重画窗体，不符合题。C选项SetMenultern功能是设置菜单元素，不符合题意D。 21.有宏M1，依次包含Macro1和Macro2两个子宏，以下叙述中错误的是 （分数：2.00）
A.创建子宏的目的是方便对宏的管理 B.可以用RunMacro宏操作调用子宏
C.调用MI中Macro1的正确形式是M1．Maero1
D.如果调用M1则顺序执行Macro1和Macro2两个子宏 √
解析：解析：创建子宏的目的是方便对宏的管理，A选项正确；使用RunMacro宏操作命令可以调用子宏，调用的格式为：宏名．子宏名，B、C选项正确；如果调用M1则只会执行Macrol，不会执行Macro2，所以选项D叙述错误。
22.内置计算函数Max的功能是 （分数：2.00）
A.计算所有指定字段值的最大值 √ B.计算全部数值型字段的最大值 C.计算一条记录中数值型字段的最大值 D.计算一条记录中指定字段的最大值
解析：解析：Max函数的功能是求指定字段值的最大值，所以选项A正确。 23.打开数据表的是宏命令是 （分数：2.00） A.DocmD，OpenTable B.DocmD．OpenReport C.OpenTable √ D.OpertReport
解析：解析：Docmd对象是VBA中使用的，在宏中打开表对象，直接使用宏命令“OpenTable”，所以选项C正确。
24.与VBA语句DimVar％，sum!等价的是 （分数：2.00）
A.Dim Var As Integer，sum As Single √ B.Dim Var As Integer，sum As Double C.Dim Var As Single，sum As Double
国家二级ACCESS机试选择题（VBA编程）模拟试卷5
