如何求几个数的异或值

Question

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

Answer 1

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

Answer 2

Visual Basic Scripting Edition Language Reference --------------------------------------------------------------------------------Xor Operator
Performs a logical exclusion on two expressions.result = expression1 Xor expression2Arguments
resultAny numeric variable.expression1Any expression.expression2Any expression.Res
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