Visual Basic 6 - funzione random, come generare numeri casuali ma non uguali

c'è un modo di generare 5 numeri casuali (da 0 a 20) ma non uguali?

mi stò scervellando!

Scritto al volo...

Private Sub cmdGenera_Click()

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
    
   Randomize Timer

 a = Int(Rnd * 21)
  b = Int(Rnd * 21)
   c = Int(Rnd * 21)
  d = Int(Rnd * 21)
 e = Int(Rnd * 21)

  Text1 = a & " - " & b & " - " & c & " - " & d & " - " & e


End Sub

Questo è il succo,poi sta a te modificarlo come meglio credi.

Ciao

guarda ke anke così genera numeri uguali

Vale a dire?

Se non vuoi che 2 numeri 10 appaiano nella stessa uscita,con degli IF THEN risolvi.
Li hai tutto per poterci lavorare.

troppo banale, pensavo di utilizzare una array o un cliclo (con funzione!)oubt:


pensa se volessi fare un gioco di carte...

If a = b Or c Or d Or e Then
a = Int(Rnd * 21)
End If

Si ,certo ma te hai detto di voler lavorare su 5 numeri solamente.

E' normale se indicizzi e lavori con array il codice è di
livello superiore.

Ma partendo da quella base ci vuole poco ad indicizzare.

Ciao

ok mettiamo caso ke volgio lavorare con circa 52 numeri

xkè voglio creare un gioco di carte...

come la mettiamo???

Function Random(nByteString)
Randomize Timer
 For i = 1 To nByteString
        tmp = tmp & (Int(Rnd * 100)) & " "'<- imposta valore                        
      Next                                'gioco es:Lotto 90
 Random = (tmp)
 
End Function

Nella sub mettici

es:

label1 = random(52) 

per il tuo gioco di carte,

Ora te l 'ho indicizzato(anche se avevi chiesto 5 numeri),
pero' devi mettergli sempre il controllo
sulle uscite doppie,ma penso non sia un grosso problema questo.

Ciao