VB程序设计课程设计报告

《VB程序设计》课程设计报告（2016—2017学年第1学期）题目：排序演示学院：经济与管理学院班级：物流管理1502学号：姓名：指导教师：阮冰时间：起2017年1月3日止1月6日1、课程设计基本信息课程代码：05190124课程名称：计算机基础课程设计课程英文名称:Computer-basedCourseDesign课程所属单位（院（系）、教研室）：数学与计算机学院计算机基础课程群课程面向专业：生物科学类、制药 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 、制药工程(生物制药)、药物制剂、物流管理课程类型：必修课先修课程：大学计算机基础通识选修课程、VisualBasic程序设计课程学分：1总学时：162、课程设计目标掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中的数据类型，数据结构、语句结构、运算方法，巩固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。通过综合设计要求达到下列基本技能：1．培养查阅参考资料、手册的自学能力，通过独立思考深入钻研问题，学会自己 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 、解决问题。2．通过对所选题目 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 分析比较，确立方案，编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。3．系统设计编程简练，可用，功能全面，并有一定的容错能力。用户界面良好，有较好的输出功能。在完成课题基本要求后，具有创新型设计，具有一定的实用价值。4．根据个人的设计调试过程，撰写设计报告。 3、课程设计内容利用已掌握的VB程序设计语言基础，以及面向对象的程序设计方法、事件驱动的编程方式，进行应用程序和系统的开发设计。在强化巩固已有编程知识基础之上，训练新的设计与编程思路，通过综合应用所学知识设计、编制、调试实用的VisualBasic程序。4、课程设计要求1.要求每个同学都要认真对待，积极参与。2.课程设计结束时，提交完成的所有源程序、相关文件和可执行文件。同时填写并完成《课程设计报告册》。3.不符合要求的程序、设计报告、抄袭的设计报告或源程序代码、在设计中完全未参与的将作不及格处理。5、考核方式指导老师负责验收程序的运行结果，并结合学生的工作态度、实际动手能力、创新精神和设计报告等进行综合考评，百分制计算，具体考核 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 主要包含以下几个部分：1.程序运行情况20分2.程序功能的完善程度10分3.程序结构的合理性10分4.对问题的答辩情况20分5.创新情况10分6.学生的工作态度与独立工作能力10分7.设计报告内容的规范性20分备注:1.按规定时间填写各阶段文档，学习态度加5分2.设计报告内容雷同扣40分，无调试过程问题分析扣10分，无参考文献扣10分3.源程序无注释则在程序结构合理性扣10分6、课程设计主要参考资料《VisualBasic程序设计教程第4版》龚沛曾高等教育出版社《VisualBasic程序设计实验指导与测试第4版》龚沛曾高等教育出版社《VisualBasic从入门到精通》清华大学出版社《VisualBasic课程设计》王栋清华大学出版社《VisualBasic开发实战1200例》孙秀梅，巩建华清华大学出版社7、课程设计 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载 安排 时间 任务 课程设计前一周 选择课程设计题目，分析课题的要求，确定设计方案，完成报告册中“课程设计概述” 课程设计第1天 按功能模块编写详细设计说明，完成报告册中“总体设计” 课程设计第2天 编写程序、调试程序 课程设计第3天 编写程序、调试程序，完成报告册中“详细设计” 课程设计第4天 调试程序，完成报告册中“调试分析过程” 课程设计第5天 完成报告册中“总结”、“参考文献”、“课程设计评审表”部分内容，提交课程设计报告、源程序、面试或答辩 一、课程设计概述 课程设计问题描述 本题主要是针对在程序设计中对数值型数据进行排序的问题，这虽然是最基本的数据处理操作，但本题不仅综合了四种不同的排序算法：比较法、选择法、直接插入法和冒泡法，也涉及到了一些窗体编辑器，快捷菜单的做法，定时器的编码，使得本题更加的复杂，也增加了本题的理解难度。本程序以动画方式演示上述四种排序算法的排序过程，并可以比较四种算法所需交换数据的次数，从而对四种排序算法有一个比较直观的认识，也可以对四种排序算法的排序效率进行对比。本程序还可以找出所产生的10个随机数中的最大值、最小值和平均值。 设计要求 1.对所选题目方案分析比较，确立方案。2.用户界面良好，有较好的输入输出能力。3.编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。4.程序运行情况正常，程序功能完善，程序结构合理。5.系统设计编程可用，简练，并有一定的容错能力。6.在完成基本要求后，最好能有一定的创新。 设计目的 1.以《计算机语言程序设计（VB）》课程为基础，目的是进一步培养学生综合应用VB的各种编程知识和技巧进行程序设计的能力对本学期VB课程学习的一个总结，对所学知识的巩固与加深。2.开发和挖掘我们的创新和实践能力，使我们达到具备设计功能较为复杂的Windows应用程序的能力。3.通过课程设计，培养我们自主学习和独立创新的精神，也是人才培养体系中极为重要的一环。4.掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中的数据类型，数据结构、语句结构、运算方法，巩固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。 开发环境 .操作系统：Windows10Sever/XP/Professional.处理器：486DX/66MHz或更高的处理器.显示器：VGA或更高分辨率的显示器.应用软件：VisualBasic6.0 二、总体设计(1) 系统功能需求分析 1.程序启动后，显示图6.1所示的主界面。首先单击“产生10个随机数”按钮来产生10个随机数，并显示在10个文本框中；然后选择一种“演示模式”和“排序方式”，其中演示模式可以直接给出排序结果，也可以通过动画动态演示整个排序过程，排序方式可以按从小到大顺序，也可以按从大到小顺序排序。图6.1启动后的主界面2.在主窗口的空白区单击鼠标右键，弹出如图6.2所示的快捷菜单。从中选择“排序算法”命令，打开图6.3所示的对话框，从中选择一种排序方式，单击不同排序方式时，“算法描述”中简要介绍了这种算法。单击“确定”按钮返回到主窗口，主窗口中最上方框架控件的标题文字显示当前所选的排序算法。图6.2快捷菜单图6.3“排序算法选择”对话框快捷菜单中有一“从文件读取数据”命令，使用此命令可以从当前目录的data.txt文件中读入10个数。要使用这个命令，必须事先建立这个文本文件。3.设置完毕，单击“开始排序”按钮(此按钮在生成数据之前是不可用的)启动排序过程。若选择了动画方式(见图6.4)，红色背景的文本框表示当前正在比较的元素，黄色的代表己排序的元素，两个运动的文本框表示交换过程。在排序过程中可以调节水平滚动条来控制演示的速度。排序结束后程序以消息框的形式报告数据交换的次数(如图6.5)。可以使用快捷菜单中的“将数据写入文件”命令将排序后的数据保存到“data.txt”中覆盖原有内容。图6.4程序主界面4.选择窗口主菜单中的“颜色设置”命令，主窗口扩大，底部显示“颜色设置”框架(如图6.6所示)，可以对“文本背景色”、“文本前景色”、“已排序元素色”和“交换结点色”进行设置。再选择此命令，窗口恢复到原来大小。图6.5显示交换次数图6.6系统主菜单5.选择“退出”命令可退出本程序，程序显示图6.7所示的对话框予以确认。 二、总体设计(2) 系统总体设计框架 三、详细设计 主要功能模块源程序 1.窗体设计1．四个Frame控件----第一个Frame控件包含此问题的基本运算的也是时刻会发生变化的控件。第二个和第三个Frame控件主要是对此程序运行方式的选择。第四个Frame控件实质是菜单项中“颜色设置”单机事件的结果，是对第一个Frame中控件运行时的颜色设置。2.1个文本框数组----包括10个随机数文本框和两个`交换时运动着的文本框3.菜单设计----下拉式菜单分为两部分，每部分功能不同。弹出式菜单分为三部分，第一部分的单机事件会出现一个新的Form窗体。 三、详细设计 主要功能模块源程序 4.一个水平滚动条----对Frame中控件运动时的速度调控。5五个command按钮---“产生十个随机数”命令按钮1（0）单击事件会在前十个文本框中产生十个随机数“开始排序”命令按钮1（2）在第二个和第三个Frame中控件都被选择后才会有效，然后对十个随机数进行不同方式的排序。“默认值”命令按钮2是对文本框数组颜色设置的默认按钮。“停止”命令按钮1（2）在情况下才有效。“退出”命令按钮3是用来结束该程序的运行。6一个timer控件----对此程序运行时的时间间隔控制。7一个combo数组---包括四个combo控件Color1(0)文本背景色Color1(1)文本前景色Color1(2)已排序元素色Color1(3)交换元素色2.代码设计1.变量声明OptionExplicitOptionBase1Dima(10)AsInteger随机数数组DimFirstAsIntegerDimSecondAsIntegerPrivatemblnMovingAsBooleanDimSpeedAsIntegerDiminColor1AsLong文本背景色DiminColor2AsLong文本前景色DiminColor3AsLong已排序元素色DiminColor4AsLong交换元素色DiminNumAsLong交换次数PublicinSortMethodAsInteger排序算法0-比较法，1-选择法2-直接插入法，3-冒泡法PrivateinSortOrderAsInteger排序方向0-升序1-降序PrivateinShowModeAsInteger演示模式，0-直接求解，1-动态演示2．1command1（0）---产生十个随机数PrivateSubCommand1（0）_Click()RandomizeFori=1To10a(i)=Int(Rnd*201)-100Text1(i).Text=a(i)Text1(i).BackColor=inColor1Text1(i).ForeColor=inColor2NextiCommand1.Enabled=True2command1（1）----开始排序PrivateSubOption1_Click(IndexAsInteger)intShowMode=IndexEndSubPrivateSubOption2_Click(IndexAsInteger)intSortOrder=IndexEndSub当排序结束后，会弹出如下一个对话框。代码为：3command1（2）---停止程序的运行PrivateSubCommand3_Click()IfCommand3.Caption="停止"ThenTimer1.Enabled=FalseCommand3.Caption="继续"ElseIfCommand3.Caption="继续"ThenTimer1.Enabled=TrueCommand3.Caption="停止"EndIfEndIfEndSub4command2-----默认颜色的按钮PrivateSubCommand2_Click()Color1(0).ListIndex=0inColor1=vbGreen文本背景色Color1(1).ListIndex=1inColor2=vbBlack文本前景色Color1(2).ListIndex=2inColor3=vbYellow已排序元素色Color1(3).ListIndex=3inColor4=vbRed交换元素色5command3----退出按钮3.combo数组名称分别为Color1(0)文本背景色Color1(1)文本前景色Color1(2)已排序元素色Color1(3)交换元素色每个combo又有不同的list，都为黑色，绿色，蓝色，青色，红色，黄色紫色分布。用index区分PrivateSubColor1_Click(IndexAsInteger)DimiAsIntegerSelectCaseIndexCase0color1(0)文本背景色SelectCaseColor1(0).ListIndexCase0inColor1=vbGreenCase1inColor1=vbBlueCase2inColor41=vbRedCase3inColor41=vbYellowEndSelectForI=1To10Text1(I).BackColor=inColor1NextIEndSelectFori=1To10Text1(i).BackColor=intColor1NextiCase1color1(1)文本前景色SelectCaseColor1(1).ListIndexCase0inColor4=vbGreenCase1inColor4=vbBlueCase2inColor4=vbRedCase3inColor4=vbYellowEndSelectForI=1To10Text1(I).ForeColor=inColor2NextIEndSelectFori=1To10Text1(i).ForeColor=intColor2NextiCase2SelectCaseColor1(2).ListIndexCase0inColor4=vbGreenCase1inColor4=vbBlueCase2inColor4=vbRedCase3inColor4=vbYellowEndSelectForI=1To10Text1(I).ForeColor=inColor2NextIEndSelectCase3'处理正在交换的结点的背景色SelectCaseColor1(3).ListIndexCase0inColor4=vbGreenCase1inColor4=vbBlueCase2inColor4=vbRedCase3inColor4=vbYellowEndSelectForI=1To10Text1(I).ForeColor=inColor2NextIEndSelectEndSub4.开始排序PrivateSubCommand1（1）_Click()DimMinAsInteger,MaxAsInteger,sAsSingleMin=1000:Max=-1000:s=0Fori=1To10Ife(i)>MaxThenMax=e(i)Ife(i)<MinThenMin=e(i)s=s+e(i)NextiText4.Text=Max最大值Text5.Text=Min最小值Text6.Text=s/10平均值Command3.Enabled=TrueSelectCaseintSortMethodCase0比较法comparation_sorte(),intSortOrderCase1选择法selection_sorte(),intSortOrderCase2直接插入法insertion_sorte(),intSortOrderCase3冒泡法bubble_sorte(),intSortOrderEndSelectPrivateSubCommand1（2）_Click()Exit_ClickEndSub5．弹出菜单PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)IfButton=2ThenPopupMenuMenu2EndIfEndSub6.下拉式菜单PrivateSubColor_Click()Form1.Height=Form1.Height+2000Frame3.Visible=TrueColor.Checked=TrueEndSubPrivateSubExit_Click()DimIAsIntegerI=MsgBox("您真的要退出吗？",vbYesNo+vbQuestion+vbDefaultButton2,"请您确认！")IfI=vbYesThenEndEndIfEndSub8.弹出菜单中排序算法---四种同时出现新窗体2个Frame控件-----一个包含了一个option数组，是对排序方式的选择另一个包含了一个text控件，是对选中的option的解释1个command按钮，是和Form1的衔接，决定了Form1中十个随机数的排序方式 四、调试分析过程(1) 调试过程出现的问题及解决方法 1.在程序一运行时，没有对speed进行初定量，在程序运行后，动态演示时，负责显示交换元素的两个文本框不运动，也没有排序的作用。解决：在Form1的load事件中增加了speed=100语句。2．下拉式菜单与快捷菜单分离不开导致快捷菜单不出现下拉式菜单又出现太多选项解决：增加第二个主菜单“弹出式菜单”，且不可见。3.快捷菜单无法弹出，且无法联系到窗体。弹出菜单要用PopupMenu方法在单击“排序算法”时，出现Form2.show语句，联系到Form14.对四种排序方法的编程混淆不清在网络上查找资料，先了解四种排序方法的特点和区别。用简单的语句解释理解，然后随机列举几个数字，用排序方法依次排大小，总结规律。写出排序方法的代码。5.动态演示如何演变用Timer事件进行编程。 四、调试分析过程(2) 测试数据及测试结果 程序运行后，单击下拉式菜单，对颜色进行设置，单击“产生十个随机数”，可以看到随机数所在文本框的背景色和前景色发生改变，然后对演示模式和排序方式进行选择1.当选择静态演示时，会弹出如下对话框。单击确定后，发现排序和最值，平均值的运算已完成。2.当动态演示时，正在排序元素和已排序元素文本背景色发生变化，且两个变化文本框会运动，在排序结束后，也会出现系统提示的对话框。还可以通过对水平滚动条设置来调整交换速度单击右键会弹出快捷菜单单击“停止”按钮时，排序运动会暂停，再次单击时又会重新启动。单击“退出按钮时”，会出现对话框2.第二个窗体的选择也关系到第一个窗体的运行Option的选择不同，窗体一中的排序方法也不同。 五、总结 设计用到的知识点 1多窗体的设计与衔接2四种排序方法的运用与编程3弹出式菜单的运用4最大值，最小值，平均值的计算5定时器的运用使文本框进行移动6滚动条与Frame控件的运用7读入与读出数据 收获与体会 在此次课程设计中，我才真正了解到VB的魅力，生活的方方面面都体现了vb知识，计算机上那些普普通通的小程序也同样需要那么多的代码才能够运行起来在，而在已经结束的半年VB课程学习中，我们学到的只是VB知识的冰山一角，要想探索到vb的奥秘，我们还需更将努力。在完成该课题的过程中，我也深刻体会到只有对vb事件和方法真正理解，我们在看到题目时才会胸有成竹，下笔如有神。在编程程序时，我们应该多思考，多提问，从仿照和借鉴中学习和积累属于自己的知识。 不足与努力方向 本程序涉及的知识点很广，不仅包括有比较法排序，插入法排序，冒泡发排序，选择法排序，集合了所有的排序，还包括多窗体的设计与衔接，弹出式菜单的运用，读入数据与数据写入，定时器的运用，各种事件和方法联系比较密切，让我对题目的理解变得困难。而且控件数量十分多，十分容易混杂。而且我对多窗体完全不了解，对读入数据与写入数据鲜有接触，最重要的四种排序方法又十分混杂，有点让我不知所措。今后在学习与理解vb学习的过程中，要真正的理解，始终怀有一种求知的态度，不懂就问，不停地钻研和实践，终会得到回报。 六、参考文献 参考书籍及参考论文与网址 1.http://wenku.baidu.com/link?url=JLQNwZXSigXFUbDOKw-lXt1yVagPKruA3JjCXN5nufUNJ4o61TFWq-slbhBOzRI0abVaLkgsLeyfjMBfkRaTp2hvGLv_2gWoAHUoOiJ0AmW2.http://wenku.baidu.com/view/08b95501de80d4d8d15a4fe8.html3.http://wenku.baidu.com/view/31f4fcfbaef8941ea76e05f1.html4.http://wenda.so.com/q/1357552662064294?src=1405.VisualBasic程序设计代码第四版6.https://zhidao.baidu.com/question/435373098.html7.http://download.csdn.net/detail/slchocolate/3908228课程设计成绩评审表 姓名 易思佳 学号 1508090038 班级 物流1502 设计题目 排序演示 作品描述 本程序以动画方式演示四种排序算法的排序过程，并可以比较四种算法所需交换数据的次数，从而对四种排序算法有一个比较直观的认识，也可以对四种排序算法的排序效率进行对比。本程序还可以找出所产生的10个随机数中的最大值、最小值和平均值。 观测内容 分值 评分（上限） 得分 A B C D E 程序运行情况 20 20 15 10 5 3 程序功能的完善程度 10 10 8 6 4 2 程序结构的合理性 10 10 8 6 4 2 对问题的答辩情况 20 20 15 10 5 3 创新情况 10 10 8 6 4 2 工作态度与独立工作能力 10 10 8 6 4 2 设计报告内容的规范性 20 20 15 10 5 3 指导教师评定成绩 指导教师（签名）年月日图6.7确认退出对话颜色设置基本窗体控件设计菜单编辑器------快捷菜单的弹出定时器的编码窗体编辑器-----多重窗体四种排序方法（比较法、选择法，直接插入法和冒泡法）最大值，最小值，平均值的计算动画演示对话框弹出编写代码窗体设计排序演示Frame2Frame3中option的选择直接关系到随机数的排序方式response=MsgBox("比较法排序完毕，交换次数为："+Str(Num),vbOKOnly,"系统提示")Combo1(0)的list属性，用index区分背景颜色。Combo1(1)的list属性，用index区分前景颜色。Combo1(2)的list属性，用index区分已排序元素色。Combo1(3)的list属性，用index区分交换元素色。