VB时钟控件练习

练习十五（时钟控件）

一、填空题

1、定时器（Timer）控件可识别的事件是__________，发生该事件的时间间隔由定时器的_________属性设置，其单位_________________。

2、某同学在窗体中放置了一个定时器控件。并编了下列代码。

Private Sub Timer1_Timer()

Picture1.Left = Picture1.Left + 20

End Sub

但运行时图片Picture1不发生移动，请分析可能出错的原因。_____________________________。

二、选择题

1、要将定时器控件的宽度设置增大一些，以下叙述正确的是（）

A．设置定时器的Width B．设置定时器的Left属性

C．设置定器的Height属性D．无法对定时器的宽度进行设置。

2、将定时器的时间间隔设置为1秒，那么定时器的Interval属性值应设为（）。

A．1000 B．1 C．100 D．10

3、设计动画时通常使用时钟（）来控制动画速度。

A．Enabled B．Interval C．Timer D．Move

4、当设置了定时器的有关属性后，使窗体自动向下移动的语句是Move（）。

A．Left，Top+100 B．Top+100 C．Top-100 D．Top=Top+100

三、写一个计时器程序，界面设计如下图所示，控件的属性如下表所示。在单击“开始”按钮后，定时器开始计时，同时在标签Label1中显示“计时开始！”；当计时达到所选择的时间后停止计时，在标签Lable1中显示“时间到！”的字样。程序运行时时默认的时间选择为10分钟。请写出完成该程序功能的相应事件过程代码。

四、设计一个系统时钟。程序运行后的界面如下图

所示；窗体上放置了4个Frame控件、2个标签

（Label1和Label2）、2个复选框（Check1和

Check2）、2个单选按钮（option1和option2）、

一个命令按钮(cmdExit)和1个Timer控件(Timer1)。

五、试制作小动画程序。先在窗体上放一个标签

Label1，每过1秒标签Label1的背景颜色发生随机

变化，并自动修改标签的Left、Top属性使标签从

窗体的左上角向右下角移动，从而实现动画。