Unidad 34. Arrays en VB (VIII)





10    Búsqueda, IndexOf, LastIndexOf

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

 

11    Rank

Devuelve el número de dimensiones de un array.

 

Console.WriteLine("Meses tiene {0} dimensiones ", Meses.Rank)

 

12    Reverse

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

 

13    SetValue

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

 

14    Sort

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
Octubre-2010
Pág. 34.8

Atrás  Inicio  Adelante






Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies