用LS,定义一个10位数的数组,并用冒泡法排序,从大到小排列出来

 Sub   Initialize   
  Dim   A(9)   As   Integer   
  Dim   tmp   As   Integer   
  A(0)=22   
  A(1)=1111   
  A(2)=2   
  A(3)=121   
  A(4)=312   
  A(5)=512   
  A(6)=142   
  A(7)=1   
  A(8)=21   
  A(9)=2999   
   
  For   i=0   To   8   
  For   j=i+1   To   9   
  If   A(i)<A(j)   Then   
  tmp=A(j)   
  A(j)=A(i)   
  A(i)=tmp   
  End   If   
  Next   
  Next   
  For   i=0   To   9   
  Msgbox   A(i)   
  Next   
   
  End   Sub