aleatorios no repetidos

[erbuson]

Vamos a ver si consigo alegrarte las fiestas con este arreglo. Ojo que puedo haberme equivocado con las prisas.

Private Sub Command1_Click()
Dim Matriz() As Single, Indice As Integer
Matriz = ArrayAleatorio(10, 100, 200)
For Indice = 1 To 10
Print Matriz(Indice)
Next
End Sub

Código vb:

Function ArrayAleatorio(Numero As Long, Desde As Long, Hasta As Long) As Single()
  ' Devuelve un Array desde 1 hasta Número de valores azar
  ReDim tmpArray(Numero) As Single
  Dim Indice As Long, Cuantos As Long, NumeroRnd As Single
  Randomize Timer
  Do While Cuantos < Numero
    NumeroRnd = Int((Hasta - Desde + 1) * Rnd + Desde)
    For Indice = 1 To Cuantos
      If tmpArray(Indice) = NumeroRnd Then GoTo LoTengo
    Next
    Cuantos = Cuantos + 1
    tmpArray(Cuantos) = NumeroRnd
LoTengo:
  Loop
  ArrayAleatorio = tmpArray
End Function
 

Pruebalo y comenta.