在考生文件夹下有一个“Acc3.mdb”数据库。 (1)创建“计时”窗体,在窗体中添加标签为“计时:”、名称为“time”的文本框,实现进入窗体后在文本框中显示逝去的时间(单位为秒)。 (2)添加“暂停”和“继续”按钮,分别实现暂停计时和继续计时功能。窗体

admin2010-04-02  45

问题 在考生文件夹下有一个“Acc3.mdb”数据库。
(1)创建“计时”窗体,在窗体中添加标签为“计时:”、名称为“time”的文本框,实现进入窗体后在文本框中显示逝去的时间(单位为秒)。
(2)添加“暂停”和“继续”按钮,分别实现暂停计时和继续计时功能。窗体效果如图2所示。

选项

答案(1)在“Acc3.mdb”数据库窗体中单击“窗体”对象。单击“新建”按钮,选择“设计视图”,不选择数据源,单击“确定”按钮。从工具箱中选择“文本框”控件添加到窗体中,在弹出的“文本框向导”中单击“取消”按钮,右键单击文本框,选择“属性”,选择“全部”页,输入名称“time”,关闭“属性”对话框。右键单击“标签”,选择“属性”,在“全部”页输入标题“计时:”,关闭“属性”对话框。右键单击窗体视图空白处,选择“属性”,在弹出的“窗体”窗口中,将光标定位到“事件”页的“计数器间隔”行,输入“1000”,将光标定位到“计数器触发”行,单击“…”按钮,弹出“选择生成器”对话框,选择“代码生成器”,单击“确定”按钮,进入VBE环境。输入如下代码: *****“time”文本框计时代码***** Dim flag As Boolean PriVate Sub Form Open(Cancel As Integer) flag=True End Sub Private Sub Form Timer() If flag=True Fhen Forms![计时].[Time]=Forms![计时].[Time]+1 End If End Sub **** *** *** ***** ******* 单击工具栏中的“保存”按钮,关闭代码窗口。 (2)在“Acc3.mdb”数据库中单击“窗体”对象,选择“计时”窗体,单击“设计”按钮,打开“计时”窗体设计视图。从工具箱中选择“命令按钮”控件添加到窗体中,在弹出的“命令按钮向导”中选择“取消”按钮,右键单击命令按钮,选择“属性”,在“全部”页中输入按钮名称及标题“暂停”,关闭“属性”窗口。选择“暂停按钮”控件,单击鼠标右键,在弹出的快捷菜单中选择“事件生成器”,在“选择生成器”对话框中选择“代码生成器”,单击“确定”按钮,弹出代码窗口,在“Private Sub”和“End Sub”之间添加“flag=False”。关闭代码窗口,“继续”按钮的添加同理,添加代码为“flag=True”。单击工具栏中的“保存”按钮,关闭“计时”窗体。上机试题答案与解析

解析
转载请注明原文地址:https://jikaoti.com/ti/wJXiFFFM
0

最新回复(0)