Call TriNombre(Array(2,8.99,4, 99.51,10,8.97,25,99.3, 8.96,24,100,12))
Sub TriNombre(MesNombres)
Dim imax, i, j, k, bpermute ,cprovisoire, liste
Dim Tableau() 
imax = 0
For i=0 to UBound(MesNombres)
    imax = imax + 1
    ReDim Preserve Tableau(imax)
    Tableau(imax) = MesNombres(i)
Next
bpermute = True                        
Do While bpermute = True              
   bpermute = False                  
   For j = 1 To imax - 1              
       If Tableau(j) > Tableau(j + 1) Then
          cprovisoire = Tableau(j)       
          Tableau(j) = Tableau(j + 1)      
          Tableau(j + 1) = cprovisoire  
          bpermute = True
       End If
   Next
Loop
'Affichage des nombres triés
For k = 1 To imax
    liste = liste & Tableau(k) &vbCrLf
    If k = imax Then MsgBox liste,,"Résultat trié" 
Next
End Sub

<script type="text/javascript">
function trinbr(a,b)
{    return a-b;    }
var tri=new Array(2,8.99,4, 99.51,10,8.97,25,99.3, 8.96,24,100,12);
tri.sort(trinbr);
for ( var n=0;n<tri.length;n++)    // afficher le résultat
{    document.write(tri[n]+" ");    }
</script>

void sortliste1(int unsigned *liste){
    //tri à bulles
    int i, j, a;
    for (i=0;i<L-1;i++){
        for (j=i+1;j<L;j++){
            if (liste[i]>liste[j]){
                a=liste[j];
                liste[j]=liste[i];
                liste[i]=a;
            }
        }
    }
}
void sortliste2(int unsigned *l1){
    //tri fusion
    int i, j, k, l, m, n, o=1;
    int unsigned l2[L];
    int unsigned *l3;
    int unsigned *l4;
    l3=l1;
    l4=l2;
    printf("Debut du tri...\n");
    for (i=0;i<L;i++){
        l2[i]=0;
    }
    for (i=2;i<L;i*=2){
        //la taille des parties à trier
        for (j=0;j<L;j+=i){
            //on parcourt les premiers éléments de nouvelle chaque parties.
            l=0;
            m=0;
            n=(i+j>L)?L-i:i;
            for (k=0;k<n;k++){
                if (m==o){
                    l4[j+k]=l3[j+l+o];
                    l++;
                }else if ( l==o ){
                    l4[j+k]=l3[j+m];
                    m++;
                }else if (l3[j+m]<l3[j+l+o]){
                    l4[j+k]=l3[j+m];
                    m++;
                }else{
                    l4[j+k]=l3[j+l+o];
                    l++;
                }
            }
        }
        if (l3==l2){
            l3=l1;
            l4=l2;
        }else{
            l3=l2;
            l4=l1;
        }
        o=i;
    }
    l=0;
    m=0;
    for (k=0;k<L;k++){
        if (m==o){
            l4[k]=l3[l+o];
            l++;
        }else if ( l==o ){
            l4[k]=l3[m];
            m++;
        }else if (l3[m]<l3[l+o]){
            l4[k]=l3[m];
            m++;
        }else{
            l4[k]=l3[l+o];
            l++;
        }
    }
    if (l4==l2){
        for (k=0;k<L;k++){
            l1[k]=l4[k];
        }
    }
}
void sortliste4(int unsigned *l1){
    //Cet algo de tri est l'algo de tri par insersion.
    int i, j, k, l;
    for (i=1;i<L;i++){
        l=l1[i];
        for (j=0;j<i;j++){
            if (l1[i]<l1[j]){
                for (k=i-1;k>j;k--){
                    l1[k+1]=l1[k];
                }
                l1[j]=l;
                break;
            }
        }
    }
}

Public Function TriNombre(ByVal TabATrier As Single()) As String
        'Utilisation de la méthode Sort 
        Dim Result As String = String.Empty
        Call System.Array.Sort(TabATrier)
        'construction de lachaine de résultat
        For Each it As Single In TabATrier
            Result += it.ToString & vbNewLine
        Next
        Return Result
    End Function

public string TriNombre(Single[] TabATrier)
{
     //utlisation de la méthode Sort 
     string result = string.Empty;
     System.Array.Sort(TabATrier);
     //Construction de la chaine de retour
     foreach (Single it in TabATrier)
     {
  result += it.ToString() + "\n";
     }
     return result;
}

Sub QSort(t() As Long, Deb As Long, Fin As Long)
'TRI QUICKSORT RECURSSIF (TRI RAPIDE)

'Déclaration des variables
Dim i As Long         'indice
Dim j As Long         'indice
Dim X As Long         'valeur pivot
Dim Temp As Long      'Valeur temporaire


'Algo Tri
i = Deb   'sauve le début
j = Fin    'sauve la fin
X = t((i + j) \ 2)  'valeur pivot

Do
  Do While t(i) < X: i = i + 1: Loop 'recherche par la bas
  Do While t(j) > X: j = j - 1: Loop 'recherche par le haut

  If i <= j Then
    Temp = t(i)     'inversion t(i) et t(j)
    t(i) = t(j)
    t(j) = Temp
    i = i + 1       'Passe au suivant
    j = j - 1
  End If

Loop Until i > j

If j > Deb Then QSort t(), Deb, j   'trie par le bas
If i < Fin Then QSort t(), i, Fin   'trie par le haut

End Sub



Sub Test_Tri()
'PROGRAMME DE TEST 

'Nb D'ELEMENTS
Dim Nb As Long
Nb = 10000

'Déclarations
ReDim Tableau(Nb) As Long
Dim t As Long
Dim temps As Single

'LISTE ALEATOIRE
Randomize Timer
For t = 0 To Nb
Tableau(t) = Int(Rnd * Nb)
Next t

'LANCE TEST
temps = Timer
QSort Tableau(), 0, UBound(Tableau)
Debug.Print Timer - temps

End

'Vérification du tri
For t = 0 To Nb
    If t Mod 10 = 0 Then Debug.Print
    Debug.Print Tableau(t);
Next t

End Sub

let rec sort = function
    | []->[]
    | tete::[]->[tete]
    | tete::queue ->
        ( (sort (List.filter (function x -> x < tete) queue )) @ [tete]) @
          (sort (List.filter (function x -> x >= tete) queue ));;

(*permet d'inserrer un element dans une liste deja triee*)
let rec inserer = function
    | (x, []) -> [x]
    | (x, tete::[]) -> if x < tete then [x;tete] else [tete;x]
    | (x, tete::queue) -> if x < tete then [x;tete] @ queue else [tete] @ inserer(x, queue);;
(* On peut alors definir le tri par insertion*)
let rec insertSort = function
    | [] -> []
    | tete::[] -> [tete]
    | tete::queue -> inserer(tete, insertSort(queue));;