“选择法”排序的动画演示.doc

  1. 1、本文档共11页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
“选择法”排序的动画演示

沈 阳 航 空 工 业 学 院 课程设计 学 号 200604034026 班 级 6403401 姓 名 苑春雨 指导教师 刘 成 2008年 03 月 20 日 课程设计任务书 沈阳航空工业学院 课程设计任务书 学院:航宇 专业:工程力学 班级:6403401 学号:200604034026 题目:“选择法”排序的动画演示 一、课程设计时间 2007~08第2学期第1~2周,共计2周,40学时。 二、课程设计内容 用控件数组技术实现动画,演示用选择法对数组(18,12,16,10,11,19,13,19)由大到小排序、元素变换的完整过程。 要求:准备换值的2个元素,使用显眼颜色、闪烁效果。 三、课程设计要求 程序质量: 贯彻事件驱动的程序设计思想。 用户界面友好,功能明确,操作方便;可以加以其它功能或修饰。 代码应适当缩进,并给出必要的注释,以增强程序的可读性。 课程设计说明书: 课程结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师:________ 学生签名:________ 五、成绩 六、教师评语 目 录 需求分析------------------------------- 2 设计分析------------------------------- 2 关键技术------------------------------- 5 总结 ------------------------------- 7 完整程序------------------------------- 8 参考文献------------------------------- 11 需求分析 1.用控件数组技术实现动画,演示用选择法对数组(18,12,16,10,11,19,13,19)由大到小排序、元素变换的完整过程。 2要求:准备换值的2个元素,使用显眼颜色、闪烁效果 3用户界面友好,功能明确,操作方便;可以加以其它功能或修饰 4代码应适当缩进,并给出必要的注释,以增强程序的可读性。 设计分析 1基本原理:运用选择法排序,用循环体实现,并通过设置颜色来展示动画。 2. 总体设计:选择法排序,将数组全部陈列出来,再用颜色区别相交换的两个数,分六步来实现,从而实现动态效果。 3详细设计:将数组都陈列出来,每一步就是数组变化的过程。第一列是出现原数组。第二列是第一步选择出最大的数和第一位的数进行交换。第三列是在剩余的数中悬出最大的数再和第二位的数进行交换。依次类推,直到将数组按照从大到小的顺序排列出来。最后的一列既是所求。 关键技术 1、界面设计如下: 2、运行界面如下: 3、选择法排序程序如下: For i = 1 To n b(1, i) = a(i) Label1(i).Caption = b(1, i) Next i For i = 1 To n - 1 max = i For j = i + 1 To n If a(j) a(max) Then max = j Next j c(i) = max b(i, max) = a(max) t = a(i) a(i) = a(max) a(max) = t For m = 1 To 8 b(i, m) = a(m) Next m Next i 4、结束语句如下: Private Sub Command2_Click() Unload Me End Sub 总结 这次我的题目是选择法排序,通过这次实习,我知道了排序的基本程序段,并且解决了实现动画效果这一关键技术. 在课设过程中,我遇到了重重困难,但通过老师的指点和自己查阅资料,我克服了困难,顺利的完成了任务。同时我也了解了VB的出现是一场技术革命,它给人们的生活带来了很多方便和好处,它在生活中各个方面都能发挥巨大的作用,所以,对于我们大学生来说,学好VB不仅是自己的需要,更是社会发展的需要 完整程序 Option Base 1 Private Sub Command1_Click() Dim a

文档评论(0)

wuyoujun92 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档