VB课程设计Word文档格式.docx

1、2013年6月10日21日（第1617周），共计2周，40学时。二、课程设计内容对VB的典型算法进行动画演示，具体要求如下：1.用学生由高到低站队列的实例对“一组有序数中插入一个数后仍然有序”的算法进行动画演示，学生图片自行查找和设计，表现要生动；2.对用户输入的6个整数编写冒泡法从小到大排序、元素变换的动画演示程序（可以采用控件数组，准备换值的2个元素可以使用显眼颜色、闪烁效果来达到突出显示的目的）。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明

2、书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析 4设计分析 4技术要点 5主要界面截图 7总结 7完整的源程序 8参考文献 12需求分析 图示冒泡法能够清晰呈现计算机中对于排列大小数组过程，因而可以推及至其它的计算方法的演示。为初学各种语言的人士能够更好的接受和掌握冒泡法及其他方法的掌握。设计分析（1） 概述：基本原理：运用time控件对冒泡法的运算分步体现于窗体上。（2）总体设计：图1 总体设计（3）详细设计：图2 详细设计技术要点1.对于4个Time控件的控制运行的设置 通过各个command的触发来实现其

3、是否计时。以“开始”为例Private Sub Command1_Click（）Timer1.Enabled = TrueTimer2.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = TrueCommand2.Enabled = TrueCommand1.Enabled = FalseCommand4.Enabled = FalseEnd Sub2 .通过时间循环来实现个数字间比较和互换。 以第一次比较为例。Private Sub Timer1_Timer（）Static a As IntegerIf a = 5 Thena = 0E

4、nd IfPicture1（a）.BackColor = &HC0&Picture1（a + 1）.BackColor = &HFF00&If Picture1（a）.Height Picture1（a + 1）.Height ThenPicture1（a）.BorderStyle = 1: Picture1（a + 1）.BorderStyle = 1a = a + 1Timer2.Enabled = TrueTimer1.Enabled = False3.以最后运行最后一次顺序一致使停止。（1）Private Sub Timer4_Timer（）Dim k As Integer, l As

5、 IntegerFor k = 0 To 4If Picture1（k）.Height Picture1（k + 1）.Height Then l = l + 1Next kIf l = 5 ThenTimer4.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseMsgBox 演示结束（2）If Val（Label1（k）.Caption） Picture1（i + 1）.Height Then Picture2 = Picture1（i）: Picture1（i） = Picture1（i + 1）: Picture1

6、（i + 1） = Picture2 Picture1（i）.BackColor = &H8000000FPicture1（i + 1）.BackColor = &i = i + 1Timer3.Enabled = TruePrivate Sub Timer3_Timer（）Static c As IntegerIf c = 5 Thenc = 0If Picture1（c）.Height Val（Label1（a + 1）.Caption） ThenLabel1（a）.BorderStyle = 1: Label1（a + 1）.BorderStyle = 1If Val（Label1（i）

7、.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 = &If Val（Label1（c）.Caption） Val（Label1（c + 1）.Caption） ThenLabel1（c）.BorderStyle = 0: Label1（c + 1）.BorderStyle = 0 Label1（c）.BackColor = &Label1（c + 1）.BackColor = &参考文献1 刘瑞新Visual Basic程序设计教程北京：机械工业出版社，20032 龚沛曾Visual Basic程序设计教程北京：高等教育出版社，20093 李霞Visual Basic应用程序开发指南北京：人民邮电出版社，1997