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
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