help with sorting array

[sara123]

hello ive only just started learning visual basics but i am finding arrays a bit hard my proble is that i have ten randomized numbers and i need to sort them into numeric order i thank you for any help at all .

 

[JohnYingling]

Ten items? Bubble sort.
# compares = (N*N+N) / 2: 10=55: 100=5050: 1000 = 500,500
Not good for arrays with many items.

Dim I as long
Dim J as long
Dim K as long
Dim L as long
Dim M as long
Dim array(10) as long
K = Ubound(array)
' Minimizes swaps
For I = Lbound(array) to  K - 1
    M = array(I)
    For J = I + 1 To K   'Find the least of I and the rest
        If M > array(J) then
            array(I) = array(J)
            array(J) = M
            M = array(I)
        end if
    Next
Next

http://WWW.VBCompare.Com

 

[sara123]

thank you for your help but im sorry im still confused with it

 

[sunaj]

Hi,

Take a look at

http://www.vbcode.com/asp/showsn.asp?theID=568

where 3 different sorting routines are coded in functions.

Sunaj

 

[sara123]

Thank you that helped me alot to understand arrays better thank you