[VB6] Verificare che una serie di numeri sia differente

[Glabrezu]

Ho 6 valori numerici interi, devono essere tutti diversi l'uno dall'altro. Sto pensando ad un ciclo con una marea di "if" e "and", ma non mi pare il metodo migliore, anche perchè anzichè 6 i valori possono essere 1000...
Help please...

[Magicolotto]

cioè

mostra il codice

[hkproj]

non hai pensato a un for next?

[alka]

Suggerisco l'uso di titoli più significativi rispetto a sclero e curiosità... :master:

[chico62]

Supponendo di voler caricare in un array di 21 elementi numeri casuali tra 0 e 100 senza ripetizioni:

Dim a(20), X As Integer, Y As Integer, Z As Integer, Dupl As Boolean
Randomize
X = 0
Do While Not (X > 20)
    Y = Int((100 * Rnd) + 1)
    For Z = 0 To 20
        If a(Z) = Y Then
            Dupl = True
            Exit For
        End If
    Next
    Select Case Dupl
        Case False
            a(X) = Y
            X = X + 1
        Case Else
            Dupl = False
    End Select
Loop

Ciauz

CHico

[oregon]

Per risolvere devi "approcciare" correttamente il problema ...

Oggi hai 6 valori su cui lavorare ma, come hai detto, ne potresti avere 1000 ...

Per potere lavorare facilmente con dei cicli, per queste problematiche, sono stati inventati gli "array" ...

La migliore soluzione ai tuoi problemi, quindi, è studiare il loro uso ...

[Glabrezu]

il codice dell'array l'ho capito, ora vorrei ottenere la stessa cosa in n textbox, in cui saranno visualizzati n valori diversi...
cmq per il titolo avete ragione, ma ero di fretta
grazie a tutti

[MItaly]

Puoi usare un array di controlli.