[已解决]用VBA把冒泡排序每一次交换过程输出

laoau138

用VBA把冒泡排序每一次交换过程输出

假设5个数分别为6,2,7,9,5保存在数组中   

用冒泡排序从大到小重新排序    用VBA把交换过程输出

最到得到结果9  7  6  5  2

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-28 16:45

1. Sub aaa()
   
2. Dim arr, i&, j&, r&, tmp&
   
3. arr = Array(6, 2, 7, 9, 5)
   
4. For i = 0 To UBound(arr) - 1
   
5.   For j = 0 To UBound(arr) - i - 1
   
6.     If arr(j) < arr(j + 1) Then
   
7.       tmp = arr(j)
   
8.       arr(j) = arr(j + 1)
   
9.       arr(j + 1) = tmp
   
10.     End If
    
11.   Next j
    
12.   Cells(i + 1, 1).Resize(, UBound(arr) + 1) = arr
    
13. Next i
    
14. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, j&, r&, tmp&
   
3. arr = Array(6, 2, 7, 9, 5)
   
4. For i = 0 To UBound(arr) - 1
   
5.   For j = 0 To UBound(arr) - i - 1
   
6.     If arr(j) < arr(j + 1) Then
   
7.       tmp = arr(j)
   
8.       arr(j) = arr(j + 1)
   
9.       arr(j + 1) = tmp
   
10.     End If
    
11.   Next j
    
12.   Cells(i + 1, 1).Resize(, UBound(arr) + 1) = arr
    
13. Next i
    
14. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-4-28 16:45

为什么会这个比较次数不同

Sub s()
    arr = Array(6, 2, 7, 9, 5)
    For i = 0 To 3
        For j = 3 To i Step -1
            If arr(j) < arr(j + 1) Then
                t = arr(j)
                arr(j) = arr(j + 1)
                arr(j + 1) = t
                For k = 0 To 4
                    Debug.Print arr(k);
                Next
                Debug.Print
            End If
        Next
    Next
End Sub

france723

和大灰狼师父的思路基本一致

1. Sub bbb()
   
2.     Dim a
   
3.     a = Array(111, 11111, 11, 12, 112, 11112)
   
4.     Dim i As Integer, j As Integer
   
5.     For i = UBound(a) - 1 To 0 Step -1
   
6.         For j = 0 To i
   
7.             If a(j) < a(j + 1) Then
   
8.                 a(j) = a(j) + a(j + 1)
   
9.                 a(j + 1) = a(j) - a(j + 1)
   
10.                 a(j) = a(j) - a(j + 1)
    
11.             End If
    
12.         Next j
    
13.     Next i
    
14.     For i = 0 To UBound(a)
    
15.         MsgBox a(i)
    
16.     Next i
    
17. End Sub

复制代码

大灰狼1976

因为我的输出在外循环，上面这个代码的输出在内循环，所以看上去次数不一样，实际上是基本一致的。

laoau138

大灰狼1976 发表于 2017-4-28 17:27
因为我的输出在外循环，上面这个代码的输出在内循环，所以看上去次数不一样，实际上是基本一致的。

用VBA随机部姓名问题

http://www.excelpx.com/thread-429795-1-1.html

laoau138

大灰狼1976 发表于 2017-4-28 16:45

Sub aaa()
Dim arr, i&, j&, r&, tmp&
arr = Array(6, 2, 7, 9, 5)
For i = 0 To UBound(arr) - 1
  For j = 0 To UBound(arr) - i - 1    '冒泡排序从小到大排序，这一句为什么UBound(arr) - i - 1
    If arr(j) < arr(j + 1) Then
      tmp = arr(j)
      arr(j) = arr(j + 1)
      arr(j + 1) = tmp
    End If
  Next j
  Cells(i + 1, 1).Resize(, UBound(arr) + 1) = arr
Next i
End Sub

大灰狼1976

因为我是将最小的数一路往后推，所以是从左向右方向处理的，你贴了代码是将最大的数往前推，是从右往左方向处理的，殊路同归，UBound(arr) - i - 1是让程序每次循环次数递减。

laoau138

大灰狼1976 发表于 2017-4-29 21:19
因为我是将最小的数一路往后推，所以是从左向右方向处理的，你贴了代码是将最大的数往前推，是从右往左方向 ...

这个代码其他人写