《画彩色的链子》参考教案.docVIP

PAGE3/NUMPAGES3

画彩色的链子

【\t/Health/cuxx/_blank教学目标】

1、了解什么是子程序，在什么情况下编写子程序。

2、掌握子程序的编写格式。

3、进一步熟悉GraphicsWindow窗口的坐标系。

【教学重难点】

1、了解什么情况下要编写子程序是教学的重点。

2、确定彩色珠子的坐标。

【教学过程】

一、导入：探究新知

展出彩色“珠子”组成的链子，在这个图形中，需要反复画“彩色的链子”，对应地，在程序中要反复地写“画彩色珠子”的命令组，这一节课，我们要想一个办法来简化这一类程序的编写。

新课

我们先看程序，

r=10

x=100

y=100

Forx=xTo400Step3*r

ball()

EndFor

Subball

GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()GraphicsWindow.FillEllipse(x,y,2*r,2*r)

EndSub

上面的程序中ball就是了程序，这节课我们一起来读懂这一程序。

二、讲授：知识讲解

（一）主程序和子程序

1、子程序

定义子程序的命令格式如下：

Sub子程序名

命令组

EndSub作用：将程序中反复出现的命令组写成子程序，可以简化主程序，增强主程序的可读性。了程序可以在主程序的任意位置调用。

例如：

Subball

GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()

GraphicsWindow.FillEllipse(x,y,2*r,2*r)

EndSub

2、主程序调用

格式：

??

子程序名（）

??

作用：执行子程序中的所有命令。

例如：Forx=xTo400Step3*r

ball()

EndFor

3、练习

修改程序，画出如图所示的长方形“链子”

（二）画彩色珠子串

1、现在我们用线将彩色“珠子”串起来，如图所示

解读线条我珠子之间的坐标关系（P44）

根据以上尺寸图，修改成画彩色珠子串

r=10

x=100

y=100

Forx=xTo400Step3*r

GraphicsWindow.DrawLine(x-r,y+r,x,y+r)

ball()

EndFor

GraphicsWindow.DrawLine(x-r,y+r,x,y+r)

Subball

GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()

GraphicsWindow.FillEllipse(x,y,2*r,2*r)

EndSub

2、试一试修改以上程序，画如图所示的长方形“链子”

（三）小结

子程序由一个以Sub关键字开头的名字标识，并以EndSub关键字结束。子程序可以在程序的任意位置被调用。其主要作用：

1．子程序可以简化程序。

2．使用子程序可以提高程序的可读性。