第九课 画彩色的链子 教学设计

第九课：画彩色的链子 学习目标： ? ? 1．了解什么是子程序，在什么情况下编写子程序。 ? ? 2．掌握子程序的编写格式。 ? ? 3．进一步熟悉GraphicsWindow窗口的坐标系。 学习重难点： ? ? 了解什么情况下要编写子程序是教学的重点；确定彩色珠子的坐标是教学的难点。 一、子程序： ? ? 子程序由一个以Sub关键字开头的名字标识，并以EndSub关键字结束。子程序可以在程序的任意位置被调用。21·cn·jy·com ? ??格式： ? ? ?Sub 子程序名 ? ? ?<命令组> ? ? ?Endsub 作用： 1．子程序可以简化程序。 ? ? 在编程时我们经常遇到需要重复执行一组相同的命令的情况。这种情况下，多次重写相同的语句是不合理的。于是将需要重复写的语句写成子程序，这样我们借助子程序可以简化程序。21教育网 2．使用子程序可以提高程序的可读性。 ? ? 在一个较大的程序中，将实现某些特定功能的程序代码写成子程序，这样主程序的表述就简化了，程序的可读性就提高了。例如：你想理解其他人写的程序或者希望你的程序能被其他人理解，程序就应该尽量地将特定功能的代码写成子程序。 3、子程序可以在主程序的任意位置被调用 二、调用主程序的方法： ...... 子程序名（） ...... 作用：执行子程序中的所有命令 编写程序： r=10 x=100 y=100 For x=x to 400 step 3*r ball() EndFor For y=y to 300 step 3*r ball() EndFor Sub ball GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()21世纪教育网版权所有 GraphicsWindow.FillEllipse(x,y,2*r,2*r) EndSub 三、画彩色珠子串 r=10 y=100 For x=100 to 400 step 3*r GraphicsWindow.DrawLine(x-r,y+r,x,y+r) ball() EndFor GraphicsWindow.DrawLine(x-r,y+r,x,y+r) Sub ball GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()2·1·c·n·j·y GraphicsWindow.FillEllipse(x,y,2*r,2*r) EndSub 四、画长方形的“链子” 程序如下： r=10 y=100 For x=100 to 400 step 3*r GraphicsWindow.DrawLine(x-r,y+r,x,y+r) ball() EndFor GraphicsWindow.DrawLine(x-r,y+r,x,y+r) For y=100 to 300 step 3*r ball() GraphicsWindow.DrawLine(x+r,y+2*r,x+r,y+3*r) EndFor For x=x to 100 step -3*r ball() GraphicsWindow.DrawLine(x-r,y+r,x,y+r) EndFor For y=y to 100 step -3*r ball() If y>100 Then GraphicsWindow.DrawLine(x+r,y,x+r,y-r) EndIf EndFor Sub ball GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()21cnjy.com GraphicsWindow.FillEllipse(x,y,2*r,2*r) EndSub 小结：在编程时我们经常遇到需要重复执行一组相同的命令的情况。这种情况 下，多次重写相同的语句是不合理的。于是将需要重复写的语句写成子程序， 这样我们借助子程序可以简化程序。