Numeros Aleatorios

normat
13 de Abril del 2004
Con VBA genero numeros aleatorios en el rango que necesito( hasta alli todo bien), pero tengo 2 cosas por solucionar: 1) al generar un numero x(i) debo verificar que x(i) es distinto a los x(1).....x(i-1), caso contrario debo generar un nuevo x(i). 2) la otra cuestion es que debo archivar esos numeros en una tabla de Access.
Nota el codigo que comence aescribir lo activo desde un formulario Access.
Por favor si me pueden mandar el codigo que me falta estare eternamente agradecida. Norma

tencho
13 de Abril del 2004
Es con visual Basic ??? es que como dice VBA

Dim Numero(1 To 50) As Integer
Private Sub Form_Click()
ScaleMode = vbCharacters
For i = 1 To 50
CurrentX = 0
CurrentY = i
Print Numero(i)
Next i
End Sub

Private Sub Form_Load()
Dim Esta As Boolean
Dim NumeroAzar As Integer
Top = 0
Left = 0
Height = 11000
Randomize
i = 1
While i <= 50
NumeroAzar = Int(Rnd * 60)
Esta = False
For j = 1 To i - 1
If NumeroAzar = Numero(j) Then
Esta = True
End If
Next j
If Not Esta Then
Numero(i) = NumeroAzar
i = i + 1
End If
Wend
End Sub

Si es que he entendido bien eso es