Test it!

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"harry buggy" wrote in message
oups.com...
can anyone tell me if theres any errors in this and what the outcome
would be?

sub test ()

dim I, J As Integer
dim x as single
for i = 1 to length
for j = 1 to (length - i)
If A(j) < A )j +1) Then
x = a(j +1) = A(j)
A(j) = x
end if
next j
next i
end sub