Metodo Shuffle dei vettori.

[Gianluigi]

Per presentare il nuovo metodo Shuffle propongo questo codice:

Codice: [Seleziona]

Public Sub Main()

  Dim aBingo As New Byte[]
  Dim iPull As Byte

  For i As Byte = 0 To 89
    aBingo.Push(i + 1)
  Next
  aBingo.Shuffle()
  iPull = aBingo.Pop()
  Print "Estratto "; iPull; "\n"
  '------------------------------'
  Print "Controlliamo:"
  aBingo.Sort()
  For Each i In aBingo
    Print i
  Next

End

Codice aggiornato al posto di iPull = aBingo[aBingo.Max] e aBingo.Resize(aBingo.Max - 1) il solo iPull = aBingo.Pop() che in una sola mossa le richiude entrambe.
Suggerito direttamente da Benoit Minisini