manuel 66
18-05-2010, 16:29
devo ordinare gli elementi di una lista (numeri) in ordine crescente, ma riesco solo ad ordinarli in ordine decrescente, cosa devo cambiare ?
potrei pure usare la funzione sorted, ma siccome devo ordinare piu liste devo usare l'ordinamento manuale
ListBox4.Items.Clear()
For i = 0 To c
For j = i + 1 To c
If tot(i) > tot(j) Then
ttot = tot(j)
tot(j) = tot(i)
tot(i) = ttot
End If
Next
Next
For d = 1 To c
ListBox4.Items.Add(tot(d))
Next
potrei pure usare la funzione sorted, ma siccome devo ordinare piu liste devo usare l'ordinamento manuale
ListBox4.Items.Clear()
For i = 0 To c
For j = i + 1 To c
If tot(i) > tot(j) Then
ttot = tot(j)
tot(j) = tot(i)
tot(i) = ttot
End If
Next
Next
For d = 1 To c
ListBox4.Items.Add(tot(d))
Next