VB课程设计.docx

1、VB课程设计沈 阳 航 空 航 天 大 学 课程设计学 号2011040602026班 级 14060201姓 名 杨壮 教 师 王晓岩 2013年 6 月 23日沈阳航空航天大学课程设计任务书学院：机电工程 专业：工业工程 班级：14060201学号：2011040602026题目：典型算法的动画演示一、课程设计时间2013年6月10日21日（第1617周），共计2周，40学时。二、课程设计内容对VB的典型算法进行动画演示，具体要求如下：1.用学生由高到低站队列的实例对“一组有序数中插入一个数后仍然有序”的算法进行动画演示，学生图片自行查找和设计，表现要生动；2.对用户输入的6个整数编写冒泡

2、法从小到大排序、元素变换的动画演示程序（可以采用控件数组，准备换值的2个元素可以使用显眼颜色、闪烁效果来达到突出显示的目的）。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析 4设计分析 4技术要点 5主要界面截图 7总结 7完整的源程序 8参考文献 12需求分析 图示冒泡法能够清晰呈现计算机中对于排列大小数组过程，因而可

3、以推及至其它的计算方法的演示。为初学各种语言的人士能够更好的接受和掌握冒泡法及其他方法的掌握。设计分析（1） 概述：基本原理：运用time控件对冒泡法的运算分步体现于窗体上。（2）总体设计：图1 总体设计（3）详细设计：图2 详细设计技术要点1.对于4个Time控件的控制运行的设置 通过各个command的触发来实现其是否计时。以“开始”为例Private Sub Command1_Click()Timer1.Enabled = TrueTimer2.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = TrueCommand2.Enabl

4、ed = TrueCommand1.Enabled = FalseCommand4.Enabled = FalseEnd Sub2 .通过时间循环来实现个数字间比较和互换。 以第一次比较为例。Private Sub Timer1_Timer()Static a As IntegerIf a = 5 Thena = 0End IfPicture1(a).BackColor = &HC0&Picture1(a + 1).BackColor = &HFF00&If Picture1(a).Height Picture1(a + 1).Height ThenPicture1(a).BorderStyl

5、e = 1: Picture1(a + 1).BorderStyle = 1End Ifa = a + 1Timer2.Enabled = TrueTimer1.Enabled = FalseEnd Sub3.以最后运行最后一次顺序一致使停止。（1）Private Sub Timer4_Timer()Dim k As Integer, l As IntegerFor k = 0 To 4If Picture1(k).Height Picture1(k + 1).Height Then l = l + 1End IfNext kIf l = 5 ThenTimer1.Enabled = Fals

6、eTimer2.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseMsgBox 演示结束End IfEnd Sub（2）Private Sub Timer4_Timer()Dim k As Integer, l As IntegerFor k = 0 To 4If Val(Label1(k).Caption) Picture1(a + 1).Height ThenPicture1(a).BorderStyle = 1: Picture

7、1(a + 1).BorderStyle = 1End Ifa = a + 1Timer2.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer2_Timer()Static i As Integer, j As IntegerIf i = 5 Theni = 0End IfIf Picture1(i).Height Picture1(i + 1).Height Then Picture2 = Picture1(i): Picture1(i) = Picture1(i + 1): Picture1(i + 1) = Pictu

8、re2 Picture1(i).BackColor = &H8000000FPicture1(i + 1).BackColor = &H8000000FEnd Ifi = i + 1Timer3.Enabled = TrueTimer2.Enabled = FalseEnd SubPrivate Sub Timer3_Timer()Static c As IntegerIf c = 5 Thenc = 0End IfIf Picture1(c).Height Picture1(c + 1).Height ThenPicture1(c).BorderStyle = 0: Picture1(c +

9、 1).BorderStyle = 0 Picture1(c).BackColor = &H8000000FPicture1(c + 1).BackColor = &H8000000FEnd Ifc = c + 1Timer1.Enabled = TrueTimer3.Enabled = FalseEnd SubPrivate Sub Timer4_Timer()Dim k As Integer, l As IntegerFor k = 0 To 4If Picture1(k).Height Val(Label1(a + 1).Caption) ThenLabel1(a).BorderStyl

10、e = 1: Label1(a + 1).BorderStyle = 1End Ifa = a + 1Timer2.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer2_Timer()Static i As Integer, j As IntegerIf i = 5 Theni = 0End IfIf Val(Label1(i).Caption) Val(Label1(i + 1).Caption) Then j = Val(Label1(i).Caption): Label1(i).Caption = Label1(i +

11、 1): Label1(i + 1) = j Label1(i).BackColor = &H8000000FLabel1(i + 1).BackColor = &H8000000FEnd Ifi = i + 1Timer3.Enabled = TrueTimer2.Enabled = FalseEnd SubPrivate Sub Timer3_Timer()Static c As IntegerIf c = 5 Thenc = 0End IfIf Val(Label1(c).Caption) Val(Label1(c + 1).Caption) ThenLabel1(c).BorderSt

12、yle = 0: Label1(c + 1).BorderStyle = 0 Label1(c).BackColor = &H8000000FLabel1(c + 1).BackColor = &H8000000FEnd Ifc = c + 1Timer1.Enabled = TrueTimer3.Enabled = FalseEnd SubPrivate Sub Timer4_Timer()Dim k As Integer, l As IntegerFor k = 0 To 4If Val(Label1(k).Caption) Val(Label1(k + 1).Caption) Then

13、l = l + 1End IfNext kIf l = 5 ThenTimer1.Enabled = FalseTimer2.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseMsgBox 冒泡法演示结束Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = Text1(4).Text = Text1(5).Text = End IfEnd Sub参考文献1 刘瑞新Visual Basic程序设计教程北京：机械工业出版社，20032 龚沛曾Visual Basic程序设计教程北京：高等教育出版社，20093 李霞Visual Basic应用程序开发指南北京：人民邮电出版社，1997