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

发布时间：2020-12-17 07:57:53 所属栏目：百科来源：网络整理

导读：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] [

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 
   ? 
    
   
 PublicClassForm1
 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
 ListBox1.Items.Clear()
 ListBox2.Items.Clear()
 Dimi,j,spanAsShort
 Dima(10)AsString,tempAsString
 Randomize()
 
 Fori=0Toa.Length-1
 a(i)=Int(10*Rnd())
 ListBox1.Items.Add(a(i))
 Next
 span=a.Length2
 DoWhilespan>0
 Fori=spanToa.Length-1
 Forj=i-spanTo0Step-span
 Ifa(j)<=a(j+span)ThenExitFor
 temp=a(j)
 a(j)=a(j+span)
 a(j+span)=temp
 Next
 span=span2
 Loop
 ListBox2.Items.Add(a(i))
 EndSub
 EndClass

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

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

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