发表评论(0)作者：, 平台：, 阅读：25194, 日期：2000-04-06

奇数和偶数校验

If i% And 1 Then

'奇数

Else

'偶数

End If

又 ：偶数校验：

bool_IsEven = int_Number MOD 2 = 0

bool_IsEven = int_Number AND 1 = 0