Empar
10 de Diciembre del 2002

Hola que tal,

mi pregunta es la siguiente: quiero crear un vector que inicialmente esté vacío e ir añadiendo elementos, pero cada vez que añada un nuevo elemento quiero comprobar que este no forme parte de los que ya hay. He estado probando diferentes formas de hacerlo pero siempre me da un error, he hecho algo así:

otra_vez:
i = Int((19 - 0 + 1) * Rnd + 0)

For X = 0 To j
If v(X) = i Then GoTo otra_vez
Next X
j=j+1
v(j)=i

jorge
10 de Diciembre del 2002

En primer lugar para poder aumentar el dimensionado del vector deveras de utilizar la expresion Redim y si quieres mantenerlo utilizar Redim Preserve.

En segundo lugar no veo donde defines el valor de j. Entiendo, que j es Ubound(v).

En tercer lugar, y si es posible seria una solución recomendable el ordenar los valores obtenidos, para que la busqueda dentro del array se pueda realizar de manera más efeciente. Es decir al introducir los valores introducir el valor ya ordenado.

javierbalk
10 de Diciembre del 2002

Hola Empar:

Te respondí con un ejemplo completo en http://foros.solocodigo.com/viewthread.php?tid=1787

Saludos,
Javier

Empar
10 de Diciembre del 2002

Muchas gracias, un saludo.

Empar.