Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/10/2010, 19:15
elfenchesco
 
Fecha de Ingreso: octubre-2008
Mensajes: 137
Antigüedad: 16 años, 5 meses
Puntos: 4
Sortear (desordenar) un array en Visual Basic

Hola, aquí sólo les traigo un útil aporte para sortear un array en vb.net (2008-2010). Es una función, ustedes lo pueden adapta a lo que quieran:

Código vb:
Ver original
  1. Public Sub Desordenar_array(ByRef vArray As Variant, _startIndex As Variant, _endIndex As Variant)  
  2.        
  3.     Dim i As Long  
  4.     Dim rndIndex As Long  
  5.     Dim Temp As Variant  
  6.        
  7.     Randomize  
  8.        
  9.     startIndex = LBound(vArray)  
  10.     endIndex = UBound(vArray)  
  11.        
  12.     For i = startIndex To endIndex  
  13.         rndIndex = Int((endIndex - startIndex + 1) * Rnd() + startIndex)  
  14.  
  15.         Temp = vArray(i)  
  16.         vArray(i) = vArray(rndIndex)  
  17.         vArray(rndIndex) = Temp  
  18.     Next i  
  19. End Sub

Claro, pueden hacerla más sencilla, pero lo que o quise fue hacerla muy general. Salu2