海龟绘图

这是引进的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