VBA数组的排序_vba函数返回值 数组

VBA数组的排序_vba函数返回值 数组我们平时用的表格排序,只相对来说是在在表格中的升序降序。今天就好奇如果系统中实现排序他是怎么实现的呢。经过一番折腾查找,真是一看吓一跳,真是感觉蚂蚁看大象,发现排序分为:今天仅整理了最简单的两种排序。。。先来看下定义和实现的方法吧。选择排序(Selectionsort)是一种简单直观的排序算法。它的工作原理是:第一次从待排序的数据元素中选出最小(或最大)的一个元素,存放在序列的起始位置,然后再从剩余的未排序元素中寻找到最小(大)元素,然后放到已排序的序列的末尾。以此类推,直到全部待排序的数据

大家好,又见面了,我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全家桶1年46,售后保障稳定

我们平时用的表格排序,只相对来说是在在表格中的升序降序。今天就好奇如果数组中实现排序
他是怎么实现的呢。

经过一番折腾查找,真是一看吓一跳,真是感觉蚂蚁看大象,发现排序分为:
1,稳定排序与不稳定排序2,内排序和外排序内部排序可分为:直接插入排序、冒泡排序、简单选择排序、希尔排序、快速排序、堆排序、归并排序、基数排序。

晕

今天仅整理了最简单的两种排序。。。
先来看下定义和实现的方法吧。

选择排序(Selection sort)是一种简单直观的排序算法。它的工作原理是:第一次从待排序的数据元素中选出最小(或最大)的一个元素,存放在序列的起始位置,然后再从剩余的未排序元素中寻找到最小(大)元素,然后放到已排序的序列的末尾。以此类推,直到全部待排序的数据元素的个数为零。选择排序是不稳定的排序方法。

请添加图片描述

1.简单选择排序


Sub  选择排序()
Dim i, j, MinIndex As Integer
Dim MinValue As String
arr = Range("a1:a10")
 For i = 1 To UBound(arr)
    MinValue = arr(i, 1) '将第一个值先默认为最小值
    MinIndex = i         '记录最小值的索引位置
    For j = MinIndex + 1 To UBound(arr)
        If arr(j, 1) < MinValue Then
            MinValue = arr(j, 1)
            MinIndex = j
        End If
  	Next
    '以此和当前的最小值做对比,比较出后面的最小值并记录 值及索引的位置
    '因为小的值我们都放在最前面,所以遍历只需从当前值的后面开始就可以了,节省时间
    
    If MinIndex > i Then
        arr(MinIndex, 1) = arr(i, 1)
        arr(i, 1) = MinValue
    End If
    '这里的MinIndex和i的关系会有些绕,只会有两个可能,一种是MinIndex > i(在默认最小值的后面有比当前还小的值),另一种MinIndex = i :(在最小值的后面没有找到比当前值的再小的)。
    '【不出现MinIndex < i的情况,只为理解,加不加基本没有影响】
 Next
[b1].Resize(UBound(arr), 1) = arr
End Sub

Jetbrains全家桶1年46,售后保障稳定

2.冒泡排序

原理:
1、比较相邻的元素。如果第一个比第二个大,就交换他们两个。
2、对每一对相邻元素做同样的工作,从开始第一对到结尾的最后一对。在这一点,最后的元素应该会是最大的数。
3、针对所有的元素重复以上的步骤,除了最后一个。
4、持续每次对越来越少的元素重复上面的步骤,直到没有任何一对数字需要比较。
请添加图片描述

Sub 冒泡排序()
arr = Range("a1:a10")
For j = 1 To UBound(arr)
    For i = 1 To UBound(arr) - 1
          If arr(i, 1) > arr(i + 1, 1) Then
            MinStr = arr(i + 1, 1)
            arr(i + 1, 1) = arr(i, 1)
            arr(i, 1) = MinStr
        End If
    Next
Next j
[b1].Resize(UBound(arr), 1) = arr
End Sub
类别 说明
选择排序 缺点:不稳定,具体怎么不问题不知道。。优点:速度要比冒泡排序快很多
冒泡排序 缺点:速度很慢。。优点:稳定

太多了 ,其他的在这里插入图片描述

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/234320.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)
blank

相关推荐

  • python中变量的命名以及使用[通俗易懂]

    python中变量的命名以及使用[通俗易懂]一、变量的概念变量名只有在第一次出现的时候,才是定义变量。当再次出现时,不是定义变量,而是直接使用之前定义的变量。1.变量命名1)命名的规范性变量名可以包括字母、数字、下划线,但是数字不能做为开头。例如:name1是合法变量名,而1name就不可以。 系统关键字不能做变量名使用 除了下划线之个,其它符号不能做为变量名使用 Python的变量名是除分大小写的2)驼峰命名法…

  • tasklist命令参数应用详细图解

    tasklist命令参数应用详细图解一操作实例不带参数;/svc参数;/SVC 显示每个进程中的服务信息,当/fo参数设置为table时有效。列出调用了某个dll的进程;列出系统中正在运行的非“SYSTEM“状态的所有进程。查看远程主机进程列表;需要远程主机的RPC服务支持;/v列出

  • RegisterStartupScript的用法[通俗易懂]

    RegisterStartupScript的用法[通俗易懂]Page.RegisterStartupScript("CloseAndRefresh","")1、Page.RegisterStartupScript(1

  • mysql查找最后一条记录_mysql查询记录总数

    mysql查找最后一条记录_mysql查询记录总数首先要确定什么是最后一条。是编辑时间最新的为最后一条,还是某个字段数字最大的未最后一条。比如以时间最大为最后一条,则将符合条件的资料都筛选出来,再按时间排序,再取一笔资料。SQL如下:selecta,bfromtablewherea&gt;’某个时间’orderbyadesclimit1(上面SQL中a为时间)。用max(time)查询方可!!…

  • Python开源爬虫框架:Scrapy架构分析

    Python开源爬虫框架:Scrapy架构分析

  • linux(4)Linux 文件内容查看[通俗易懂]

    linux(4)Linux 文件内容查看[通俗易懂]查看文件内容总览cat由第一行开始显示文件内容tac从最后一行开始显示,可以看出tac是cat的倒着写!nl显示的时候,顺道输出行号!more一页一页的显示文件内容less

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号