- 1、本文档共46页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
次课数组(学时)
* * * VB开发环境 * QQ Dim a As Variant a = Array(56, 90, -123, 58, 5, 10, 100, 54, 66, 518) n = UBound(a) For i = 1 To n - 1 For j = n To i+1 step -1 If a(j) a(j - 1) Then t = a(j) a(j) = a(j - 1) a(j - 1) = t End If Next j Next i 冒泡排序 上机真题 【例】捷成64-5 数组a中的100个正整数(显示在Text1文本框中),单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组b中,并对数组b中的元素从小到大排序后显示在文本框Text2中。 上机教程P80-练习6.5 【例】捷成53-5 单击“合并”命令按钮,则将 A、B两个数组(各20个数据)合并为另一个按升序方式排列的数组C,并将合并后数组C中的数据依升序方式显示在Text3中。 选择法排序思想方法: 对n个数排序,先将第一个数与第二个数到第n个数逐一比较,找出最小数的位置i(下标),然后将a(1)与a(i)进行 交换,将最小数存放在a(1)中 然后将第二个数依次与第三个到第n个数逐一进行比较,找出第二个到第n个数中最小数,然后将a(2)与a(i)进行交换,最终这n个数中的次小数放在a(2)中 重复上面的步骤,直到排序结束为止(进行n-1趟排序) 按递增排序 选择法排序 第一趟排序 8 6 9 3 2 7 原始数据 8 6 9 3 2 7 a(1) a(2) a(3) a(4) a(5) a(6) 第一趟排序 2 6 9 3 8 7 第二趟排序 2 6 9 3 8 7 第二趟排序 2 3 9 6 8 7 第三趟排序 2 3 9 6 8 7 第三趟排序 2 3 6 9 8 7 第四趟排序 2 3 6 9 8 7 第四趟排序 2 3 6 7 8 9 第五趟排序 2 3 6 7 8 9 第五趟排序 2 3 6 7 8 9 1、求数组的最小元素 2、交换数组中的两个元素 方法:双重循环(循环嵌套) 外循环为i:控制排序趟数 内循环为j:排序过程中的下标变量 选择法排序 Dim a As Variant a = Array(56, 90, -123, 58, 5, 10, 100, 53, 66, 518) n = UBound(a) For i = 1 To n - 1 k = i For j = i + 1 To n If a(k) a(j) Then k = j 如按从大到小排序,则a(k)a(j) Next j If (i k) Then t = a(i): a(i) = a(k): a(k) = t End If Next i 选择法排序 第7章 数组 1 求最值 2 排序 3 查找 方法:从数组的第一个元素(最后一个元素)开始依次向后(前)与要查询的数据进行比较,当有数组元素与被查询的数据相同时,查询结束,否则继续比较下去,直到所有数据元素比较完毕。查询的结果有两种情况:一是查询成功,二是查询失败(找不到与查询的数据相同的数据元素)。 顺序查找 适用于有序或无序数组 用Do While进行顺序查找(x为待查找的数): P=1 ‘初始化比较位置 Do while xS(p) And pN p=p+1 Loop ‘退出的两种情况 If x=S(p) then ‘找到,处理 else ‘没找到,处理 end if 用For Next进行顺序查找(x为待查找的数): For p = 1 To N If a(p) = x Then
您可能关注的文档
- 标志法zhang.ppt
- 标准正交基与正交矩阵.ppt
- 标量衍射理论菲涅耳衍射.ppt
- 某咨询公司培训公司治理结构(ppt).ppt
- 标量衍射理论衍射的角谱理论菲涅.ppt
- 树(教材七)(一次课).pptx
- 栈与队列的基本操作及其应用.ppt
- 柱面坐标系和球面坐标系求三重积分[].ppt
- 树人Bunit复习.ppt
- 柱面锥面次曲线.ppt
- 甘肃省XB师范大学附属中学2025届高三上学期一模诊断考试地理答案.doc
- 甘肃省XB师范大学附属中学2025届高三上学期一模诊断政治含解析.doc
- 安徽省皖江名校2024-2025学年高一上学期12月联考英语无答案.doc
- 2025年1月八省联考高考综合改革适应性测高三化学陕西山西宁夏青海卷无答案.doc
- 2025年1月八省联考高考综合改革适应性测高三化学四川卷无答案.doc
- 2025年1月八省联考高考综合改革适应性测高三政治陕西山西宁夏青海卷无答案.doc
- 2025年1月内蒙古自治区普通高等学校招生考试适应性测试(八省联考)历史无答案.doc
- 2025年1月内蒙古自治区普通高等学校招生考试适应性测试(八省联考)历史含解析.doc
- 2025年1月四川省普通高等学校招生考试适应性测试(八省联考)历史含解析.doc
- 2025年1月四川省普通高等学校招生考试适应性测试(八省联考)政治无答案.doc
最近下载
- DB11T1959-2022 《装配式建筑预制混凝土构件能源消耗限额》.pdf
- 管理会计在企业内部的应用与发展-以海尔公司为例.doc
- 《中国建筑的特征》课件(共47张PPT)统编版高中语文必修下册.pdf VIP
- DeepSeek大模型研究框架.pptx
- 职业能力倾向测验事业单位考试(中小学教师类D类)试题及解答参考(2025年).docx VIP
- 2025届高三二轮复习诗歌教考衔接题解.pptx VIP
- 工业机器人现场编程(FANUC).pdf VIP
- 2024年汝州职业技术学院单招职业技能测试题库及完整答案一套.docx VIP
- 2025年中国数据中台行业白皮书.pdf VIP
- 岗得其人-人适其岗-人岗匹配PPT课件.ppt
文档评论(0)