vb选择排序法的基本思路 vb选择法排序代码?

vb选择法排序代码?

Dimsngsq(),sngtassingle“输入原始数据

vb选择排序法的基本思路 vb选择法排序代码?

n=Val(InputBox(”请输入已排序的n个数)

redimsngsq(n)”重定义数组

打印“排序前”

forI=1ton

msgbox”请输入“&str(I)&;“

sngsq(I)=Val(InputBox(”please input“)”将输入数据转换成数字类型

printngsq(I)

next

print”排序后“

”row Order

forI=1ton-1

intmin=I”对于第I顺序,最初假设第I个元素是最小的

forj=I 1ton”查找最小的元素序号

ifsngsq(J)<sngsq(intmin)thenintmin=J

nextj

“用第i个元素交换找到的最小元素

sngt=sngsq(i)

sngsq(i)=sngsq(intmin)

sngsq(intmin)=sngt

nexti

]对于i=1ton

printingsq(i)”非换行输出

nexti

1。选择sort to send(从小到大)private sub command1Click()Dim a(10)As Integer For i=1 to 10随机化a(i)=Int(Rnd*90)10 Next i For i=1 to 9 For j=i 1 to 10 If a(i)> a(j),则r=a(i)a(i)=a(j)a(j)=r End IfNext j Next i For i=1 To 10打印a(i)Next Iend sub2,冒泡排序私有子命令1uclick()Dim a(10)As Integer For i=1 To 10随机化a(i)=Int(Rnd*90)10 Next i For i=1 To 9 For j=1 To 10-i如果a(j)> a(j 1),则r=a(j)a(j)=a(j1) a(j 1)=r结束,如果下一个j下一个i,对于i=1到10,则打印a(i)下一个iEnd Sub

标签:

最新文章

  1. 求字符串长度c语言 如何计算字符串的长度?2025-03-30
  2. 华为手机录音文件怎么转文本 华为手机音频转文字?2025-03-10
  3. 苹果截屏怎么关掉声音 苹果12截屏声音可以关闭吗?2025-03-31
  4. 唯品会怎么清除购买过的信息2025-03-14
  5. ps如何做科技感线条 ps自定义形状,怎么调整线条的粗细呀?2025-03-23
  6. 微信昵称怎么更改简单 怎么更改微信号的名字呢?改变了吗?2025-03-12
  7. 影像测量仪操作指导书电子版2025-03-13
  8. 地暖会使地板发霉吗 地暖漏水对地面有影响吗?2025-03-25
  9. qq阅读新版怎么翻页方式打开 oppo阅读怎么能翻页?2025-03-23
  10. java pdf转html 怎样把PDF文件转换成Html网页文件?2025-03-31
  11. 阿里云企业建站 网站外包完成后,服务器是阿里云的,是不是修改下阿里云密码,外包就不能修改网站代码?2025-03-30
  12. 域名购买 PW这个域名后缀是什么意思啊?2025-03-26
  13. 网站域名查询 如何确定域名是属于自己的?2025-03-30
  14. 华为手机怎么看今天使用时间2025-03-12
  15. 大连电视台张伟杰 张伟杰的介绍?2025-03-17
  16. 难忘的旅行小短文 难忘的旅行英语作文过去式?2025-03-22
  17. 苹果cms需要多大配置服务器才能用 海康ivms5000录像设置?2025-03-22
  18. 电脑DNS缓存清除方法及作用2025-03-08
  19. latex中文档变空白怎么办 如何在LaTeX中输入一个字母的左下标!左下标?2025-03-24
  20. 如何正确地更改文件扩展后缀名称2025-03-08
  21. 输入化学式和分子式中的下标技巧2025-03-14
  22. 如何在Mac系统中移除蓝牙设备2025-03-13
  23. 混凝土搅拌站控制系统(混凝土搅拌站有什么组成?)2025-03-21
  24. 装修设计图 html中div怎么实现左中右三块一致?2025-03-29
  25. 华为p40手机按键声音怎么关闭 华为手机解锁声音设置?2025-03-23
  26. 丹东有加工夹发的吗 推子夹头发怎么回事啊?2025-03-23
  27. mate10恢复出厂设置后还用激活吗 mate10恢复出厂设置后是否需要重新激活2025-03-09
  28. 优秀网站网页设计 小米盒子遥控器的主页和菜单键是哪个键?2025-03-25
  29. 高德地图怎么标记当前位置2025-03-10
  30. 什么水果营养最高排名,营养最丰富的10种水果?2025-03-25
优质自媒体
优质自媒体 微信号:优质自媒体 扫描二维码关注公众号
优质自媒体

小编推荐

  1. 1 历史上的今天查询 契丹相当于现在哪个省?

    契丹相当于现在哪个省?南面的白沟河。如此广大的面积相当于那个省。最大的新疆自治区现在面积166万平方公里。契丹是少数民族建立的王朝,也是中华民族的一部分。我们必须正确对待它1966年的“文化大革命”是一件不可思议的事情。没有人能确切地说出原

  2. 2 前端开发 bower和npm的区别?

    bower和npm的区别?鲍尔和NPM的区别如下:NPM是伴随的节点.js一开始,包管理器只能支持节点.js但后来NPM官方网站改版后,口号是JavaScript package manager,因此不再限制节点.js模块管理,已经是所有J

  3. 3 手机怎么发邮件到别人邮箱 如何把文件夹添加到邮件的附件中?

    如何把文件夹添加到邮件的附件中?有是我们发送的邮件中需要添加文件,那么如何把文件夹添加到邮件的附件中呢?具体操作步骤如下:1、首先,我们打开并登录进入我们的邮箱,然后我们点击“写信”。2、然后如果我们想要把文件发到邮件中的话,操作还是比较简

  4. 4 python能做些什么 Python在日常工作中能用到吗?

    Python在日常工作中能用到吗?非常有用。例如,小编用Python做了一个BOM管理系统。以前制作BOM需要一天时间,但现在只需要几秒钟。这些都是小编学完python后能做的事情,用python很容易自学也不太难,跟着课本或者学习教程,自

  5. 5 进气凸轮轴位置传感器 荣威35o进气凸轮轴锁止位置与运行不合理故障解决方法?

    荣威35o进气凸轮轴锁止位置与运行不合理故障解决方法?1. 检查正时是否正确。2. 顾名思义,车轴是由“轮”和“轴”组成的系统。该系统可以绕公共轴旋转,相当于以轴为支点,以半径为杆的杠杆系统。因此,车轴可以改变扭矩,从而改变扭矩的大小。3.

  6. 6 hadoop和hive的关系 怎样将hive的数据同步到impala?

    怎样将hive的数据同步到impala?HBase是一个基于列的NoSQL数据库,可以灵活地存储数据。它本身就是一张大桌子。在一些应用中,通过设计rowkey,可以实现海量数据的快速存储和访问。但是对于复杂的查询统计需求,如果直接基于HBa

  7. 7 vue项目打包部署到服务器 大学做项目,负责人禁止我用Vue,React,让我用基础HTML,CSS,JS开发前端怎么办?

    ~!如果地基不牢,地球就会震动。好吧,让我们先精通JavaScript。就像任何一种语言都感觉像公牛一样,但它仍然回到了C语言、汇编语言,最后是机器语言。大学做项目,负责人禁止我用Vue,React,让我用基础HTML,CSS,JS开发前端

  8. 8 matlab卷积神经网络图像识别 图像处理为何要有卷积运算?

    图像处理为何要有卷积运算?由于图像中含有大量的冗余信息,视觉和图像的识别是由许多特定的边缘信息来完成的。人眼看到的图像是由无数小块织成的。受此启发,人们发现卷积可以更好地提取图像的边缘信息,去除那些冗余的东西,并通过特定的卷积来提取特定的边

  9. 9 音乐教学视频零基础 php零基础可以学吗,需要注意些什么?

    php零基础可以学吗,需要注意些什么?不国家禁止零基础学习,否则,十年以上有期徒刑PHP:basic-> OOP object-oriented-> design pattern-> frameworkdatabase:Opti

  10. 10 谷歌play商店官网 谷歌play是什么?

    谷歌play是什么?Google play是Google play store的缩写,即Google store,Google提供应用程序下载的官方场所。谷歌play服务是什么?Google play是Google为Android设备开发的

Copyright 2025 优质自媒体,让大家了解更多图文资讯!百度地图 360地图