耐人尋味找奇數

英文就是 IsOdd()…. 的確好 Odd… 還要有兩個…

 Function IsEven(N)
     Dim LastDigit
     LastDigit = int(N) mod 10
     IsEven = (LastDigit = 0) or (LastDigit = 2) or _
     (LastDigit = 4) or (LastDigit = 6) or (LastDigit =   End Function

 Function IsOdd(N)
     Dim LastDigit
     LastDigit = int(N) mod 10
     IsOdd = (LastDigit = 1) or (LastDigit = 3) or _
     (LastDigit = 5) or (LastDigit = 7) or (LastDigit = 9)
 End Function