在表单 Form1 中有标签 Label1 、时间控件 Timer1 以及“加速”“减速”和“退出”按等对象,标签的显示内容为“欢迎光临”,标签受时钟控件 Timer1 控制,在水平方向来回移动。 ( 1 )表单 Form1 的 Init 的事件代码为 ThisForm.Label1.Caption = “ 欢迎光临 ” ThisForm.Timer1.Interval = 1000 Public m , n , k m = 5 n = 10 k = 1000 ( 2 )时钟控件 Timer1 的 Timer 事件代码为 If n = 20 m = -5 EndIf If n = 10 m = 5 EndIf n = ThisForm.Label1.Left = n ( 3 )每一次“加速”按间隔时间变化 0.1 秒,其“加速”按的 Click 事件代码为 k = ThisForm.Timer1.Interval = k