División entera y división decimal en Visual Basic 2008

Gente les voy a dejar un post que hice en mi blog que he creado será ya 1 semana atrás sobre ayuda a programadores y como aún el otro blog no es conocido subiré lo que hice acá :P y bueno si desean me comparten sus comentarios, y si quieren ayuda me escriben a gvvblog@gmail.com para ayudarles con algunas cosas de programación :P

Aquí mi post
Bueno será el primer post de los varios que tal vez tenga en un futuro, se trata del buen uso de un operador en la nueva edición de Visual Basic 2008, el operador de división.

Como ustedes sabrán existen dos operadores de división el decimal "/" y el entero "\". Lo correcto es usar el operador decimal para tipos de datos con punto flotante o decimales y para usar el operador entero para operaciones con números enteros.

Ahora veamos un ejemplo y luego pondré el video y verán la diferencia:

Module MaxMinSuma
    Sub Main()
        Dim Numero As Integer = Nothing
        Dim Digito As Integer = Nothing
        Dim MaxDigito As Integer = Integer.MinValue
        Dim MinDigito As Integer = Integer.MaxValue
        Console.Write("Ingrese un número entero:")
        Numero = CInt(Console.ReadLine())
        While (Numero <> 0)
            Digito = Numero Mod 10
            If Digito >= MaxDigito Then : MaxDigito = Digito : End If
            If Digito <= MinDigito Then : MinDigito = Digito : End If
            Numero = Numero / 10 'Esto es incorrecto, Numero es entero
        End While
        Console.WriteLine("La suma del mayor dígito con el menor dígito es: {0}", MaxDigito + MinDigito)
        Console.ReadLine()
    End Sub
End Module

Si lo ven he comentado una línea de código debido a que no puedo realizar esa operación, usteden pensarán que estoy loco y que si puede funcionar pero tengo alguien que me hizo ver ese error y le agradezco. Gracias Martín, en verdad no me había fijado en eso. Bueno que pasa si ese código tiene como entrada el número 789 pues no funciona, el resultado debería ser 16 pero obtengo 10.

Ahora veamos si ejecutamos ese código cambiando esa linea por esta:

Numero = Numero \ 10 'Esto es correcto =)
        

Ahí obtengo el resultado correcto que es 16 para la misma entrada con la que fallo en el ejemplo anterior.

Video demostrativo:

Eso es todo. Gracias