Ejemplos sobre vectores y Arrays en vb.net

Ordenar array en forma alfabética con el método Sort

Lo siguiente es un simple ejemplo que ordena una matriz o array unidimensional en forma ascendente, y el resultado lo muestra en un mensaje

Colocar un control button

Código fuente

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) _
Handles Button1.Click
Dim arr() As String
Dim nombres As String
ReDim arr(2)

arr(0) = "Sebastián"
arr(1) = "Eduardo"
arr(2) = "Jorge"
Array.Sort(arr) ' esto ordena el array alfabeticamente
For Each nombres In arr
MsgBox(nombres)
Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "ordenar"
End Sub
End Class

---

inicializar un vector con valores en su declaración y recorrer los datos

' vector de tipo String
Dim vector_string As String() = {"valor 1", "valor 2", "valor 3"}

' recorrer el vector y mostrar los valores
For i As Integer = 0 To vector_string.Length - 1
MsgBox(vector_string(i).ToString)
Next

' vector de tipo Date
Dim vFecha As Date() = {CDate("12/12/2001"), CDate("02/11/2007")}

' mostrar los valores
For i As Integer = 0 To vFecha.Length - 1
MsgBox(vFecha(i))
Next


' igual pero recorriendo los valores con un bucle For Each
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For Each elemento As String In vector_string
MsgBox(elemento)
Next

For Each fecha As Date In vFecha
MsgBox(fecha)
Next

---

Buscar un elemento en un vector para obtener el índice usando los métodos
IndexOf y LastIndexOf de la clase Array

' vector de tipo String
Dim vector As String() = {"Luciano", "Maria", "Jose"}


Dim ret As Integer = Array.IndexOf(vector, "Jose")
' devuelve 2
MsgBox(ret)

ret = Array.IndexOf(vector, "Carlos")
' devuelve -1
MsgBox(ret)

Dim n As Integer() = {1, 2, 3, 2, 3, 2, 2}

' devuelve el índice la última ocurrencia (LastIndexOf)

' devuelve 4
MsgBox(Array.LastIndexOf(n, 3))

Dim letras As String() = {"a", "b", "c", "d", "e", "a"}
' devuelve el índice 5
MsgBox(Array.LastIndexOf(letras, "a"))