谁给一个VB堆排序的代码，谢谢

xzjxu 2012-04-11 04:02:15

如题

...全文

242 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

Tiger_Zhao 2012-04-12

打赏
举报

回复

这是必备的基本功，按照教材的步骤编写即可。
你不至于吃饭也要别人代劳吧！

舉杯邀明月 2012-04-11

打赏
举报

回复

没用过这种排序算法，帮顶……

VB代码， 堆排序 '算法导论 P85 堆排序 代码实践 Option Explicit Dim a() Dim size As Integer '堆的大小全局变量 Private Sub Command1_Click() PRINTA a() HEAPSORT a() PRINTA a() End Sub Private Sub Form_Load() Dim i As Integer Dim n As Integer Randomize a() = Array(0, 4, 1, 3, 2, 16,

VB代码， 堆排序 VB代码， 堆排序 '算法导论 P85 堆排序 代码实践 Option Explicit Dim a() Dim size As Integer '堆的大小全局变量 Private Sub Command1_Click() PRINTA a() HEAPSORT a() PRINTA a() End Sub Private Sub Form_Load() Dim i As Integer Dim n As Integer Randomize a() = Array(0, 4, 1,

堆排序(使用VBA实现）大根堆，即父节点大于等于其子节点，但左、右子节点大小不考虑。 堆排序的主体思路为：从最后一个父节点开始，调整将该节点调整为大根堆，然后调整上一个父节点为大根堆，最终将首个父节点为大根堆。所以最大的值即为首个父节点。首个父节点与最后一个节点相调换，最值被放到最后一个节点，循环，最终完成排序。在进行排序之前，首先需要确定的是最后一个父节点、每父节点对应的左子节点和右子节点的下标。假设一个数组arr()，其上边界为L，下边界为H，父节点对应的下标为dad，两个子节点下标分别为lef

'堆排序 Option Explicit Dim Result, I Dim TestData(100) const N = 100 Randomize For I = 0 To N - 1 TestData(I) = ROUND(RND() * 32768) Next '堆排序 Sub HSort(byRef Array, low, hi) Dim i, t,

信息技术 VB程序整理排序算法（以数组a(n)降序为例）1、冒泡排序（Bubble Sort）1.0 性质总结1.1 基本思想1.2 具体步骤1.3 代码实现1.4改进的冒泡排序2、直接选择排序(Straight Select Sort)2.0 性质总结2.1 基本思想2.2 具体步骤2.3 代码实现3、直接插入排序(Straight Insertion Sort)3.0 性质总结3.1 基本思想...

7,788

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章