资源简介

第九课：画彩色的链子
学习目标：
? ? 1．了解什么是子程序，在什么情况下编写子程序。
? ? 2．掌握子程序的编写格式。
? ? 3．进一步熟悉GraphicsWindow窗口的坐标系。
学习重难点：
? ? 了解什么情况下要编写子程序是教学的重点；确定彩色珠子的坐标是教学的难点。
一、子程序：
? ? 子程序由一个以Sub关键字开头的名字标识，并以EndSub关键字结束。子程序可以在程序的任意位置被调用。21·cn·jy·com
? ??格式：
? ? ?Sub 子程序名
? ? ?<命令组>
? ? ?Endsub
作用：
1．子程序可以简化程序。
? ? 在编程时我们经常遇到需要重复执行一组相同的命令的情况。这种情况下，多次重写相同的语句是不合理的。于是将需要重复写的语句写成子程序，这样我们借助子程序可以简化程序。21教育网
2．使用子程序可以提高程序的可读性。
? ? 在一个较大的程序中，将实现某些特定功能的程序代码写成子程序，这样主程序的表述就简化了，程序的可读性就提高了。例如：你想理解其他人写的程序或者希望你的程序能被其他人理解，程序就应该尽量地将特定功能的代码写成子程序。www.21-cn-jy.com
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
小结：在编程时我们经常遇到需要重复执行一组相同的命令的情况。这种情况
下，多次重写相同的语句是不合理的。于是将需要重复写的语句写成子程序，
这样我们借助子程序可以简化程序。

展开更多......

收起↑