'***************************************************************************************
'		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.
'
'////////////////////////////////////////////////////////////////////////////