VB程序设计课程设计报告

1、VB程序设计课程设计报告(2016 2017学年第一学期)主题：排序演示学院：经济管理学院班级：物流管理1502学位：名字：指导教师：阮冰时间： 2017年1月3日至1月6日一、课程设计的基本信息课程代码： 05190124课程名称：基于计算机的课程设计课程英语名称：计算机- basedcoursedesign课程所属单位(学部、教室):数学和计算机学院计算机基础课程群课程面向专业：生物科学类、制药工程、制药工程(生物制药)、药物制剂、物流管理课程类型：必修课选修课程：大学计算机基础知识选择课程、Visual Basic程序设计课程单位： 1总学时： 16二、课程设计目标掌握所学语言程序的设计

2、方法，熟悉所学语言的开发环境和调整过程，熟悉所学语言的数据类型、数据结构、句子结构、运算方法，加强和加深对理论课知识的理解，提高学生对所学知识的综合运用能力。 通过整合设计要求，实现以下基本技能1 .培养自学能力查阅参考资料、手册，通过独立思考深入研究问题，学会自己分析和解决问题。2 .通过比较选定的主题方案，确立方案，制定程序，初步掌握程序设计的方法，可以很好地调整程序。3、系统设计编程简单、可用、功能全面，具有一定的容错能力。 用户界面良好，具有良好的输出功能。 完成课题基本要求后，有创新设计，具有实用价值。4 .根据个人设计调整过程，编制设计报告。三、课程设计内容利用掌握的VB编程语言的

3、基础、面向对象编程方法、事件驱动编程方式，进行应用程序和系统的开发设计。 在加强现有编程知识的基础上，训练新的设计和编程构想，综合应用学到的知识，设计、编制和调试实用的Visual Basic程序。四、课程设计要求1 .要求所有同学认真对待并积极参加。2 .课程设计完成后，提交所有完成的源程序、相关文件和可执行文件。 同时填写课程设计报告册完成。3 .不符合要求的程序、设计报告、模仿的设计报告或源程序代码、完全不参与设计的都不合格。五、审查方式指导老师负责检查流程的执行结果，结合学生的工作态度、实践能力、创新精神和设计报告等进行综合评价，按百分比计算，具体评价标准主要包括以下部分1 .方案执行

4、情况20分2 .程序功能的完善度10分3 .程序结构的合理性10点4 .对问题的答辩情况20分5 .创新情况10分6 .学生的工作态度和独立工作能力10分7 .设计报告内容的规范性20分备注：1 .在规定时间填写各级文件，增加5分学习态度2、设计报告内容为雷同按钮40分，调整过程问题分析按钮10分，参考文献按钮10分无3 .如果源程序没有评论，就在程序结构的合理性上减去10分六、课程设计的主要参考资料Visual Basic程序设计教程 第4版龙沛曾高等教育出版社Visual Basic程序设计实验指导与测试 第4版龙沛曾高等教育出版社Visual Basic从入门到精通清华大学出版社Visu

5、al Basic课程设计王栋清华大学出版社Visual Basic开发实战1200例孙秀梅，功建华清华大学出版社七、课程设计计划的安排时间任务课程设计的一周前选择课程设计主题，分析课题要求，确定设计方案，完成报告书中的“课程设计概要”课程设计第一天为每个功能模块制作详细的设计说明，完成报表簿的“整体设计”课程设计第二天打火机，调试器课程设计第三天制作程序、调试器，完成报表簿的“详细设计”课程设计第四天完成调试器、报表簿的“调试分析流程”课程设计第五天完成报告的“总结”、“参考文献”、“课程设计评审表”的一部分，提交课程设计报告、源程序、面试或答辩一、课程设计概述课程设计问题的说明本问题主要是程

6、序设计中对数值型数据进行排序的问题，这是最基本的数据处理操作，但本问题不仅综合了比较法、选择法、直接插入法和冒泡法这4种不同的排序算法，也是一些表单编辑器、快捷菜单的本程序以动画表示上述4种排序算法的排序过程，能够比较4种算法所需的数据交换的次数，因此对4种排序算法有直观的认识，能够比较4种排序算法的排序效率此程序还可以在生成的10个随机数中找到最大值、最小值和平均值。设计要求1 .分析和比较所选主题方案，确立方案。2、用户界面良好，具有良好的输入输出能力。3 .进行程序编制和调试，初步掌握程序的设计方法，熟练进行程序调试。4、程序运行情况正常，程序功能完善，程序结构合理。5、系统设计可编程，

7、简洁，具有一定的容错性。6 .完成基本要求后，最好有一定程度的创新。设计目的在计算机语言程序设计（VB）课程的基础上，进一步培养学生综合应用VB各种编程知识和技术编程的能力，总结本学期VB课程的学习，旨在强化和深化所学知识。2 .开发和发掘我们的创新和实践能力，实现具备设计功能复杂的Windows应用程序的能力。3、通过课程设计，我们培养自主学习和独立创新精神也是人才培养体系中极其重要的一环。4、掌握所学语言程序的设计方法，熟悉所学语言的开发环境和调整过程，熟悉所学语言的数据类型、数据结构、句子结构、运算方法，加强和加深对理论课知识的理解，提高学生对所学知识的综合运用能力。开发环境.操作系统：

8、 window s 10 server/XP/professional.处理器： 486DX/66 MHz以上的处理器.监视器： VGA以上分辨率的监视器.应用程序： Visual Basic 6.0二、整体设计(1)系统功能要求分析1 .程序启动后，显示图6.1所示的主画面。 首先单击“生成10个随机数”按钮生成10个随机数，显示在10个文本框中，然后选择“演示模式”和“排序方法”。 在演示模式中，可以直接显示排序结果、使用动画动态地显示整个排序过程，以及按升序、降序对排序方法进行排序。图6.1启动后的主接口2 .右键单击主窗口的空白区域，显示图6.2所示的快捷菜单。 选择“排序算法”命令，

9、打开图6.3所示的对话框，选择排序方法，然后单击其他排序方法，在“算法说明”中进行了简单说明。 单击“确定”按钮返回到主窗口，在主窗口顶部框架控件的标题文本中显示当前所选的排序算法。图6.2快捷菜单图6.3“选择排序算法”对话框快捷菜单包含“从文件读取数据”命令，您可以使用该命令从当前目录的data.txt文件中读取10个数据。 要使用此命令，必须先创建此文本文件。3 .设定完成后，单击“开始排序”按钮开始排序处理。 此按钮在生成数据之前不可用。 如果选择动画方法(参见图6.4 )，则红色背景文本框表示当前正在比较的元素，黄色元素表示自己的排序，两个运动文本框表示交换过程。 您可以在排序过程中

10、调整水平滚动条来控制演示文稿的速度。 排序完成后，程序将在消息框中报告数据交换的次数(图6.5 )。 使用快捷菜单上的“将数据写入文件”命令，可以将排序的数据保存到“data.txt”中，并复盖原始内容。图6.4程序的主接口4 .在窗口的主菜单中选择“颜色设定”命令，主窗口放大，在下部显示“颜色设定”框架(图6.6 )，可以设定文本背景色、文本前景色、排序的基色、交换节点色。 选择此命令后，窗口将恢复到原始大小。图6.5交换次数图6.6显示系统的主菜单图6.7确认结束对话颜色的设定5 .选择“结束”命令结束本程序后，程序显示图6.7所示的对话框并进行确认。二、整体设计(2)整个系统的设计框架1

11、 .基本表单控制设计2 .菜单编辑器-快捷菜单的弹出菜单3 .计时器编码4 .表单编辑器-多个表单1.4种排序方法(比较法、选择法、直接插入法、冒泡法)2 .最大值、最小值、平均值的计算3 .动画演示4 .显示对话框写代码表单的设计排序演示三、详细设计主要功能模块源程序。1 .表单设计1.4个帧控件-第一个帧控件包含这个问题的基本运算也是经常变化的控件。第二个和第三个帧控件主要是此程序的运行方式的选择。第四个帧控件基本上是在菜单项“颜色设置”独立事件的结果中运行第一个帧控件时的颜色设置。2 .一个文本框阵列-包括两个随机数文本框和两个交换时运行的文本框3 .菜单设计-下拉菜单分为两部分，各自的

12、功能不同。弹出式菜单分为三个部分，在第一部分的独立事件中显示了新的表单.三、详细设计主要功能模块源程序。4 .用水平滚动条Frame移动控件时的速度控制。5个command按钮-单击“生成10个随机数”命令按钮1(0)事件，在前10个文本框中生成10个随机数只有在第二个和第三个帧中选择了控件时，“开始排序”命令按钮1(2)才有效，并对10个随机数进行排序。“默认”命令按钮2是用于设置文本框数组颜色的默认按钮。“停止”命令按钮1(2)有效的情况。“结束”命令按钮3用于结束程序的执行。六个timer控件-控制此程序的运行时间间隔。7组合排列-包含4个组合控件Color1(0)文本背景色Color1

13、(1)文本前景色Color1(2)排序的基色Color1(3)交换基色2 .代码设计1 .变量宣言Option Explicit选项库1Dim a(10) As Integer随机数数组Dim First As IntegerDim Second As Integer私有MBL n移动为布尔型Dim Speed As IntegerDim inColor1 As Long文本背景色Dim inColor2 As Long文本前景色Dim inColor3 As Long排序的基色Dim inColor4 As Long交换基色Dim inNum As Long更换次数publinsortmet

14、hodassinteger排序算法0-比较法、1-选择法2-直接插入法、3-冒泡法Private inSortOrder As Integer排序方向0-升序1-降序私有在showmode as integer演示模式，0-直接解决，1-动态演示2.1命令1 (0)- -生成个随机数请参见私有子命令1 (0) _ click ()RandomizeFor i=1 To 10a(i)=Int(Rnd * 201) - 100文本1 (I ) .文本=a (I )文本1 (I ) .后颜色=in color 1文本1 (I ).forecolor=in color 2下一个command1.启用=true第2帧Frame3中option的选择与随机数的排序方法直接相关2 comman