Ayudenme con matriz por favor URGENTE

DOUGLAS
28 de Enero del 2006
Hola, por favor ayudenme con una matriz que necesito crear, el asunto es que quiero agregar unos registros (numericos) en una matriz de siente posiciones y deseo que no se puedan guardar registros duplicados, por favor quien pueda enviarme esa información se los agradeceria, es urgente.

mvallejos
28 de Enero del 2006
Antes de agregar un nuevo número, en un bucle extra deberás verificar si ya no existe en tu lista
Supongamos que tienes un vector llamado Lista y le estás agregando valores

Function ExisteNumero(Nro as Long) as Boolean
Dim i as Integer
For i = 1 to Ubound(Lista)
If Lista(i) = Nro Then
ExisteNumero = True
Exit Function
End if
Next i
End Function

En el bucle de carga, llamas a la funcion, en este ejemplo usaré valores aleatorios


Dim Nro as Long
Dim i as Integer
dim j as Integer

Redim Lista(1 to 7)
j=0
While j < 7
Nro = 100 * Rnd
If Not ExisteNumero(Nro) Then
j = j + 1
Lista(j) = Nro
End If
Loop

Saludos