1、国家二级 ACCESS机试选择题（模块）-试卷 1及答案解析(总分：60.00，做题时间：90 分钟)一、选择题(总题数：30，分数：60.00)1.若要求窗体中的某个控件在事件发生时要执行一段代码，则应设置是（分数：2.00）A.窗体属性B.事件过程C.函数过程D.通用过程2.VBA中如果没有显式声明或未用符号来定义变量的数据类型，则变量的默认数据类型为（分数：2.00）A.BooleanB.IntC.StringD.Variant3.下列 VBA数组声明语句中，正确的是（分数：2.00）A.Dim a3，4 As IntegerB.Dim a(3，4)As StringC.Dim a(n，
2、n)As SingleD.Dim a(3 4)As Integer4.VBA的数组下标可取的变量类型是（分数：2.00）A.日期型B.字符型C.数值型D.可变型5.VBA语句 Dim a(3 to 3)所定义的数组元素个数是（分数：2.00）A.6B.7C.8D.96.下列 VBA变量名中，正确的是（分数：2.00）A.IFB.7ABC.AB7D.AB_77.VBA中一般采用 Hungarian符号法命名变量，代表子报表的字首码是（分数：2.00）A.subB.RptC.FmtD.txt8.下列代码实现的功能是：若在窗体中一个名为 tNum的文本框中输入课程编号，则将“课程表”中对应的“课程名
3、称”显示在另一个名为 tName文本框中， Private Sub【】() Me!tNameDLookup(“课程名称“，“课程表“。“课程编号“Me!“TNum&“) End Sub 则程序中【】处应填写的是（分数：2.00）A.tNum_AfterUpdateB.tNum_ChangeC.tNum_OpenD.tNum_Load9.能够实现从指定记录集里检索特定字段值的函数是（分数：2.00）A.NzB.findC.LookupD.DLookup10.下列表达式中，与：DateDiff(“m“，#20131125#，Date()等价的表达式是（分数：2.00）A.(Month(date()
4、Month(#20131125#)B.(MonthName(date()MonthName(#20131125#)C.(year(date()year(#20131125#)*12(month(date()month(#20131125#)D.(year(date()year(#20131125#)*12(month(date()month(#20131125#)11.VBA表达式 17 mod 3的运算结果是（分数：2.00）A.05B.1C.15D.212.若变量 x是小于 100的非负数，正确的 VBA表达式是（分数：2.00）A.x0B.0x100C.x0 And x100D.0x O
5、r x10013.若变量 x是大于 100且小于 200的整数，则正确的判断 x在合理范围的 VBA表达式是（分数：2.00）A.100100 AND x100 AND x200 D.100=x OR x200解析：解析：VBA 中出现选项 A和选项 B所示的运算符连用属于语法错误；选项 C将 x100、x200 两个条件表达式利用 AND运算符连接，符合要求；选项 D利用或运算 OR不符合题目要求。14.VBA表达式 195 Mod 2*2 的运算结果是（分数：2.00）A.35B.1C.3D.0 解析：解析：MOD 是对两个操作数做除法并返回余数。同时 mod运算要求 2个数都是整数，不是
6、的话就四舍五入，乘运算优先级高于 mod运算符，所以 a195 mod 2*220 mod 40。15.VBA表达式 Left(“how are you“，3)值是（分数：2.00）A.how B.areC.youD.ho解析：解析：本题考查的是字符串截取函数 Left函数的用法。其格式为：Left(，)，表示从字符串左边起截取 N个字符。因此 Left(“how are you“，3)表示从字符串“how are you”左边起截取 3个字符，返回值为“how”。16.VBA中求平方根的函数是（分数：2.00）A.Sqr B.SgnC.RndD.Str解析：解析：在 VBA中求平方根的函数是
7、 Sqr；Sgn 函数返回数值表达式的符号值；Rnd 函数返回大于或等于 0且小于 1的随机值；Str 函数用于将数值表达式的值转化为字符串。17.能够实现从指定记录集里检索特定字段值的函数是（分数：2.00）A.NzB.DSumC.DLookup D.Rnd解析：解析：DLookUp 函数是从指定记录集里检索特定字段的值。它可以直接在 VBA、宏、查询表达式或计算控件中使用，而且主要用于检索来自外部表字段中的数据。18.VBA表达式 Int(178)Sgn(178)的值是（分数：2.00）A.18B.17 C.18D.16解析：解析：Int 函数用于取整，对于负数返回小于或者等于原数的第一个
8、负数，Sgn 函数返回数值表达式的符号值，若数值表达式的值小于 0，则函数返回1；若数值表达式的值等于 0，则函数返回 0；若数值表达式的值大于 0，则函数返回 1。因此 Int(178)的值为18，Sgn(178)的值为 1，表达式最终结果为17。19.VBA中去除前后空格的函数是（分数：2.00）A.LTrimB.RTrimC.Trim D.Ucase解析：解析：删除字符串开始和尾部空格使用函数 Trim()；函数 Ltrim()是删除字符串的开始空格；Rtrim()函数是删除字符串的尾部空格；Ucase()函数是将字符串中小写字母转换成大写字母。20.VBA函数 left(“Hello“
9、，2)的值为（分数：2.00）A.He B.elC.loD.true解析：解析：本题考查的是字符串截取函数 Left函数的用法。其格式为：Left(，)，表示从字符串左边起截取 N个字符。因此 left(“Hello“，2)表示从字符串“Hello“左边起截取 2个字符，返回值为“He“。21.若数据库中有表 STUD，刚下列函数实现的功能是 Function DmpPfimaryKey() Dim strSQL As String atrSQL“ALTER TABLE STUD Drop CONSTRAINTPPdMARY_KEY” CurrentProjectConnectionExecu
10、te strSQL End Function（分数：2.00）A.为关系 STUD中设置主关键字B.取消关系 STUD中的主关键字 C.为关系 STUD添加索引D.取消关系 STUD的全部索引解析：解析：根据题意，用 Function定义了一个自定义函数，函数名为：DropPrimaryKey。在函数DropPrimaryKey中定义了一个 strSQL的 sql语句，该 sql语句中使用 Alter语句修改表 STUD的表结构。其中，Drop Constraint primary_key 表示取消表 STUD中的主关键字，因此选择 B选项。22.表达式 Datediff(“YYYY“，#12
11、302012#，#L132013#)的结果是（分数：2.00）A.10B.1 C.14D.99解析：解析：函数 DateDiff按照指定类型返回指定时间的间隔数目。语法为 DateDiff(，W1W2)，间隔类型为“yyyy”，表示返回两个日期间隔的年数。因此 2012年与 2013年间隔 1年，返回 1。23.在一个窗体上建立两个文本框，名称分别为 Text1和 Text2，事件过程如下， Private Sub Text1_change() Text2Ucase(Text1Text) End Sub 则在 Text1文本框输入“Access 2012”后，Text2中显示的结果是（分数：2
12、.00）A.无内容B.ACCESS 2012 C.Access 2012D.ACCESS解析：解析：Ucase()函数是将字符串中小写字母转换成大写字母。本题程序实现的功能是将 Text1文本框中的小写字母转换为大写字母，之后赋值给。Text2。因此若在 Text1文本框输入“Access 2012”后，经 Ucase()函数转换，Text2 文本框中会显示“ACCESS 2012”。24.在 VBA中，要引用“学生”窗体中的控件对象，正确的格式是（分数：2.00）A.Forms!学生!控件名称属性名称 B.Forms学生控件名称属性名称C.Forms!学生!控件名称!属性名称D.Forms!
13、学生控件名称属性名称解析：解析：VBA 中引用 Access窗体中的控件对象的格式为：Forms!窗体名称!控件名属性名。因此选择 A选项。25.VBA中求字符串长度的函数是（分数：2.00）A.Len B.LengthC.StrLenD.strLength解析：解析：VBA 中求字符串长度的函数是 Len()。26.VBA中如果一行中要写多条语句，则语句之间应使用的分隔符是（分数：2.00）A.分号B.逗号C.冒号 D.空格解析：解析：VBA 中在一行中写多条语句时，应使用冒号(：)分隔。27.下列 If语句的功能是统计性别为男、职称为副教授以上且年龄小于 40岁的人数，错误的语句是（分数：
14、2.00）A.If sex“男“ And age0 Then nn1B.If sex“男“ And ageC.If sex“男“ And ageD.If sex“男“ And age解析：解析：选项 A、选项 B、选项 C均在第二个条件 age40后缺少 And进行与第三个条件的连接。28.执行下列程序段后，整型变量 c的值为 a24 b328 Seleet Case b10 Case 0 ca*10b Case 1 to 9 ca*100b Case 10 to 99 ca*1000b End Select（分数：2.00）A.537B.2432C.24328 D.240328解析：解析：S
15、elect Case 结构运行时，首先计算“表达式”的值，然后会依次将表达式的值与每个 Case表达式的值进行比较，直到值匹配成功，程序会转处相应 Case结构内执行语句。本题中，Select Case语句中 blO 的值为 32，因此程序执行 Case 10 to 99后边的 ca*1000b 语句，即c24*100032824328。29.以下程序的功能是求“x3*5”表达式的值，其中 x的值由文本框 Text0输入，运算的结果由文本框Text1输出。 Private Sub Command0_Click() Dim x As Integer Dim y As Long MeText0x
16、yx3*5 MeText1y End Sub 运行上述程序时，会有错误。错误的语句是（分数：2.00）A.Dim x As IntegerB.MeText0x C.MeText1yD.Dim y As Long解析：解析：根据题意，程序功能是求“x3*5”表达式的值，x 的值由文本框 Text0输入，则在程序中应该将 Text0的值赋给变量 x，而程序中 MeText0x 的功能是将 x的值赋给 Text0，因此选择 B选项。30.有 VBA语句：If x1 then y1，下列叙述中正确的是（分数：2.00）A.x1 和 y1 均为赋值语句B.x1 和 y1 均为关系表达式C.x1 为关系表达式，y1 为赋值语句 D.x1 为赋值语句，y1 为关系表达式解析：解析：If 条件语句的格式为，lf 条件式表达式 Then语句。If 测试指定的条件，如果条件为真。则执行 Then后面的语句。因此在 If x1 then y1 语句中，x1 为条件表达式，y1 为赋值语句。
