Porfiii ordenar los elementos de un vector array
Publicado por Daniz (2 intervenciones) el 31/07/2009 21:01:00
hola, kiero ordenar los elementos de un vector array pero no se si he programado bien el algoritmo ya q no llevo bien esta asignatura -.- aki les dejo mi codigo espero q me ayuden lo mas pronto posible amiguisss gracias ^^
esto e sta debajo de
Option Explicit
'nombres de los algoritmos :
'V : vector a ordenar y N : numeros de elementos del vector
' observar cómo se pasan los arrays como argumentos
Public Sub Ordenar(V() As Integer, N As Integer)
' Se ordenan los números enteros de menor a mayor
Dim Temporal As Integer
Dim i, j As Integer
For i = 0 To N - 1
For j = i + 1 To N
If V(i) > V(j) Then
Temporal = V(i)
V(i) = V(j)
Numbers(j) = Temporal
End If
Next j
Next i
' se devuelve el argumento modificado
End Sub
y ahora me falta cuando de clic al boton ORDENAR se me ordene la lista de datos que tengo al lado.
esto e sta debajo de
Option Explicit
'nombres de los algoritmos :
'V : vector a ordenar y N : numeros de elementos del vector
' observar cómo se pasan los arrays como argumentos
Public Sub Ordenar(V() As Integer, N As Integer)
' Se ordenan los números enteros de menor a mayor
Dim Temporal As Integer
Dim i, j As Integer
For i = 0 To N - 1
For j = i + 1 To N
If V(i) > V(j) Then
Temporal = V(i)
V(i) = V(j)
Numbers(j) = Temporal
End If
Next j
Next i
' se devuelve el argumento modificado
End Sub
y ahora me falta cuando de clic al boton ORDENAR se me ordene la lista de datos que tengo al lado.
Valora esta pregunta


0