冒泡法排序的动画演示Word格式文档下载.docx
- 文档编号:19686906
- 上传时间:2023-01-08
- 格式:DOCX
- 页数:8
- 大小:37.21KB
冒泡法排序的动画演示Word格式文档下载.docx
《冒泡法排序的动画演示Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《冒泡法排序的动画演示Word格式文档下载.docx(8页珍藏版)》请在冰豆网上搜索。
2009040302106题目:
“冒泡法”排序的动画演示
一、课程设计时间
2011年3月7~11日(第1周),共计1周,20学时。
二、课程设计内容
用控件数组技术实现动画,演示用冒泡法对数组(18,12,16,10,11,19)由小到大排序、元素变换的完整过程。
要求:
准备换值的2个元素,使用显眼颜色、闪烁效果。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;
可以加以其它功能或修饰。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
目录
一、需求分析3
二、设计分析4
三、技术要点5
四、主要截图10
五、总结10
六、完整的源程序12
七、参考文献10
一、需求分析
“冒泡法”排序的动态演示根据冒泡法排序的原理对数字进行从大到小的排序。
由于需要动态闪烁,所以运用了更加直观的颜色变换。
(1)窗体的结构应有如下定义:
在窗体上需要建立“开始”,“退出”,等控件。
(2)将数字应用冒泡法进行动态闪烁变换。
(3)闪烁变化的两个数之间有颜色变换
二、设计分析
(1)基本原理:
应用冒泡法原理将相邻的两个元素依次进行比较,直至把所给数据按从小到大排好为止。
只需对几个控件进行编程即可。
(2)总体设计:
图1总体设计
(3)详细设计:
图2详细设计
三、技术要点
(1)冒泡法代码如下:
PrivateSubCommand1_Click()
Label1(0).Caption=18
Label1
(1).Caption=12
Label1
(2).Caption=16
Label1(3).Caption=10
Label1(4).Caption=11
Label1(5).Caption=19
Timer1.Enabled=True
Timer2.Enabled=False
Timer3.Enabled=False
Timer4.Enabled=True
Command2.Enabled=True
Command1.Enabled=False
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
Timer4.Enabled=False
PrivateSubCommand3_Click()
End
PrivateSubForm_Load()
(2)闪烁变化代码如下:
IfLabel1(a).Caption>
Label1(a+1).CaptionThen
Label1(a).BorderStyle=1:
Label1(a+1).BorderStyle=1
IfLabel1(i).Caption>
Label1(i+1).CaptionThen
j=Label1(i).Caption:
Label1(i).Caption=Label1(i+1):
Label1(i+1)=j
(3)色彩变化代码如下:
Label1(i).BackColor=&
H8000000F
Label1(i+1).BackColor=&
Label1(c).BackColor=&
Label1(c+1).BackColor=&
四、主要截图
生成图形
五、总结
这次课设我的题目是“冒泡法”排序动态演示,通过这次课设让我了解了VB的博大精深以及它的灵活多变
在课设过程中,我遇到了很多问题,但是通过老师的指点和查阅众多资料,我顺利的完成了课设。
同时我也了解了VB的作用,它在生活中各个方面都能发挥巨大的作用,所以,学好VB是相当重要的,建议以后学校多开设些VB课程。
五、完整的源程序
Command1.Enabled=True
Command2.Enabled=False
PrivateSubTimer1_Timer()
StaticaAsInteger
Ifa=5Then
a=0
EndIf
Label1(a).BackColor=&
H8080FF
Label1(a+1).BackColor=&
H80C0FF
a=a+1
Timer2.Enabled=True
PrivateSubTimer2_Timer()
StaticiAsInteger,jAsInteger
Ifi=5Then
i=0
Label1(i).BackColor=&
i=i+1
Timer3.Enabled=True
PrivateSubTimer3_Timer()
StaticcAsInteger
Ifc=5Then
c=0
IfLabel1(c).Caption<
Label1(c+1).CaptionThen
Label1(c).BorderStyle=0:
Label1(c+1).BorderStyle=0
Label1(c).BackColor=&
c=c+1
PrivateSubTimer4_Timer()
DimkAsInteger,lAsInteger
Fork=0To4
IfLabel1(k).Caption<
Label1(k+1).CaptionThen
l=l+1
Nextk
Ifl=5Then
MsgBox"
冒泡法演示结束"
六、参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 冒泡 排序 动画 演示