VB程序设计课程设计报告材料

1、实用标准文案«VB程序设计?课程设计报告2021 2021 学年第1学期题 目：排序演示学院：经济与治理学院班级： 物流治理1502学 号：姓 名：指导教师：阮冰时间：起 2021年1月3日 止 1月6日精彩文档实用标准文案一、课程设计根本信息课程代码:05190124课程名称：计算机根底课程设计课程英文名称 ：Computer-based Course Design课程所属单位院系、教研室：数学与计算机学院计算机根底课程群课程面向专业：生物科学类、制药工程、制药工程生物制药卜药物制剂、物流治理课程类型：必修课先修课程：大学计算机根底通识选修课程、Visual Basic程序设计课程

2、学分：1 总学时：16二、课程设计目标掌握所学语言程序设计的方法,熟悉所学语言的开发环境及调试过程,熟悉所学语言中的数据类型,数据结构、语句结构、运算方法,稳固和加深对理论课中知识的理解,提升学 生对所学知识的综合运用水平.通过综合设计要求到达以下根本技能：1 .培养查阅参考资料、手册的自学水平,通过独立思考深入钻研问题,学会自己分析、 解决问题.2 .通过对所选题目方案分析比拟,确立方案,编制与调试程序,初步掌握程序设计的 方法,能熟练调试程序.3 .系统设计编程简练,可用,功能全面,并有一定的容错水平.用户界面良好,有较 好的输出功能.在完成课题根本要求后,具有创新型设计,具有一定的实用价

3、值.4 .根据个人的设计调试过程,撰写设计报告.三、课程设计内容利用已掌握的VB程序设计语言根底,以及面向对象的程序设计方法、事件驱动的编程 方式,进行应用程序和系统的开发设计.在强化稳固已有编程知识根底之上,练习新的设计与编程思路,通过综合应用所学知识设计、编制、调试实用的 Visual Basic程序.四、课程设计要求1 .要求每个同学都要认真对待,积极参与.2 .课程设计结束时,提交完成的所有源程序、相关文件和可执行文件.同时填写并完 成?课程设计报告册?.3 .不符合要求的程序、 设计报告、抄袭的设计报告或源程序代码、在设计中完全未参与的将作不及格处理.五、考核方式指导老师负责验收程序

4、的运行结果,并结合学生的工作态度、 实际动手水平、创新精神和设计报告等进行综合考评,百分制计算,具体考核标准主要包含以下几个局部：1 .程序运行情况20分2 .程序功能的完善程度10分3 .程序结构的合理性 10分精彩文档实用标准文案4 .对问题的辩论情况 20分5 .创新情况10分6 .学生的工作态度与独立工作水平10分7 .设计报告内容的标准性20分备注：1 .按规定时间填写各阶段文档,学习态度加 5分2 .设计报告内容雷同扣 40分,无调试过程问题分析扣10分,无参考文献扣10分3 .源程序无注释那么在程序结构合理性扣10分六、课程设计主要参考资料« Visual Basic程

5、序设计教程 第4版?龚沛曾 高等教育出版社« Visual Basic程序设计实验指导与测试第4版?龚沛曾 高等教育出版社« Visual Basic从入门到精通?清华大学出版社« Visual Basic课程设计?王栋清华大学出版社« Visual Basic开发实战1200例? 孙秀梅,巩建华 清华大学出版社七、课程设计方案安排时 间任务课程设计前一周选择课程设计题目,分析课题的要求,确定设计方案,完成报告册中 “课程设计概述课程设计第1天按功能模块编写详细设计说明,完成报告册中“总体设计课程设计第2天编写程序、调试程序课程设计第3天编写程序、调试程

6、序,完成报告册中“详细设计课程设计第4天调试程序,完成报告册中“调试分析过程课程设计第5天完成报告册中“总结、“参考文献、“课程设计评审表局部内容,提交课程设计报告、源程序、面试或辩论精彩文档实用标准文案一、课程设计概述课 程 设 计 问 题 描 述此题主要是针对在程序设计中对 数值型数据进行排序的问题,这 虽然是最根本的数据处理操作,但此题不仅综合了四种不同的排序算法： 比拟法、选择法、直接插入法和冒泡法,也涉及到了一些窗体编辑器, 快捷菜单的做法,定时器的编码,使得此题更加的复杂,也增加了此题 的理解难度.本程序以动画方式演示上述四种排序算法的排序过程,并可以比拟 四种算法所需交换数据的次

7、数,从而对四种排序算法有一个比拟直观的 熟悉,也可以对四种排序算法的排序效率进行比照.本程序还可以找出 所产生的10个随机数中的最大值、最小值和平均值.设 计 要 求1 .对所选题目方案分析比拟,确立方案.2 .用户界面良好,后较好的输入输出水平.3 .编制与调试程序,初步掌握程序设计的方法,能熟练调试程序.4 .程序运行情况正常,程序功能完善,程序结构合理.5 .系统设计编程可用,简练,并有f的容错水平.6 .在完成根本要求后,最好能有f的创新.设 计 目 的1 .以?计算机谛言程序设计VB?课程为根底,目的是进一步培养学 生综合应用VB的各种编程知识和技巧进行程序设计的水平对本学期 VB课

8、程学习的一个总结,对所学知识的稳固与加深.2 .开发和挖掘我们的创新和实践水平,使我们到达具备设计功能较为复 杂的Windows应用程序的水平.3 .通过课程设计,培养我们自主学习和独立创新的精神, 也是人才培养 体系中极为重要的一环.4 .掌握所学谛言程序设计的方法,熟悉所学谛言的开发环境及调试过 程,熟悉所学谛言中的数据类型,数据结构、语句结构、运算方法, 稳固和加深对理论课中知识的理解,提升学生对所学知识的综合运用 水平.精彩文档实用标准文案开.操作系统： Windows10 Sever/XP/Professional发,处理器：486DX/66 MHz或更高的处理器.显示器：VGAE更

9、高分辨率的显示器环.应用软件：Visual Basic 6.0精彩文档实用标准文案二、总体设计11 .程序启动后,显示图 6.1所示的主界面.首先单击“产生 10个随机数按 钮来产生10个随机数,并显示在 10个文本框中；然后选择一种“演示模式和 “排序方式,其中演示模式可以直接给出排序结果,也可以通过动画动态演示整个排序过程,排序方式可以按从小到大顺序,也可以按从大到小顺序排序.系 统 功 能 需 求 分 析图6.1启动后的主界面2 .在主窗口的空白区单击鼠标右键,弹出如图6.2所示的快捷菜单.从中选择“排序算法命令,翻开图6.3所示的对话框,从中选择一种排序方式,单击不同排序方式时,“算法

10、描述中简要介绍了这种算法.单击“确定按钮返回到主 窗口,主窗口中最上方框架控件的标题文字显示当前所选的排序算法.排序直法 从文件读取数据 将数据写入文件1金但上* -a 15图6.2快捷菜单排序算法 金比拟排序 C选择挑序 r插入挑序 r冒泡排序用比莪法对数组中的1.个整数按由小到大的眼序排列时 ,所谓比袁法就是：第一轮从第0】开始.依次将式口】与 其后的所有元素逐个进行比拟,如果耳后的某个元素比 a0小,叫将两者对调,这样第一轮结束后a0中保智 的是10个元素中的最小值,然后从&口开始浪行第二轮 比拟,第二轮比拟结束后斐1中保存次小值.以此类推 最后得到排序结果口蠲定图6.3 &qu

11、ot;排序算法选择对话框快捷菜单中有一 “从文件读取数据命令,使用此命令可以从当前目录的 data.txt文件中读入10个数.要使用这个命令,必须事先建立这个文本文件.精彩文档实用标准文案3 .设置完毕,单击“开始排序按钮此按钮在生成数据之前是不可用的启动排序过程.假设选才I了动画方式见图6.4,红色背景的文本框表示当前正在比拟的元素,黄色的代表己排序的元素,两个运动的文本框表示交换过程.在排序过程中可以调节水平滚动条来限制演示的速度.排序结束后程序以消息框的形式报告数据交换的次数如图6.5.可以使用快捷菜单中的“将数据写入文件命令将排序后 的数据保存到“ data.txt中覆盖原有内容.图6

12、.4程序主界面4 .选择窗口主菜单中的“颜色设置命令,主窗口扩大,底部显示“颜色设置中S架如图6.6所示,可以对“文本背景色、“文本前景色、“已排序元素色和“交换结点色进行设置.再选择此命令,窗口恢复到原来大小.图6.5显示交换次数图6.7确认退出对话颜色设置5 .选择“退出命令可退出本程序,程序显示图6.7所示的对话框予以确认.精彩文档实用标准文案、总体设计(2)系 统 总 体 设 计 框 架精彩文档窗体设计编写代码1 .根本窗体控件设计2 .菜单编辑器-快捷菜单的弹出3 .定时器的编码4 .窗体编辑器-多重窗体1 .四种排序方法(比拟法、选择法,直接插入法和冒泡法)2 .最大值,最小值,平

13、 均值的计算3 . 动画演示4 .对话框弹出实用标准文案三、详细设计1.窗体设计主 要 功 能 模 块 源 程 序1.四个Frame控件-第一个Frame控件包含此问题的根本运算的也是时刻会发生变化的控件.第二个和第三个 Frame控件主要是对此程序运行方式的选择.第四个Frame控件实质是菜单项中“颜色设置单机事件的结果,是对第一个Frame中控件运行时的颜色设置.2 .1个文本框数组-包括10个随机数文本框和两个、交换时运动着的文本分功能不同弹出式菜单排序算法从文件读取数据将数据写入文件分为三局部,第一局部的单机事件会出现一个新的Form窗体精彩文档实用标准文案三、详细设计4 .一个水平滚

14、动条-对Frame中控件运动时的速度调控.5五个command钮-"产生十个随机数命令按钮1 (0)单击事件会在前十个文本框中产生十个随机数“开始排序命令按钮1 (2)在第二个和第三个 Frame中控件都被选 择后才会有效,然后对十个随机数进行不同方式的排序.“默认值命令按钮2是对文本框数组颜色设置的默认按钮.演示模式直接给出排序结果体动态演不排序过程：r I r r e,r l I n r I l,m r r I r r e,r r I m l,r l,¥“停止命令才$钮1 (2)在情况下才有效.“退出命令按钮3是用来结束该程序的运行.6 一个timer控件-对此程序运行

15、时的时间间隔限制.7 一个combo数组-包括四个combo控件Color1(0)文本背景色Color1(1)文本前景色Color1(2)已排序元素色Color1(3)交换元素色台匕目匕2.代码设计1.变量声明块源程序择法2-直接插入法,Private inSortOrder As Integer Private inShowMode As IntegerOption ExplicitOption Base 1Dim a(10) As IntegerDim First As IntegerDim Second As IntegerPrivate mblnMoving As BooleanDim

16、 Speed As IntegerDim inColor1 As LongDim inColor2 As LongDim inColor3 As LongDim inColor4 As LongDim inNum As LongPublic inSortMethod As Integer随机数数组文本背景色文本前景色已排序元素色交换元素色交换次数排序算法0-比拟法,1-选3-冒泡法排序方向0-升序1-降序 演示模式,0-直接求解,1-动态演示精彩文档实用标准文案2. 1 commandl (0)-产生十个随机数Private Sub Command 10) _Click() Randomize

17、For i = 1 To 10a(i) = Int(Rnd * 201) - 100Text1(i).Text = a(i)Text1(i).BackColor=inColor1Text1(i).ForeC010r = inColor2 Next iCommand1.Enabled = True2 commandl (1)-开始排序Private Sub Option1_Click(Index As Integer) intShowMode = IndexEnd SubPrivate Sub Option2_Click(Index As Integer) intSortOrder = Inde

18、xEnd Sub精彩文档当排序结束后,会弹出如下一个对话框.代码为:Frame2Frame3 中 option的选 择直接关 系到随机 数的排序 方式response = MsgBox("比拟法排 序完毕,交换次数为："+ Str(Num), vbOKOnly,"系统提示 ")3 ,ommand1 (2)- 停止程序的运行 Private Sub Command3_Click()If Command3.Caption =停止"Then Timer1.Enabled = False Command3.Caption =继续ElseIf Comma

19、nd3.Caption =继续"Then Timer1.Enabled = True Command3.Caption =停止End IfEnd IfEnd Sub4 command2默认颜色的按钮实用标准文案Private Sub Command2_Click() Color1(0).ListIndex = 0 inColor1 = vbGreen文本背景色Color1(1).ListIndex =:1inColor2 = vbBlack乂木刖景也Color1(2).ListIndex = inColor3 = vbYellow:2已排序元素色Color1(3).ListIndex

20、 = 3inColor4 = vbRed交换元素色5 command3-退出按钮3. combo数组名称分别为 Color1(0)文本背景色Color1(1)文本前景色Color1(2)已排序元素色 Color1(3) 交换元素色每个combo又有不同的list ,都为黑色,绿色,蓝色,青色,红色,黄色 紫色分布.用index区分Private Sub Color1_Click(Index As Integer)Dim i As Integer Select Case IndexCase 0color1(0)文本背景色Select Case Color1(0).ListIndexCombo1(

21、0)的 list 属性,用index 区 分背景 颜色.Case 0inColor1 = vbGreenCase 1inColor1 = vbBlueCase 2 inColor41= vbRedCase 3inColor41= vbYellowEnd SelectFor I = 1 To 10Text1(I).BackC010r = inColor1Next I_End SelectFor i = 1 To 10Text1(i).BackC010r = intColor1 Next i精彩文档Case 1color1(1) 文本前景仅Combol (1)的 list 属性,用 index 区

22、 分前景 颜色.Combo 1(2)的 list 属 性,用 index 区分已 排序元 素色.Combo1(3)的 list 属性,用 index 区 分交换元素色实用标准文案Select Case Color1(1).ListIndexCase 0inColor4 = vbGreenCase 1 inColor4 = vbBlueCase 2inColor4 = vbRedCase 3inColor4 = vbYellowEnd SelectFor I = 1 To 10一Text1(I).ForeC010r = inColor2 Next IEnd SelectFor i = 1 To

23、10Text1(i).ForeC010r = intColor2Next iCase 2Select Case Color1(2).ListIndexCase 0'inColor4 = vbGreenCase 1 inColor4 = vbBlueCase 2 inColor4 = vbRedCase 3 inColor4 = vbYellow End Select For I = 1 To 10Text1(I).ForeC010r = inColor2Next IEnd Select一Case 3'处理正在交换的结点的背景色Select Case Color1(3).List

24、IndexCase 0inColor4 = vbGreenCase 1inColor4 = vbBlueCase 2inColor4 = vbRedCase 3inColor4 = vbYellowEnd SelectFor I = 1 To 10精彩文档实用标准文案Text1(I).ForeColor = inColor2 Next I End Select End Sub4.开始排序Private Sub Command 11) _Click()Dim Min As Integer, Max As Integer, s As SingleMin = 1000: Max = -1000: s

25、 = 0Fori = 1 To 10If e(i) > Max Then Max = e(i)If e(i) < Min Then Min = e(i) s = s + e(i)Next iText4.Text = Max最大值Text5.Text = Min最小值Text6.Text = s / 10 平均值Command3.Enabled = TrueSelect Case intSortMethodCase 0比拟法comparation_sort e(), intSortOrderCase 1 选择法selection_sort e(), intSortOrderCase

26、2 直接插入法insertion_sort e(), intSortOrderCase 3 冒泡法bubble_sort e(), intSortOrderEnd SelectPrivate Sub Command 12) _Click()Exit_ClickEnd Sub5 .弹生菜单Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)If Button = 2 ThenPopupMenu Menu2End IfEnd Sub精彩文档实用标准文案6 .下拉式菜单Priva

27、te Sub Color_Click()Forml.Height = Forml.Height + 2000Frame3.Visible = TrueColor.Checked = TrueEnd SubPrivate Sub Exit_Click()Dim I As IntegerI = MsgBox("您真的要退出吗？ ", vbYesNo + vbQuestion + vbDefaultButton2,"请您确认！")If I = vbYes ThenEndEnd IfEnd Sub8.弹生菜单中排序算法一四种同时出现新窗体2个Frame控件一个包

28、含了一个option数组,是对排序方式的选择 另一个包含了一个text控件,是对选中的option的解释1个command按钮,是和Form1的衔接,决定了 Form1中十个随机数的排序方式精彩文档实用标准文案四、调试分析过程11.在程序一运行时,没有对 speed进行初定量,在程序运行后,动态演示时,负责 显示交换元素的两个文本框不运动,也没有排序的作用.排序算法演藤序调 试 过 程 出 现 的 问 题 及 解 决 方 法演示模式排序方式1速度r直擅给出排序结果国城小财炭?J行动蕊宣示排序过程r拉.物力咽声1 退出I解决：在 Forml的load事件中增加了 speed = 100 语句2.

29、下拉式菜单与快捷菜单别离不开要 哭S法兽一 设命悬数 将麓一二二如二二一导致快捷菜单不出现下拉式菜单又出现太多项选择项精彩文档增加第二个主菜单“弹出式菜单,且不可见.3 .快捷菜单无法弹出,且无法联系到窗体.弹出菜单要用 PopupMe而法在单击"排序算法"时,出现Form2.shoW洵,联系到Forml4 .对四种排序方法的编程混淆不清在网络上查找资料,先了解四种排序方法的特点和区别.用简单的语句解释理 解,然后随机列举几个数字,用排序方法依次排大小,总结规律.写出排序方法的 代码.5 .动态演示如何演变用Timer事件进行编程.实用标准文案四、调试分析过程2程序运行后,

30、单击下拉式菜单,对颜色进行设置,单击“产生十个 随机数,可以看到随机数所在文本框的背景色和前景色发生改变,然 后对演示模式和排序方式进行选择1.中选择静态演示时,会弹出如下对话框测 试 数 据 及 测 试 结 果2.当动态演示时,正在排序元素和已排序元素文本背景色发生变化, 且两个变化文本框会运动,在排序结束后,也会出现系统提示的对话框.还可以通过对水平滚动条设置来调整交换速度单击右键会弹出快捷菜单单击“停止按钮时,排序运动会暂停,再次单击时又会重新启动.单击确定后,发现排序和最值,平均值的运算已完成.功第比幡翻雨过程遥国12345678910-97 75 -63 |-29 T 262661

31、躬 9a病大倡忸最小偃 甲一 平均偃 P产生一个踮机轴| h开蟒那么停止精彩文档实用标准文案单击“退出按钮时,会出现对话框2.第二个窗体的选择也关系到第一个窗体的运行排应算法r上映排序r插入播停r冒泡排序徘序算法选择算法描述确定Option的选择不同,窗体一中的排序方法也不同.精彩文档实用标准文案五、总结设 1多窗体的设计与衔接计 2四种排序方法的运用与编程用 3弹出式菜单的运用到 4最大值,最小值,平均值的计算的 5定时器的运用使文本框进行移动知 6滚动条与Frame控件的运用识 7读入与读出数据点收 获 与 体在此次课程设计中,我才真正了解到VB的魅力,生活的方方面面都 表达了 vb知识,计算机上月纳普普通！的小程序也同样需要那么多的代码才能够 运行起来在,而在已经结束的半年 VB课程学习中,我们学到的只是VB知 识的冰山一角,要想探索到vb的奥秘,我们还需更将努力.在完成该课题的过程中,我也深