Hola
14 de Agosto del 2003

HOLA AMIGOS DESEO QUE ALGUIEN ME AYUDE A PROGRAMAR UN ARREGLO DE ELIMINACION DE UN DATO ALMACENADO EN EL DICHO ARREGLO, EN LA FORMA MAS FACIL POSIBLE.

Rossjuan
14 de Agosto del 2003

Hola, explicate mejor. no entiendo tu problema.

RRR
14 de Agosto del 2003

que es un arreglo, explicate y asi te podremos ayudar mejor

Juan
14 de Agosto del 2003

Te pongo un ejemplo, no se si es lo que querias pero
tampoco lo has explicado con mucho detalle.

En el ejemplo hay una Sub que elimina un elemento
de un arreglo recibiendo como parámetro dicho
arreglo y el índice del elemento a eliminar. El resto del
código es para que veas esa Sub en funcionamiento.

Dim arreglo() As Integer

Private Sub Form_Click()
Dim i As Integer
eliminaElemento arreglo, 5
For i = 0 To UBound(arreglo)
Me.Print Str(arreglo(i))
Next i
End Sub

Private Sub Form_Load()
Dim i As Integer
ReDim arreglo(9)
For i = 0 To 9
arreglo(i) = i
Next i
End Sub

Private Sub eliminaElemento(unArreglo() As Integer, ByVal indice As Integer)
Dim i As Integer
For i = indice To UBound(unArreglo) - 1
unArreglo(i) = unArreglo(i + 1)
Next i
ReDim Preserve unArreglo(UBound(unArreglo) - 1)
End Sub