英文就是 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
