师：同学们，今天我们学习的课题是VB中的定时器。首先，来看一段视频。生活中有一些循环跟火箭发射倒计时一样，具有明显的时延，这类循环我们可以使用VB中的定时器来实现。那什么是定时器呢？我们一起来探究。

　　大家启动VB。在VB工具箱中，有一个外观类似小闹钟的按钮，把鼠标指针指向该按钮停留2秒钟，鼠标下方会出现“TIMER”字样，这就是VB工具箱中的定时器控件。现在，我们尝试向窗体中添加一个定时器对象，添加方法与添加其他控件相同。方法一，单击工具箱中的定时器按钮，在窗体任意位置拖动鼠标，就能在相应位置绘制出一个定时器，这是timer1。方法二，直接双击工具箱中的定时器按钮，也可将定时器控件放置在窗体上，这是timer2。多次双击会在同一位置创建多个定时器对象，比如这是timer3双击创建的，这是timer4。后创建的对象会覆盖先创建的对象。

　　现在，我们把多余的对象删除，右键选择删除，只保留timer1。观察属性面板，定时器控件有两个重要属性。第一个是enabled属性，它规定了定时器是否有效。当enable的属性值为true，说明定时器有效；当enable的属性值为false，说明定时器无效。第二个重要属性是interval属性，它规定了定时器工作的时间间隔，这个时间间隔必须是1到65535之间的整数，单位是毫秒。举例来说，如果想让定时器工作的时间间隔为1秒，interval的属性值就必须设置为1000。现在，我们将timer1的enable属性设置为true，interval属性设置为1000毫秒。双击窗体上的定时器，在timer事件中写入如下代码：print “这是一个定时器运行程序”。大家发现了什么呢？将时间间隔interval改成100，运行程序，又发现了什么呢？想一想，interval属性如果是2000，结果会怎么样呢？动手试一试。

　　通过刚才的操作，大家发现了什么呢？首先，定时器timer事件中的代码被重复执行，这说明定时器可以实现循环。其次，当我们将interval属性值分别设置为100、1000、2000，也就是0.1秒、1秒、2秒的时候，从运行结果可以发现，定时器的interval属性值越大，执行循环的时间间隔就会越长。第三，在设计模式下，窗体上可以看到定时器对象，但在运行模式下，窗体上看不到定时器，这说明定时器在运行时不可见。接下来，我们把定时器的工作过程做慢镜头分解，梳理一下定时器实现循环的原理。定时器工作的前提是enable的属性为true。过一个interval时间，它就会执行一次timer事件中的代码，输出一句话。再经过一个interval时间，它又会执行一次timer事件中的代码，又输出一句话，再过一个interval时间，再执行一次timer事件中的代码，再输出一句话，以此来实现循环。我们用自己的语言描述就是：当定时器的enable属性为true时，每隔interval时间就会执行一次timer事件中的代码，从而实现循环。在这里，enabled决定了定时器当前是处于关闭状态还是开启状态，interval决定了循环执行的时间间隔，也就是timer事件中的代码被重复执行的时间间隔。

　　了解了定时器的原理之后，我们就用定时器来编写倒计时的程序。首先分析一下，输出的“5、4、3、2、1”这些数字我们可以使用变量来实现，等待的时间可以使用定时器来控制，模拟这个过程。首先，变量i初始化为6。然后每触发一次timer事件，变量i的值就在原来的基础上递减1，写成赋值语句就是i = i - 1。我们来列表模拟执行过程：第一次，变量i的值会变成5，输出5；执行第二次，i的值变成4，输出4；执行第三次，i的值变成3，输出3；第四次，i的值变成2，输出2；第五次，i的值变成1，输出1；第六次，i的值变成0，输出0。当i等于0时，输出“点火”，同时关闭定时器。

　　我们用自然语言来描述这个算法：首先定义变量i并初始化i为6。其次，定时器每触发一次timer事件就完成以下工作：i递减1，输出变量i的当前值。当i等于0，输出“点火”，同时关闭定时器。界面设计如下：我们用文本框实现数据的输入和输出，用定时器控制循环执行的时间间隔，用开始按钮启动定时器并执行程序，用结束按钮结束程序。大家跟着老师一起做。

　　首先建立程序界面，在窗体上放置一个定时器、一个文本框、两个命令按钮。我们将窗体的背景颜色BackColor设置为黑色，文本框的背景颜色也设置为黑色，边框样式BorderStyle设置为none，无边框，字体颜色ForeColor设置为白色，字体大小设置为50磅，加粗。将文本框的Text属性值设置为初始值，对齐方式Alignment设置为center，居中。定时器的enable属性设置为false，interval属性设置为1000。至此，对象属性设置完毕。预览效果，倒计时的初始值默认为6，初值也可以重新输入。接下来编写代码，单击“查看代码”，打开代码窗口，用dim语句声明变量。