我正在编写一个包含许多类似代码行的程序,如下所示:
If Bird.Left + Bird.Width - Wall1.Left < 2 And Bird.Left + Bird.Width - Wall1.Left > -2 And Bird.Top > Wall1.Top Then
和
If Bird.Left + Bird.Width - Wall2.Left < 2 And Bird.Left + Bird.Width - Wall2.Left > -2 And Bird.Top > Wall2.Top Then
和其他一些类似的行,有没有办法在不使用函数的情况下声明这些类似的行,例如 f(x,y) ?(因为为此编写函数会大大降低程序的速度)