1、国家二级 ACCESS 机试选择题（VBA 编程）模拟试卷 5 及答案解析(总分：60.00，做题时间：90 分钟)一、选择题(总题数：30，分数：60.00)1.在 VBA 中，要引用“学生名单”窗体中的控件对象，正确的格式是（分数：2.00）A.Forms!学生名单!控件名称属性名称B.Forms学生名单控件名称属性名称C.Forms!学生名单!控件名称!属性名称D.Forms!学生名单控件名称属性名称2.在窗体中有一个名称为 Command1 的按钮，该模块内还有一个函数过程： Public Function f(x As Integer)As Integer Dim y As Inte
2、ger 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) DebugPrint x；y End Sub 打开窗体运行后，如果单击按钮，则在立即窗口上显示的内容是（分数：2.00）A.105B.1040C.205D.20403.若数据库中有表 STUD，则下列函数实现的功能是 Function DropPrimaryKey() Dim strSQL As String strSQL=“ALTERTABLESTUDDropCONS
3、TRAINTPRIMARY_KEY“ CurrentProjectConnectionExecutestrSQL End Function（分数：2.00）A.为关系 STUD 中设置主关键字B.取消关系 STUD 中的主关键字C.为关系 STUD 添加索引D.取消关系 STUD 的全部索引4.下列子过程实现对“教师表”中的基本工资涨 10的操作。 Sub GongZi() Dim cn As New ADODBConnection Dim rs As New ADODBRecordset Dim fd As ADODB Field Dim strConnect As String Dim s
4、trSQL As String Set cn=CurrentProjectConnection strSQL=“Select 基本工资 from 教师表“ rsOpen strSQL，cn，adOpenDynamic，adLockOptimistic，adCmdText Set fd=rsFields(“基本工资“) Do While Not rsEOF rsUpdate rsMoveNext Loop rsClose cnClose Set rs=Nothing Set cn=Nothing End Sub 程序空白处应该填写的语句是（分数：2.00）A.fd=fd*11B.rs=rs*11
5、C.基本工资=基本工资*11D.rsfd=rsfd*115.在计算控件的表达式中必须使用运算符是（分数：2.00）A.=B.!C.圆括号()D.方括号6.在窗体“学生信息”中，若要用宏操作 GoToControl 将焦点移到“学号”字段上，则该宏操作的参数“控件名称”应设置为（分数：2.00）A.F0ms!学生信息!学号B.学生信息!学号C.学号!学生信息D.学号7.下列关于宏操作 MessageBox 的叙述中，错误的是（分数：2.00）A.可以在消息框中给出提示或警告B.可以设置在显示消息框的同时扬声器发出嘟嘟声C.可以设置消息框中显示的按钮的数目D.可以设置消息框中显示的图标的类型8.内
6、部计算函数 Min 的功能是（分数：2.00）A.计算所有指定字段值的最小值B.计算全部数值型字段的最小值C.计算一条记录中数值型字段的最小值D.计算一条记录中指定字段的最小值9.打开报表的宏命令是（分数：2.00）A.DocmDOpenTableB.DocmDOpenReportC.OpenTableD.OpenReport10.在 Hungarian 命名法中使用约定的字首码代表特定的类型，代表复选框的字首码是（分数：2.00）A.ChkB.CboC.cmdD.opt11.已知事件对应的程序代码如下： Private Sub CommandO_Click() Dim J As Intege
7、r 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.100B.120C.125D.22512.下列选项中，与 VBA 语句：DimNew，sum!等价的是（分数：2.00）A.Dim New As Double，sum As SingleB.Dim New As Integer，slim As DoubleC.Dim New As Integer，sum As SingleD.Dim New As Doub
8、le，sum As Integer13.VBA 中要进行读文件操作，应使用的命令是（分数：2.00）A.InputB.ReadC.GetD.Fgets14.已知过程对应的代码如下： Sub Proc0 f1=0：t2=1 For n=1 to 5 f=f1+f2 DebugPrintf f1=t2 f2=f Next n End Sub 过程 Proc 在立即窗口中依次显示的数值是（分数：2.00）A.12358B.12345C.1261015D.1246815.“用户表”中包含 4 个字段：用户名(文本，主关键字)，密码(文本)，登录次数(数字)，最近登录时间(日期时间)。在“登录界面”的窗
9、体中有两个名为 tUser 和 tPassword 的文本框，一个登录按钮CommandO。进入登录界面后，用户输入用户名和密码，点击登录按钮后，程序查找“用户表“。如果用户名和密码全部正确，则登录次数加 1，显示上次的登录时间，并记录本次登录的当前日期和时间；否则，显示出错提示信息。 为完成上述功能，请在程序中处填入适当语句。 Private Sub Command0_Click() Dim ca As New ADODBConnection Dim rs As New ADODBRecordset Dim fdl As ADODBField Dim fd2 As ADODBField Di
10、m strSQL As String Setcn=CurrentProjectConnection strSQL=“Select 登录次数，最近登录时间 From 用户表 Where 用户名=“Me!tUser“And 密码=“Me!tPassword“ rsOpen strSQL，ca，adOpenDynamic，adLockOptimistic，adCmdText Set fdl=rsFields(“登录次数“) Set fd2=rsFields(“最近登录时间“) lf Not rsEOF Then fdl=fdl+1 MsgBox“用户已经登录：“fdl“次“Chr(13)Chr(13
11、)”上次登录时间：“fd2 fd2=Now() Else MsgBox“用户名或密码错误。“ End If rsClose cnClose Set rs=Nothing Set cn=Nothing End Sub（分数：2.00）A.rsUpdateB.UpdateC.rsChangeD.Change16.以下程序的功能是求“x3-5”表达式的值，其中 x 的值由文本框 Text0 输入，运算的结果由文本框Text3 输出。 Private Sub Command0_Click() Dim xAs Integer，y As Long MeText0=x y=x3-5 MeText3=y En
12、d Sub 上述程序有错误。错误的语句是（分数：2.00）A.Dim x As IntegerB.MeText0=xC.MeText3=yD.Dim y As Long17.下列代码实现的功能是：若在文本框 tNum 中输入课程编号，则将在文本框 tName 显示“课表”中对应的“课程名称”。 Private Subt Num_AtterUpdate() Me!tName=(“课程名称“，“课表“，“课程编号=“Me!tNum“) End Sub 则程序中处应该填写的是（分数：2.00）A.DLookupB.SwitchC.DFindD.Choose18.已知代码下： Dim strSQL A
13、s String strSQL=“CreateTableStudent(“ strSQL=strSQL+“SnoCHAR(10)PRIMARYKEY，“ strSQL=strSQL+“SnameVARCHAR(1 5)NOT NULL，“ strSQL=strSQL+“SphotolMAGE)；“ DoCmdRun SQLstrSQL 以上代码实现的功能是（分数：2.00）A.创建表 StudentB.删除 Student 表中指定的字段C.为 Student 表建立索引D.为 Student 表设置关键字19.在 VBA 变量的 Hungarian 命名法中，代表复选框的字首码是（分数：2.
14、00）A.ChkB.CboC.cmdD.opt20.在窗体上有一个按钮，当单击该按钮时，若将窗体标题改为“欢迎”，则设计该宏时应选择的宏操作是（分数：2.00）A.AddMenuB.RepaintObjectC.SetMenultemD.SetProperty21.有宏 M1，依次包含 Macro1 和 Macro2 两个子宏，以下叙述中错误的是（分数：2.00）A.创建子宏的目的是方便对宏的管理B.可以用 RunMacro 宏操作调用子宏C.调用 MI 中 Macro1 的正确形式是 M1Maero1D.如果调用 M1 则顺序执行 Macro1 和 Macro2 两个子宏22.内置计算函数
15、Max 的功能是（分数：2.00）A.计算所有指定字段值的最大值B.计算全部数值型字段的最大值C.计算一条记录中数值型字段的最大值D.计算一条记录中指定字段的最大值23.打开数据表的是宏命令是（分数：2.00）A.DocmD，OpenTableB.DocmDOpenReportC.OpenTableD.OpertReport24.与 VBA 语句 DimVar，sum!等价的是（分数：2.00）A.Dim Var As Integer，sum As SingleB.Dim Var As Integer，sum As DoubleC.Dim Var As Single，sum As Double
16、D.Dim Var As Double，Sum As Single25.VBA 程序中，打开窗体应使用的命令是（分数：2.00）A.DoCmdOpenFormB.DocmdOpenReportC.OpenFormD.OpenReport26.与 DateDiff(“m“，#1893-12-26#，Date()等价的表达式是（分数：2.00）A.(Month(date()-Month(#1893-12-26#)B.(MonthName(date()-MonthName(#1893-12-26#)C.(year(date()-year(#1893-12-26#)*12-(month(date()-
17、month(#1893-12-26#)D.(year(date()-year(#1893-12-26#)*12+(month(date()-month(#1893-12-26#)27.要从记录集中得到符合条件的特定字段的值，应使用的内置函数是（分数：2.00）A.DLookupB.DCotmtC.DFirstD.DLast28.调用下面子过程，消息框显示的结果是 Sub SFun() Dim x，y，m x=100：y=200 Ifxy Then m=x Else m=y End If MsgBoxm End Sub（分数：2.00）A.300B.400C.100D.20029.已知在“用户表
18、”中包含 4 个字段：用户名(文本，主关键字)，密码(文本)，登录次数(数字)，最近登录时间(日期时间)。在“登录界面”的窗体中有两个名为“tUser”和“tPassword”的文本框，一个登录按钮“Command0“。进入登录界面后，用户输入用户名和密码，点击登录按钮后，程序查找“用户表”。如果用户名和密码全部正确，则登录次数加 1，显示上次的登录时间，并记录本次登录的当前日期和时间；否则，显示出错提示信息。 为完成上述功能，请在程序处填入适当语句。 PrivateSub Command0_Click() Dim cn As New ADODBConnection Dim rs As New
19、 ADODBRecordset Dim fd1 As ADODBField Dim fd2 As ADoDBField Dim strSQL AS String Set en=CurrentProjectConnection strSQL=“Select 登录次数，最近登录时间 From 用户表 Where 用户名=“Me!tUser“And 密码 =“Me!tPassword“ rsOpen strSQL，cn，adOpenDynamic，adLockOptimistic，adCmdText Set fd1=rsFields(“登录次数“) Set fd2=rsFields(“最近登录时间“
20、) IfNot rsEOF Then fdl=fdl+1 MsgBox“用户已经登录：“fdl“次“Chr(13)Chr(13)“上次登录时间：“fd2 fd2= rsUpdate Else MsgBox“用户名或密码错误。“ End If rsClose cnClose Set rs=Nothing Set cn=Nothing End Sub（分数：2.00）A.Now()B.Date()C.Time()D.Day()30.以下程序的功能是求“x3*5”表达式的值，其中 x 的值由文本框“Text0”输入，运算的结果由文本框“Textl”输出。 Private Sub Command0_C
21、lick() Dim x As Integer，y As Long MeText0=x y=x3*5 MeText1=y End Sub 运行上述程序时，会有错误。错误的语句是（分数：2.00）A.Dim x As IntegerB.MeText0=xC.MeText1=yD.Dim y As Long国家二级 ACCESS 机试选择题（VBA 编程）模拟试卷 5 答案解析(总分：60.00，做题时间：90 分钟)一、选择题(总题数：30，分数：60.00)1.在 VBA 中，要引用“学生名单”窗体中的控件对象，正确的格式是（分数：2.00）A.Forms!学生名单!控件名称属性名称 B.Fo
22、rms学生名单控件名称属性名称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
23、 As Integer x=10 y=5 y=f(x) DebugPrint x；y End Sub 打开窗体运行后，如果单击按钮，则在立即窗口上显示的内容是（分数：2.00）A.105B.1040C.205D.2040 解析：解析：本题主要考查局部变量的使用和函数调用过程中的参数传递。参数传递的方式有传值和传址两种形式，其中默认的方式是传址。本题中 Click 事件和函数 f 都有变量 y，但都是各自的局部变量，只是同名而已。同样 Click 事件和函数 f 中的 x 也是局部变量(形式参数也属于局部变量)，但此处的参数传递是传址，因此函数 f 对变量 x 的修改会带回到 Click 事件。
24、在 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=“ALTERTABLESTUDDropCONSTRAI
25、NTPRIMARY_KEY“ CurrentProjectConnectionExecutestrSQL End Function（分数：2.00）A.为关系 STUD 中设置主关键字B.取消关系 STUD 中的主关键字C.为关系 STUD 添加索引D.取消关系 STUD 的全部索引 解析：解析：首先，函数内定义字符串变量 strSOL；然后将 SOL 语句赋值，该语句的功能是将表 STUD 中字段学号取消为关键字(ALTER 修改、Drop 删除、PRIMARY_KEY 关键字)；最后执行语句执行 SQL。所以应选择选项 B。4.下列子过程实现对“教师表”中的基本工资涨 10的操作。 Sub
26、 GongZi() Dim cn As New ADODBConnection Dim rs As New ADODBRecordset Dim fd As ADODB Field Dim strConnect As String Dim strSQL As String Set cn=CurrentProjectConnection strSQL=“Select 基本工资 from 教师表“ rsOpen strSQL，cn，adOpenDynamic，adLockOptimistic，adCmdText Set fd=rsFields(“基本工资“) Do While Not rsEOF
27、rsUpdate rsMoveNext Loop rsClose cnClose Set rs=Nothing Set cn=Nothing End Sub 程序空白处应该填写的语句是（分数：2.00）A.fd=fd*11 B.rs=rs*11C.基本工资=基本工资*11D.rsfd=rsfd*11解析：解析：程序中“Do While Not rsEOF”中“rsEOF”表示文件记录是否是该查询结果集的最后一条记录，如果是，则返回真，如果不是，则返回假。“Set fd=rsFields(“基本工资“)”语句为设置“基本工资”字段的引用，本题中需要对“教师表”中的基本工资涨 10，所以程序空白处
28、应该填上“fd=fd*11”。5.在计算控件的表达式中必须使用运算符是（分数：2.00）A.= B.!C.圆括号()D.方括号解析：解析：计算控件的表达式中必须以“=”开头，所以选项 A 正确。6.在窗体“学生信息”中，若要用宏操作 GoToControl 将焦点移到“学号”字段上，则该宏操作的参数“控件名称”应设置为（分数：2.00）A.F0ms!学生信息!学号B.学生信息!学号C.学号!学生信息D.学号 解析：解析：使用 GoToControl 操作，可以把焦点移到打开的窗体、窗体数据表、表数据表或查询数据表中当前记录的指定字段或控件上。要想将焦点移动到“学号”字段，必需先引用该字段。在
29、Access 中引用窗体对象上某一控件的语法格式为：Forms!窗体名称!控件名称，属性名，由上述语法格式可知，“控件名称“参数应设置为该控件的字段名称，所以选择选项 D。7.下列关于宏操作 MessageBox 的叙述中，错误的是（分数：2.00）A.可以在消息框中给出提示或警告B.可以设置在显示消息框的同时扬声器发出嘟嘟声C.可以设置消息框中显示的按钮的数目 D.可以设置消息框中显示的图标的类型解析：解析：宏操作 MessageBox 可以设置“消息”、“发嘟嘟声”、“类型”以及“标题”信息，不能设置消息框中显示的按钮的数目，所以选项 C 错误。8.内部计算函数 Min 的功能是（分数：2
30、.00）A.计算所有指定字段值的最小值 B.计算全部数值型字段的最小值C.计算一条记录中数值型字段的最小值D.计算一条记录中指定字段的最小值解析：解析：Min 函数的功能是求指定字段值的最小值，所以选项 A 正确。9.打开报表的宏命令是（分数：2.00）A.DocmDOpenTableB.DocmDOpenReportC.OpenTableD.OpenReport 解析：解析：Docmd 对象是 VBA 中使用的，在宏中打开报表对象，直接使用宏命令“OpenReport”，所以选项 D 正确。10.在 Hungarian 命名法中使用约定的字首码代表特定的类型，代表复选框的字首码是（分数：2.
31、00）A.Chk B.CboC.cmdD.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 运行程序，则输出结果是（分数
32、：2.00）A.100 B.120C.125D.225解析：解析：ByRef 是指参数按地址传递，但是在这里面参数是一个表达式(J+5)，表达式的结果会赋给一个 Il 缶时变量，然后把临时变量的地址传递给 f，因此 f 的计算结果并不会影响 J 的值。12.下列选项中，与 VBA 语句：DimNew，sum!等价的是（分数：2.00）A.Dim New As Double，sum As SingleB.Dim New As Integer，slim As DoubleC.Dim New As Integer，sum As Single D.Dim New As Double，sum As In
33、teger解析：解析：整数型数据类型标识为 Integer，用“”表示；单精度数据类型标识为 Single，用“!”表示，所以选项 A 正确。13.VBA 中要进行读文件操作，应使用的命令是（分数：2.00）A.Input B.ReadC.GetD.Fgets解析：解析：语法：Input#filenumber，varname，其功能是从已打开的顺序文件中读出一行并将它分配给 String 变量，所以选择选项 A。14.已知过程对应的代码如下： Sub Proc0 f1=0：t2=1 For n=1 to 5 f=f1+f2 DebugPrintf f1=t2 f2=f Next n End S
34、ub 过程 Proc 在立即窗口中依次显示的数值是（分数：2.00）A.12358 B.12345C.1261015D.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：
35、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 的
36、文本框，一个登录按钮CommandO。进入登录界面后，用户输入用户名和密码，点击登录按钮后，程序查找“用户表“。如果用户名和密码全部正确，则登录次数加 1，显示上次的登录时间，并记录本次登录的当前日期和时间；否则，显示出错提示信息。 为完成上述功能，请在程序中处填入适当语句。 Private Sub Command0_Click() Dim ca As New ADODBConnection Dim rs As New ADODBRecordset Dim fdl As ADODBField Dim fd2 As ADODBField Dim strSQL As String Setcn=Cu
37、rrentProjectConnection strSQL=“Select 登录次数，最近登录时间 From 用户表 Where 用户名=“Me!tUser“And 密码=“Me!tPassword“ rsOpen strSQL，ca，adOpenDynamic，adLockOptimistic，adCmdText Set fdl=rsFields(“登录次数“) Set fd2=rsFields(“最近登录时间“) lf Not rsEOF Then fdl=fdl+1 MsgBox“用户已经登录：“fdl“次“Chr(13)Chr(13)”上次登录时间：“fd2 fd2=Now() Els
38、e MsgBox“用户名或密码错误。“ End If rsClose cnClose Set rs=Nothing Set cn=Nothing End Sub（分数：2.00）A.rsUpdate B.UpdateC.rsChangeD.Change解析：解析：本题中的 if 语句是是否到文件结尾，当执行更新操作 fd1=fd1+1；fd2=Now()之后，都需要使用 rsupdate 语句将所更新的记录数据存储到数据库中，所以选项 A 正确。16.以下程序的功能是求“x3-5”表达式的值，其中 x 的值由文本框 Text0 输入，运算的结果由文本框Text3 输出。 Private Sub
39、 Command0_Click() Dim xAs Integer，y As Long MeText0=x y=x3-5 MeText3=y End Sub 上述程序有错误。错误的语句是（分数：2.00）A.Dim x As IntegerB.MeText0=x C.MeText3=yD.Dim y As Long解析：解析：根据题意，程序功能是求“x3*5”表达式的值，x 的值由文本框 Text0 输入，则在程序中应该将 TextO 的值赋给变量 x，而程序中 MeText0=x 的功能是将 x 的值赋给 Text0，所以选择选项 B。17.下列代码实现的功能是：若在文本框 tNum 中输入
40、课程编号，则将在文本框 tName 显示“课表”中对应的“课程名称”。 Private Subt Num_AtterUpdate() Me!tName=(“课程名称“，“课表“，“课程编号=“Me!tNum“) End Sub 则程序中处应该填写的是（分数：2.00）A.DLookup B.SwitchC.DFindD.Choose解析：解析：根据题意，处的代码应实现的功能是在“课程表”中查询出“课程编号”等于 tNum 文本框中数据的“课程名称”，此 DLookup 函数有此功能。DLookup 函数的格式为：DLookup(表达式，记录集，条件式)。其中表达式用来指定要查询的字段，即题中的
41、“课程名称”。记录集用来指定要查询的范围，即题中的“课程表”。条件式用来指定查询条件，即题中的“课程编号=”Me!tNum“”，所以选择选项 A。18.已知代码下： Dim strSQL As String strSQL=“CreateTableStudent(“ strSQL=strSQL+“SnoCHAR(10)PRIMARYKEY，“ strSQL=strSQL+“SnameVARCHAR(1 5)NOT NULL，“ strSQL=strSQL+“SphotolMAGE)；“ DoCmdRun SQLstrSQL 以上代码实现的功能是（分数：2.00）A.创建表 Student B.删
42、除 Student 表中指定的字段C.为 Student 表建立索引D.为 Student 表设置关键字解析：解析：在 SOL 语言中，可以使用 CREATE TABLE 语句建立基本表，本题是将创建基本表 student 的SQL 语句，存放在 StrsQL 变量中，然后使用 DocmdRunsQL 命令，执行该 sQL 语句，所以本题是动态创建表对象 student，所以选项 A 正确。19.在 VBA 变量的 Hungarian 命名法中，代表复选框的字首码是（分数：2.00）A.Chk B.CboC.cmdD.opt解析：解析：Hungarian 符号使用一组代表数据类型的码。用小写字
43、母作为变量名的前缀，“Chk”代表复选框，“Cbo”代表组合框，“cmd”代表命令按钮，“opt”代表选项按钮，所以选项 A 正确。20.在窗体上有一个按钮，当单击该按钮时，若将窗体标题改为“欢迎”，则设计该宏时应选择的宏操作是（分数：2.00）A.AddMenuB.RepaintObjectC.SetMenultemD.SetProperty 解析：解析：根据题意，单击按钮时调用宏，宏的功能是将窗体的标题改为“欢迎“，窗体的标题属于窗体的一个属性，则宏的功能是改变窗体的属性值，A 选项中 AddMenu 的功能是增加菜单，不符合题意。B 选项 RepaintObject 功能是重画窗体，不符
44、合题。C 选项 SetMenultern 功能是设置菜单元素，不符合题意D。21.有宏 M1，依次包含 Macro1 和 Macro2 两个子宏，以下叙述中错误的是（分数：2.00）A.创建子宏的目的是方便对宏的管理B.可以用 RunMacro 宏操作调用子宏C.调用 MI 中 Macro1 的正确形式是 M1Maero1D.如果调用 M1 则顺序执行 Macro1 和 Macro2 两个子宏 解析：解析：创建子宏的目的是方便对宏的管理，A 选项正确；使用 RunMacro 宏操作命令可以调用子宏，调用的格式为：宏名子宏名，B、C 选项正确；如果调用 M1 则只会执行 Macrol，不会执行
45、Macro2，所以选项 D 叙述错误。22.内置计算函数 Max 的功能是（分数：2.00）A.计算所有指定字段值的最大值 B.计算全部数值型字段的最大值C.计算一条记录中数值型字段的最大值D.计算一条记录中指定字段的最大值解析：解析：Max 函数的功能是求指定字段值的最大值，所以选项 A 正确。23.打开数据表的是宏命令是（分数：2.00）A.DocmD，OpenTableB.DocmDOpenReportC.OpenTable D.OpertReport解析：解析：Docmd 对象是 VBA 中使用的，在宏中打开表对象，直接使用宏命令“OpenTable”，所以选项 C 正确。24.与 V
46、BA 语句 DimVar，sum!等价的是（分数：2.00）A.Dim Var As Integer，sum As Single B.Dim Var As Integer，sum As DoubleC.Dim Var As Single，sum As DoubleD.Dim Var As Double，Sum As Single解析：解析：整数型数据类型标识为 Integer，用“”表示：单精度数据类型标识为 Single，用“!”表示，所以选项 A 正确。25.VBA 程序中，打开窗体应使用的命令是（分数：2.00）A.DoCmdOpenForm B.DocmdOpenReportC.Ope
47、nFormD.OpenReport解析：解析：Docmd 对象是 VBA 中使用的，打开窗体对象，使用命令“DocmdOpenForm”，所以选项 A正确。26.与 DateDiff(“m“，#1893-12-26#，Date()等价的表达式是（分数：2.00）A.(Month(date()-Month(#1893-12-26#)B.(MonthName(date()-MonthName(#1893-12-26#)C.(year(date()-year(#1893-12-26#)*12-(month(date()-month(#1893-12-26#)D.(year(date()-year(#
48、1893-12-26#)*12+(month(date()-month(#1893-12-26#) 解析：解析：日期时间函数 DateDiff(间隔类型，日期 1，日期 2，W1，W2)返回两个日期之间按照间隔类型指定的时间间隔数目。题目中的间隔类型为”m”表示月，函数 Date()获得当前系统日期，表达式的结果是当前系统日期与 1893-12-26 之间相差的月数，即为“(当前年份-1893)*12+(当前月份-12)”，所以选择选项 D。27.要从记录集中得到符合条件的特定字段的值，应使用的内置函数是（分数：2.00）A.DLookup B.DCotmtC.DFirstD.DLast解析：解析：DLookup 表示从记录集中检索特定字段的值：DCount 函数用于返回指定记录集中的记录数；如果只需要表或查询中特定字段的任意值，则可以使用 DFirst 和 DLast 函数从该字段返回随机记录。可以在宏、模块、查询表达式或者窗体或报表上的计算控件中使用 DFirst 和 DLast 函数。所以选项 A 正确。28.调用下面子过程，消息框显示的结果是 Sub SFun() Dim x，y，m x=100：y=200 Ifxy Then m=x Else m=y End If
