VisualFreeBasic游戏趣味编程_2.6_利用For实现小球下落动画

在本节我们讲解For循环语句，用较少的代码实现小球连续运动的动画。首先，输入并运行以下代码：

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

程序将重复输出整数10：

For i = 1 To 10 表示从 1 开始 到 10 ，重复执行 Print 10 10次
For 和 Next 需要配套使用，中间部分是循环体，就是循环执行的代码

利用For语句，我们可以实现小球连续下落的动画效果：

Sub 游戏执行过程(hWndForm As hWnd)
   Dim gg As yGDI = hWndForm
   gg.Brush(&HFF0000)
   Dim y As Long
   For y = 10 To 300 Step 2
      gg.DrawEllipse(100, y, 20, 20)
      gg.Redraw : Sleep(10) : gg.Cls()
   Next
End Sub

For y = 10 To 300 Step 2
小球的初始 y = 10 y坐标为10，For循环语句中Step 2y坐标每循环1次增加2、清空屏幕、绘制新位置的圆、暂停10毫秒。如此重复执行，即实现了小球连续下落的动画效果。

练习题2-5：利用For语句，实现小球半径逐渐变大的动画效果，如图所示。