Ingrese un numero y convierta a binario - Código fuente en Visual Basic

Problema
Ingrese un número y convierta a binario.

Solución
Este algoritmo recibe un numero decimal y lo convierte a número  binario.

Ejemplo

• Entrada: 10

• Salida: 1010

Código Fuente en Visual Basic

Public Class Form1
    Dim Num As Integer
    Dim Cad As String
    Private Sub Button1_Click(ByVal sender As System.Object, 
 ByVal e As System.EventArgs) Handles Button1.Click
        Num = TextBox1.Text
        If (Num > 0) Then
            Cad = ""
            While (Num > 0)
                If (Num Mod 2 = 0) Then
                    Cad = "0" + Cad
                Else
                    Cad = "1" + Cad
                End If
                Num = Math.Floor(Num / 2)
            End While
            TextBox2.Text = Cad
        Else
            If (Num = 0) Then
                TextBox2.Text = "0"
            Else
                TextBox2.Text = "Solo numeros positivos"
            End If
        End If
    End Sub
End Class

Descargar Proyecto Visual Basic