VBA编程技巧之排序算法初探

xgy0214dxy · 发表于 2013-8-12 17:01

深奥了，一下子没看明白，不过还是顶一下，坛子的高人太多了

bible20139 · 发表于 2013-8-12 21:34

感谢分享~~~

愤怒的空调 · 发表于 2013-8-13 10:24

非常感谢楼主的无私奉献。

zxzxcl · 发表于 2013-8-13 16:20

排序达人，学习了

wfy_lhl · 发表于 2013-9-8 23:19

认为法师所谓的改良是很没有道理的~~??????

840205910 · 发表于 2013-9-12 08:36

冒泡是容易理解的原理

840205910 · 发表于 2013-9-12 08:46

Sub BubbleSort(ByRef arr)
Dim i&, j&, vSwap
For i = UBound(arr) To 2 Step -1
      For j = 1 To i - 1
         If arr(j) > arr(j + 1) Then
            vSwap = arr(j): arr(j) = arr(j +1): arr(j + 1) = vSwap
         End If
      Next
Next
End Sub
犹如两列火车在单轨上狭路相逢，怎样可以交换位置？无奈只能建个小站，让一列先停在岔道，另一列先过，而后岔道上的再上正道，就完成了交换位置----排序

每天被自己帅醒 · 发表于 2013-9-18 16:33

火速留名{:soso_e179:}

hongshu3399 · 发表于 2013-9-22 07:56

知道VBA的好处，可就是无法领会呀！

xtlyta · 发表于 2013-9-22 21:35

好复杂，看不懂！！！

		自动登录	找回密码
密码			免费注册

[原创] VBA编程技巧 之 排序算法初探

[原创] VBA编程技巧之排序算法初探