下面请欣赏舞蹈：vb.net - shell排序 踢踏舞跳得真不错

http://v.youku.com/v_show/id_XMjU4NTcwMDIw.html
[b][flash=480,400]http://player.youku.com/player.PHP/sid/XMjU4NTcwMDIw/v.swf[/flash][/b]
[b][flv=480,400][b][flash=480,400]http://player.youku.com/player.PHP/sid/XMjU4NTcwMDIw/v.swf[/flash] [/b][/flv]
[/b]
看完了吧，再看一篇，，发现这个都是倒序向前比较，步长是span。
自己强化学习一下：

[vb] view plain copy print ?

1. PublicClassForm1
2. PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
3. ListBox1.Items.Clear()
4. ListBox2.Items.Clear()
5. Dimi,j,spanAsShort
6. Dima(10)AsString,tempAsString
7. Randomize()
9. Fori=0Toa.Length-1
10. a(i)=Int(10*Rnd())
11. ListBox1.Items.Add(a(i))
12. Next
13. span=a.Length\2
14. DoWhilespan>0
15. Fori=spanToa.Length-1
16. Forj=i-spanTo0Step-span
17. Ifa(j)<=a(j+span)ThenExitFor
18. temp=a(j)
19. a(j)=a(j+span)
20. a(j+span)=temp
21. Next
22. span=span\2
23. Loop
24. ListBox2.Items.Add(a(i))
25. EndSub
26. EndClass