Access2010模拟试题(二)
四川省普通高校职教师资班和高职班对口招生统一考试
信息技术一类Access模拟试题(二）
（考试时间80分钟，满分150分）
学校：长宁县职业技术学校班级：姓名：成绩：
一、单项选择题（每题2分，共40分）
1.下列关于报表的叙述中，正确的是()。
A）报表只能输入数据B）报表只能输出数据
C）报表可以输入和输出数据D）报表不能输入和输出数据
2.报表的作用不包括()。
A) 分组数据B) 汇总数据C) 格式化数据D) 输入数据
3.在报表中要显示格式为"共N页，第N页"的页码，正确的页码格式设置是()。
A) ＝"共" ＋Pages ＋"页，第" ＋Page ＋"页"
B) ＝"共" ＋[Pages] ＋"页，第" ＋[Page] ＋"页"
C) ＝"共" & Pages & "页，第" & Page & "页"
D) ＝"共" & [Pages] & "页，第" & [Page] & "页"
4.在报表设计过程中，不适合添加的控件是()。
A) 标签控件B) 图形控件C) 文本框控件D) 选项组控件
5.主窗体和子窗体通常用于显示多个表或查询中的数据，这些表或查询中的数据一般应该具有的
关系是()。
A) 一对一B) 一对多C) 多对多D) 关联
6.在运行宏的过程中，宏不能修改的是()。
A）窗体B）宏本身C）表D）数据库
7.下列操作中，适宜使用宏的是()。
A) 修改数据表结构 B) 创建自定义过程
C) 打开或关闭报表对象D) 处理报表中错误
8.对象可以识别和响应的行为称为()。
A) 属性B) 方法C) 继承D) 事件
9.在宏的参数中，要引用窗体F1上的Textl文本框的值，应该使用的表达式()。
A）[Forms]![F1]![Text1] B）Textl
C）[F1].[Textl] D）[Forms][Fl][Textl]10.在VBA中要打开名为"学生信息录入"的窗体，应使用的语句是()。
A) DoCmd.OpenForm "学生信息录入" B) OpenForm "学生信息录入"
C) DoCmd.OpenWindow "学生信息录入"D) OpenWindow "学生信息录入"
11.若要使某命令按钮获得控制焦点，可使用的方法是()。
A) LostFocus B) SetFocus C) Point D) Value
12.表达式"B ＝INT(A＋0.5)"的功能是()。
A) 将变量A保留小数点后1位B)将变量A四舍五入取整
C 将变量A保留小数点后5位D)舍去变量A的小数部分
13.下列表达式计算结果为数值类型的是()。
A) #5/5/2010# －#5/1/2010# B) "102" > "11"
C) 102 ＝98 ＋ 4 D) #5/1/2010# ＋5
14.下列变量名中，合法的是()。
A) 4A B) A－1 C) ABC_1 D) private
15.下列能够交换变量X和Y值的程序段是()。
A) Y＝X ：X＝Y B) Z＝X ：Y＝Z ：X＝Y
C) Z＝X ：X＝Y ：Y＝Z D) Z＝X ：W＝Y ：Y＝Z ：X＝Y
16.Dim b1，b2 As Boolean语句显式声明变量()。
A) b1和b2都为布尔型变量 B) b1是整型，b2是布尔型
C) b1是变体型(可变型)，b2是布尔型D) b1和b2都是变体型(可变型)
17.将逻辑型数据转换成整型数据，转换规则是()。
A) 将True转换为-1 ，将False转换为0
B) 将True转换为1 ，将False转换为-1
C) 将True转换为0 ，将False转换为-1
D) 将True转换为1 ，将False转换为0
18.在模块的声明部分使用"Option Base 1"语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个
数为()。
A) 20B) 24C) 25D) 36
19.要判断a和b中有且只有一个为0，其正确的表达式是()。
A) a＝0 or b＝0 B) a＝0 Not b＝0
C) a＝0 And b＝0 D) a*b＝0 And a＋b<>0
20.设有如下过程：
x=1
Do
x=x+2
Loop Until_______
运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是()。
A）x<=7 B）x<7 C）x>=7 D）x>7
二、多项选择题（5×3=15分）
21.在VBA中，以下（）属于循环结构
A.For…Next
B.Do…While…Loop
C.Do While…Loop
D.Do…Loop Until
22.在VBA中，分支结构分为（）。
A. 单分支结构
B. 双分支结构
C.多分支结构
D.其他分支
23.以下程序运行后，变量x,y,z的值分别是（）。
For x=1 to 5
For y=1 to x step 2
z=z+1
Next y
Next x
A. 6
B. 7
C. 8
D. 9
24.在VBA中，可以用来定义数组的关键词有（）。
A. Dim
B. Public
C. Static
D. Private
25.以下函数返回的数据类型是数值型的有（）。
A. Asc
B. Year
C. Day
D. Msgbox
三、判断题（10×2=20分）
26.报表与窗体既可以查看数据，也可以修改数据；（）
27.在窗体中，可以使用标签控件来绑定数据；（）
28.在窗体视图中，可以对窗体的布局进行修改；（）
29.设置文本框的默认值，可以使文本框控件在进入窗体视图时具备一个初始值；（）
30.在为宏设置条件时，可以引用窗体上控件的值；（）31.如果直接运行宏组，则会执行所有子宏的操作；（）
32.多分支语句只能采用If语句进行编写代码；（）
33.在DO循环中使用While关键词时，表示条件为真就执行循环体；（）
34.在For循环中，循环步长不能为负数；（）
35.所有的For循环都可以转换为Do循环，反之则不然；（）
四、填空题。（20×2=40分）
36.要在窗体或者报表中绑定文本框控件的数据，应设置属性窗口中的数据选项卡中的_________
属性；
37.在报表中____________节用于显示每一页的页眉信息；
38.若要在报表中对“语文”进行统计平均分，应设置文本框控件的控件来源属性为______________；
39.在窗体中，_________节一般用于放置窗体的标题；
40.___________窗体在进入窗体视图后，如果未关闭当前窗体则无法进行其他对象的操作；
41.在Access 2010中已经设计好一系列窗体，如果需要为这些窗体之间建立一个相互连接的窗体，
则可以创建一个__________窗体实现；
42.在利用设计视图创建窗体时，如果要对选中的控件进行改变布局，除了直接拖动控件外，还可
以使用功能区_______选项卡中的相关命令；
43.如果希望达到某种条件时才执行宏操作，这类宏称为__________；
44.如果已经存在一个宏，若要调用该宏，则需要使用__________操作命令；
45.如果要打开一个查询，应使用__________宏操作命令；
46.在For循环中，如果要强制终止循环，应使用_________语句；
47.在VBA中，如果要实现点击按钮后，窗体中的当前记录跳转到最后一条，则应使用语句
DoCmd.__________, , AcLast ;
48.如果在Do While后面出现的循环条件为数字0，则循环体____________；
49.表达式123 ＋Mid("123456",3,2)的结果是____________；
50.如有数组声明语句Dim a(2，-3 to 2,4)，则数组a包含元素的个数是_____个；
51._______变量一旦定义就可以被所有的过程、模块和窗体使用；
52.使用立即窗口输出变量x的值的语句是_____________;
53.如果要使两行VBA代码写在一行，则可以在两行代码之间加_____符号；
54.在VBA中，如果要添加代码注释，除了使用单引号以外，还可以使用______关键词；
55.在VBA中使用Msgbox函数弹出消息框后，如果用户单击了消息框上的“否”按钮，则该函数
文档收集于互联网，已重新整理排版.word版本可编辑.欢迎下载支持.
的返回值是______；
五、合题（35分）
56.写出下列程序的运行结果。（每题3分，共15分）
（1）有代码如下：
Private Sub Command0_Click()
a＝24
b＝328
select case b\10
case 0
c＝a*10＋b
case 1 to 9
c＝a*100＋b
case 10 to 99
c＝a*1000＋b
end select
Msgbox c
End Sub
该段代码运行后，消息框显示的内容为:____①____ （2）有代码如下：
Private Sub Command0_Click()
a＝Sqr(8)
b＝Sqr(9)
c＝a>b
MsgBox c+2
End Sub
该段代码运行后，消息框中显示的内容为：____②____ （3）有代码如下：
Private Sub Command0_Click()
Dim s As Integer
For i=9 to 1 step 0
s=s+i
Next i
Msgbox s & “,” & i
End Sub
该段代码运行后，消息框中显示的内容为：____③____
（4）有代码如下：
Private Sub Command0_Click()
Static b As Integer
B=0
B=b+3
Msgbox b
End Sub
当单击按钮Command0三次后，消息框显示的内容为：___④___
（5）有代码如下：
Private Sub Command0_Click()
Dim i，j，x
For i ＝ l To 20 step 2
x ＝ 0
For j ＝ i To 20 step 3
x ＝ x ＋ 1
Next j
Next i
Text1.Value ＝ Str(x)
End Sub
程序运行后，文本框Text1显示的内容为：______⑤_______
57.程序填空（10分，每空2分）
以下程序的功能是：接收从键盘上输入的一个数，判断这个数是否为素数。请对下列代码进行填空。
Private Sub Command0_Click()
Dim num As Integer, i As Integer
文档收集于互联网，已重新整理排版.word版本可编辑.欢迎下载支持.
num = Val(InputBox("请任意输入一个整数："))
i = ____①____
Do
If num Mod i = ___②___ Then
___③___
End If
i =__④____
Loop While i __⑤__ num
If i = num Then
MsgBox num & "是一个素数"
Else
MsgBox num & "不是素数"
End If
End Sub
58.程序填空（10分，每空2
图1
图1是运行以下代码后立即窗口输出的显示效果，请对下列程序进行填空。Private Sub Command0_Click()
Dim i As Integer, j As Integer
For i = 1 To __①__
For j = 1 To i
Debug.Print "*";
Next j
Debug.Print ___②__(10)
Next i For i = 3 To _③__ Step __④__ For j = ___⑤___
Debug.Print "*";
Next j
Debug.Print __②__(10) Next i
End Sub