numero già in elenco?

[Saturno83]

Problema:

ho un numero casuale, devo controllare che non ci sia già in un vettore: se non c'è bene altrimenti me ne deve dare un'altro (che non è già presente)

Avete qualche consiglio?

Grazie

[Mabi]

Io l'ho fatto con 2 funzioni: una per estrarre e una per controllare.

Private Function NumeroNonPresente(Vettore() As Integer) As Integer
Dim Numero As Integer
Dim Cont As Integer
Dim Uguale As Boolean

Do
Uguale = False
Numero = NumeroEstratto(0, 9)
For Cont = 0 To UBound(Vettore)
  If Numero = Vettore(Cont) Then
    Uguale = True
    Exit For
  End If
Next Cont
Loop Until Uguale = False

NumeroNonPresente = Numero
End Function

Private Function NumeroEstratto(Min As Integer, Max As Integer) As Integer
Randomize Timer
NumeroEstratto = Int((Max - Min + 1) * Rnd + Min)
End Function

In questo modo ti basta richiamare la funzione per avere un numero non presente nel vettore:

Private Sub Command1_Click()
Dim Vettore(5) As Integer

Vettore(0) = 0
Vettore(1) = 1
Vettore(2) = 2
Vettore(3) = 3
Vettore(4) = 4
Vettore(5) = 5

MsgBox NumeroNonPresente(Vettore)
End Sub

Ciao.

[Saturno83]

Io preparato questo ma non funziona! Perchè?

Do Until uguale = True
Randomize
x = Int((57 - 48 + 1) * Rnd + 48)
k = 0
uguale = False
    Do Until uguale = True Or k = 5
    k = k + 1
    If r(k) = x Then
    uguale = True
    Else
    uguale = False
    End If
    Loop
Loop

dove 5 è la dimensione del vettore...

[Saturno83]

risolto...
grazie