Code : Tout sélectionner
n.q = 1
For i = 0 To 63
Debug HexQ(n)
n + n
Next
Et en mettant une conversion long->quad dans le coup, on obtient des résultats bizarres:
Code : Tout sélectionner
For i = 0 To 63
Debug HexQ(1 << i)
Next
Code : Tout sélectionner
n.q = 1
For i = 0 To 63
Debug HexQ(n)
n + n
Next
Code : Tout sélectionner
For i = 0 To 63
Debug HexQ(1 << i)
Next