numeri random non ripetuti

[garzone]

Come faccio a non far ripetere i stessi numeri?
vorrei che estraesse in random i numeri da 1 a 112 senza lo 0 ovviamente ma solo una volta senza ripetizioni.

  Module Module1

    Public Mazzo(0 To 112) As Integer

    Public Sub CreaMazzo()
        Randomize()
        Dim i As Integer
        For i = 0 To UBound(Mazzo)
            Mazzo(i) = Int(Rnd() * 112)
            Form1.Label1.Text = Form1.Label1.Text & (Mazzo(i) & " ")

        Next




    End Sub

End Module

grazie

[Pinelli82]

Visual Basic 2008 - Numeri casuali non ripetuti

Salve, perché non funziona questo algoritmo? Dov'è l'errore? Dovrei ottenere numeri dall'1 al 6 ripetuti una sola volta, ma ottengo sempre dei numeri doppi, tripli, ecc. Aiutatemi a risolvere il problema per favore!

Dim i, i_fine, j AsInteger'Contatori
Dim numeri(6) AsInteger'Vettore dei numeri

'Azzero il vettore

For i = 1 To 6

numeri(i) = 0

Next i


'Inizializzo il generatore di numeri casuali

Randomize()


'Genero il primo numero del vettore

numeri(1) = Int(Rnd() * 6) + 1


'Carico il resto del vettore con numeri casuali non ripetuti

For j = 2 To 6

i_fine = j - 1

For i = 1 To i_fine

Do

Randomize()

numeri(j) = Int(Rnd() * 6) + 1

LoopUntil (numeri(j) <> numeri(i))

Next i

Next j


'Mostro i risultati ottenuti nelle rispettive label

Label1.Text = numeri(1)

Label2.Text = numeri(2)

Label3.Text = numeri(3)
Label4.Text = numeri(4)
Label5.Text = numeri(5)
Label6.Text = numeri(6)