次のプロシージャは、11個のステートメントからなっています。
' 多角形を描くプログラム
Sub DrawPolygon()
Dim i, n, side
InitializeTurtleGraphics
n = 6 ' 六角形
side = 200 ' 辺の長さ
For i = 1 To n
TGMoveL side
TGTurn 360 / n
Next i
End Sub
/ で始まる行は注釈(コメント)で、実行時には無視されます。
3行目の Dim i, n, side のようなステートメントは、宣言するだけで実際の動作は伴わないため、非実行ステートメントと呼ばれます。