Programa VB para convertir un número decimal en 2, 8 o 16 números hexadecimales.

Convertir a hexadecimal

Hex()

Por ejemplo: 10 (decimal): Hex(10)=A

Convertir a octal Oct()

Por ejemplo: 10 (decimal): Oct(10)=12

Convierta a binario, utilice el siguiente método

'Convertir un número decimal a un número binario dividiendo por 2 para obtener el resto

Dim

Dec

As

Entero

'Ingrese un número decimal

Dim

Bin

Como

Cadena

'Convertir a representación binaria

Dim

res

Como

Entero

Dim

i

Como

Entero

Dec

=

Val(InputBox("x= "))

Form1.Print

"Número decimal:";

Dec

Do

res

=

Dec

Mod

2

'Encontrar el resto después de dividir por 2

Bin

=

res

amp;

Bin

Dec

=

Diciembre

\

2

Bucle

Mientras

Diciembre

lt;gt;

Form1.Print

"Convertido a número binario: ";

Bin