第九课-画彩色链子 课件

课件10张PPT。第九课 画彩色链子下图是由彩色的“珠子”组成的“链子”，
如何编写程序画出下图？主程序和子程序r=10
x=100
y=100
For x=x To 400 Step 3*r
ball()
EndFor
Sub ball
GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()
GraphicsWindow.FillEllipse(x,y,2*r,2*r)
EndSub在画“链子”过程中，需要反复地“画彩色的珠子”，在一个程序中多次重写相同的命令是不合理的，在这种情况下，我们把“画彩色的珠子”命令组写成一个子程序，并给子程序取名为“ball”，然后在需要“画彩色的珠子”的时候直接写“ball（）”来代替，即调用子程序。【格式】
Sub 子程序名
<命令组>
EndSub
【作用】
将程序中反复出现的<命令组>写成子程序，可以简化主程序，增强主程序的可读性。子程序可以在主程序的任意位置被调用。【格式】
……
子程序名（）
……
【作用】
执行子程序中的所有命令。定义子程序的命令格式如下：在主程序中调用子程序的方法如下：试一试1、将“画彩色的链子”程序输入电脑，运行程序，每次画的链子相同吗？为什么？
2、能否用“while……endwhile”语句改写程序？
2、修改程序，画出下图的长方形“链子”。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
For x=x To 100 Step -3*r
ball()
EndFor
For y=y To 100 Step -3*r
ball()
EndFor
Sub ball
GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()
GraphicsWindow .FillEllipse(x,y,2*r,2*r)
EndSub
画彩色珠子串现在我们用线把珠子串起来，如下图所示：假如“珠子”的半径是r，两个“珠子”之间的距离也是r。画彩色珠子串r=10
x=100
y=100
For x=x 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()
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()
GraphicsWindow .FillEllipse(x,y,2*r,2*r)
EndSub