VisualFreeBasic游戏趣味编程_4.4_for循环语句

为了绘制完整的“旋转蛇”错觉图片，我们可以利用for循环语句。首先输入并运行以下代码

Sub 游戏执行过程(hWndForm As hWnd)
   Dim i As Long 
   For i = 1 To 5
      Print i
   Next   
End Sub

程序运行后输出：

for语句中，首先执行i=1;。
然后判断i<=5是否满足，此时1<=5正确，执行print i 输出1，遇到 Next 回到For 执行，运行i=i+1;，此时i=2。
继续判断i<=5是否满足，此时2<=5正确，执行print i，输出2，运行i=i+1;，此时i=3。
继续循环，当i=5时，5<=5正确，执行print i输出5，运行i=i+1;，此时i=6。
继续判断i<=5是否满足，此时6<=5不正确，for循环结束。执行 Next 后面的语句。

利用for语句，以下代码可以绘制出多层同心圆：

Sub 游戏执行过程(hWndForm As hWnd)
    Dim gg As yGDI = hWndForm
   gg.Cls BGR(180, 180, 180) 'GDI的颜色值。
   gg.Pen 1, BGR(229, 0, 0) '设置红色线   
   gg.Brush  '无填充
   Dim i As Long,x As Long ,y As Long  
   For i = 5 To 100 Step 5
      x = 120 - i
      y = 120 - i 
      gg.DrawEllipse x,y,i*2,i*2  '画圆
   Next   
End Sub

利用for语句绘制出20组扇形单元

Sub 游戏执行过程(hWndForm As hWnd)
   Dim gg As yGDI = hWndForm
   gg.Cls BGR(180, 180, 180) 'GDI的颜色值。
   gg.Pen 1, BGR(229, 0, 0) '设置红色线
   gg.Pen 0, 0 '设置线条为没有
   Dim i As Long
   For i = 0 To 350 Step 18
      画扇形(gg, 120, 120, 110, i+3, i+0, BGR(0, 0, 0))
      画扇形(gg, 120, 120, 110, i+8, i+3, BGR(255, 0, 0))
      画扇形(gg, 120, 120, 110, i+13, i+8, BGR(255, 255, 255))
      画扇形(gg, 120, 120, 110, i+18, i+13, BGR(0, 255, 255))
   Next
End Sub