• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

请教一个“排序”问题

fansjava 2004-02-07 01:36:41
Dim temp,sort() As String 'sort为一个动态字符串数组,需要Redim重定义。
Dim numOfElements,i,j,span As Short '需要排序的总数量

span=numOfElements\2
Do While span>0
For i=span To numOfElemets-1
j=i-span+1
For j=(i-span+1) To 1 Step -span
If sort(j)<=sort(j+span) Then Exit For
temp=sort(j)
sort(j)=sort(j+span)
sort(j+span)=temp
Next j
Next i
span=span\2
Loop
...全文
84 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2004-02-07 01:36
社区公告
暂无公告