Numero Aleatorio

[meru-kun]

Bien, pretendo sacar un numero aleatorio, que esté dentro de un rango. Eso lo he hecho, usando para ello esta función:

Código:

Function RanNum(inicio, fin)
 Randomize()
  RanNum = Int((fin - inicio + 1) * Rnd + inicio)
End Function

Sin embargo, yo quiero hallar 5 numeros (digamos, n numeros), y para ello, había creado un bucle así:

Código:

Do while i < n
 RanNum(1, x)
  i = i + 1
Loop

El problema es que así, me saca tambien, a veces, el valor que ya había hallado antes.
¿Como puedo hacerlo para que no me devuelva valores que ya he obtenido?

Muchas Gracias :)

[Ysdragil]

Puedes tener un arreglo con 5 elementos en donde vas agregando tus valores random y lo que haces es que cada vez que quieras agregar un valor, recorre el arreglo y compara, si el valor ya esta vuelve a llamar tu funcion

[meru-kun]

Había pensado hacer eso, pero ... no se hacerlo. No se por que, no se hacer un "array" dinamico, es decir, qeu vaya teniendo cada vez más valores o lo que sea.

Echame una mano, por favor!

[Ysdragil]

Ok,

Este es el código:

<%

'Defino el array llamado arreglo
Dim arreglo()

'Defino el tamaño del array, le pongo cuatro para que acepte 5 valores, recuerda que comienza por 0
Redim arreglo(4)

'Asigno Valores
arreglo(0)="Valor cero"
arreglo(1)="Valor uno"
arreglo(2)="Valor dos"
arreglo(3)="Valor tres"
arreglo(4)="Valor cuatro"

'Recorro el array desde 0 hasta 4 y lo imprimo en pantalla
For i=0 To 4
Response.Write arreglo(i)&"<br>"
Next
%>

En caso de que quieras hacerlo dinamico tienes que utilizar el metodo Redim, que sirve para redimensionar un array.
En caso de que quieras preservar los datos antes guardados en el array, debes utilizar la palabra Preserve despues de Redim

Redim Preserve arreglo(9)

De esta forma el arreglo se aumenta hasta 10 elementos pero te preserva o mantiene los valores guardados en el array

Si tienes mas dudas puedes mandarme un mensaje y ya nos pondremos en contacto con messanger, creo que es mas rápido

Saludos