VB
请教一个“排序”问题
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区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
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
...全文
