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