Conversión de números decimales en programación VB
Solución:
Subcomando privado 1_Click()
Y = Val(InputBox("Ingrese el número decimal que se convertirá a binario:"))
Si 0 & lt = y and y & lt then = 255
Do
M = y Mod 2 'Toma el resto.
Y = y\ 2 'Redondeo
s = S&P. m
y & lt& gt0
s = Standard & Poor's. String(8-Len(s), " 0 ")' tiene menos de 8 dígitos, con relleno de ceros.
Imprimir StrReverse 'Invierte la cadena.
Terminará si...
Finalizar conector