如何求几个数的异或值

[netfor2000]

有数据A，B，C，D 用VB如何求得ABCD四的异或值？

[zw_yu]

Asc(A) Xor Asc(B) Xor Asc(C) Xor Asc(D)

[zw_yu]

Public Function funJiaMi(inStrs As String, pwsStr As String) As String
Dim inLen As Long, pwsLen As Long
Dim i As Long, j As Long

funJiaMi = ""
inLen = Len(inStrs)
pwsLen = Len(pwsStr)
j = 0
For i = 0 To inLen - 1
j = j + 1
funJiaMi = funJiaMi + Chr((Asc(Mid(inStrs, i + 1, 1)) Xor Asc(Mid(pwsStr, j, 1))))
If j = pwsLen Then j = 0
Next
End Function


Private Sub Form_Load()
msgbox funJiaMi("鱼猫","zw_yu")
end sub

[Sean918]

Visual Basic Scripting Edition Language Reference

--------------------------------------------------------------------------------

Xor Operator
Performs a logical exclusion on two expressions.

result = expression1 Xor expression2

Arguments
result

Any numeric variable.

expression1

Any expression.

expression2

Any expression.

Remarks
If one, and only one, of the expressions evaluates to True, result is True. However, if either expression is Null, result is also Null. When neither expression is Null, result is determined according to the following table:

If expression1 is And expression2 is Then result is
True True False
True False True
False True True
False False False


The Xor operator also performs a bitwise comparison of identically positioned bits in two numeric expressions and sets the corresponding bit in result according to the following table:

If bit in expression1 is And bit in expression2 is Then result is
0 0 0
0 1 1
1 0 1
1 1 0

好好看看　操作符　　XOR