给个齐偶数检查函数，谢谢！

Question

给个齐偶数检查函数，谢谢！

Answer 1

If i% And 1 Then
'奇数
Else
'偶数
End If
又 ：偶数校验：
bool_IsEven = int_Number MOD 2 = 0
bool_IsEven = int_Number AND 1 = 0

Answer 2

Private Sub Command1_Click()
   If Check(CInt(Text1.Text)) = True Then
      MsgBox "偶数"
   Else
      MsgBox "奇数"
   End If
End SubPrivate Function Check(ByVal num As Integer) As Boolean
   If num Mod 2 = 0 Then
       Check = True
   Else
       Check = False
   End If
End Function

Answer 3

Private Sub Command1_Click()
If check(CLng(Text1.Text)) = "偶数" Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End SubPublic Function check(str As Long)
If str Mod 2 = 0 Then
check = "偶数"
Else
check = "奇数"
End If
End Function

Answer 4

呵呵，
if (变量 mod 2 ) =0 then
   msgbox "偶数"
else
   msgbox "奇数"
end if

Answer 5

Public Function check(str As int) as boolean
If str Mod 2 = 0 Then
   check = true
Else
   check = false
End If
End Function

Answer 6

不会吧，这也要IF语句？2、函数1CheckBool=CBool(N Mod 2)True为奇Flase为偶2、函数2CheckBool=Not CBool(N Mod 2)True为偶Flase为奇3、返回偶数奇数字符串：Dim CheckOut(1) As String
CheckOut(0)="偶数"
CheckOut(1)="奇数"CheckStr=CheckOut(N Mod 2)

Answer 7

第二种算法：N必须是整数CheckBool=CBool(N And 1)True为奇Flase为偶CheckBool=Not CBool(N And 1)True为偶Flase为奇Dim CheckOut(1) As String
CheckOut(0)="偶数"
CheckOut(1)="奇数"CheckStr=CheckOut(N And 1)

Answer 8

再比如，如果奇数输出N，偶数输出2NY=((X and 1)+1)*N如果奇数输出N，偶数输出N+1Y=(X and 1)+N如果奇数输出N^M，偶数输出N^(M+1)Y=N^((X and 1)+N)如果想知道某数二进制B位的值。Y=CBool(N and 2^B) And 1偶数输出数A，奇数输出数B。Y=(X and 1)*(B-A)+A上面的式子够用了吧？看看我有导错的没有？上学时候数学学得很不好。

Answer 9

最后给你个好玩的：A = Asc("奇"): B = Asc("偶")
OutStr = Chr((N And 1) * (B - A) + A) & "数"（N是正整数）

Answer 10

最后提醒楼上的：类似If A=B Then C=D当C和D均为整数前提下可以写为：C=((A=B) And D)+((Not (A=B)) And C)类似If A=B Then C=D Else C=E当C和D均为整数前提下可以写为：C=((A=B) And D)+((Not (A=B)) And E)（注意：浮点数千万不可以这样做！至少VB下如此）类似If A<>0 Then C=D当C和D均为整数前提下可以写为：C=(CBool(A) And D)+((Not CBool(A)) And C)类似If A<>0 Then Command
在整数情况下可以写成
If CBool(A) Then Command还有：If A=B Then Command
甚至可以写成：
If CBool(A-B) Then Command
但除了开玩笑或者你键盘的"="键坏掉，这个写法没大用处。这些例子只是向大家说明布尔运算的特性。适当采用可以简化程序，但是用滥的话就成了“淘气包算法”（小仙妹的教授经常对类似算法的评价）。