VB课程设计报告格式标准文档.doc

《VB课程设计报告格式标准文档.doc》由会员分享，可在线阅读，更多相关《VB课程设计报告格式标准文档.doc（19页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、洛 阳 理 工 学 院课 程 设 计 报 告 课程名称 高级语言程序设计 设计题目 程序设计综合训练 专 业 高分子材料与工程 班 级 B 学 号 B 姓 名 公彦婷 完成日期 2013.1.10 课 程 设 计 任 务 书设计题目：程序设计综合训练设计内容与要求： 内容： 1.对各个控件重要属性的掌握，其中包括timer的timer事件，还有value值得选择，滚动条中max 和min 的赋值等。 2.数组的定义的选择，其中包括一维和二维数组。 3.从已有的文件中选择读取数据，利用open语句，掌握住一些基本的操作。 4.学会赋值语句，懂得菜单编辑器的使用，并能编辑一些简单的下拉菜单。 5.

2、对if条件语句的熟练掌握，能编出一些较简单的if语句并能运行。 要求：界面美观 代码规范 功能完整 报告格式符合要求 指导教师：李晨 2013年 1 月6 日课 程 设 计 评 语 成绩： 指导教师：_ 年 月 日一、基本操作题 1. (1)在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过 属性窗口设置窗体和文本框的属性，实现如下功能：1)在文本框中可以显示多行文本 2)在文本框中显示垂直滚动条 3)文本框中显示的初始信息为“程序设计” 4)文本框中显示的字体为三号规则黑体 5)窗体的标题为“设置文本框属性” 完成设置后的窗体如图所示。 要求：不编写任何代码。（如图1所示）

3、 图1设置文本框属性设计思路：在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，多行文本(MultiLine属性)设为True，文本框滚动条(ScrollBars属性)设为2，文本内容(Text属性)设为“程序设计”，点击Font属性在弹出的字体对话框中将字体设为“黑体”，大小设为“三号”。激活Form1窗体，通过其属性窗口将标题(Caption属性)设为“设置文本框属性”。VB语言编程：按照题目要求本题不涉及代码。 (2)在名称为 Form1的窗体上画两个命令按钮，其名称分别为Cmd1和Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则可使该按钮移到窗体的左

4、上角(只允许通过修改属性的方式实现);如果单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。 设计思路：在该窗体上画二个命令按钮，通过其属性窗口将名称分别设为Cmd1和Cmd2。单击“Cmd1”按钮(即运行Click事件过程)，窗口如图2所示 图2运行前后的结果VB编程： Private Sub Command1_Click()Command1.Left = 0Command1.Top = 0End Sub Private Sub Command2_Click()Command2.Width = 2 * Val(Command2.Width)Command2.Height =

5、 2 * Val(Command2.Height)End Sub 2. (1)在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为100，最小刻度值为1， 在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100 ，运行时的窗体如图3、图4所示。 图3设置滚动条属性运行前界面 图4设置滚动条属性运行后属性解题思路：经对话框中的各个控件改变属性，max值变为10，largerchange 值变为1VB代码设计：按照要求本题不需要代码。2.在

6、名称为Form1 的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy 和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在运行时，单击“复制”菜单项，则把Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体如图5所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。 图5运行前界面设计思路：首先利用菜单编辑器建立一个操作的下拉菜单，其中包括复制和清除。在编辑程序达到如图6的作

7、用。 图6菜单编辑器运行后的界面 VB代码设计： Private Sub 复制_Click() Text2.Text = Text1.Text End Sub Private Sub 清除_Click() Text2.Text = End Sub二、 简单应用题 1.（1）产生30个 01000的随机整数，放入一个数组中，然后输出其中的最大值。程序运行后，单击命令按钮(名称为Command1，标题为“输出最大值”，如图7、图8所示)，即可求出其最大值，并在窗体上显示出来。这个程序不完整，请把它补充完整，并能正确运行 图7输出最大值运行前界面 图8输出最大值结果展示设计思路： 首先产生一个随机数

8、1-1000，然后运用算术比较各自的值的大小。VB编码： Private Sub Command1_Click()Dim X As IntegerX = Int(Rnd * 1001)Dim A(1 To 30) As IntegerFor i = 1 To 30A(i) = Int(Rnd * 1001) If A(i) X Then X = A(i) End If Next i Print XEnd Sub（2）.在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出11000范围内能被5整除

9、或能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算能被5整除或能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。设计思路： 首先做出如图所示的窗口，在编写代码，在代码中首先应产生一个数组，再设计一个fun的调用过程主要是判断和就算能被5和7整除的个数 图9运行前的界面VB代码编程：Private Sub Command1_Click() Text1.Text = Fun End Sub Public Function Fun() As Long-（调用过程） Y = 0 For i = 1 To 1000 If i Mod 5

10、= 0 Or i Mod 7 = 0 Then Y = Y + 1 End If Next i Fun = Y End Function-（调用过程）2. 在考生目录下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请画一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2， 标题依次为“飞机”、“火车”、“汽车”，再画一个名称为Text1的文本框。在运行时单击“飞机”或“火车”单选按钮时，在Text1 中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1 中显示“我开汽车去”，解题思路： 通过对单选按钮控件的复制产生单选按

11、钮控件数组，共有三个单选按钮，通过其属性窗口将名称设为Op1，Index属性分别设为0、1、2，按顺序将其标题（Caption属性）分别设为“飞机”、“火车”、“汽车”。再画一个文本框控件，通过其属性窗口将名称设为Text1。 在设计程序中还要用到“&”符号，用以连接两个文本。当程序运行时达到图10效果。 图10运行后的结果VB代码编程： Private Sub Op1_Click(Index As Integer) If Op1(0).Value = True Then Text1.Text = 我坐飞机去 End If If Op1(1).Value = True Then Text1.T

12、ext = 我坐火车去 End If If Op1(2).Value = True Then Text1.Text = 我开汽车去 End If End sub2.在考生目录下有一个工程文件sjt4.vbp，Form1 窗体中有一个文本框，名称为Text1；请在窗体上画两个框架，名称分别为F1、F2，标题分别为“性别”、“身份”；在F1中画两个单选按钮Op1、Op2，标题分别为“男”、“女”；在F2中画两个单选按钮Op3、Op4，标题分别为“学生”、“教师”；再画一个命令按钮，名称为C1，标题为“确定”。如下图11所示。请编写适当的事件过程，使得在运行时，在F1、F2中各选一个单选按钮，然后单

13、击“确定”按钮，就可以按照下表把结果显示在文本框中。 图11建立界面和设置属性解题思路：如下表所示，由于所提供的窗体控件不完整，需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1、F2，标题（Caption属性）分别设为“性别”、“身份”。在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2， 表1身份确认表题（Caption属性）分别设为“男”、“女”。在F2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op3、Op4，标题（Caption属性）分别设为“学生”、“教师”。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为

14、“确定”。 图12运行前后的界面展示VB代码编程： Private Sub C1_Click() If Op1.Value = True Then x = 男 End If If Op2.Value = True Then x = 女 End If If Op3.Value = True Then y = 学生 End If If Op4.Value = True Then y = 老师 End If Text1.Text = 我是 & x & y End Sub 三、综合应用： 1.在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.

15、txt的文本文件，其内容如下：32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37程序运行后，单击窗体，将把文件datain.txt 中的数据输入到二维数组 Mat中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵左上-右下对角线上的数组。 图13矩阵展示解题思路： 本题难点在于一个一个的将数据读取进数组中，并将以5x5的矩阵显示出来。面对此题首先要读取磁盘中事先写好的数据，需要用到open语句。VB语言代码：Option Base 1 Private Sub Form_Click() Cons

16、t N = 5 Const M = 5 Dim Mat(5, 5) -定义数组 Dim i, j Open i:datain.txt For Input As #1 -打开指定文件 For i = 1 To N For j = 1 To M Input #1, Mat(i, j) Next j Next i Close #1 Print Print 初始矩阵为： Print For i = 1 To N For j = 1 To M Print Tab(5 * j); Mat(i, j); -打印成5x5矩阵形式 Next j Print Next i Print Print 左上 - 右下对

17、角线上的数为： For i = 1 To N -（取出对角线数据） For j = 1 To M If i = j Then Print Tab(5 * j); Mat(i, j); Next j Next i -（取出对角线的数据） End Sub2. 以下数列：1，1，2，3，5，8，13，21，的规律是从第3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图14所示。请编写适当的事件过程完成以下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示：因计

18、算结果较大，应使用长整型变量。）图14运行前的界面解题思路： 由题意可知，需要一个调用过程，计算第N个数后的和值。不能修改已经选按钮，并单击“计算”按钮获得一个结果。图15运行后的结果展示VB代码编程：Private Sub Command1_Click() i = 1，j=1 If Option1.Value = True Then For t = 1 To 30 s = i + j i = j j = s Next t End If If Option2.Value = True Then For t = 1 To 33 s = i + j i = j j = s Next t End I

19、f If Option3.Value = True Then For t = 1 To 35 s = i + j i = j j = s Next t End If Text1.Text = s End Sub 总结与体会 VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想的形成,以及之前学习积累的经验，很快就对VB有了一定的了解。并对计算机语言有了一定的兴趣。我认为作为学习程序设计最重要的一点是要注重理解一些重要的概念.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.

20、因此,在 程序入门阶段还是应该重视概念的学习.我们学习VB并没有从正常的途径，而是通过老师的演示与讲解，了解并学习了这门课程，可以说VB语言相对来说比其他语言简单，从他的语法就可以看出。其次，自己动手编写程序。程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.只有不断的从自己的程序中积累经验，从中进步，才能写出好的程序。程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的.只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来

21、才比较从容.动手能力的培养是这门课和以往课程最大的不同之处.重点放在思路,算法,编程构思和程序实现上.语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用. 编程序不像做其它的事情，写程序之前一定要计划周详，把所有的可能性都想到，并想好相应的解决方法，不然思想会很混乱，很容易出现错误。还有就是编程序最重要的其实是思想，思想确定之后用什么语言或什么方法就简单了，接下来就是设计并写成代码的事情了好的程序员就是这样一步一步炼成的。再者，阅读,借签别人设计的好程序。多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学

22、到别人优秀的东西,帮助自己 提高自身水平。但是在我真正操作进行编程的时候也遇到了很多困难，比如说，读取数据后一个一个的放入一个数组中并且最后还要排成数列的形式，这道题我用了很多的功夫，我一遍遍的实验，一遍遍的修改，一遍遍的翻课本。在我星期三的时候就把所有的编程题都做完了，可是那道题我却久攻不下，我也试着去百度一些答案，可是答案总是缺这少那根本没法用。于是我就硬着头皮使劲的想，一遍遍的修改，一遍遍的实验终于把他给做出来了。在别人看来这可能是一个很简单的编程题，但是对于我来说这可能就是一个飞跃，一个对自己只是和能力的一种挑战，面对挑战我迎难而上，不畏困难。通过这次学习，我越来越喜欢上计算机语言，即使在编程过程中会遇到很多无法预知的困难，很多程序在我努力了很多遍之后依然无法运行的时候我确实很失落。但是，当我通过自己的努力把一道很复杂的编程题给编出来的时候那种喜悦之情确实别的事情无法替代的。