Sortear (desordenar) un array en Visual Basic

[elfenchesco]

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:

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
 

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