第七课-画同心圆 教案

画100个同心圆
教学目标1、让学生体会并理解循环结构解决问题的基本思想2、让学生初步掌握画圆语句的使用方法3、掌握循环语句的用法重点1、让学生体会并理解循环结构解决问题的基本思想2、让学生初步掌握画圆语句的使用方法难点让学生体会并理解循环结构解决问题的基本思想教学过程一、引入
前面，我们所学的内容都是预先设定好控件，然后修改控件的属性，本节课我们来换一个编程的方法，我们在程序中不用控件进行编程。　二、新课：画一个红色的圆
现在，我们来在窗体上画一个红色的圆：首先，我们来学习一下画圆的语句：
Circle
(圆心横坐标，圆心纵坐标)，半径，颜色。
例：Circle
(1000,1000),100,vbRed就可以在窗体上画一个红色的圆，这个圆的圆心在1000,1000，圆的半径为100。　
扩展：画一个随机颜色圆：
Circle
(1000,1000),100,RGB(Rnd
255,
Rnd
255,
Rnd
255)。
这样就可以画一个随机地方，随机大小，随机颜色的圆。　三、学生模仿练习：完成在窗体中画圆的程序。　四、学生探究练习二：在屏幕中央画十个随机颜色的同心圆(每个圆都比它内部的圆的半径大30)。　五、学生探究练习三：在屏幕中央画一百个随机颜色的同心圆(每个圆都比它内部的圆的半径大30)。　六、新课：1、如果定位在屏幕中央
不少同学用的方法是先找到窗体的Height和Width属性，然后除以2得到窗体的中心点，然后画圆。但这种方法并不科学，而且如果我把窗体最大化了以后，你所定的点就已经不再是中心点了。
其实在VB中定位在屏幕中间非常简单，而且大家所用的方法也是正确的，只不过大家只是绝对地定位在当前窗体的中心点而不是相对的中心点，因此，我们可以用同样的方法来定位相对中心点的：Form1.Height/2,Form1.Width/2。这样，无论窗体怎么变，都可以定位在窗体的中间了。　2、如何画圆
其实大家会发现，在画同心圆的时候，其实语句是大致相同的，只是半径有规律地增加而已。而且如果同心圆一多，就非常麻烦了。如何才能简单地实现这种重复而又繁复的工作呢？我们可以使用循环语句：For…Next语句，格式：
For
变量=初值
to
终值
step
步长
循环体
Next
循环语句的运行过程如右图：①、把初值赋值给循环变量
②、判断循环变量是超过终值，如果超过则执行第⑥步，否则执行第③步
③、执行循环体
④、循环变量加上步长再赋值给循环变量
⑤、重复执行第②步
⑥、离开循环，继续执行循环语句后面的语句
注意①：循环变量是否超过终值的意思有两种，如果步长为正数，则超过的意思为大于；如果步长为负数，则超过的意思是小于。
注意②：步长的值可以是正数，也可以是负数，如果步长为1，则可以省略不写。　例：For
i=1
to
100
Circle
(Form1.Height/2,Form1.Width/2),i
30,RGB(Rnd
255,
Rnd
255,
Rnd
255)Next这样就可以画100个随机颜色的同心圆了。　七、学生练习：完成画100个随机颜色的同心圆。　八、扩展练习：如何才得完成老师展示的程序？
老师展示一个根据输入数字画同心圆的程序。教学反馈