Question

ayuda con este programa insertar un numero y convertirlo a binario les envio lo que tengo por ejemplo si ingreso el 218 me debe mostrar asi en binario 11011010 pero a mi me muestra asi 01011011

Answer 1

Respuesta: no se si te funcione, la verdad es horrible programar en excel el lado bueno lograste calcular el binario eso te debe dar unos puntos, realmente tu tutor debería explicar con mas ejemplos ciertas condiciones de los ciclos y mas cuando son vectores

Sub binario()

   Dim i As Integer

   Dim vector(100) As Integer

   Dim num As Integer

   Dim dividendo As Integer

   Dim divisor As Integer

   Dim residuo As Integer

   Dim cociente As Integer

   Dim resultado As Integer

   

   i = 0

   num = InputBox("digite el numeor:")

   dividendo = num

   divisor = 2

   While (dividendo > 0)

       cociente = Int(dividendo \ divisor)

       residuo = dividendo Mod divisor

       vector(i) = residuo

       dividendo = cociente

       i = i + 1

   Wend

vector(i) = dividendo

   For j = (i - 1) To 0 Step -1

   Worksheets("Hoja1").Cells(j + 6, 4).Value = vector(j)

   Next j

End Sub

Explicación: