2011年3月计算机二级Access考试模拟题
一、选择题
1.以下内容中不属VBA提供的数据验证函数是 A)IsNull B)IsDate C)IsNumeric D)IsText
2.VBA“定时”操作中,需要设置窗体的“计时器间隔(TimerInterval)”属性值。其计量单位是
A)微秒 B)毫秒 C)秒 D)分钟
3.能够实现从指定记录集里检索特点字段值的函数是
A)Nz B)DSum C)Rnd D)DLookup
4.DAO模型层次中处在最顶层的对象是
A)DBEngine B)Workspace C)Database D)RecordSet
5.ADO对象模型中可以打开RecordSet对象的是 A)只能是Connection对象 B)只能是Command对象
C)可以是Connection对象和Command对象 D)不存在
6.InputBox函数返回值的类型为 A)数值 B)字符串
C)变体 D)数值或字符串(视输入的数据而定)
7.ADO的含义是
A)开放数据库互连应用编程接口 B)数据库访问对象 C)动态链接库 D)Active数据对象
8.执行下面的语句后,所弹出的信息框外观样式为 MsgBox \
9.在MsgBox(prompt,buttons,title,helpfile,context)函数调用形式中必须提供的参数是 A)prompt B)buttons C)title D)context
二、填空题
1.VBA提供了多个用于数据验证的函数。其中IsDate函数用于________;________函数用于判定输入数据是否为数值。
2.VBA语言中,函数InputBox的功能是________;________函数的功能是显示消息信息。
3.VBA的“定时”操作功能是通过窗体的________事件过程完成。
4.VBA中打开窗体的命令语句是________。
5.Access的窗体或报表事件可以有两种方法来响应:宏对象和________。
6.窗体的计时器触发事件激发的时间间隔是通过________属性来设置。
7.窗体中有两个命令按钮:“显示”(控件名为cmdDisplay)和“测试”(控件名cmdTest)。当单击“测试”按钮时,执行的事件功能是
:首先弹出消息框,若点击其中的“确定”按钮,则隐藏窗体上的“显示”按钮;否则直接返回到窗体中。请填空补充完整。 Private Sub cmdtest_Click()
Answer=________(\隐藏按钮?\) If Answer = vbOK Then
Me!cmddisplay.Visible=________ End If End Sub
8.设计一个计时的Access应用程序。该程序界面如下图所示,由一个文本框(名为Text1)、一个标签及两个命令按钮(一个标题为Start
,命名为Command1;另一个标题为Stop,命名为Commmand2)组成。程序功能为:打开窗体运行后,单击“Start”按钮,则开始计时,文本框
中显示秒数;单击“Stop”按钮,则计时停止;双击“Stop”按钮,则退出。请填空补充完整。
Dim i
Private Sub Command1_Click() i=0
Me.TimerInterval=1000 End Sub
Private Sub Command2_Click() ________ End Sub
Private Sub Command2_DblClick(Cancel As Integer) DoCmd.________
End SubPrivate Sub Form_Load() Me.TimerInterval=0 Me!Text1=0
End Sub
Private Sub Form_Timer() i=i+1
Me!Text1=________ End Sub
9.要实现以下图示效果的消息框提示,VBA代码语句为________。
10.VBA中主要提供了3种数据库访问接口:ODBC API、________和________。
11.DAO对象模型采用分层结构,其中位于最高层的对象是________。
12.Access的VBA编程操作本地数据库时,提供一种DAO数据库打开的快捷方式是________、而相应也提供一种ADO的默认连接对象是
________。
13.DAO模型中,主要的控制对象有:________、________、________、________、QueryDef和Error。
14.ADO对象模型主要有________、________、________、________和Error5个对象。
15.已知一个为“学生”的Access数据库,库中的表“stud”存储学生的基本情况信息,包括学号、姓名、性别和籍贯。下面程序的功能是
:通过窗体向stud表中添加学生记录。对应“学号”、“姓名”、“性别”和“籍贯”的4个文本框的名称分别为:tNo、tName、tSex和tRes。
当点击窗体上的“增加”命令按钮(名称为Command1)时,首先判断学号是否重复,如果不重复则向“stud”表中添加学生记录;如果学号重
复,则给出提示信息。当点击窗体上的“退出”命令按钮(名称为Command2)时,关闭当前窗体。 依据要求功能,请将以下程序补充完整。 Private Sub Form_Load() '打开窗口时,连接Access数据库 Set ADOcn=CurrentProject.Connection End Sub
Dim ADOcn As New ADODB.Connection Private Sub Command1_Click() '增加学生记录 Dim strSQL As String
Dim ADOrs As New ADO.Recordset
Set ADOrs.ActiveConnection=ADOcn
ADOrs。Open \学号 From Stud Where 学号='\ If Not ADOrs.________ Then
MsgBox \你输入的学号已存在,不能新增加!\ Else
StrSQL=\学号,姓名,性别,籍贯)\
StrSQL=strSQL+\ ADOrs.Execute ________ MsgBox \添加成功,请继续!\ End If ADOrs.Close Set ADOrs=Nothing End Sub
16.已经设计出一个表格式表单窗体,可以输出老师表的相关字段信息。请按照以下功能要求补充设计:
改变当前记录,消息框弹出提示“是否删除该记录?”,单击“是”,则直接删除该当前记录;单击“否”,则什么都不做。其效果图如 下:
'单击“退出”按钮,关闭窗体。
Private Sub btnCancel_Click() DoCmd.Close End Sub
'表格式表单窗体当前记录变化时触发 Private Sub ________()
If MsgBox(\是否删除该记录:\确认\ ________ End If End Sub
17.已经完成一个窗体的部分设计。请按照以下功能要求补充设计:
(1)原始文体处的文本框只接受英文大小写字符和汉字,其他字符输入一律忽略; (2)单击“复制”按钮,可将原始文本框的选择内容追加到目标文本框内; (3)目标文本框内字符数超过50,则清空。 其效果图如下:
代码如下:
Dim strTemp As String '存放原始文本框选择文本 '单击“复制”按钮,实施复制操作 Private Sub tCopy_Click()
Me!tDestText=Nz(Me! tDestText)+strTemp strTemp=\
If ________ Then Me! tDestText=Null End Sub
'原始文本框接受英文大小写字母和汉字输入
Private Sub tSourceText_KeyPress(KeyAscii As Integer)
If
(KeyAscii>=Asc(\
And
KeyAscii<=Asc(\
Or
(KeyAscii>=Asc(\
And
KeyAscii<=Asc(\ Else
'输入其他字符,忽略 ________ End If End Sub
'返回原始文本框选择文本
Private Sub tSourceText_LostFocus() If Me!tSourceText.SelLength>0 Then strTemp=________ Else strTemp=\ End If End Sub
18.Nz函数主要用于处理________值时的情况;Dlookup函数的功用是________。
一、选择题
1.用二维表来表示实体及实体之间联系的数据模型是 A)实体-联系模型 B)层次模型 C)网状模型 D)关系模型
2.关系数据库的基本操作是 A)增加、删除和修改 B)选择、投影和联接 C)创建、打开和关闭 D)索引、查询和统计
3.Access的数据库类型是
A)层次数据库 B)网状数据库 C)关系数据库 D)面向对象数据库
4.关系型数据库管理系统中所谓的关系是指 A)各条记录中的数据彼此有一定的关系
B)一个数据库文件与另一个数据库文件之间有一定的关系 C)数据模型符合满足一定条件的二维表格式 D)数据库中各个宇段之间彼此有一定的关系
5.下列说法中正确的是
A)两个实体之间只能是一对一联系
2011年3月计算机二级Access考试模拟题
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)