VB排序算法-优快云博客

本文链接：https://blog.youkuaiyun.com/x123456yz/article/details/50973423

该VB程序通过定义多个整数变量并使用随机数初始化它们，然后通过一系列条件语句进行两两比较来实现简单的排序功能。虽然代码中存在大量重复且未完成的排序逻辑，但其核心在于展示如何使用基本的交换法进行数值大小的比较与排序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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