Rappresentazione esadecimale di un dato a lunghezza variabile

Verrà mostrato un algoritmo per ottenerne la rappresentazione esadecimale di un dato a lunghezza variabile.

' Gambas class file


Public Sub Form_Open()
 
 Dim a, b, c As Integer
 
 c = InputBox("Immetti un numero in forma decimale:")
 
 b = c Mod 128
 c = CInt(c / 128)

 
 While c > 0
 
   a = c Mod 128
   a = a Or 128
   c = CInt(c / 128)
   
' valori mostra i finali:
     Print Hex(a), Hex(b, 2)
 
 Wend

End