VisualFreeBasic游戏趣味编程_2.7_利用if语句实现小球重复下落

2-6中小球落到窗口底部后就消失了，在这一节我们增加2-7代码，得到小球重复下落的效果。

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

添加的代码叫if语句，也叫选择判断语句。If y > 280 Then表示当y的值大于280时，执行后面的语句y = –20，即将小球的y坐标设为–20。

提示

当圆 y坐标为280时，下落的小球刚好从窗口底部完全消失。此时将y的值设为–20，即小球从窗口顶部开始出现。

有了if语句，我们就可以让计算机进行一些智能处理了，比如判断两个数字的大小：

Sub 游戏执行过程(hWndForm As hWnd)
   Dim x As Long = 3
   Dim y As Long = 5
   If x > y Then Print "x大"
   If x < y Then Print "y大"
   If x = y Then Print "x与y一样大"

End Sub

程序运行后输出：

FB语言中有>，<，=，<>，>=，<= 6种运算符用来判断两个数字的大小关系，如表2-1所示。

表2-1

提示

x=y是赋值语句，表示把y的值赋给x。if (x=y) then表示如果x和y值相等，就执行if(x=y) then后的语句。

练习题2-6：编程计算12×14×16×18，并用if语句判断结果是否大于50000。