Pregunta de VB: Ingrese un número entero decimal positivo entre (0~255) y conviértalo a binario. Por ejemplo, ingrese 7 y conviértalo a 00000111.
Solución:
Subcomando privado1_Click()
y = Val(InputBox("Ingrese el número decimal que se convertirá a binario:"))< / p>
Si 0 lt;= y And y lt;= 255 Entonces
Haz
m = y Mod 2 'Toma el resto
y = y\ 2 'Redondeo
s = s amp; - Len(s), "0") 'Relleno de ceros para menos de 8 dígitos
Print StrReverse(s) 'Invierte la cadena
End If
Subtítulo final