Sección de ejemplos vb.net

07 - Ejemplos sobre vectores y Arrays en vb.net

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

( ejemplo enviado por Sebastián Perdomo )

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) = "Perdomo" 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"))

Enlaces relacionados con arrays en vb 6.0

Buscar en Recursos vb