15位随机数由大到小依次排序程序

2016-03-25 18:37:14

 

Private Sub Command1_Click() 

 Cls 

     Me.Font.Size = 50 

     Dim a As Integer 

     Dim b As Integer 

     Dim c As Integer 

     Dim d As Integer 

     Dim e As Integer 

     Dim f As Integer 

     Dim g As Integer 

     Dim h As Integer 

     Dim i As Integer 

     Dim j As Integer 

     Dim k As Integer 

     Dim l As Integer 

     Dim m As Integer 

     Dim n As Integer 

     Dim o As Integer 

 

     Dim swap As Integer 

 

     a = Int(Rnd * 1000) 

     b = Int(Rnd * 1000) 

     c = Int(Rnd * 1000) 

     d = Int(Rnd * 1000) 

     e = Int(Rnd * 1000) 

     f = Int(Rnd * 1000) 

     g = Int(Rnd * 1000) 

     h = Int(Rnd * 1000) 

     i = Int(Rnd * 1000) 

     j = Int(Rnd * 1000) 

     k = Int(Rnd * 1000) 

     l = Int(Rnd * 1000) 

     m = Int(Rnd * 1000) 

     n = Int(Rnd * 1000) 

     o = Int(Rnd * 1000) 

 

     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 n < o Then 

          swap = n 

          n = o 

          o = 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 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 
 

        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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 a < b Then 

         swap = a 

         a = b 

         b = swap 

     End If 

 

     If b < c Then 

          swap = b 

          b = c 

          b = swap 

     End If 

     If a < b Then 

         swap = a 

         a = b 

         b = swap 

     End If    Print a & "," & b 

End Sub  

 

        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 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

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值