MUGPERU
  Search 
Monday, January 05, 2009 ..:: Foros de Discusión ::.. Register  Login
Foros MUGPERU Minimize
Subject: invertir arreglo
Prev Next
You are not authorized to post a reply.

Author Messages
fanely
Posts:5

29/05/2007 04:40 PM  
tengo el siguiente codigo, y quiero invertir datos de un vector, y que muestre en una lista:

For i = 1 To 5 Step 1

For j = 5 To 1 Step -1

aux = datos(i)

datos(i) = datos(j)

datos(j) = aux

Next

Me.ListBox2.Items.Add(datos(i))

Next

y ingreso : 53256
y me muestra: 33535

fanely
Posts:5

06/07/2007 01:10 PM  
QUIERO ENVIARLES TAMBIEN UNA PREGUNTA DE ARREGLOS DINAMICOS:

lo que quiero es algo asi, esto va en el modulo1
public A()={100,12,30,59}

y luego un formulario que ingrese datos, y se agregue al arreglo A
dim dato as integer
esto va dentro de la funcion del boton:
i=A.length
dato=textbox1.text
A(i)=dato
i=i+1
y que se añada los datos en la corrida.

gracias por sus respuestas
You are not authorized to post a reply.



ActiveForums 3.7
        
Copyright 2001-2008 MUGPERU   Terms Of Use  Privacy Statement