建立对象:在窗体上建立一个时钟控件和一个标签控件。 设置属性:时钟控件 Interval:1ooo 标签控件 Borderstyle:1 编写代码 Private Sub tmrclock Timer labell Caption= Times“time$为日期函数,返回值为系统时间。 End Sub D工 四回 LAbel建立对象：在窗体上建立一个时钟控件和一个标签控件。 设置属性：时钟控件 Interval:1000 标签控件 Borderstyle:1 编写代码： Private Sub tmrclock_Timer() label1.Caption = Time$ ‘time$为日期函数，返回值为系统时间。 End Sub