SUITE DE NOMBRES ALESATOIRES DIFFERENTS

Public Function nombresDifferents(ByVal Combien As Int32, ByVal mini As Int32, ByVal maxi As Int32) As ArrayList

Dim mAR As New ArrayList()

Dim i As Int32
Dim r As New Random()

Dim ar As New ArrayList()
Dim nb As Int32
Dim compte As Int32


For i = mini To maxi
ar.Add(i)
Next

If ar.Count - 1 <= Combien Then
Combien = ar.Count
End If

For i = 1 To Combien
nb = 0

compte = ar.Count
nb = r.Next(compte)

mAR.Add(ar(nb))
ar.RemoveAt(nb)
Next

Return mAR

End Function