Ejemplo y Código del Método de Selección

Este es un programa de  es uno de vectores  que usa  10 números  y los ordena   depende su valor  por ejemplo si el "numero>0 o numero<0 o si numero=0" con el método de seleccione marcando  el resultado con distintos colores. 

Module Module1

'declaramos los vectores como enteros "INTEGER"

    Dim numeros(9) As Integer

    Sub Main()
  'mostramos un mensaje que nos pida los vectores con "WRITELINE"

        Console.WriteLine("Llenando vectores")

 'Creamos una variable que represente a los números a ingresar en este caso "contador" y la declaramos como entero dentro de la etiqueta "For" y decimos  que contador = 0 asta 9. 

        For contador As Integer = 0 To 9 Step 1

 ' mostramos el  mensaje que diga que ingrese un numero de esta forma  se guardaran los números  de 0 a 5 

            Console.WriteLine("Ingrese numero{0}", contador)

            numeros(contador) = Console.ReadLine() =>  Guardamos los  números ingresados.

'Serramos el For con un next.

        Next
 'creamos un "console.clear()" para declarar los "public sub()"

        Console.Clear()

        metodoseleccion()

        ColorearNumeros()

        Console.ReadLine()
 'Cerramos el "sub main()"

    End Sub
 'y abrimos  un sub public() para clasificar los números por denominación >,<,= a 0 

    Public Sub ColorearNumeros()
'Para clasificar los números  de (n>0)(n=0)(n<0) creamos  condicionales  pero antes  escribimos un mensaje  que nos poda los números  con un "WRITELINE"  y creamos un "FOR"  para leer el contador ingresado. 

        Console.WriteLine("Colorear numeros")

        For contador As Integer = 0 To 9 Step 1
' Para crear una condicional bamos a utilizar un "IF"  y colocamos si el (numero >0)

            If numeros(contador) > 0 Then
'Con esta la etiqueta console.foregroundcolor, vamos a  pintar de color los números  y en el "ConsoleColor" colocamos el color requerido, con el console.writeline seleccionara todos los números >0

                Console.ForegroundColor = ConsoleColor.Green
console.writeline seleccionara todos los números >0

                Console.WriteLine("{0}", numeros(contador))
 Si hay números que no cumplan con la condición anterior  colocamos un "else if"  y colocamos otro if  para  que selecciones  los  (numero =0)

            End If

            If numeros(contador) = 0 Then
 colocamos el color requerido para este tipo de valor numérico 

                Console.ForegroundColor = ConsoleColor.White
console.writeline seleccionara todos los números =0

                Console.WriteLine("{0}", numeros(contador))

            End If

            If numeros(contador) < 0 Then
 Si hay números que no cumplan con la condición anterior  colocamos un "else if"  y colocamos otro if  para  que selecciones  los  (numero <0)

                Console.ForegroundColor = ConsoleColor.Red
console.writeline seleccionara todos los números <0

                Console.WriteLine("{0}", numeros(contador))
cerramos las condiciones y el public sub()

            End If

        Next

    End Sub
 Hora abrimos un public para  colocar el proceso de ordenamiento de seleccion.

    Public Sub metodoseleccion()
Declaramos los datos que vamos a usar

        Dim i, j As Integer

        Dim minimo As Integer

        Dim temp As Double
y colocamos el código de selección de visual, ahora ya solo debemos llenar la formula con los datos del vector.

        For i = 0 To 9 - 1

            minimo = i

            For j = i + 1 To 9

                If numeros(minimo) > numeros(j) Then

                    minimo = j

                End If

            Next j

            temp = numeros(i)

            numeros(i) = numeros(minimo)

            numeros(minimo) = temp

        Next i

    End Sub

End Module