XOR

L'operatore Xor dà un risultato vero, se soltanto uno dei termini di contronto è "vero".

Mostriamo un esempio pratico:

Public Sub Main()
 
 Dim a, b As Byte
 
  a = 1
  b = 0
   
  If (a = 0) Xor (b = 1) Then Print "1"
  If (a = 0) Xor (b = 0) Then Print "2"
  If (a = 1) Xor (b = 1) Then Print "3"
  If (a = 1) Xor (b = 0) Then Print "4"
  
End

Come si potrà notare, andrano a buon fine soltanto il 2° ed il 3° test di confronto, poiché in entrambi i casi solo un termine di confronto è vero.