如果语句select一个值

嗨，我有以下代码：

If Numcolyo = Even Then .StartPoint.y = BuWidth / 2 + ccFacoy Else .StartPoint.y = BuWidth / 2 End If 

但是它没有达到我期望的效果。 代码虽然工作。 举例来说，如果Numcolyo=4那么我想要第一个语句是正确的： StartPoint.y = BuWidth / 2 + ccFacoy

如果Numcolyo=3那么我想第二个语句是正确的： StartPoint.y = BuWidth / 2

我写错了什么？ 感谢任何forms的帮助:)

Answer 1

不要以为VBA中有EVEN关键字。 用模运算符来返回除法运算的余数：

 If Numcolyo Mod 2 = 0 Then .StartPoint.y = BuWidth / 2 + ccFacoy Else .StartPoint.y = BuWidth / 2 End If 

如果一分为二的东西没有剩余，那就是偶数。