师：同学们好，欢迎来到今天的信息技术课堂。上课前，请准备好纸和笔，都准备好了吗？那让我们一起开启今天的信息技术活动之旅。首先，来看一段视频。
（播放视频完毕）
师：刚刚大家看到的是网上的一条商品广告视频。同学们对万花筒肯定不陌生，透过万花筒的观察孔，能看到梦幻般绚丽的图像。它曾是我童年最喜爱的玩具，相信很多同学也印象深刻。在前几节课的活动中，我们学习使用微伴软件制作了抽奖、计算圆面积和出租车计费程序。那能不能用一个小程序来模拟万花筒的效果呢？先看看我的尝试。
（老师操作演示）
师：运行万花筒程序，单击波纹按钮呈现图案，单击清除按钮清除图案。每单击一次波纹按钮，呈现的图像就会改变一次，仔细看看，是不是很像在转动万花筒？如何使用VB来实现万花筒的效果，就是我们今天活动的主题——色彩变幻万花筒。请同学们仔细观察万花筒程序呈现出的图案，认真思考构成万花筒的基本图案是什么，它们有什么特点？有答案了吗？我们一起来看看。
万花筒是由一个个色彩鲜艳的圆构成，这些圆是由中心向外发散的一组同心圆。圆与圆之间的区别在于半径和颜色不同。接下来，我们一起完成万花筒程序的制作活动，分两个阶段进行：一是设计程序界面，结合万花筒程序的特点，设计出简洁的程序界面；二是编写程序代码，针对波纹按钮和清除按钮设计程序代码，实现绘制彩色同心圆的功能。
现在，让我们进入活动的第一阶段——设计程序界面。万花筒程序要实现两个功能：一是以窗体作为图案绘制区域，绘制同心圆；二是清除窗体上绘制的图案。所以程序界面比较简单，只需设计波纹和清除两个按钮。设计程序界面要以用户便捷操作为原则，满足功能即可。程序界面的制作，前几节课大家已经很熟悉了。运行微步软件新建工程之后，会自动生成Chanty，拖动控制点，可以调整窗体大小。在工具箱内，能轻松找到命令按钮工具，从而绘制出波纹按钮和清除按钮。制作好窗体对象后，别忘了设置它们的属性。单击选中窗体，在属性面板内设置caption属性和STARTUP position属性。其中，窗体的STARTUP position属性用于指定对象首次出现的位置，这里设置为屏幕中心。
波纹按钮和清除按钮的属性比较简单，相信同学们很快就能完成程序界面的设计。制作程序的功能要靠程序代码来实现，那如何给波纹按钮和清除按钮编写代码呢？下面我们进入活动的第二阶段——编写程序代码。要编写程序代码，首先要明确算法。我们今天制作的波纹按钮是利用窗体作为图案绘制区，在窗体上绘制同心圆，它的算法是怎样的呢？先来想想生活中我们是如何绘制同心圆的。画同心圆首先要有画布，明确绘画的范围，另一个工具就是画笔，选好画笔颜色。工具齐全了，怎么画出第一个圆呢？画圆需要确定圆心的位置和半径大小。现在以画布中心为圆心，r为半径，画出第一个圆。第二个圆的半径要比第一个圆大，先增大半径，然后换一种颜色的画笔，画出第二个圆。按照同样的方法，可以继续画出外圈的第三个、第四个圆。了解了画同心圆的自然方法，结合上节课学习的流程图的基本符号，大家能试着用流程图的方式表示出3个同心圆的算法吗？请动手试一试。
（学生尝试完毕）
师：流程图设计好了吗？一起来看看老师是如何设计波纹按钮代码的算法流程的。程序开始运行，首先要明确画圆的范围是在窗体之内，所以要获取窗体的宽度和高度。接下来是重点，从中心依次向外绘制一组同心圆。我们先绘制最中心的圆，选择画笔的颜色，接着以窗体的中心为圆心，r为半径，画出第一个圆。第二个圆怎么画呢？根据生活中绘制同心圆的方法，要在第一个圆外绘制第二个圆，半径需要增大，所以在第一个圆的基础上产生新的半径r = r + 50，而后获取颜色，以新半径画出第二个圆。第三个圆的画法是在第二个圆半径的基础上增大同样的值，得出半径之后依然是获取颜色画圆。
仔细观察流程图，有没有发现虚线框内的部分是重复的？画的同心圆越多，这部分重复的次数就越多。重复出现的这一部分我们把它叫做循环体。如果反复执行这一部分，就可以画出第四个、第五个甚至更多的圆，从而形成万花筒程序中的一组同心圆。如何让程序反复执行虚线框内的循环体部分呢？细心的同学会发现，圆半径对每个圆起着决定作用。因此我们可以用半径来控制循环，给半径确定一个取值范围，用于判定是否反复执行循环体。在今天的案例中，我们设定半径的取值范围在1和10000之间。当r = 1时，画出第一个圆，接着以r = 1 + 50为半径，画出第二个圆，再以r = 51 + 50画出第三个圆，依次循环画出更多的圆。当执行到r的取值为10001时，r值不再满足设定的条件，程序结束。在满足条件时，循环体会反复执行，不满足条件时，程序结束。这是一个有限次数的循环结构。大家能试着按流程图说一说程序是如何绘制第一、第二、第三这样一组同心圆的吗？