Scambiare i rispettivi valori fra due variabili

Da Gambas-it.org - Wikipedia.

Per scambiare i rispettivi valori fra due variabili (in modo tale l'una acquisti il valore dell'altra) senza l'uso di una terza variabile d'appoggio, si adotterà il seguente schema:

x = x + y
y = x - y
x = x - y

Mostriamo un esempio pratico in Gambas:

Public Sub Main()

 Dim x, y As Integer

 x = 1
 y = 1000

 x = x + y
 y = x - y
 x = x - y

 Print "x = "; x
 Print "y = "; y

End

In alternativa è possibile usare anche l'operatore logico "XOR":

x = x Xor y
y = x Xor y
x = x Xor y