VB课程设计Word文档格式.docx
《VB课程设计Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB课程设计Word文档格式.docx(12页珍藏版)》请在冰豆网上搜索。
2013年6月10日~21日(第16~17周),共计2周,40学时。
二、课程设计内容
对VB的典型算法进行动画演示,具体要求如下:
1.用学生由高到低站队列的实例对“一组有序数中插入一个数后仍然有序”的算法进行动画演示,学生图片自行查找和设计,表现要生动;
2.对用户输入的6个整数编写冒泡法从小到大排序、元素变换的动画演示程序(可以采用控件数组,准备换值的2个元素可以使用显眼颜色、闪烁效果来达到突出显示的目的)。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点5
主要界面截图7
总结7
完整的源程序8
参考文献12
需求分析
图示冒泡法能够清晰呈现计算机中对于排列大小数组过程,因而可以推及至其它的计算方法的演示。
为初学各种语言的人士能够更好的接受和掌握冒泡法及其他方法的掌握。
设计分析
(1)概述:
基本原理:
运用time控件对冒泡法的运算分步体现于窗体上。
(2)总体设计:
图1总体设计
(3)详细设计:
图2详细设计
技术要点
1.对于4个Time控件的控制运行的设置
通过各个command的触发来实现其是否计时。
以“开始”为例
PrivateSubCommand1_Click()
Timer1.Enabled=True
Timer2.Enabled=False
Timer3.Enabled=False
Timer4.Enabled=True
Command2.Enabled=True
Command1.Enabled=False
Command4.Enabled=False
EndSub
2.通过时间循环来实现个数字间比较和互换。
以第一次比较为例。
PrivateSubTimer1_Timer()
StaticaAsInteger
Ifa=5Then
a=0
EndIf
Picture1(a).BackColor=&
HC0&
Picture1(a+1).BackColor=&
HFF00&
IfPicture1(a).Height>
Picture1(a+1).HeightThen
Picture1(a).BorderStyle=1:
Picture1(a+1).BorderStyle=1
a=a+1
Timer2.Enabled=True
Timer1.Enabled=False
3.以最后运行最后一次顺序一致使停止。
(1)
PrivateSubTimer4_Timer()
DimkAsInteger,lAsInteger
Fork=0To4
IfPicture1(k).Height<
Picture1(k+1).HeightThen
l=l+1
Nextk
Ifl=5Then
Timer4.Enabled=False
Command1.Enabled=True
Command2.Enabled=False
MsgBox"
演示结束"
(2)
IfVal(Label1(k).Caption)<
Val(Label1(k+1).Caption)Then
冒泡法演示结束"
Text1(0).Text="
"
Text1
(1).Text="
Text1
(2).Text="
Text1(3).Text="
Text1(4).Text="
Text1(5).Text="
主要界面截图
动画演示界面,为主要要界面。
总结
通过这次的为期一周的课程设计,对于VB的编程的知识有了更多了解。
尤其是对冒泡法和时间控件的掌握和灵活运用。
在课设过程中,我遇到了重重困难,例如:
VB的各种控件的使用。
通过同学的指点和自己查阅资料,我克服了困难,顺利的完成了任务。
完整的源程序
PrivateSubForm_Load()
PrivateSubCommand2_Click()
End
PrivateSubTimer2_Timer()
StaticiAsInteger,jAsInteger
Ifi=5Then
i=0
IfPicture1(i).Height>
Picture1(i+1).HeightThen
Picture2=Picture1(i):
Picture1(i)=Picture1(i+1):
Picture1(i+1)=Picture2
Picture1(i).BackColor=&
H8000000F
Picture1(i+1).BackColor=&
i=i+1
Timer3.Enabled=True
PrivateSubTimer3_Timer()
StaticcAsInteger
Ifc=5Then
c=0
IfPicture1(c).Height<
Picture1(c+1).HeightThen
Picture1(c).BorderStyle=0:
Picture1(c+1).BorderStyle=0
Picture1(c).BackColor=&
Picture1(c+1).BackColor=&
c=c+1
Label1(0).Caption=Text1(0).Text
Label1
(1).Caption=Text1
(1).Text
Label1
(2).Caption=Text1
(2).Text
Label1(3).Caption=Text1(3).Text
Label1(4).Caption=Text1(4).Text
Label1(5).Caption=Text1(5).Text
Label1(a).BackColor=&
Label1(a+1).BackColor=&
IfVal(Label1(a).Caption)>
Val(Label1(a+1).Caption)Then
Label1(a).BorderStyle=1:
Label1(a+1).BorderStyle=1
IfVal(Label1(i).Caption)>
Val(Label1(i+1).Caption)Then
j=Val(Label1(i).Caption):
Label1(i).Caption=Label1(i+1):
Label1(i+1)=j
Label1(i).BackColor=&
Label1(i+1).BackColor=&
IfVal(Label1(c).Caption)<
Val(Label1(c+1).Caption)Then
Label1(c).BorderStyle=0:
Label1(c+1).BorderStyle=0
Label1(c).BackColor=&
Label1(c+1).BackColor=&
参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
[2]龚沛曾.《VisualBasic程序设计教程》.北京:
高等教育出版社,2009
[3]李霞.《VisualBasic应用程序开发指南》.北京:
人民邮电出版社,1997