英文就是 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 = 8)
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
一行Program寫成數十行… 錢真好抓…
[via The Daily WTF ]
好醒丫…:D