A
四川省普通高校职教师资班和高职班对口招生统一考试
A. 条件 B. 命令按钮 C. 操作参数 D. 运行方式
信息技术一类Access模拟试题(三）
（考试时间80分钟，满分150分）
学校：长宁县职业技术学校 班级： 姓名： 成绩： 13. 在VBA中，如果一行代码过长想要分两行显示，应使用（ ）分隔
A. 下划线 B.冒号 C.单引号 D.不能分隔
14. 如果要创建快捷键运行宏，则需要将宏名设置为（ ）
一、单项选择题（每题2分，共40分）
1. 要设置报表的页码，正确的操作区域是( )。
A. 报表页眉/报表页脚 B. 页面页眉/页面页脚 C. 组页眉/组页脚 D. 主体
2. 以下控件中，可作为绑定型控件的是( )。
A. 标签 B. 命令按钮 C. 组合框 D. 图像
3. 以下报表不能完成的操作是( )。
A. 数据排序 B. 数据分组 C. 数据汇总 D. 数据修改
4. 以下不是报表视图的是( )。
A. 设计视图 B. 数据表视图 C. 布局视图 D. 打印预览视图
5. 用来显示窗体绑定数据源字段值的控件类型是( )。
A. 绑定型 B. 未绑定性 C. 计算型 D. 关联型
6. 在报表向导中，排序的字段数量不得超过（ ）个
A. 1 B. 2 C. 4 D. 10
7. 在窗体中可以包含一列或几列数据，用户只能选择不能手动输入的控件是( A. 标签 B. 文本框 C. 组合框 D. 列表框
8. 要使窗体上文本框内输入数据时达到“*”的效果，应设置的属性是( )。
A. 输入掩码 B. 密码 C. 样式 D. 记录源
9. 在窗体视图中，要使窗体一页显示多条记录，需要设置默认视图属性为( )。
A. 单个窗体 B. 连续窗体 C. 数据透视表 D. 分隔窗体
10.将窗体从设计视图转到窗体视图，则首先触发的事件是( )。
A. Load事件 B. Open事件 C. Click事件 D. Timer事件
11. 弹出消息框的宏操作是（ ）
A. Msgbox B. DoCmd.Msgbox C. MessageBox D. DoCmd.MessageBox
12. 创建宏时至少要定义一个宏操作，并要设置对应的( )。
《Access 2010应用基础·模拟试题（三））》 第 1页，共10页
)。
A.AutoKeys B.Auto C.AutoExec D.ExecKeys
15. 以下函数中，不是返回数字的是（ ）
A. Year B. Len C. Chr D. InStr
16. 假如消息框中弹出“确定”和“取消”按钮，单击取消按钮后，Msgbox的返回值为：( )
A. 1 B. 2 C. 3 D. 4
17. 函数Inputbox返回值的数据类型为( )。
A. 字符型 B. 数字型 C. 日期时间型 D.视输入而定
18. 当为cj变量输入75以后，语句 IIf(cj>=80,”优秀”,Iif(cj>=70,”良好”,IIF(cj>=60,”及格”,”不及格”)))所返回的结果是（ ）
A.优秀 B. 良好 C. 及格 D. 不及格
19. 有如下代码：
Private Sub Command1_Click() Static x As Integer x=0 x=x+1 End Sub
当点击按钮三次以后，x的值为：
A. 0 B. 1 C. 2 D. 3
20. 下列Select...Case...End Slelect语句中，Case语句条件不合法的是( )
A. 3,7,9 B. 5,Is>=8 C. 7 To 10 D. Is>=8 And Is<=12 一、 多项选择题（5×3=15分）
21. 在窗体视图中，能够看到（ ）节的内容
A.窗体页眉 B.窗体页脚 C.页面页眉 D.页面页脚
22. 下列关于宏的叙述中，正确的有（ ）
A. 可以使用宏组来管理一系列相关的宏 B. Access 2010中的宏操作可以转换为VBA代码
《Access 2010应用基础·模拟试题（三）》 第2页，共10页
A
C. 在条件宏中，不能引用窗体中控件的值 D. 宏不能修改其本身
23. 以下运算结果为真的有（ ）
A、56 mod 3 ^2 >=2
B、34\\8 * 2^3>54 and 98 mod 3 =2
C、89 mod 45 mod 24-5^2 >=0 or not 9^2 mod 3 >0 D、not 2^6 mod 3>2 and 9*9=81
24. 以下变量名合法的有（ ）
A. Str-Name B. Case_if C. 6A D. 变量1
25. 下列表达式中，可判断x能够被y整除的有（ ）
A. Int(x / y)= x \\ y B. x Mod y =0 C. x / y = x \\ y D. Fix(x / y) = x \\ y 二、 判断题（10×2=20分）
26. 报表中的组页眉和组页脚节可以单独添加；
27. 报表中的数据源可以来自一个表，也可以来自多个表；
28. 报表是一种十分有用的工具，利用向导创建报表可以根据用户的意愿直接创建出各种精美的报
表；
29. 在Access 2010中，窗体的视图共5种：设计视图、窗体视图、数据透视表视图、数据透视图
视图和布局视图；
30. 在窗体运行的过程中，可以设置控件的属性；
31. 利用设计视图创建窗体是最为灵活的一种方式，用户可根据需要设计出各种类型的窗体； 32. 在为宏设置条件时，一个条件只能执行一个宏操作；
33. 在窗体控件的事件属性中可以使用宏组名.宏名的方式来调用宏组； 34. 若变量dk定义为日期型，数据#301-1-5#可以对该变量赋值； 35. 当常量被定义后，还可以根据程序需要重新对其进行直接赋值；
三、 填空题。（20×2=40分）
36. 要在报表上显示格式为“4/总15页”的页码，则计算控件的控件来源应设置为________。 37. 报表的数据源可以是表和_________；
38. 在Access 2010中，使用自动创建的报表是__________报表；
39. 在报表中，若要对“学号”进行统计个数，应设置文本框的数据来源的表达式为______________；
《Access 2010应用基础·模拟试题（三））》 第 3页，共10页
40. 计算型控件使用___________作为数据源；
41. _______窗体将窗体中的一个显示记录按列分隔，每列的左边显示字段，右边显示字段内容等； 42. 要创建_______窗体必须先设置数据源之间的关系；
43. ____________是窗体上用于显示数据、执行操作、装饰窗体的对象；
44. 如果希望对所有的宏命令进行调试，应在宏设计器中单击功能区“设计”选项卡上的_________
按钮，然后再点击运行按钮；
45. 在VBA中要将数组的默认下标下限设置为1，应在通用声明区域编写______语句； 46. 函数表达式Fix(-7.2)的运算结果为：_____________； 47. 表达式
≠0转换成Access的表达式是______________________。
48. 函数InStr（2,“学生学籍管理系统”，”学”）的结果是__________。
49. VBA中符合结构化原则的三种基本控制结构是：顺序结构、循环结构和________。； 50. VBA语句Dim a% 中，声明变量a的数据类型为__________型。
51. 如果某变量的取值只有真值或者假值，则应该变量声明为_______数据类型；
52. 有VBA语句str1 = ”52510” : x = Val(Mid(str1,1,2)) + Left(str1,1) ，当代码运行后x的结果为
__________；
53. 在VBA中的通用声明区域使用Dim或Private关键字的变量被称为_______变量； 54. 在VBA中，TimerInterval（计时器间隔）属性的时间单位是_______；
55. 在VBA中，窗体的_______事件会根据TimerInterval属性所设置的时间间隔，重复执行该事件
的代码。 四、 综合题（35分）
56.当单击按钮Command0后，消息框输出的内容为：______①______（3分）
Private Sub Command0_Click() Dim a As Integer, b As Integer a = 10 : b = 10
MsgBox fun(a, b) & \，\End Sub
Function fun(ByVal m As Integer, n As Integer) As Integer Dim i As Integer fun = 1
《Access 2010应用基础·模拟试题（三）》 第4页，共10页
A
For i = 1 To m Step 3 fun = fun * i Next i
n = fun \\ m * i End Function
57.程序填空(每空2分，共22分)。有表和窗体如图所示，用于实现对用户的登录和注册功能。
（1） 登录功能：如果输入的账号和密码能够与User表内的记录相匹配，则弹出“登录成功！”
的消息框，否则弹出“用户名和密码不正确！您还有n次尝试机会”的消息框；如果错误次数达到3次，则系统强制关闭窗体。
代码如下： 【登录按钮代码】
Private Sub Command0_Click()
Dim UserAccount As String, UserPwd As String ___①___ k As Integer UserAccount = Me.Text0 UserPwd = Me.Text2
If ___②___(\③___ Then n = MsgBox(\登录成功！\提示\Else
k = ___④____
《Access 2010应用基础·模拟试题（三））》 第 5页，共10页
n = MsgBox(\用户名或者密码不正确！您还有\次尝试机会。\\警告！\
If ___⑤___ Then
MsgBox \错误已达最大次数，系统将强制关闭窗体！\ DoCmd.Close End If End If End Sub
（2） 如下图所示，该窗体实现的功能为用户注册，窗体中的四个文本框从上到下依次为
Text0,Text2,Text4,Text6。
注册功能描述如下：
? 如果任意一个文本框内容为空，则弹出消息框提示；
? 在所有内容都确保输入的前提下，再次检测两次输入的密码是否一致，如果不一致，
则弹出消息框提示；
? 以上两项都满足的前提下，判断账号是否在user表中存在，如果存在，则不允许
保存，并弹出消息框提示“该账号已经存在！”，并输出该账号在user表中对应的用户姓名。 ?
只有满足以上三项的全部条件，则向user表添加用户信息。
【注册按钮代码】
Private Sub Command1_Click()
If Nz(Me.Text0) = \ MsgBox \所有文本框的内容不能为空！\Else
If ________①___________ Then
《Access 2010应用基础·模拟试题（三）》 第6页，共10页
A
MsgBox \两次输入的密码不一致！\ Else
Dim db As Database Dim rs As Recordset Set db = ___②_______
Set rs = db.______③________(\3 Then If ○ Debug.print arr(i)；
4 ○End if
5 ○Debug.print chr(13) & “sum=” &sum \
If ________④________ > 0 Then
MsgBox \账号已经存在，注册该账号的用户姓名为：\⑤______ Else
Dim InsertSQL As String
InsertSQL = \\ ______⑥_____ (InsertSQL) MsgBox \用户信息注册并保存成功！\ End If End If End If End Sub
58.程序填空（10分，每空2分）
以下代码的功能是：单击按钮Command0后产生20个两位随机整数存于数组之中，打印数组中大于50的数，并求出这些数的和。该按钮的事件代码如下： Private Sub Command0_Click() Dim i As Integer, sum As Integer
○1 For i=1 to 20
Arr(i) ○2 Next Sum=0
For i =1 to 20
《Access 2010应用基础·模拟试题（三））》 第 7页，共10页
End Sub
Access 2010应用基础·模拟试题（三）》第8页，共10页
《
A
P
《Access 2010应用基础·模拟试题（三））》 第 9页，共10页 《Access 2010应用基础·模拟试题（三）》10页
第10页，共