softace-CSDN博客

原创 VB排序算法－希尔排序

'升序:如果当前值小于上一个值,则互换。'降序:如果当前值大于上一个值,则互换。'根据是升序或降序进行分别处理。'中点在跨度后面则要处理。'移排序并移动中点(不大于最大下标)'将跨度定义为小于元素的数量的2的最大幂。'将中点作为当前下标。

2023-10-15 12:03:54 79 1

原创 VB排序算法－选择排序

Dim temp '已处理的元素的个数置为0 NextElement = 0。'根据比较结果重置最小下标。'根据比较结果重置最小下标。'根据是升序或降序进行分别处理。'读取最大下标,作为当前最小值下标。'根据最小下,与当前值互换。

2023-10-15 12:03:22 271 1

原创 VB排序算法－快速排序

'快速排序I = Lj = R'找出数组的中点'找出比中点大的数I = I + 1Wend'找出比中点小的数j = j - 1Wend'互换这两个数I = I + 1j = j - 1End IfWend'未完成时递归调用End Sub。

2023-10-15 12:02:20 164 2

原创 VB排序算法－插入排序

'升序:如果当前值小于上一个值,则互换。'降序:如果当前值大于上一个值,则互换。'根据是升序或降序进行分别处理。'如果当前下标大于最小下标,则处理。'先将已处理的元素个数为最小下标加1。

2023-10-15 12:01:47 111 1

原创 VB排序算法－堆排序

'如果当前Parent位的值后面的值要大,向后移Parent位。'只要Index / 2位置的值大于当前值就结束筛选。'如果当前值大于Parent位的值,结束筛选。'Parent位置定位于2 * Index。'将当前点移到Index / 2。'当前位置移到Parent。'当前值与第一个值互换。'将当前要处理的置为1。'堆排序的向下筛选子程序。'堆排序的向上筛选子程序。

2023-10-15 12:01:04 38 1

原创 VB排序算法－桶排序

'则将下一个值放到当前值(当前值在TheBucket中不动)'则将下一个值放到当前值(当前值在TheBucket中不动)'升序:如果当前值小于上一个值。'降序:如果当前值大于上一个值。'根据是升序或降序进行分别处理。'如果当前下标大于最小下标,则处理。'先将已处理的元素个数为最小下标加1。

2023-10-15 12:00:22 48 1

原创 VB排序算法－冒泡排序

'升序:如果当前值小于上一个值,则互换。'降序:如果当前值大于上一个值,则互换。'根据是升序或降序进行分别处理。'将当前下标移到上一个值。'与前面的每一个元素比较。'将已处理的元素个数加1。'先将已处理的元素个数置为0。

2023-10-15 11:58:59 210 1

softace的博客