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。
自己强化学习一下：
- @H_502_19@PublicClassForm1
- @H_502_19@PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
- @H_502_19@ListBox1.Items.Clear()
- @H_502_19@ListBox2.Items.Clear()
- @H_502_19@Dimi,j,spanAsShort
- @H_502_19@Dima(10)AsString,tempAsString
- @H_502_19@Randomize()
- @H_502_19@
- @H_502_19@Fori=0Toa.Length-1
- @H_502_19@a(i)=Int(10*Rnd())
- @H_502_19@ListBox1.Items.Add(a(i))
- @H_502_19@Next
- @H_502_19@span=a.Length\2
- @H_502_19@DoWhilespan>0
- @H_502_19@Fori=spanToa.Length-1
- @H_502_19@Forj=i-spanTo0Step-span
- @H_502_19@Ifa(j)<=a(j+span)ThenExitFor
- @H_502_19@temp=a(j)
- @H_502_19@a(j)=a(j+span)
- @H_502_19@a(j+span)=temp
- @H_502_19@Next
- @H_502_19@span=span\2
- @H_502_19@Loop
- @H_502_19@ListBox2.Items.Add(a(i))
- @H_502_19@EndSub
- @H_502_19@EndClass