VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 奇数和偶数校验
发表评论(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