考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象“tNorm”和“tStock”，查询对象“qStock”和宏对象“m1”，同时还设计出以“tNorm”和“tStock”...
（1）在“fStock”窗体对象的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，初始化标题显示为“库存浏览”，字体名称为“黑体”，字号为18，字体粗细为“加粗”。
（2）在“fStock”窗体对象的窗体页脚节区位置添加一个命令按钮，命名为“bList”，按钮标题为“显示信息”。
（3）设置所建命令按钮bList的单击事件属性为运行宏对象m1。
（4）设置相关属性，取消在子窗体中添加新记录的功能；将“fStock”窗体对象中的“fNorm”子窗体的导航按钮去掉。
（5）创建窗体对象fStock的加载事件，实现设置窗体标题为“****####”。其中，****为系统日期四位当前年，用函数获取；####则要引用“bTitle”标签的标题内容。要求用VBA代码实现。
（6）创建窗体对象fStock的合适事件，实现窗体上“btime”标签显示动态数字时钟，要求输出格式为“12:05:08”。其中，时间用函数获取，要求用VBA代码实现。
注意：不允许修改窗体对象中未涉及的控件和属性；不允许修改表对象“tNorm”、“tStock”和宏对象“m1”。
参考解析: 【考点分析】本题考点：增加窗体创建，设置窗体和控件属性，设置命令按钮的单击事件以及窗体事件的VBA代码编写。
【解题思路】第1、2小题在窗体的设计视图增加控件，对控件属性进行设置；第3、4小题在窗体的设计视图对控件属性进行设置；第5、6小题在窗体的设计视图用VBA代码编写设置控件的属性。
（1）【操作步骤】
步骤1：打开考生文件夹下数据库文件samp3.accdb，右键单击“fStock”窗体，在弹出的快捷菜单中选择“设计视图”命令。
步骤2：单击“设计”选项卡“控件”组中的“标签”控件，在页眉区上绘制一个矩形区域，输入内容“库存浏览”。右键单击“库存浏览”控件，在弹出的快捷菜单中选择“属性”命令。
步骤3：在“属性表”中单击“全部”选项卡，在“名称”行中输入“bTitle”；在“字体名称”行中选择“黑体”；在“字号”行中选择“18”；在“字体粗细”所在行中选择“加粗”，关闭“属性表”窗口。
步骤4：按Ctrl+S保存修改。
（2）【操作步骤】
步骤1：单击“设计”选项卡“控件”组中的“按钮”控件，在页脚区域绘制一个矩形命令按钮，右键单击，在弹出的快捷菜单中选择“属性”命令。
步骤2：在“属性表”中单击“全部”选项卡，在“名称”行中输入“bList”；在“标题”行中输入“显示信息”，关闭“属性表”窗口。
步骤3：按Ctrl+S保存修改。
（3）【操作步骤】
步骤1：右键单击页脚区“显示信息”按钮，在弹出的快捷菜单中选择“属性”命令。
步骤2：单击“事件”选项卡下“单击”行右侧的下三角按钮，在弹出的下拉列表中选择“m1”，关闭“属性表”窗口。
步骤3：按Ctrl+S保存修改，关闭设计视图。
（4）【操作步骤】
步骤1：右键单击“fNorm”窗体，在弹出的快捷菜单中选择“设计视图”命令。
步骤2：单击“设计”选项卡“工具”组中的“属性表”按钮，弹出“属性表”对话框，在“数据”选项卡下，将“允许添加”属性设置为“否”。
步骤3：在“全部”选项卡，将“导航按钮”属性设置为“否”，关闭“属性表”对话框。
步骤3：按Ctrl+S保存修改，关闭设计视图。
（5）【操作步骤】
步骤1：右键单击“fStock”窗体，在弹出的快捷菜单中选择“设计视图”命令。
步骤2：单击“设计”选项卡“工具”组中的“属性表”按钮，弹出“属性表”对话框，在“事件”选项卡下，单击“加载”右侧的“选择器生成器”按钮，弹出“选择生成器”对话框中选择“代码生成器”按钮，单击“确定”按钮，进入VBA代码编辑界面。
步骤2：在“Form_Load()”事件过程中添加代码“Me.Caption = Year(Date) & bTitle.Caption”。
步骤3：按Ctrl+S保存修改。
（6）【操作步骤】
步骤1：在VBA代码编辑窗口中添加“Form_Timer()”事件过程，输入代码“btime.Caption = Time()”。
步骤2：按Ctrl+S保存修改，关闭VBA代码编辑器，关闭设计视图。
【易错提示】窗体不同属性设置，编写VBA代码格式。
百度扫一扫练题
关注千题库公众号
