Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自定义函数-如何利用二分法对一维数组进行排序


  共有4643人关注过本帖树形打印复制链接

主题：[求助]自定义函数-如何利用二分法对一维数组进行排序
帅哥哟，离线，有人找我吗？
Bin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/9/9 9:39:00 [显示全部帖子]

数组排序其实这样就可以了.
Dim ii As Integer() = {7, 1, 3, 4}
        Array.Sort(ii)
        For i As Integer = 0 To ii.Length - 1
            MessageBox.Show(ii(i))
        Next
没必要还建立临时表来排序.
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/9/9 9:55:00 [显示全部帖子]

你好,数组不需要在乎升序降序.  因为你可以顺循环,倒循环.   升序就循环0 to leng-1 降序就循环leng-1 to 0

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/9/9 9:56:00 [显示全部帖子]

你非要的话,也可以声明一个新的数组倒循环赋值给新的数组.

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/9/9 10:31:00 [显示全部帖子]

Dim ii As Integer() = { 7, 1, 3, 4 }
Array.Sort(ii)
Dim ii2(3) As Integer
Dim count As Integer = 0
For i As Integer = ii.Length - 1 To 0 Step -1
    ii2(count) = ii(i)
    count += 1
Next
For i As Integer = 0 To ii2.length-1
    MessageBox.show(ii2(i))
Next
非要反过来可以重新弄个数组嘛.
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/9/9 10:47:00 [显示全部帖子]

这个没有办法,除非你自己记录下来,但是数字都会有重复的,分不清的.

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/9/9 11:15:00 [显示全部帖子]

死循环了.

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/9/9 11:22:00 [显示全部帖子]

以下是引用jspta在2013-9-9 11:19:00的发言：

你数据从哪里来？你需要怎么调用？排序的顺序你要干什么？

你讲清楚你得需求，也许根本不需要折腾排序。

 

 


表示同感!

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询