Devuelve la posición de la primera, IndexOf, o de la última, LastIndexOf, vez que aparece el elemento indicado en el argumento.
En el ejemplo el resultado es 1 y 7.
Module Ejemplo
Sub Main()
Dim X As Int16
Dim Meses() As String = {"Enero", "Febrero", "Marzo", _
"Abril", "Mayo", "Junio", _
"Julio", "Febrero", "Septiembre", _
"Octubre", "Noviembre", "Diciembre"}
Dim Valor As String
Console.WriteLine(Meses.IndexOf(Meses, "Febrero")) ‘ 1
Console.WriteLine(Meses.LastIndexOf(Meses, "Febrero")) ‘ 7
Console.WriteLine("Visualizamos el contenido ")
For Each Valor In Meses
Console.WriteLine(Valor)
Next
Console.ReadLine()
End Sub
End Module
Devuelve el número de dimensiones de un array.
Console.WriteLine("Meses tiene {0} dimensiones ", Meses.Rank)
Invierte el contenido actual del vector.
Module Ejemplo
Sub Main()
Dim X As Int16
Dim Meses() As String = {"Enero", "Febrero", "Marzo", _
"Abril", "Mayo", "Junio", _
"Julio", "Agosto", "Septiembre", _
"Octubre", "Noviembre", "Diciembre"}
Dim Valor As String
Console.WriteLine("Visualizamos el contenido ")
Meses.Reverse(Meses)
[Array].Reverse(Meses) ‘ se queda como estaba
For Each Valor In Meses
Console.WriteLine(Valor)
Next
Console.ReadLine()
End Sub
End Module
Establece un valor nuevo para el elemento que se indica, en el ejemplo sustituimos Noviembre por Juan.
Module Ejemplo
Sub Main()
Dim X As Int16
Dim Meses() As String = {"Enero", "Febrero", "Marzo", _
"Abril", "Mayo", "Junio", _
"Julio", "Agosto", "Septiembre", _
"Octubre", "Noviembre", "Diciembre"}
Dim Valor As String
Console.WriteLine("Visualizamos el contenido ")
Meses.SetValue("Juan", 10)
For Each Valor In Meses
Console.WriteLine(Valor)
Next
Console.ReadLine()
End Sub
End Module
Este método lo que hace es clasificar el vector, que evidentemente siempre se agradece.
Hay dos sistemas en el ejemplo,
[Array].Sort(Meses)
En este se usa la clase genérica Array para usar sus métodos.
Meses.Sort(Meses)
Aquí se usa el vector, con el método sort.
Como se puede comprobar cualquiera de los dos es válido.
Module Ejemplo
Sub Main()
Dim X As Int16
Dim Meses() As String = {"Enero", "Febrero", "Marzo", "Abril", _
"Mayo", "Junio", "Julio", "Agosto", _
"Septiembre","Octubre", "Noviembre", "Diciembre"}
Dim Valor As String
Console.WriteLine("Visualizamos el contenido ")
Meses.Sort(Meses)
[Array].Sort(Meses)
For Each Valor In Meses
Console.WriteLine(Valor)
Next
Console.ReadLine()
End Sub
End Module
Ejercicios propuestos de la Unidad |
Síguenos en: Facebook Sobre aulaClic Política de Cookies