ORDENAMIENTO CON FUNCIONES

'Este programa implementa funciones y rutinas para crear arreglos con elementos aleatorios y algoritmos de ordemaniento

Module Module1

'Esta funcion crea y devuelve un arreglo con valores aleatorios de acuerdo al tamano de entrada

Function crea_arreglo(tamano As Integer) As Integer()

Dim rnd As Random = New Random() 'Declaro la semilla para los numeros aleatorios

Dim a(tamano) As Integer 'Declaro un arreglo de tamano especifico

For i As Integer = 0 To tamano - 1

a(i) = rnd.Next(1, tamano) 'Relleno cada elemento de mi arreglo con numeros aleatorios desde 1 hasta tamano

Next

crea_arreglo = a 'Asigno el arreglo creado a mi valor que retorna la funcion

End Function

'Esta rutina solo imprime los elementos de mi arreglo que yo ingrese, pide el nombre del arreglo y el tamano

Sub imprimir_arreglo(a() As Integer, tamano As Integer)

For i As Integer = 0 To tamano

Console.WriteLine(a(i))

Next

End Sub

'Funcion que implementa el algoritmo de seleccion, pide de entrada el arreglo a ordenar y el tamano del mismo

Function seleccion(a() As Integer, tamano As Integer) As Integer()

Dim aux, temp As Integer

aux = 0

Console.WriteLine("Ingreso a ordenar el algoritmo ")

For i As Integer = 0 To tamano

aux = i

For j As Integer = i To tamano

If a(j) <= a(aux) Then

aux = j

End If

Next

temp = a(i)

a(i) = a(aux)

a(aux) = temp

Next

seleccion = a

...