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

laoau138

用VBA把选择排序每一次交换过程输出

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

用选择排序从大到小重新排序   一共要交换4次   用VBA把这4次交换过程输出

最到得到结果9  7  6  5  2

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-28 09:15

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

复制代码

跳转到最佳答案楼层

大灰狼1976

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

复制代码

laoau138

大灰狼1976 发表于 2017-4-28 09:15

果然是高手   为什么你这个选择排序，不用记录数组下标

大灰狼1976

记录了呀，r变量就是

laoau138

大灰狼1976 发表于 2017-4-28 09:29
记录了呀，r变量就是

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

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

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

最到得到结果9  7  6  5  2

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

大灰狼1976

1. 回复错了，请无视

复制代码