formula outcomes

Giganews Newsgroups
Subject: formula outcomes
Posted by:  biker man (white…
Date: Wed, 29 Aug 2007

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