如何判定integer是奇数？

counterking

Dim number as integer

If number = 奇数 Then
   response.write ("odd")
Else
   response.write ("even")
End If

除了用除法，我该如何去判定number is 奇数?

counterking

Dim IsEven as Boolean

IsEven = (number Mod 2 = 0)

If IsEven = True Then
....

目前我想到的方法

红发

原帖由 counterking 于 12-8-2006 09:05 AM 发表
Dim IsEven as Boolean

IsEven = (number Mod 2 = 0)

If IsEven = True Then
....

目前我想到的方法

目前我只知道只有可以这样做了。
看余数。

meemee

除了找余数，我们还可以用bitwise operation

Dim IsOdd As Boolean
Dim IsEven As Boolean
Dim Num As Integer

IsOdd = Num And 1

IsEven = Not CBool(Num And 1)

IsEven = (Num And 1) = 0