海龟绘图
这是引进的Logo语言的模式。
显示乌龟
|
Turtle.Show() |
乌龟移动100个像素
|
Turtle.Show() Turtle.Move(100) |
绘制正方形
|
Turtle.Show() Turtle.Move(100) Turtle.TurnLeft() Turtle.Move(100) Turtle.TurnLeft() Turtle.Move(100) Turtle.TurnLeft() Turtle.Move(100) |
我们把程序简化一下
|
Turtle.Show() For i=1 To 4 Turtle.Move(100) Turtle.TurnLeft() EndFor |
把直线随机修改一下颜色
|
Turtle.Show() For i=1 To 4 GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() Turtle.Move(100) Turtle.TurnLeft() EndFor |
