VB实验报告书(第三版).doc

前言本课程是一门面向全校各专业学生的公共必修课，它以Microsoft 公司的可视化编程工具Visual Basic 6.0为例，主要介绍高级程序设计的方法。Visual Basic 6.0由于其具有界面友好、操作方便等优点，是从事计算机程序设计的最佳编程工具之一，同时也是学习Windows编程的极好语言。通过本课程的学习，使学生掌握用windows编程解决实际问题的一般方法，包括语句、函数、控件等概念的掌握，以及从基本控件的使用到高级控件的应用，从图形编程、文件使用到多媒体程序开发，从数据库编程到定制ActiveX控件等内容，为培养学生结合专业进行软件开发的能力打好基础。实验要求高级程序设计实验是高级程序设计课程的重要组成部分，属于公共必修实验范畴，是与相关教学内容配合的实践性教学环节。学生通过实验，验证课堂学习的知识，掌握界面设计、算法设计、编程实现和程序调试的方法，从而提高编程能力。在高级程序设计的课程实验过程中，要求学生做到：（1）预习实验指导书有关部分，认真做好实验内容的准备，就实验可能出现的情况提前作出思考和分析。（2）仔细观察实验操作时出现的各种现象，记录主要情况，作出必要说明和分析。（3）认真书写实验报告。实验报告包括实验目的和要求，实验情况及其分析。（4）遵守机房纪律，服从辅导教师指挥，爱护实验设备。（5）实验课程不迟到，如有事不能出席，所缺实验一般不补。实验的验收将分为两个部分。第一部分是上机操作，包括检查程序运行和即时提问。第二部分是提交书面的实验报告。VB6.0高级程序设计实验报告书目 录实验一VB集成环境及简单应用程序的建立1实验二VB6.0常用函数的使用4实验三数据的输入输出及顺序结构程序设计7实验四VB6.0选择结构程序设计10实验五VB6.0循环结构程序设计13实验六VB6.0常用控件17实验七VB6.0数组程序设计20实验八VB6.0过程程序设计24实验九VB菜单、对话框与多重窗体程序设计27实验十文件操作31实验十一数据库设计35实验十二多媒体控件的使用38实验十三 程序设计中的相关算法41实验十四项目实践-五子棋软件设计44实验十五项目实践-数据库应用49实验一VB集成环境及简单应用程序的建立一、 实验目的1了解Visual Basic6.0集成开发环境；2掌握窗体中控件的对象的建立、选定、调整布局、属性设置和删除等操作方法；3掌握VB应用程序建立的基本方法；4掌握工程管理的方法。二、实验内容1启动和关闭Visual Basic6.0系统，在集成开发环境中分别寻找“窗体窗口”、“属性窗口”、“工程资源管理器”、“窗体布局窗口”、“工具箱窗口”，熟悉它们的默认位置；在“视图”或“工程资源管理器”中切换显示“代码窗口”和“窗体窗口”；在“视图”菜单中点击“立即窗口”，观察刚刚显示出来的“立即窗口”；尝试分别将各部分关闭，然后再用“视图”菜单中对应的菜单命令将其显示。2将工具箱中的每一个常用控件添加到窗体中，并识别这些控件；对窗体中的控件，作选定、调整布局和删除等操作；学会设置窗体、命令按钮、文本框的最常用属性；在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件过程中输入代码。3程序界面见下图，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,Visual Basic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。图1-1 实验1.3界面三、实验报告书将第3个实验内容写成实验报告书。实验报告书日期：年月日周次：星期：成绩：实验题目程序清单：输入数据：输出结果：实验中出现错误及处理方法：实验体会教师评语教师：实验二VB6.0常用函数的使用一、实验目的1掌握常量和变量、表达式的基本概念和正确书写格式；2掌握运算符及表达式的用法；3掌握赋值语句和常用函数的正确使用方法。 二、实验内容1假设有变量a=2,b=5,c=4,d=3,e=6，编写程序，计算表达式a+bc and d*a=e的值，将结果打印在窗体上。2把自己的姓名在窗体上反向输出。提示：汉字在计算机内存储时，占2个字节的位置，而此处用Left、Mid、Right取汉字字节时，仍占一个字节。3编写程序，界面如图2-1所示。使得单击一次按钮可以产生一个60,90之间的随机数并显示在标签1上，再求出该数的正弦值，将结果写在标签2上。图2-1 实验2.3界面提示：使用Rnd函数产生随机数，注意，为了防止两次运行程序的随机数序列相同，调用Rnd之前先用Randomize语句进行初始化。产生某闭区间内的随机数的公式为：(上限-下限+1)*rnd+下限。求正弦值函数为：sin()。三、实验报告书单号选实验2，双号选实验3写实验报告书。实验报告书日期：年月日周次：星期：成绩：实验题目程序思想：程序清单：输入数据：输出结果：实验中出现错误及处理方法：教师评语教师：实验三数据的输入输出及顺序结构程序设计一、实验目的1掌握常用输入输出控件的使用；掌握数据输出的方法Print及其相关函数；2掌握输入输出函数和过程，如InputBox函数、MsgBox函数和过程的使用；3学会设计简单的顺序结构程序，进一步理解VB应用程序的编程机制。 二、实验内容1编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。2编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图3-1所示，其中F与C之间的关系为：。图3-2 实验3.3界面图3-1 实验3.2界面3编写计算圆面积和球体积的程序，程序运行界面如图3-2所示。要求输出结果只保留四位小数；如果半径的输入不合法，例如含有非数值字符，应该用MsgBox报告输入错误，并在错误信息得到用户确认（点击MsgBox对话框上的“确定”按钮）之后，将输入焦点转移到输入半径的文本框中，且将当前的非法输入自动选定，反白显示。提示：判断输入值是否为数值类型可用函数IsNumber（）；当字符串类型向数值类型转换时用函数Val（）；而当数值类型向字符串类型转换时，可以用Str（）函数或格式化函数Format（）。三、实验报告书单号选实验2，双号选实验3写实验报告书。实验报告书日期：年月日周次：星期：成绩：实验题目程序思想：程序清单：输入数据：输出结果：实验中出现错误及处理方法：教师评语教师：实验四VB6.0选择结构程序设计一、实验目的1掌握逻辑表达式的正确使用方法；2掌握单分支、双分支和多分支条件语句结构的使用，熟悉选择结构程序设计。二、实验内容1有函数：写一个程序，输入x值后，则输出相应y值。要求用“IfElseIfEndIf”和用“Select Case”两种方法完成该题目。注意：区分1x10和1=x And x10有什么不同。2编写一个判断给定坐标在第几象限的程序，界面如图4-1所示。3编写一个简易学生成绩管理系统，要求输入姓名和成绩，点击“添加”按钮后，在文本框中追加并换行显示“姓名”、“成绩”和“合格”或“不合格”信息，如图4-1 实验4.2界面图4-2 实验4.3界面图4-2所示。提示：换行追加并且显示时，可用Text1.Text = Text1.Text & vbCrLf & （待追加并显示的字符串），同时应该将Text1的MultiLine属性设置为True，ScrollBars属性设置为Both。进一步要求：按照90为“优”，80为“良”，70为“中”，60为“及格”， 6000为止。4计算的值，当第i项时结束。5图5-3 实验5.5界面使用双重循环，输出“九九乘法表”，如图5-3所示。提示：（1）注意行号和该行乘法单元的个数之间的关系。（2）注意乘法单元的规律：“4312”中4为行号，3为列号，且列号不大于行号。（3）乘号“”可从汉字输入法软键盘菜单的“数学符号”中找到；或从Word中菜单【插入】-【符号】中找到，再从Word中剪切或复制到VB代码中。（4）可以将窗体的AutoRedraw属性设为True，以防初始大小的窗体显示不下全部内容。6显示所有的水仙花数。所谓水仙花数，就是指一个3位正整数，其各位数字的立方和等于该数本身。例如，153即为水仙花数。提示：本题目解法有两种：（1）对3位数的各位数组合进行穷举：利用3重循环，将3个个位数组成一个3位数进行判断。例如，3位数的各位数从高位到低位依次为a、b、c，则对应的3位数为a*100+b*10+c。（2）对所有3位数进行穷举：利用单循环对所有3位数进行穷举，循环内将一个3位数拆成3个个位数进行判断。例如，对s678进行拆解时：个位数s Mod 10；十位数（s10） Mod 10；百位数s100。当然，也可以将上述拆解过程写为一个循环（这时就是利用双重循环，内层循环即为拆解过程）。三、实验报告书从上面实验内容中选一题写实验报告书。实验报告书日期：年月日周次：星期：成绩：实验题目程序思想：程序清单：输入数据：输出结果：实验中出现错误及处理方法：教师评语教师：实验六VB6.0常用控件一、实验目的1掌握常用控件的重要属性、方法和事件，熟悉它们的使用；2熟悉面向对象的可视化编程的框架。二、实验内容图6-1 实验6.1界面图6-2 实验6.3界面1如图6-1所示，用列表框、框架、单选按钮、复选框等控件实现对文本框中文字的字体、字号和粗斜体属性的设置。2在实验6-1的基础上，用计时器控件实现在窗体的标题栏上显示当前系统的日期和时间信息，刷新周期为1秒种。3如图6-2所示，用列表框实现两个列表之间的增加和删除操作。当点击标题为“”的按钮时，就将候选列表里当前被选中的项移动到选定列表最后；当点击标题为“0Loop循环来实现。（2）使用Left()、Right()、Mid()等标准函数来重新构造结果字符串，以达到删除子字符串sc的目的。6用递归法求得Fibonacci数列（1 1 2 3 5 8 13 21 34）的第20、200项。Fibonacci数列数学描述式为：F（i）= F（i-2）+F（i-1）。三、实验报告书从上面实验内容中选一题写实验报告书。实验报告书日期：年月日周次：星期：成绩：实验题目程序思想：程序清单：输入数据：输出结果：实验中出现错误及处理方法：教师评语教师：实验九VB菜单、对话框与多重窗体程序设计一、实验目的1掌握下拉菜单和弹出式菜单的设计和使用方法；2熟悉工具栏、状态栏的应用；3掌握各种标准对话框的使用；4掌握多窗口和多文档界面的概念及其区别，学会选用适当的架构来编写程序；5熟悉鼠标和键盘的事件。二、实验内容图9-1 实验9.1界面图9-2 实验9.2界面1建立窗口菜单，实现一个简易文本编辑器，如图9-1所示。文本框中的文本属性由菜单“设置”中来指定，当单击“退出”时，结束程序。在设计菜单时，试给“设置”、“字体”、“字号”子菜单分别加上热键“C”、“N”和“S”，“退出”菜单项加上热键“Q”。2将实验9-1的源程序拷贝一份，且对它做如下修改，使得运行界面如图9-2所示。将“字体”和“字号”两项合为“字体”一项，增加菜单项“前景色”、“背景色” ，并分别加上热键“F”和“B”。增加“文件”菜单，含有“打开”和“保存”两个菜单项，并分别加上热键“O”和“S”。再对若干菜单项加上快捷键。当单击“字体”菜单项后，弹出“字体”对话框；单击“前景色”、“背景色”菜单项后弹出“颜色”对话框；单击“打开”菜单项，则弹出“打开”文件对话框，且只显示“*.txt”文件，选定文件后，点击对话框上的“打开”按钮后，则打开相应文件，将其内容读出，按前面设置的属性显示在文本框中；单击“保存”菜单项后，弹出“保存”或“另存为”文件对话框，输入文件名后，点击对话框上的“保存”按钮，则将当前文本框中内容写入相应文件。3在实验9-3的基础上，增加工具栏和状态栏。工具栏中有“打开”、“保存”、“字体”、“前景色”、“退出”、“关于”菜单项相对应功能的按钮；状态栏中显示文本框中当前的字数。提示：首先，从【工程】-【部件】中选择并加入【Microsoft Windows Common Controls 6.0】，这时就可以看到控件栏中加入了好几个ActiveX控件，其中有工具栏控件、状态栏控件和图像列表控件（ImageList控件）。工具栏中按钮的图标一般是从ImageList控件中选取，因而应先将选好的图片存入ImageList控件中。图标可从“GraphicsBitmapsOffCtlBrLargeColor”子目录中选取。图9-4 实验9.4界面4编写一程序，要求响应键盘的4个方向键，如图9-4所示，当按一次某方向键，就使图片向相应的方向移动50单位距离。三、实验报告书从上面实验内容中选一题写实验报告书。实验报告书日期：年月日周次：星期：成绩：实验题目程序思想：程序清单：输入数据：输出结果：实验中出现错误及处理方法：教师评语教师：实验十文件操作一、实验目的1掌握文件的概念及其使用方法，注意顺序、随机和二进制文件各自的特点和区别；2掌握文件系统控件、文件与目录的相关函数和语句的使用；3熟悉文件在应用程序中的作用和意义。二、实验内容1设计一个运行界面如图10-1所示的应用程序，单击“Write”可以将3个文本框中的信息用“Write”语句写入“D:aaa.txt”；单击“Print”可以将3个文本框中的信息用“Print”语句写入“D:bbb.txt”。要求3个信息写在同一行。 图10-2 实验10.2界面图10-1 实验10.1界面程序运行后，用“记事本”同时打开“D:aaa.txt”和“D:bbb.txt”，比较它们结构有何不同？为什么？试说明“Write”和“Print”语句的相同和不同。2如图10-2所示，建立一个最简单的文本编辑器。文件的打开和保存可使用某一固定文件，例如，“d:test.txt”。3编写一图片浏览器，如图10-3所示，要求当单击某图形或图像文件后在图像框中显示该图形或图像，文件列表框中应只显示.bmp、.jpg、.wmf、.ico、.gif等几种常见类型的图形或图像文件。4建立一个简易学生管理系统，如图10-4所示，用于输入、显示和修改学生的相关信息。数据按随机访问模式存放。提示：随机文件的记录利用Type定义，字符串类型必须制定长度。图9-4 实验9-4程序运行界面图10-3 实验10.3界面图10-4 实验10.4界面三、实验报告书从上面实验内容中任选一题写实验报告书。实验报告书日期：年月日周次：星期：成绩：实验题目程序思想：程序清单：输入数据：输出结果：实验中出现错误及处理方法：教师评语教师：实验十一数据库设计一、实验目的1熟悉数据控件和控件的常用属性以及数据绑定的方法；2掌握数据控件和控件访问关系数据库的方法；3灵活运用数据控件和控件以及可绑定控件实现关系数据库的访问。二、实验内容1通过“Microsoft Access”和VB6中的“可视化数据库管理器”分别建立数据库stud.mdb，其中包括数据表student，该表的结构如表11-1，并输入三条记录。表11-1字段名类型长度学号String7班级String8姓名String8性别String2年龄Integer出生日期Date/Time婚否Boolean简历备注2利用数据库记录集的操作方法实现显示、修改、添加和删除记录的功能。程序界面如下图所示。图11-1 实验11.2界面三、实验报告书实验报告书日期：年月日周次：星期：成绩：实验题目程序思想：程序清单：输入数据：输出结果：实验中出现错误及处理方法：教师评语教师：实验十二多媒体控件的使用一、实验目的1掌握常用图形控件的应用；2掌握常用图形方法的应用；3掌握媒体播放控件的应用；4掌握进度条控件的应用。二、实验内容1设计一个“画板”程序，利用“颜色”按钮，可选择颜色，画笔的粗细用单选按钮实现，界面如图12-1。图12-1 实验12.1界面2设计一个“音乐播放器”，该播放器应具有如下功能：（1）通过对话框选取音乐文件；（2）播放、暂停、停止、重复播放音乐文件；（3）显示音乐文件的名称、总的播放时间和当前已经播放的时间；（4）通过进度条动态显示播放进程；（5）鼠标点击进度条可控制播放进度。三、实验报告书从上面实验内容中选一题写实验报告书。实验报告书日期：年月日周次：星期：成绩：实验题目程序思想：程序清单：输入数据：输出结果：实验中出现错误及处理方法：教师评语教师：实验十三 程序设计中的相关算法一、实验目的1对课程中学到的各种算法进行设计；2对设计的算法使用程序实现；3程序实现的过程中尽量使用过程；4不需要较为复杂的界面，能够实现功能即可。二、实验内容1用InputBox函数输入10个任意整数，按从大到小的顺序输出。2判断某个数或某个范围内的数是否为素数。3已知矩阵A（3，3）和B（3，3）用随机函数产生，实现两者相加、相减、相乘。4利用数组进行选择排序和冒泡排序。5编一个将二进制数转换成十进制数的函数TranBtoD(str$)。将函数分别放在标准模块和窗体模块中，在窗体中编写调用程序，输入、输出结果分别使用文本框，程序界面自定。三、实验报告书从上面实验内容中选一题写实验报告书。实验报告书日期：年月日周次：星期：成绩：实验题目程序思想：程序清单：输入数据：输出结果：实验中出现错误及处理方法：教师评语教师：实验十四项目实践-五子棋软件设计一、实验目的1通过五子棋软件设计或者自拟题目设计，巩固本课程所学的各个章节重点知识；2通过开发一个较大的系统，增强软件开发能力；3通过调试系统，增强逻辑思维能力；二、实验内容1基本要求：（1）输入两个对手名字，然后进入游戏界面。（2）用鼠标点击的方式在棋盘上摆放棋子，黑白交替。（棋盘15*15）（3）可以悔棋。（4）五子连在一起的时候能判断胜利，并且显示出胜利者的名字。（5）能够将棋局的结果保存，保存该棋局结束的状态、对手名字、 棋局名字（棋局名字在保存时由用户在相应的界面下添入）（此功能要求用数据库和文件两种技术实现）。（6）棋局能够恢复，即重新打开，打开后出现棋局结束的状态、对手名字（此功能要求用数据库和文件两种技术实现）。2其它要求：（1）界面友好、漂亮。（2）程序尽可能无bug。（3）程序健壮性强，基本上达到无论用户如何操作，软件都不出错，都有相应的处理方法。3设计步骤（1）首先做界面界面包括几个窗体，窗体上有相应的控件；因为需要画棋盘，所以必须有图形容器，这里用picturebox框；第一个窗体是登陆界面，因为玩家姓名需要在程序中不断变换，因此需要将玩家名定义成两个变量，又因为这两个变量在几个窗体中都用到，所以在模块中定义为全局变量；当五子棋主界面启动之后，首先系统要自动绘制棋盘：思路：用直线绘制棋盘-直线是由点绘制的-每个点都有坐标-改变坐标系为用户坐标系用户坐标系的定义要在窗体启动时实现。（2）坐标系的两个顶点坐标的确定考虑到五子棋15*15，确定棋盘坐标系顶点为(-8, 8)，(8, -8)（3）棋子的绘制与存储棋子的绘制用实心圆模式，颜色为黑色及白色两种。棋子在内存中的存储方式：因为表示各个棋子的数据类型都相同，所以考虑用数组存储，因为棋盘是二维的，因此棋子用二维数组a存储。a(i,j)表示用户坐标（i,j）的棋子状态，0表示此处无棋子，1表示此处为黑子，2表示此处为白子，下棋初始时，棋盘所有位置的初始状态都为0（4）下棋子的步骤鼠标点击棋盘交叉点附近的位置，系统应实现自动识别鼠标点击位置附近的交叉点解决方法：坐标系的变换已经将棋盘交叉点坐标整数化，因此系统所需要实现的功能即是将鼠标所点击的位置坐标化为整数即可，例如将（6.2, -5.3）变成（6, -5）。在交叉点上交替下黑白棋子。解决方法：定义一个逻辑数据类型变量blackwhite，该变量的值为真时下黑子，为假时下白子，每下一个棋子，该变量的值都要取反（NOT）。（5）（5）判断赢棋每次下子时都必须进行赢棋判断，判断的依据是5个子按照横线、竖线或斜线连成一行。解决方法：2层循环。当有一方胜利时，棋局结束，此时在棋盘上继续点击，将不再下棋。解决方法：设置一个逻辑变量wuziqi，其值为真时说明棋局没有结束，可以在棋盘上放棋子，该值为假时，说明该棋局结束，不能放棋子。（6）五子棋保存棋局思路：保存棋局的功能即把内存中与棋局相关的数据（棋局名称、棋子位置、棋子颜色、棋局状态（即棋局是否结束）存入外存中，以便以后能够恢复棋局。保存的实现用两种技术实现：文件和数据库。采用数据库技术实现棋局保存：数据库设计：数据表字段：棋局名、x坐标、y坐标、该点状态值、下棋状态。每条记录表示棋盘上一个存储的点的信息。 要实现用数据库保存数据，就必须使程序连接到数据库上，这里用的是data控件，通过在程序中对data控件属性的设置来连接数据库、数据表。首先判断如果输入的棋局名和当前记录的棋局名相等，说明表中有输入棋局名对应的棋局信息，将其删除，判断过程是将用户输入的棋局名（字符串）从记录集（即表）的棋局字段顶端至下逐一比较在表的最后，也就是最后一条记录后加上新保存棋局的各条记录因为棋盘上空点居多，大部分点的信息为0，因此只需保存有棋子的点的信息用文件技术进行棋局保存，思路相同。（7）五子棋恢复棋局思路：首先从数据库文件中找到要恢复棋局的数据（即曾经保存的数据），然后把这些数据赋值给内存中相应的数组或者变量中，按照这些数据重新绘制棋盘和棋子，即完成了对棋局的恢复。窗体启动事件应该完成的事情：组合框中应该显示曾经保存的棋局名。因为每次保存棋局时，都是将棋局所有棋子的记录添加在表的最后，因此表中关于棋局名的记录只能是类似于aaabbbbccccc的形式，而不可能是abbcacc的形式，根据这个特点编程序取出表中不同的棋局名。具体算法：用一个字符串变量strfile初始值为空，从表的顶端向下依次移动记录指针，如果当前记录的棋局名字段和strfile不相等，说明进入另一个棋局的记录中，将该棋局记录的棋局名赋值给strfile，并加入到组合框中，一直到表中最后一个记录因为要从数据库中取出相关数据到a数组中，因此要将a数组所有数据清零。要建立一个data控件，与数据库连接起来，而后识别棋局（即表中的棋局名字段与在列表框中选择的棋局名比较），将数据库该棋局中所有信息都赋值给a数组及相关变量。刚才仅仅是数据的恢复，即将数据库中已经保存过的数据恢复到内存中，下一步应该根据内存中的数据重新绘制棋盘以及棋子。重新绘制棋盘是独立的一块功能，因此考虑用全局子过程来实现，该子过程定义在模块中。思路如下：清屏绘制棋盘根据a数组中的每一项的两个下标来决定绘制棋子的位置，根据每一项的值是1还是2来决定在该位置绘制何颜色的棋子。决定该黑白方走的blackwhite变量当时没有保存，可以采用在数据库中保存的方式来解决，本例中解决方法是通过数黑白棋子个数来决定恢复棋局后该谁走的。因此设置了一个变量做计数器，每走一步棋计数器的值加一。用文件技术实现棋局恢复，思路相同。（8）悔棋悔一步棋：用几个变量来表示关于一步棋的几个信息，每次下子都将该子的信息赋值给那几个变量，悔一步棋即将那几个变量所表示的点的a数组信息清零。而后调用paint（）过程重画。以上是教师带