上网机会太少，高手帮帮我吧！不能的话我就惨了。

Question

书上有
dim a as long,b as long ,c as long,num as long
dim i as long
dim lng(100) as longnum=100
for i= 1 to num
   for b=i to num-1
      if lng(b)<lng(b+1) then
          c=lng(b+1)
          lng(b+1)=lng(b)
          lng(b)=c
      end if
   next i
next i

Answer 1

不好意思这个才是正宗的
dim a as long,b as long ,c as long,num as long
dim i as long
dim lng(100) as longnum=100
for i= 1 to num
   for b=num-1 to i step -1
      if lng(b-1)>lng(b) then    '小的往前排
          c=lng(b)
          lng(b-1)=lng(b)
          lng(b)=c
      end if
   next i
next i
for i= 1 to num
   for b=num-1 to i step -1
      if lng(b-1)<lng(b) then    '大的往前排
          c=lng(b)
          lng(b-1)=lng(b)
          lng(b)=c
      end if
   next i
next i