Conversión de programación Vb

El método para convertir números enteros decimales a otros sistemas decimales utiliza el método de "dividir por R y tomar la inversa del resto". El siguiente programa conecta el resto obtenido del resto al frente de la cadena mediante concatenación de cadenas. Es relativamente simple y conveniente implementar el "resto inverso":

Subcomando privado 1_Click()

<. p>n = CLng(Text1.Text)

S = " " 'Cadena de resultado de inicialización.

Do While n & gt "0" implementa "dividir entre 2 e invertir el resto"

s = n Mod 2 & amp "s" concatena el resto al frente de la cuerda.

N = n\2' Hacer división (quitar resto).

Timbre

Texto 2. 'Text = s' muestra la cadena resultante en un cuadro de texto.

Conector final