Programación VB: convierte números decimales a binario o hexadecimal

En primer lugar, debes comprender el método de conversión de decimal a binario

Por ejemplo, convertir 100 a binario

Usa el método euclidiano

100

Dividir entre 2 50, resto 0

Dividir entre 2, 25, resto 0

Dividir entre 2, 12, resto 1

División entre 2, resto 0

División entre 2 3, resto 0

División entre 2 1, resto 1

División entre 2 0, resto 1

Mira los restos generados durante la división en orden inverso 1100100 Este es el valor binario de 100

Mira el programa nuevamente

Agrega un cuadro de texto (Text), un botón (Command) y una etiqueta (Label) al formulario

Escribe este proceso

Sub a()

Etiqueta1. Caption = ""

Dim a%(10), m%, i%

m = Val(Text1.Text)

i = 0

Hacer mientras m <> 0

a(i) = m Mod 2

m = m \ 2

i = i + 1

Bucle

Para k = i - 1 a 0 Paso -1

Label1.Caption = Label1.Caption & a(k)

Siguiente

Fin Sub

Luego, haga clic en el botón Escritura del evento:

Subcomando privado1_Click()

a

End Sub

Utilice la función Hex (número decimal) para convertir decimal a hexadecimal