numero già in elenco?

[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.