第九课画彩色链子分解.ppt

第九课 画彩色链子 下图是由彩色的“珠子”组成的“链子”， 如何编写程序画出下图？ 主程序和子程序 在画“链子”过程中，需要反复地“画彩色的珠子”，在一个程序中多次重写相同的命令是不合理的，在这种情况下，我们把“画彩色的珠子”命令组写成一个子程序，并给子程序取名为“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 修改程序，画出如下图所示的长方形“珠串”。