La Red de Conocimientos Pedagógicos - Currículum vitae - 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.

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