Para ordenar un array disponemos del método Sort( ), que al estar sobrecargado, tiene varias
implementaciones; la más básica de ellas es la que ordena la totalidad del array. También podemos
ordenar una parte del array, indicando la posición inicial y cantidad de elementos a ordenar, etc.
El método Reverse( ), invierte la posición de todos o parte de los elementos de un array. En este punto,
debemos matizar que no se realiza un orden inverso de los elementos, sino que se cambian las
posiciones de los mismos. Ver Código fuente 347.
Sub Main()
' ordenar todo el array
Dim sLetras1() As String = {"z", "a", "g", "m", "w", "i", "c", "b"}
Array.Sort(sLetras1)
Console.WriteLine("Ordenar todos el array")
MostrarArray(sLetras1)
' ordenar parte del array
Dim sLetras2() As String = {"z", "a", "g", "m", "w", "i", "c", "b"}
Array.Sort(sLetras2, 4, 3)
Console.WriteLine("Ordenar parte del array")
MostrarArray(sLetras2)
' invertir valores dentro del array
Dim sLetras3() As String = {"z", "a", "g", "m", "w", "i", "c", "b"}
Array.Reverse(sLetras3, 2, 4)
Console.WriteLine("Invertir valores del array")
MostrarArray(sLetras3)
Console.ReadLine()
End Sub
Private Sub MostrarArray(ByVal sMiLista() As String)
Dim iContador As Integer
For iContador = 0 To sMiLista.Length - 1
Console.WriteLine("Elemento: {0} - Valor: {1}", _
iContador, sMiLista(iContador))
Next
Console.WriteLine()
End Sub
Código fuente 347
No hay comentarios:
Publicar un comentario