1. 程式人生 > >15位隨機數由大到小依次排序程式

15位隨機數由大到小依次排序程式

     If a < b Then 
         swap = a 
         a = b 
         b = swap 
     End If 
 
     If b < c Then 
          swap = b 
          b = c 
          b = swap 
     End If 
 
      If c < d Then 
          swap = c 
          c = d 
          d = swap 
     End If 
 
      If d < e Then 
          swap = d 
          d = e 
          e = swap 
     End If 
 
      If e < f Then 
          swap = e 
          e = f 
          f = swap 
     End If 
 
      If f < g Then 
          swap = f 
          f = g 
          g = swap 
     End If 
 
      If g < h Then 
          swap = g 
          g = h 
          h = swap 
     End If 
 
      If h < i Then 
          swap = h 
          h = i 
          i = swap 
     End If 
 
      If i < j Then 
          swap = i 
          i = j 
          j = swap 
     End If 
 
      If j < k Then 
          swap = j 
          j = k 
          k = swap 
     End If 
 
      If k < l Then 
          swap = k 
          k = l 
          l = swap 
     End If 
 
      If l < m Then 
          swap = l 
           l = m 
           m = swap 
     End If 
 
      If m < n Then 
          swap = m 
          m = n 
          n = swap 
     End If 
 
       If a < b Then 
         swap = a 
         a = b 
         b = swap 
     End If 
 
     If b < c Then 
          swap = b 
          b = c 
          b = swap 
     End If 
 
      If c < d Then 
          swap = c 
          c = d 
          d = swap 
     End If 
 
      If d < e Then 
          swap = d 
          d = e 
          e = swap 
     End If 
 
      If e < f Then 
          swap = e 
          e = f 
          f = swap 
     End If 
 
      If f < g Then 
          swap = f 
          f = g 
          g = swap 
     End If 
 
      If g < h Then 
          swap = g 
          g = h 
          h = swap 
     End If 
 
      If h < i Then 
          swap = h 
          h = i 
          i = swap 
     End If 
 
      If i < j Then 
          swap = i 
          i = j 
          j = swap 
     End If 
 
      If j < k Then 
          swap = j 
          j = k 
          k = swap 
     End If 
 
      If k < l Then 
          swap = k 
          k = l 
          l = swap 
     End If 
 
      If l < m Then 
          swap = l 
           l = m 
           m = swap 
     End If 
 
       If a < b Then 
         swap = a 
         a = b 
         b = swap 
     End If 
 
     If b < c Then 
          swap = b 
          b = c 
          b = swap 
     End If 
 
      If c < d Then 
          swap = c 
          c = d 
          d = swap 
     End If 
 
      If d < e Then 
          swap = d 
          d = e 
          e = swap 
     End If 
 
      If e < f Then 
          swap = e 
          e = f 
          f = swap 
     End If 
 
      If f < g Then 
          swap = f 
          f = g 
          g = swap 
     End If 
 
      If g < h Then 
          swap = g 
          g = h 
          h = swap 
     End If 
 
      If h < i Then 
          swap = h 
          h = i 
          i = swap 
     End If 
 
      If i < j Then 
          swap = i 
          i = j 
          j = swap 
     End If 
 
      If j < k Then 
          swap = j 
          j = k 
          k = swap 
     End If 
 
      If k < l Then 
          swap = k 
          k = l 
          l = swap 
     End If