Sección de códigos , trucos y ejemplos para visual basic

345 - Función que desordena un vector o array

Ejemplo simple que muestra como desordenar en forma aleatoria con las funciones Rnd y Randomize de visual basic, los elementos que contiene un vector

En el siguiente código, se debe pasar a la función Desordenar_Array , el vector como parámetro y también el valor inicial y final del mismo mediante lBound y Ubound , por ejemplo

Call Desordenar_array(UnArray, LBound(UnArray), UBound(UnArray))

Controles para el ejemplo

Colocar un control Listbox en el formulario y un CommandButton

Código fuente en el form

Option Explicit ' Función que recibe el vector o array lo desordena en forma aleatoria '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub Desordenar_array(ByRef vArray As Variant, _ startIndex As Variant, _ endIndex As Variant) Dim i As Long Dim rndIndex As Long Dim Temp As Variant Randomize startIndex = LBound(vArray) endIndex = UBound(vArray) For i = startIndex To endIndex rndIndex = Int((endIndex - startIndex + 1) * Rnd() + startIndex) Temp = vArray(i) vArray(i) = vArray(rndIndex) vArray(rndIndex) = Temp Next i End Sub ' botón para desordenar la matriz ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Dim UnArray() As Variant ' Vector para los valores Dim i As Integer ' Redimensiona el array a 10 elementos ReDim UnArray(10) ' Agrega los valores en el vector For i = 0 To 10 UnArray(i) = i Next ' Desordena los 10 elementos Call Desordenar_array(UnArray, LBound(UnArray), UBound(UnArray)) List1.Clear ' Muestra los valores en el listbox For i = LBound(UnArray) To UBound(UnArray) List1.AddItem UnArray(i) Next End Sub Private Sub Form_Load() Command1.Caption = " Desordenar " End Sub

Recursos vb 6.0 - Relacionados

Recursos vb.NET - Relacionados

Ejemplos con arrays, vectores y colecciones en vb.net

Buscar en Recursos vb