vb中判定奇、偶数的函数

dim n as long 'n是被判断的数 if n\2=0 then 'n=偶数 else 'n=奇数 end if