SortScambio

Dim V(1000)
For i=1 to 999
For j=i+1 to 1000
if V(j)>V(i) then
Appo=V(i)
V(i)=V(j)
V(j)=Appo
end if
Next j
Next i