Menor de 4 números

Bueno chicos acá les traigo la resolución del menor de 4 números bueno solo para indicarles que esta vez voy a utilizar un bucle solo para hacer las cosas diferentes nada más porque aún podría utilizar la clase Math pero ese es otro tema lo que voy a utilizar es el bucle while , y aplicar una condicional simple if en mi canal de YouTube voy a explicar detalladamente porque acá no se puede jejjej

Bueno comenzamos con ese peque tutorial.

Todos sabemos que el bucle while se emplea para hacer procesos repetitivos y justo eso es lo que deseo repetir el ingreso de 4 números y poder compararlos por eso también e creado una variable auxiliar que se llama menor y ahí poder hacer el ingreso del primer número ya que como tengo el primero numero gracias a eso puedo ir comparando los restantes adjunto la imagen

Module Module1

    Sub Main()

        'Declaracion de variables

        Dim numero, x As Integer

        Dim menor As Integer

        'Asignacion de variables

        x = 1

        Console.WriteLine("Programa menor de 4 Numeros")

        Console.Write("Ingrese el numero: ") : numero = Console.ReadLine

        menor = numero

        'Proceso

        While x <= 3

            Console.Write("Ingrese el numero: ") : numero = Console.ReadLine

            If numero < menor Then

                menor = numero

            End If

            x = x + 1

        End While

        'Salida

        Console.WriteLine("El numero Menor es :{0}", menor)

        'Pausa de la consola

        Console.ReadKey()

    End Sub

End Module

Bueno también estoy dejando un tutorial en mi canal de  YouTube como se desarrolla  paso a paso

tampoco se olviden seguirme en todas mis redes sociales para estar mas al tanto de todos los vídeos 
YOUTUBE ► https://goo.gl/Q5gvcJ
FACEBOOK ► https://goo.gl/5Flfz9
TWITTER ► @codigoresuelto7
GOOGLE PLUS ► https://goo.gl/lomdte
PAGINA WEB ► http://goo.gl/KLvkEi
SIGUENOS AQUÍ ► https://goo.gl/lomdte