Per presentare il nuovo metodo Shuffle propongo questo codice:
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 :)