2020年计算机二级Access考试每日一练（5月20日）

2020年计算机二级Access考试每日一练（5月20日）

综合应用题

在考生文件夹下有一个“Aec3.mdb”数据库。

(1)在“基本情况”窗体中添加一个名称为“命令按钮1”、标题为“所属部门”的按钮。

(2)编写按钮代码实现单击该按钮时弹出对应部门的消息框(要使用SelectCase语句实现)。单击按钮后的结果如图3所示。

(3)在“基本情况”窗体中添加一个名称为“命令按钮2”、标题为“计算工龄”的按钮。

(4)编写按钮代码实现单击该按钮时弹出人员的工龄(工龄=Date()-调入日期)。单击按钮后的结果如图4所示。

参考答案见下页

参考答案：

(1)在“Acc3.mdb”数据库窗口中单击“窗体”对象，选择“基本情况”窗体，单击“设计”按钮，打开设计视图。从工具箱中选择按钮添加到窗体中，取消按钮向导，输入按钮文本。

(2)选中按钮，右键单击选择“事件生成器”，在“选择生

成器”对话框中选择“代码生成器”，单击“确定”按钮，在

“Private Sub”和“End Sub”之间添加如下代码：

Dim Department As Integer

Department=Forms![基本情况]![部门ID]

Select Case Department

Casel

MsgBox”属于研发部”，vblnformation，”所属部门”

Case2

MsgBox”属于管理部”，vblnformation，”所属部门”

Case3

MsgBox”属于服务部”，vbInformation，”所属部门”

End Select

单击工具栏中的“保存”按钮保存修改。

(3)从工具箱中选择按钮添加到窗体中，取消按钮向导，输入按钮文本。

(4)右键单击按钮，选择“事件生成器”，在“选择生成器”对话框中选择“代码生成器”，单击“确定”按钮，在“Private Sub”和“End Sub”之间添加如下代码：

Dim D As Date

Dim D1 As Date

D=Date

D1=Year(D)

MsgBox Year(D)-Year(Forms![基本情况]![调入日期])，vbInformation，”您的工龄(年)”

单击工具栏中的“保存”按钮保存修改。

更多2020年计算机二级Access考试每日一练试题，请继续关注环球网校计算机二级频道。需要及时了解考试动态的小伙伴可“ 免费预约短信提醒”届时环球网校会及时为大家推送2020年计算机二级考试相关信息提醒。环球网校友情提示：对于想要参加计算机二级考试的小伙伴们，环球网校特地为您准备了计算机二级考试资料，如有需要请点击文章下方“免费下载>>>计算机二级考试资料”下载学习。