Riordidare Array (VB6)

[carosene]

Ho il seguente problema e spero che qualcuno di voi mi aiuti:
ho un array di variabili integer che dovrei riordinare in base al valore da loro contenuto, dal più piccolo al più grande. Come posso fare senza conoscere nemmeno le dimensioni dell'array.

[Fenomeno85]

è un pò difficile ordinare un array senza la dimensione. E poi cmq la dimensione dell'array la devi sapere per forza dato che te sei quello che stai scrivendo il programma e poi l'array non può variare di dimensione nell'esecuzione del programma.
Al massimo può esistere il problema ho un array lungo N ma io ne utilizzo solo n<N e voglio ordinare solo questa parte.

~§~ Sempre E Solo Lei ~§~

[carosene]

Mi sono spiegato male facendo confusione tra lunghezza e dimensioni. Ovviamente io non conosco la lunghezza. Faccio un esempio:

Array(0)=5
Array(1)=3
Array(2)=4

Come faccio ad ottenere questo Array_ordinato?

Array_ordinato(0)=3
Array_ordinato(1)=4
Array_ordinato(2)=5

[Fenomeno85]

ma per ordinare un array ci sono vari modi x selezione o per quicksort.
Aspè che adesso ti converto il codice da c a vb. E poi ti posto le soluzioni.

~§~ Sempre E Solo Lei ~§~

[Fenomeno85]

Metodo per selezione: (non è il migliore)


Option Explicit

Private Sub Form_Load()
Dim iValue(10) As Integer
Dim i As Integer, N As Integer, K As Integer, j As Integer, supp As Integer

N = 3
iValue(0) = 5
iValue(1) = 3
iValue(2) = 4
For i = 0 To N - 2
K = i
For j = i + 1 To N - 1
If iValue(K) > iValue(j) Then
K = j
End If
Next j
If K <> i Then
supp = iValue(i)
iValue(i) = iValue(K)
iValue(K) = supp
End If
Next i
Text1.Text = Str(iValue(0))
Text2.Text = Str(iValue(1))
Text3.Text = Str(iValue(2))
End Sub


~§~ Sempre E Solo Lei ~§~

[Fenomeno85]

metodo per quicksort (il migliore tra i due)

te lo metto in c non mi ricordo + come si faceva a far passare gli array


void Quicksort (int iA[], int iInf, int iSup){
int iPer, i,j;
if (iInf < iSup){
iPer = iA[iInf];
i = iInf + 1;
j = iSup - 1;
while (iA[i]<iPer) i++;
while (iA[j]<iPer) j++;
while (i<j){
swap (iA[i], iA[j]);
do{
i++;
} while (iA[i]<iPer);
do{
j--;
} while (iA[i]<iPer);
}
iA[iInf] ) iA[j];
iA[j] = iPer;
Quicksort (iA,iInf,j-1);
Quicksort (iA,j+1,iSup);
}
}


~§~ Sempre E Solo Lei ~§~

[carosene]

Mille grazie

[Fenomeno85]

di niente

~§~ Sempre E Solo Lei ~§~