师：同学们，今天我们学习的课题是VB中的定时器。首先回顾一下VB中实现循环的两种方式。一是通过循环语句实现，二是通过定时器实现。其中，循环语句又包括计数循环语句和条件循环语句。现在，请大家读一读以下程序，分析程序运行的结果。这是用for next语句实现的循环，我们用打表法模拟程序的执行过程。

　　第一次循环，变量取值5，文本框输出5；第二次循环，变量取值4，文本框输出4；第三次循环，输出3；第四次循环，输出2；第五次循环，输出1。退出循环后输出“点火”。原则上，文本框中会依次显示5、4、3、2、1和“点火”，但我们究竟能否看到文本框中依次从5到4，到3，到2，再到1，最后到“点火”这样倒计时的效果呢？利用循环语句输出的结果和用定时器得到的效果会一样吗？我们动手试一试。

　　我们沿用上节课的界面，将结果输出到文本框text1中。首先，把窗体上的定时器对象删除，双击“开始”，直接在CLICK事件中编写代码：for i = 5 to 1 step -1，text1.text = i，next i，text1.text = “点火”。注意，这里循环变量i从大到小递减，因此步长为负数。双击“结束”，输入end，运行程序，查看结果，文本框内显示“点火”。再运行一遍，文本框内还是只看到“点火”。这是为什么呢？我们将结果直接输出到窗体上试试看。

　　把窗体form1的字体颜色forecolor设置为白色，字体大小设置为小4号，加粗。将text1.text = i改为print i，将text1.text = “点火”改为print “点火”。运行程序，单击“开始”，窗体上同时出现5、4、3、2、1和“点火”，再运行一遍，还是同时出现。想一想，这又是为什么呢？

　　我们发现，用print语句得到的结果和打表分析得到的结果是一致的，说明我们打表分析的结果是正确的。然而，文本框中为什么只看到“点火”呢？这是因为计算机强大的高速运算能力，使文本框中先输出的数据瞬间被后输出的数据替代。5被4替代，4瞬间被3替代，3瞬间被2替代，2瞬间被1替代，1又瞬间被“点火”替代，因此我们只能看到最后输出的“点火”，而看不到输出的过程。

　　那如果要看到过程怎么办呢？对了，可以使用定时器控制循环执行的时间间隔。因此，生活中凡是有明显时延的循环，在VB中都可以借助定时器来实现。比如抽奖器、比赛计时器、红绿灯效果、滚动字幕等等。接下来，我们就以比赛计时器和滚动字幕为例，深入学习定时器实现循环解决问题的基本思路与方法。

　　实例一，用定时器制作比赛计时器。生活中有很多需要精确计时的场合，都能看到比赛计时器的身影，这就是一款常见的比赛计时器。请同学们观察它倒计时的方式与特点，提炼算法。

　　我们发现，时间的秒数在不断递减。重复做某事可以用循环来完成，这个循环含有明显的时延，我们可以用定时器来操作。具体来说，当定时器的enabled属性为true时，每隔interval时间就触发一次timer事件，令秒数减少1。再隔interval时间，又触发一次timer事件，秒数再减少1，以此形成循环。因此，在定时器的timer事件中，我们只要令秒数减1就可以了。

　　但是，其中有一种情况比较特殊，就是当秒数为0，分数不为0的时候，如果直接令秒数减1，就会出现负数。那怎么办呢？对了，可以使用借位，令分减1，秒变成60，然后再秒数减1，化简一下就是：分 = 分 - 1，秒 = 59。最后一种情况就是当分和秒数都为0的时候，可以结束循环，关闭定时器。

　　由此，我们得到了如下算法：首先判断秒数是否为0，如果秒为0，直接秒数减1；如果秒不为0，则继续判断分是否为0，如果分不为0，则先借位，再秒数减1；如果分也为0，则关闭定时器。

　　在分析清楚问题和确定算法之后，接下来就可以编写程序。使用VB编写程序一般有以下5个步骤，我们依次来看。

　　第一步，建立程序界面。我们知道，计算机处理信息的流程是输入信息、处理信息，然后输出信息。因此，在建立程序界面的时候，首先要考虑信息通过什么输入，通过什么输出，怎样处理。我们可以建立如下程序界面：利用文本框输入信息，利用标签输出信息，使用定时器实现循环，用“开始”“复位”“结束”按钮实现人机交互。

　　第二步，设置对象属性，这主要考虑界面美观、交互友好两大因素。下面跟着老师一起操作。

　　现在我们来设置对象的属性。首先设置窗体form1的caption属性为“比赛计时器”，设置定时器的enabled属性为false，interval属性为1000。选中标签label1，设置其caption属性为“0”，backgroundcolor背景颜色为蓝色，forecolor字体颜色为白色，字体大小选72磅，加粗，确定，对齐方式alignment设置为center居中，边框样式border style设置为fixed，有固定边框。

　　用同样的方法设置标签label2的属性。选中LABEL3，caption属性设置为“分”，字体大小设置为3号，加粗。用同样的方法设置LABEL4和LABEL5。文本框首先删除其text属性，其次设置其font属性，字体大小为2号，对齐方式居中。command1的caption属性设置为“开始”，字体大小设置为5号，加粗。用同样的方法设置命令按钮command2和command3的属性。所有对象的属性设置完毕后，程序界面如图所示。