Operator XOR=（异或赋值）

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgOpCombineXor
• 最后更新: 2019-09-27

---

对变量执行按位异或（异或析取）运算并赋值

语法

declare operator Xor= ( byref lhs as T1, byref rhs as T2 )

用法

lhs Xor= rhs

参数

lhs

要赋值的变量。

T1

任何数值或布尔类型。

rhs

与 lhs 执行按位异或（异或）运算的值。

T2

任何数值或布尔类型。

描述

此运算符执行按位或运算并将结果赋值给变量（对于布尔值转换为整数，false 或 true 的布尔值变为 0 或 -1 的整数值）。功能等价于：

lhs = lhs xor rhs

Xor= 比较其操作数 lhs 和 rhs 的每一位，如果两位相同（都是 1 或都是 0），则第一个操作数 lhs 中对应的位设为 0，否则设为 1。

此运算符可以使用适当的语法作为成员 Operator 为用户定义类型重载。

注意：类似于运算符 '=[>]'（赋值），也可以使用替代符号 'Xor=>'。

示例

start GeSHi

Dim As UByte a = &b00110011
Dim As UByte b = &b01010101
a Xor= b
'' 结果    a = &b01100110
Print Bin(a)

end GeSHi

方言差异

• 在 -lang qb 方言中，此运算符不能被重载。

与 QB 的区别

• FreeBASIC 新增

参见

• Xor

返回 目录