'*************************************************************************************** ' Trier un tableau d'entiers en vbs - version pédagogique - Auteur: Christophe Turbil //christophe92antony@free.fr ' '*************************************************************************************** Dim tableauA(4) tableauA(0)=1 tableauA(1)=2 tableauA(2)=3 tableauA(3)=4 tableauA(4)=5 WScript.Echo "UBound du tableau : ",UBound(tableauA) For s = LBound(tableauA) To UBound(tableauA) WScript.Echo "tableauA("&s&")",tableauA(s) Next WScript.Echo"" For num = 0 To UBound(tableauA) Wscript.Echo "Test pour savoir la valeur à mettre dans tableau("&num&")" For num2 = num+1 To UBound(tableauA) If tableauA(num)<tableauA(num2) Then WScript.Echo "tableauA("&num&")<tableauA("&num2&")" temp = tableauA(num) tableauA(num)=tableauA(num2) tableauA(num2)=temp WScript.Echo"+++" For s = LBound(tableauA) To UBound(tableauA) WScript.Echo "tableauA("&s&")",tableauA(s) Next WScript.Echo"+++" End If Next WScript.Echo "" For s = LBound(tableauA) To UBound(tableauA) WScript.Echo "tableauA("&s&")",tableauA(s) Next Next WScript.Echo "FINAL :" For s = LBound(tableauA) To UBound(tableauA) WScript.Echo "tableauA("&s&")",tableauA(s) Next '//////////////////////////////////////////////////////////////////////////// ' ' Copyright (c) 2002 Christophe Turbil. All Rights Reserved. ' '////////////////////////////////////////////////////////////////////////////