2013年9月全国计算机等级《二级Access》上机临考冲刺试卷(1)
时长:120分钟 总分:100分
67浏览 0人已完成答题
题型介绍
| 题型 | 单选题 | 简答题 |
|---|---|---|
| 数量 | 40 | 3 |
一、选择题（每小题1分，共40小题，共40分）
10.
窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。
窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。
PrivateSub Command32_Click（ ）max=0
max n=0
For i=iTo 10
num=Val(InputBox(”请输入第”&i＆”个大于0的整数；”))
If__________Then
max=num
max_n=i
End If
Next i
MsgBox(”最大值为第”＆max_n&”个输入的”&Max)
End Sub
程序空白处应该填入的表达式是（ ）。
17.
“秒表”窗体中有两个按钮(“开始／停止”按钮bOK，“暂停／继续”按钮bPus)；一个显示计时的标签iNure；窗体的“计时器间隔”设为100，计时糟度为0．1秒。
“秒表”窗体中有两个按钮(“开始／停止”按钮bOK，“暂停／继续”按钮bPus)；一个显示计时的标签iNure；窗体的“计时器间隔”设为100，计时糟度为0．1秒。
要求：打开窗体如图1所示；第一次单击“开始／停止”按钮，从0开始滚动显示计时(见图2)；10秒时单击“暂停／继续”按钮，显示暂停(见图3)，但计时还在继续：若20秒后再次单击“暂停／继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始／停止”按钮，计时停止，显示最终时间(见图4)。若再次单击“开始／停止”按钮可重新从0开始计时。
相关的事件程序如下：
Optioncompare Database
Dim flag，pause As Boolean
PrivateSub bOK_click()
flag=__________
Me!bOK．Enabled=True
Me!bPus．Enabled=flag
End Sub
PrivateSub bPus_click()
pause=Notpause
Me!bOK．Enabled=Not Me!bOK．Enabled
End Sub
PrivateSub Form Open(Cancel As Integer)
flag=False
Pause=False
Me!b0K．Enabled=True
Me!bPus．Enabled=False
End Sub
PrivateSub Form Timer()
Staticcount As Single
If flag=TrueThen
Ifpause=False Then
Me!INum．Capti_dj=Round(count,1)
End If
Count=__________
Else
count=0
End If
End Sub
横线处应填写的内容是（ ）。
26.
有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“User-PassWOrd”，用于进行倒计时显示文本框名为“Tnum”窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击按钮确认。
有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“User-PassWOrd”，用于进行倒计时显示文本框名为“Tnum”窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击按钮确认。
输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用!”信息。要求整个登录过程在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。
OptionCompare SatabaseDim Second As Integer
PrivateSub Form_Open(Cancel As Integer)
Sec_dj=0
End Sub
PrivateSub Form Timer（ ）
If Second>30 Then
MsgBox”请在30秒中登录”，vbCrcal，”警告”
Doemd．Close
Else
Me!Tnum=30-Second倒计时
End If
Sec_dj=__________
End Sub
PrivateSub OK Click（ ）
If Me．UsetName<>”123”or Me．UserPassword<>”456”Then
MsgBox”错误!¨+”您还有”&30-Second&”秒”，vbCritical，”提示”
Else
Me．TimerInterval=__________ 终止Timer事件继续发生MsgBox”
欢迎使用!”vbInformation，”成功”
DoCmd．Close
End If
End Sub
横线处应填写的内容是（ ）。
29.
在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下：
在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下：
Private Sub Commandl Click（ ）Lablel．Caption=”标签”
End Sub
Private Sub Form—Load（ ）Form．Caption=”举例”
Commandl．Caption=”移动”End Sub
打开窗体后，单击命令按钮，屏幕显示（ ）。
38.
在已建窗体中有一命令按钮(名为Commandl)，该按钮的单击事件对应的VBA代码为：
在已建窗体中有一命令按钮(名为Commandl)，该按钮的单击事件对应的VBA代码为：
Private Sub Commandl_Click（ ）
subT．Form．RecordSource="select*from雇员"End Sub
单击该按钮实现的功能是（ ）。
二、基本操作题（共18分）
41.
在考生文件夹中有一个“Accl．mdb”数据库。
在考生文件夹中有一个“Accl．mdb”数据库。
(1)在“演员”表中添加“地域”字段，字段类型为“文本”，字段大小为“l0”，并输入如下数据。
(2)以“演员”表为数据源，进行高级筛选，筛选出所有中国大陆地区的女演员信息。
(3)设置“录影集”表的行高为“13”，按出版年份“升序”排列，设置背景颜色为“深青色”
网格线颜色为“深蓝色”。
三、简单应用题（共24分）
42.
在考生文件夹下的“Ace2．mdb”数据库中有“student”、“课程”和“成绩”3张表。
在考生文件夹下的“Ace2．mdb”数据库中有“student”、“课程”和“成绩”3张表。
(1)以“student”表为数据源，创建查询“查询1”，查询学生名字中出现“小”字的学生信 息。结果显示“student”表中的全部字段。
(2)创建宏“宏1”，运行“查询1”。查询结果如图1所示。
四、综合应用题（共18分）
43.
在考生文件夹下有“Acc3．mdb”数据库。
