VB6.0程序设计上机实验指导(精)

1、VB6.0 程序设计上机实验指导1VB6.0程序设计上机实验指导实验一认识 VB6.0实验目的1.掌握VB集成开发环境的启动和退出2.了解VB集成开发环境的基本组成3.学会在VB集成开发环境中建立应用程序实验内容VB集成开发环境的启动和退出1.启动VB集成开发环境想一想：可以通过哪些方法启动VB集成开发环境。2.在“新建工程”对话框中选择“标准EXE注意：在“新建工程”对话框中有几个选项卡？它们各有什么作用？在“新 建”选项卡中有哪些选项？3.熟悉VB集成开发环境4.退出VB集成开发环境想一想：可以通过哪些方法退出VB集成开发环境。VB集成开发环境的基本组成1.指出VB集成环境中各组成部分的名

2、称。2.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体 设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。想一想：可以通过哪些方法打开代码窗口。3.掌握在窗体设计器窗口中添加控件。4.学会设置窗体、命令按钮、文本框的最常用属性。5.在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件 过程中输入代码。想一想：窗体、命令按钮、文本框的缺省事件是什么。三、 建立第一个VB应用程序程序功能：程序界面见下图，要求当按“显示内容”按钮时，文本框中 出现红色的“Hello,Visual Basic!”的文字，按“清屏”按钮时，文本框 中文字消失，按“结束”实验一认识 VB6

3、.02按钮后，程序结束。VB6.0 程序设计上机实验指导3程序中有一个窗体，一个文本框和三个按钮，其属性如下:对象名称属性属性值窗体（名称）Capti onForm1VB你好！文本框（名称）TextAlig nment FontForeColorText12粗体、14号红色命令按钮（名称）Capti onComma nd1显示内容命令按钮（名称）Capti onComma nd2清屏命令按钮（名称）Capti onComma nd3结束事件代码：Private Sub Comma nd1_Click（）Textl.Text = Hello，Visual Basic！End SubPrivate

4、 Sub Comma nd2_Click（）Text1.Text =End SubPrivate Sub Comma nd3_Click()EndEnd Sub想：怎样在窗体中添加控件，怎样改变窗体和控件的大小，怎样改变控 件的位置。如果要使窗体的高度为4000,宽度为5000,可以用什么 方法设置？如果要使文本框的位置为：左边405,上边405，可以使实验一认识 VB6.04用什么方法设置？VB6.0 程序设计上机实验指导5怎样在属性窗口中为窗体和控件设置属性，试试在属性窗口中设置 窗体的大小属性和文本框的位置属性。看一下其他控件的大小、位 置属性怎样设置？如何在窗体或控件的事件过程中加入程

5、序段，本实验在哪些对象（指出对象名称）的哪些事件（指出事件名称）中加入了程序段（指出Sub过程名称），这些程序段分别有什么功能。怎样在程序中使用命令设置对象的属性，本实验对哪些对象的哪些 属性进行了设置。试试在窗体的Load事件中设置窗体的大小和文本 框的位置。怎样保存程序，需要保存哪些文件；怎样运行程序。如果将文本框的名称改为“Texthy”，将第一个命令按钮的名称改为“Cmdhy，将第二个命令按钮的名称改为“Cmdqk，将第三个命令按钮的名称改为“CmdtC，则上述程序要作哪些改动？选做实验建立程序，功能如下：程序中有一个窗体，一个文本框和四个按钮，三个按钮分别显示“红色”、“绿色”、“蓝

6、色”字样，一个按钮显示“退出”字样。当按“红色”按钮时，文 本框中出现红色的文字“红色”；当按“绿色”按钮时，文本框中出现绿色的文 字“绿色”；当按“蓝色”按钮时，文本框中出现蓝色的文字“蓝色”。当按“退 出”按钮时，结束程序。程序界面如下图所示。氨额色设置回因|红色退岀提示：可使用RGB（）函数设置颜色附：RGB（）函数的使用功能：返回一个Long整数，用来表示一个RGB颜色值 语法:RGB(red, green, blue)参数：red必要参数；Variant (Integer)的红色 数值范围从0绿色蓝色实验一认识 VB6.06成份。green必要参数；Variant (Integer)

7、。数值范围从0到255，表示颜色的绿色成份。blue必要参数；Variant (Integer)。数值范围从0到255，表示颜色 的蓝色成份。说明：一个RGB颜色值指定红、绿、蓝三原色的相对亮度，生成一个用于显 示的特定颜色。RGB函数可以产生256*256*256种不同的颜色。任何 需要得到颜色的属性都可以通过RGBS数设置。传给RGB的任何参数的值，如果超过255，会被当作255。 下面的表格显示一些常见的标准颜色，以及这些颜色的红、绿、蓝三原 色的成份：颜色红色值绿色值兰色值黑色000蓝色00255绿色02550青色0255255红色25500洋红色2550255黄色2552550白色2

8、55255255VB6.0 程序设计上机实验指导7实验二窗体和标准控件（一）实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法实验内容一、命令按钮、标签及文本框控件的使用方法程序1:在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如 左图所示。要求在运行时，两个文本框中的内容均不允许用户编辑； 如果用户在 “原文”的文本框中选定所需的内容，单击“复制”命令按钮，则在“输出”文 本框中输出选定的内容，如右图所示；如果单击“结束”命令按钮，则结束程序提示:文本框中选定内容可以使用文本框的属性SelText（选定文本内容）、SelStart（选定

9、文本起始点）、SelLength（选定文本长度）读取或设置 属性设置和程序代码见附录。如果不用鼠标选定文本，而是通过InputBox函数输入所选文本的起始 点和长度，怎样修改程序。如果第一个文本框中文本没有被选中，则复制全部内容，如何修改程序 如果将“复制”功能改为“移动”功能，如何修改程序。附:InputBox函数的使用功能：在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含 文本框内容的字符串。语法:InputBox(prompt, title , default)或者接收用户输入H-Dlx|结束原文：输出:文本框的使用的运行。实验二窗体和标准控件(一)8参数：prompt必要

10、，字符串表达式，让对话框显示给用户的一个提示。prompt的最大长度大约是1024个字符，由所用字符的宽度决定。如果prompt包含多个行，则可在各行之间用回车符(Chr(13)、换行符(Chr(10)或回车换行符的组合(Chr(13) &Chr(10)来分隔。title可选，字符串表达式，给对话框指定一个标题。如果省略title， 则把应用程序名放入标题栏中。default可选，字符串表达式，显示在文本框中的缺省值。如果省略default，则文本框为空。说明：如果用户单击0K或按下ENTER则InputBox函数以字符串类型返回 文本框中的内容。如果用户单击Cancel，则此函数返回

11、一个长度为零 的字符串()。如果还要指定第一个命名参数以外的参数，则必须在表达式中使用InputBox。如果要省略某些位置参数，则必须加入相应的逗号分界符。程序2:建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编 码”、“电话号码”进行校验(性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字)。如果输入的数据不符号要求，则清空相 应的文本框，并将插入点置于该框中。所有的校验工作可以在单击“退出”按钮 后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否 则结束程序。提示：在过程中间要退出过程可使用命令“Exit Sub”，通过函数Len(字

12、符串)可得到字符串的长度，通过函数lsNumeric(字符串)可检验字符串是否 是数值。登记窗口属性设置和程序代码见附录。想一想：如果要求在文本框失去焦点时就对文本框的内容进行校验，则如何编 程？如果输入的数据不符合要求，或者在按“退出”按钮时还有空白的文本 框，在作出处理之前要求给出提示信息，如何修改程序。提示：可利用消息框(MsgBox附：Len()函数的使用功能：返回一个长整型数据，其中包含字符串内字符的数目。语法：Len( stri ng)参数：VB6.0 程序设计上机实验指导9string任何有效的字符串表达式。附：lsNumeric()函数的使用功能：返回布尔类型数据，指出表达式的

13、运算结果是否为数值。语法：lsNumeric(expressi on)参数：expression参数，必要的，是一个包含数值的表达式或字符串表达式。 说明：如果整个expression的运算结果为数字， 则IsNumeric返回True;否 则返回False。附：消息框(Msgbox的使用功能：在对话框中显示消息，等待用户单击按钮，并返回一个整型数据告诉用 户单击了哪一个按钮。语法：MsgBox(prompt, buttons , title)参数：prompt必要，字符串表达式，作为显示在对话框中的消息。prompt的 最大长度大约为1024个字符，由所用字符的宽度决定。如果prompt的

14、内容超过一行，则可以在每一行之间用回车符(Chr(13)、换行符(Chr(10)或是回车与换行符的组合(Chr(13) & Chr(10)将各行分隔开来。buttons可选，数值表达式，是值的总和，指定显示按钮的数目及形式， 使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则buttons的缺省值为0。title可选，字符串表达式，在对话框标题栏中显示的内容。如果省略title，则将应用程序名放在标题栏中。二、复选框、单选按钮及框架控件的使用程序3:在窗体中有一个标签，内有若干文字，要求通过窗体中的复选框或 单选按钮确定标签中文字的字体(宋体或黑体)、字号(10号或12

15、号)和字形 (是否粗体、是否斜体)，请建立应用程序。想一想：为了要设置字体、字号和字形，可分别使用复选框或单选按钮，什么时实验二窗体和标准控件（一）10候应使用复选框，什么时候应使用单选按钮。 在什么时候要根据不同情况执行不同的语句。提示：在程序运行时设置字体属性，可使用FontName FontSize、FontBold、Fon tItalic属性等。可以使用分支结构语句：IfThenElseEnd If建立分支结构的程序， 以使程序可以按不同情况执行不同的语句。属性设置和程序代码见附录。附：FontName FontSize、FontBold、FontItalic属性的使用功能：FontN

16、ame属性：返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体。FontSize属性：返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体的大小。FontBold、FontItalic属性：按下述格式返回或设置字体样式：Bold、Italic。语法：object. Fon tName = fontobject. Fon tSize = poin tsobject. Fon tBold = boolea nobject. Fon tItalic = boolea n参数：object对象表达式。font字符串表达式，指定所用的字体名。points数值表达式，用磅为单位指

17、定所用字体的大小。boolean布尔表达式，指定字体样式，属性值为True或False两个值之。说明：Fon tName属性的缺省值取决于系统，Visual Basic中可用的字体取决于系统的配置、显示设备和打印设备。与字体相关的属性只能设置为真 正存在的字体的值。一般来说，用FontSize、FontBold、FontItalic、FontStrikethru和FontUn derline属性来设置大小和样式属性前，要先改变Fon tName属 性。用FontSize属性以所要的字体格式化文本。缺省值由系统决定。要改 变缺省值，以磅为单位指定字体尺寸。FontSize的最大值为2160磅。可

18、以通过这些字体属性，在设计时用属性窗口或在运行时使用代码来格 式化文本。对于Picturebox控件及Form和Printer对象，设置这 些属性不会影响在控件或对象上已经绘出的图片和文本。对于其它控 件，改变字体将会在屏幕上立刻生效。附:IfThenElse -End IfVB6.0 程序设计上机实验指导11功能：根据表达式的值有条件地执行一组语句。语法：If condition Then statementElse elsestatement或者If con diti on Thenstateme ntsElseelseifstateme ntsEnd Iflf.The n.Else语句的

19、语法具有以下几个部分：con dition必要参数。一个或多个具有下面类型的表达式：数值表达式 或字符串表达式，其运算结果为True或False。statements必要参数。一条或多条语句，它们在condition为True时 执行。elsestatements可选参数。一条或多条语句，它们在前面的condition不为True时执行。说明：可以使用单行形式（第一种语法）来做短小简单的测试。但是，块形式 （第二种语法）则提供了更强的结构化与适应性，并且通常也是比较容 易阅读、维护及调试的。在单行形式中，按照If.The n判断的结果也可以执行多条语句。所有语句必须在同一行上并且以冒号分开，如

20、下面语句所示：If A 10 The n A = A + 1 : B = B + A : C = C + B在块形式中，If块必须以一个End If语句结束。 提示：根据单一表达式来执行多种可能的动作时，Select Case更为有用。选做实验综合题：依照“附件”中的计算器，自己编一个计算器。本实验要求：可以 使用数字按钮输入数值（整数）。提示：将十个数字按钮组成一个按钮数组，统一编程；使用函数CStr（表达式）可以使数值转化成字符串。附：CStr（）函数的使用功能：强制将一个表达式转换成某种字符型数据类型。语法：CStr（expressio n）实验三窗体和标准控件（二）12实验三窗体和标准

21、控件（二）实验目的1.掌握列表框和组合框控件的使用方法2.掌握滚动条和定时器控件的使用方法实验内容一、列表框和组合框控件的使用程序1:编写程序。要求：程序运行初期，在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数，单击窗体中“右移”按钮，则左 边列表框的10个数移动到右边的列表框中， 并由大到小排列， 此时“左移”按 钮变为有效。 单击“左移”按钮，右边列表框中的数又被移到左边的列表框中。 单击“退出”按钮或按ESC键，可退出程序。窗体示意图如下。提示：将列表框的Sorted属性设置为True，可使列表框中的项目从小到大排 序。使用“For循环变量=初值To终值Next循

22、环变量”可实现循环功能 可使用语句Randomize和函数Rnd（）产生随机数。移动列表框中的数，相当于将第一个列表框内容通过列表框的AddItem方法加入到第二个列表框，然后通过列表框的Removeitem方法将第一 个列表框内容删除。程序代码见附录。附：For循环语句的使用功能：以指定次数来重复执行一组语句。语法：For coun ter = start To end Step stepstateme ntsExit Forstateme nts冠列表框54575457旳列表框VB6.0 程序设计上机实验指导13Next co un ter参数：cou nter必要参数。用做循环计数器的数

23、值变量。这个变量不能是Boolean或数组元素。start必要参数，counter的初值。End必要参数，counter的终值。Step可选参数。counter的步长。 如果没有指定， 则step的缺省值为1。Statements可选参数。放在For和Next之间的一条或多条语句，它 们将被执行指定的次数。说明：step参数可以是正数或负数。step参数值决定循环的执行情况，如果step的值为正数或0,则当counter =end时执行循环。当所有循环中的语句都执行后，step的值会加到counter中。此时， 循环中的语句可能会再次执行(基于循环开始执行时同样的测试)，也可能是退出循环并从N

24、ext语句之后的语句继续执行。循环中可以在任何位置放置任意个Exit For语句，随时退出循环。Exit For经常在条件判断之后使用，例如lf.Then，并将控制权转移 到紧接在Next之后的语句。可以将一个For.Next循环放置在另一个For.Next循环中，组成嵌套循环。不过在每个循环中的cou nter要使用不同的变量名。下面 的体系结构是正确的：For I = 1 To 10For J = 1 To 10For K = 1 To 10Next KNext JNext I应避免在循环中改变cou nter的值，否则将会使程序代码的阅读和调 试变得更加困难。如果省略Next语句中的co

25、unter，就像counter存在时一样执行。附：Rnd()和Randomize()函数的使用 功能：Rn d()函数返回一个包含随机数值的Sin gleRan domize初始化随机数生成器语法：RndRan domize返回值：Rnd生成随机数序列中的下一个随机数。Ra ndomize用系统计时器返回的值作为新的种子值。说明：实验三窗体和标准控件(二)14Rnd函数返回小于1但大于或等于0的值。对最初给定的种子都会生成相同的数列，因为每一次调用Rnd函数都用数列中的前一个数作为下一个数的种子。在调用Rnd之前，先使用无参数的Randomize语句初始化随机数生成器， 该生成器具有根据系统计

26、时器得到Rnd的种子的功能。为了生成某个范围内的随机整数，可使用以下公式：In t(upperbo und - lowerbo und + 1) * Rnd + lowerbo und)这里，upperbound是随机数范围的上限，而lowerbound则是随机数 范围的下限。若想得到重复的随机数序列，在使用Randomize之前直接调用Rnc。使用Randomize后，Rnd就能得到不重复的随机数序列。附：AddItem、RemoveItem方法的使用功能：AddItem方法用于将项目添加到ListBox或ComboBox控件。RemoveItem方法用以从ListBox或ComboBox控

27、件中删除一项。语法：object.Addltem item, in dex object.RemoveItem in dex参数：object必需的。一个对象表达式。Item必需的。字符串表达式，它用来指定添加到该对象的项目。Index可选的。整数表达式，用来指定新项目或者要删除的项目在该对 象中的位置。对于ListBox或ComboBo控件的首项，index为0。说明：如果所给出的index值有效，则AddItem方法会将item放置在object中相应的位置。如果省略index，当Sorted属性设置为True时,AddItem方法会将item添加到恰当的排序位置，当Sorted属性设置为

28、False时,AddItem方法会将item添加到列表的结尾。程序2:建立应用程序，窗体如下图所示，有一个简单组合框、三个命令按 钮、一个文本框和一个标签。要求：单击“添加”按钮可将输入的内容添加到组合框中 单击“删除”按钮可删除组合框中选定的项目 单击“统计人数”按钮，可将组合框中的项目总数输出到右边的文本框 单击“退出”或按ESC键退出程序VB6.0 程序设计上机实验指导15冠组合框结束|程序代码见附录。想一想：如果去掉“统计人数”按纽，让统计人数的工作在添加人员或删除人员 时自动进行，应如何更改程序？为了使用户界面更友好，在设计本程序时在哪些方面需要考虑的？二、滚动条和定时器控件的使用程

29、序3:编写程序，运行时的界面如下图所示。要求：无论是拖动滚动条上 的滚动框，还是单击滚动箭头（数值递增或递减1）或滚动条（数值递增或递减10），均可以在相应的标签中反映当前数值，并动态计算出均值；单击“Reset”按钮，可将各滚动条上的滚动框复位。属性设置和程序代码见附录。滚动条的Change事件和Scroll事件有什么区别？， 本程序应该在什么 事件中编程？程序4:利用定时器控件设计一个数字式时钟应用程序 提示：可使用Time函数取得系统时间。属性设置和程序代码见附录。如果要求程序整时报时，该如何修改程序。 提示：可使用下面程序段实现。实验三窗体和标准控件(二)16If Second(Tim

30、e) =n则显示 组合数cm的值，否则显示数据出错。窗体如下图所示。提示:程序代码见附录典型问题的算法程序2:利用下列两式求得圆周率n的近似值，忽略级数式中绝对值小于0.000001的项。提示：找出后一项与前一项的关系，通过前一项得到后一项，然后累加起来。 程序代码见附录。利用函数求解n的阶乘。组合数 呼n!m!*( nm)!3.4Xtan x = x -391爲-以及二论3爼合数（齐1D :退岀实验五 VB 编程基础（二）19924参照下图，按“开始”按钮，可以实现每隔一秒加上一项，在两个文本 框中分别显示已累加项数和圆周率的近似值，按“停止”按钮，结束累 加工作，如何编写程序？求凰周率停止

31、退出这是一个利用级数求特殊数的值这样一个典型问题的算法，如下图所 示，请总结此算法。你是否还能找到其他类似的问题？若能找到，请试 着做一下。提示：自然对数底e的级数表示如下：e=1+1/1!+1/2!+1/3!+可参照下图编程。程序3:如下图所示，求2-200之间的所有素数，要求每输出五个数据换一 彳亍。冠 Forml235T131T1923313741435359616T7379B3391011Q3IOT10912713113713951157163167179131191193提示：可以通过一个自定义函数来求解某个数是否为素数VB6.0 程序设计上机实验指导25程序代码见附录程序4:利用随

32、机函数产生20个-500到500的随机整数 （包括-500和500）, 单击窗体时，在窗体上输出这20个数，同时在窗体上显示输出从大到小排好序 的这些数。要求以每行5个数的格式显示，如下图所示。说明：排序算法有很多，其中最典型的算法是冒泡法，请使用冒泡法求解上面 的问题。程序代码见附录。想一想：在上面的程序中，如果要求由一个Sub过程实现两个数交换，则如何修 改程序？选做实验综合题1:依照“附件”中的计算器， 自己编一个计算器。 本实验要求： 可 以实现四则运算。提示：可以使用变量保存当前选择的运算符等状态信息。-237-320460-145-331492-241-42-374-3603751

33、11-36665306-419225-441239368-441-419-360-374-36&-331-320-241-237-145-421112252693Q63&83754S0492冠排序loljsl实验六菜单、工具栏和状态栏的设计26实验六菜单、工具栏和状态栏的设计实验目的1.掌握下拉式菜单的设计方法2.掌握弹出式菜单的设计方法3.了解工具栏和状态栏的设计方法实验内容下拉式菜单的设计程序1:建立一个应用程序，该程序窗口中有一个文本框，设计菜单，菜单 项如下图所示。编制程序，完成各菜单项的功能。提示：设置颜色可使用通用对话框，请查阅相关知识，或将此功能留着以后实 现。程

34、序代码见附录。程序2:编写程序。要求：程序运行初期，在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数，相应的动态菜单如下图所示；如 果选择“转移”菜单下面的“右移”命令，则左边列表框的10个数移动到右边的列表框中，并由大到小排列；再打开“转移”菜单，则只有“左移”命令可用。VB6.0 程序设计上机实验指导27程序代码见附录。弹出式菜单的设计程序3:将程序2中的下拉菜单改成二个弹出式菜单，分别作为两个列表框 的快捷菜单，当列表框有数据时，菜单有效，否则无效。窗体如下图所示。程序代码见附录。三、工具栏和状态栏的设计程序4:工具栏的设计。设计一个窗口外观如下图所示的程序，在窗口

35、下方 的“请输入”文本框中输入一句名言，选择 “编辑”菜单中的“名言展示”命令, 或按下工具栏中的“名言展示”按钮，可将这句名言添加到窗口中间的“名言展 示”文本框中。类似地，此程序还可以用这两种方法实现以下功能：复位、调整 “名言展示”文本框中字体颜色、查看本程序信息、退出。实验六菜单、工具栏和状态栏的设计28提示：在文本框中可以使用VB的字符串常量VBCrLf实现强制换行。 程序代码见附录。程序5:状态栏的设计。在程序4的基础上，加上状态栏，在状态栏中显示 “名言展示”文本框中展示的名言句数和总长度，以及系统日期和系统时间。程序代码见附录。选做实验1.综合题1:依照“附件”中的计算器，自己

36、编一个计算器。本实验要求： 计算器中加入下拉菜单，并为其中的“编辑”菜单的“复制”和“粘贴”菜单项 编制相应的程序。提示：可以使用Clipboard对象的SetText方法和GetText方法将文本字符串 送到粘贴板或从粘贴板取到文本字符串。VB6.0 程序设计上机实验指导29附：Clipboard对象的 SetTextSetText 方法和 GetTextGetText 方法的使用功能：SetText方法用以将文本字符串放到Clipboard对象中。GetText方法用于取得Clipboard对象中的文本字符串。语法：Clipboard.SetText text Clipboard.GetT

37、ext组成部分：text必需的。是被放置到剪贴板中的字符串数据。说明：如果Clipboard对象中没有与期望的格式相匹配的字符串，则返回一个 零长度字符串()。2.综合题2:建立学生档案管理信息系统。本实验要求：设计菜单。实验七对话框、多文档界面设计实验目的1掌握预定义对话框的使用方法2掌握通用对话框的使用方法3掌握简单的MDI应用程序的设计方法4了解多文档文本编辑器的设计方法实验内容一、对话框的使用程序1:使用预定义对话框输入和输出数据。程序如下图所示，用于管理学 生成绩。按输入按钮，使用预定义对话框InputBox输入学生人数及每个学生的 成绩；使用预定义对话框MsgBoX俞出总分和平均成

38、绩。程序代码见附录。程序2:使用通用对话框进行属性设置。实验六菜单、工具栏和状态栏的设计30程序代码见附录VB6.0 程序设计上机实验指导31简单的MDI应用程序的设计程序3:建立一个应用程序，程序中有一个MDI窗体，通过MDI窗体的“文 件”菜单中的“新建文档”菜单项可建立一个文档窗口作为MDI窗体的子窗体， 在此子窗体可进行文本编辑。通过菜单可建立多个文档窗口，也可进行编辑文档 内容、关闭文档等操作，如下图所示。提示:菜单应建在MDI窗体中将文档窗体作为对象， 在“新建文档”菜单命令中声明一个新的文档窗 体类型的变量，对此对象类型的变量进行属性设置， 最后将其显示。例: 如果文档窗体的名称

39、为MyDocu则下列程序段可实现新建文档功能：Dim NewForm As MyDocu NewForm.Caption=”我的文档”NewForm.Show假如父文档的名称为MDIForml,则可使用下列语句关闭MDIForml窗体 中的活动文档，实现“关闭文档”功能：Un load MDIForml.ActiveForm在文档窗体中加入一个文本框。文本框的Top属性和Left属性均设为0， 在文档窗体的Resize事件中加入命令， 使文本框的Height属性和Width属性的值分别等于窗体的ScaleHeight属性和ScaleWidth属性，这样 可以使文档窗体中文本框保持最大。程序代码

40、见附录。选做实验在程序3中，为“编辑”菜单下的“剪切”、“复制”、“粘贴”、“全选”命令 编写程序；在“文件”菜单下增加“打开文档”和“保存文档”命令，并为它们 编写程序。实验七对话框、多文档界面设计32提示：“剪切”、复制“、粘贴”功能均与粘贴板(Clipboard)对象有关，相 关内容可参阅实验六选做实验第一题。“打开文档”和“保存文档”命令的实现，除了要使用通用对话框控件打开相应的对话框指定文件名及其位置外，还需要使用In put语句和Write语句读入文件的内容或文档中的内容写入文件。例如，可用下面 的程序段分别实现“打开文档”、“另存为”功能：CommonDialog1.Filter

41、=文本文件(*.txt)|*.txt|(* *)|* *全部文件Common Dialogl.ShowOpe nDim n ewdocu As New MyDocun ewdocu.Capti on = Common Dialog1.FileTitlen ewdocu.ShowDim Lin eStr As Stri ngOpe n Commo nDialog1.FileName For In put As #1Do While Not EOF(1)Li ne In put #1, Li neStrn ewdocu.RichTextBox1.Text = n ewdocu.RichTextBo

42、x1.Text &Lin eStr + vbCrLfLoopClose #1CommonDialog1.Filter=文本文件(*.txt)|*.txt|(* *)|* *全部文件Common Dialog1.ShowSaveOpe n Commo nDialog1.FileName For Output As #1Print #1, MyDocu.RichTextBox1.TextClose #1实验八文件的基本操作和文件的读写实验目的1掌握DriveListBox、DirListBox和FileListBox等文件控件的使用方法2掌握用传统方式进行文件复制、移动、删除及重命名等基本

43、方法3.掌握顺序文件、随机文件和二进制文件的读写操作方法4.了解MSFIexGrid控件的使用方法实验内容使用DriveListBox、DirListBox和FileListBox等控件VB6.0 程序设计上机实验指导33程序1:建立一个应用程序，该程序利用文件系统控件可以实现文件的复制、 移动和删除，如下图所示。程序代码见附录想一想:如果要求一次操作多个文件或文件，应如何修改程序?顺序文件、随机文件和二进制文件的读写程序2:编写程序，要求能将文本框中的内容写入顺序文件，或者能将顺序 文件的内容读入到文本框中，如下图所示。实验七对话框、多文档界面设计34程序代码见附录想一想:顺序文件的读写还有

44、哪些方法?程序3:编写程序，要求能将下图中若干个文本框中的内容写入随机文件中, 或者能将随机文件的内容读入到相应的文本框中，如下图所示。提示：在随机文件读写操作之前，应先定义一个自定义的记录类型。定义方法 见下例。Type StuRec创建用户自定义的类型。Name As String * 20定义元素的数据类型。Sex As Boolea nAge As In tegerEnd Type程序代码见附录。实验九图形方法和图形控件实验目的1掌握使用图形方法绘制典型的图形2了解图片框和图像控件的区别3掌握图片框和图像控件的使用方法VB6.0 程序设计上机实验指导354掌握直线控件和形状控件的使用方

45、法5了解图像处理的基本方法实验内容、图形方法的应用程序1:在窗体上绘制-n到n的正弦曲线，如下图所示提示：可以在系统坐标系中画线，也可以在自定义坐标系中画线，比较两者优 缺点。程序代码见附录。二、图片框控件和图像控件的使用程序2:在窗体上左右各放置一个大小相同的图片框和图像框，修改它们的 边框式样（BordeStyle属性），使它们的边框一栏。 通过Picture属性装入一个 同样的位图文件 （.bmp） ，如下图所示，观察两个控件的变化以及其中图形的差 异。若装入的是图元文件（.wmf），则图片框和图像控件中的图形又会怎样？实验九图形方法和图形控件36设置图片框的AutoSize属性为Tru

46、e，观察两个图形的差异。设置图像控件的Stretch属性为True,再次通过Picture属性装入同样的 位图文件 （.bmp） ,观察两个图形的差异。程序3:创建应用程序，利用图片框浏览大幅面图形。在窗体放置两个图片 框，一个垂直滚动条和一个水平滚动条， 如下图所示。在第二个图片框中装入一 个大图形，利用两个滚动条改变第二个图片框在第一个图片框中的位置，实现对整幅图形的浏览。程序代码见附录程序4:创建一个测试图像控件特性的应用程序: 小”按钮，能使图像框中的图形放大或缩小。单击窗体上的“放大”、“缩VB6.0 程序设计上机实验指导37程序代码见附录三、直线控件和形状控件的使用程序5:建立如下

47、图所示的应用程序， 通过命令按钮控制直线控件的旋转和 形状控件的形状、位 置 等 的 变 化 ， 掌 握 直 线 和 形 状 控 件 的 特 点 和 使 用 方 法 。程序代码见附录四、图像处理程序6:创建应用程序：通过使输出的文本产生微移后叠加，在图片框中输 出有立体效果的文本，如下图所示。实验十数据库操作（一）38程序代码见附录VB6.0 程序设计上机实验指导39实验十数据库操作实验目的1.掌握创建数据库的方法2.掌握数据控件的使用方法3.掌握控件的数据绑定技术4.掌握数据库记录集的操作方法实验内容一、创建数据库stud.mdb通过“Microsoft Access”和VB6中的“可视化数

48、据库管理器”分别建立数 据库stud.mdb，其 中 有 一 个 数 据 表s t u d e n t， 该 数 据 表 的 结 构如 下 ：字段名类型长度学号Stri ng7班级Stri ng8姓名Stri ng8性别Stri ng2年龄In teger出生日期Date/Time婚否Boolea n简历备注在数据表中输入三条记录如下:学号班级姓名性别年龄出生日期婚否简历二、控件的数据绑定技术程序1:使用控件的数据绑定技术显示、修改、添加student数据表中的数实验十数据库操作（一）40据。窗体界面如下。VB6.0 程序设计上机实验指导41提示：将数据控件的EofAction的值设为2,可以

49、利用数据控件添加数据 数据控件上的当前记录号和总记录数可以使用记录集对象的两个属性:AbsolutePosition和RecordCount得到三、数据库记录集的操作方法程序2:利用数据库记录集的操作方法实现显示、修改、添加和删除记录的 功能。程序界面如下图所示。实验十数据库操作（一）42程序代码见附录VB6.0 程序设计上机实验指导43实验二程序1主要属性设置:对象属性属性值文本框（Text1）LockedTrueScrollBars2-VerticalText文本框（Text2）LockedTrueScrollBars2-VerticalText返回程序代码：Private Sub Com

50、ma nd1_Click()Text2.Text = Textl.SelTextEnd SubPrivate Sub Comma nd2_Click() EndEnd SubPrivate Sub Form_Load（）Text1.Text = _文本框是一个多功能控件，可以显示或者接收用户输入的文本信息End Sub返回 程序2主要属性设置:对象属性属性值姓名文本框（名称）Textxm性别文本框（名称）Textxb联系地址文本框（名称）Textdz邮政编码文本框（名称）Textyb联系电话文本框（名称）Textdh返回程序代码:Private Sub Comma nd1_Click() If

51、 Textxm = The nTextxm.SetFocusExit SubEnd If附录II附录44If Textxb = The nTextxb.SetFocusExit SubEnd IfIf Textdz = The nTextdz.SetFocusExit SubEnd IfIf Textyb = The nTextyb.SetFocusExit SubEnd IfIf Textdh = The nTextdh.SetFocusExit SubEnd IfEndEnd SubPrivate Sub Textdh_LostFocus()If Textdh.Text The nIf L

52、en( Textdh.Text) 8 Or Not IsNumeric(Textdh.Text) ThenTextdh.Text =Textdh.SetFocusEnd IfEnd IfEnd SubPrivate Sub Textxb_LostFocus()If Textxb.Text The nIf Textxb.Text 男And Textxb.Text 女ThenTextxb.Text =Textxb.SetFocusEnd IfEnd IfEnd SubPrivate Sub Textyb_LostFocus() If Textyb.Text The nIf Le n(Textyb.

53、Text) 6 Or Not IsNumeric(Textyb.Text) Then Textyb.Text =Textyb.SetFocusEnd IfEnd IfEnd Sub返回程序3VB6.0 程序设计上机实验指导45主要属性设置:对象属性属性值标签(Label1)Capti on复选框和单选按钮是应用程序中允 许用户进行选择的控件。BackColor白色BorderStyle1返回程序代码:Private Sub Check1_Click() If Check1.Value = 1 The n Label1.F on tBold = True ElseLabel1.F on tBol

54、d = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 The n Label1.F on tItalic = True ElseLabel1.Fo ntItalic = False End IfEnd SubPrivate Sub Optio n1_Click()Label1.Fo ntName =宋体End SubPrivate Sub Optio n2_Click()Label1.Fo ntName =黑体End SubPrivate Sub Optio n3_Click()Label1.Fo ntSiz

55、e = 10End SubPrivate Sub Optio n4_Click()Labell.Fo ntSize = 12End Sub返回实验三程序1程序代码：Private Sub Comma nd1_Click() Dim i As In teger, Last As In teger Last = List1.ListCount - 1For i = 0 To LastList2.Addltem List1.List(Last - i) List1.Removeltem Last - iNext iComma nd1.E nabled = FalseComma nd2.E nable

56、d = True附录46End SubPrivate Sub Comma nd2_Click()Dim i As In teger, Last As In tegerLast = List2. ListCount - 1For i = 0 To LastList1.AddItem List2.List(Last - i)List2.RemoveItem Last - iNext iComma nd1.E nabled = TrueComma nd2.E nabled = False End SubPrivate Sub Comma nd3_Click() Un load MeEnd SubPr

57、ivate Sub Form_Load()Dim i As In tegerFor i = 0 To 9Ran domizeList1.AddItem In t(90 * Rnd) + 10)Next iEnd Sub返回 程序2程序代码：Private Sub Combo1_Cha nge() If Combol.Text Then Comma nd1.Enabled = True Comma nd1.Default = True ElseComma nd1.E nabled = False End IfEnd SubPrivate Sub Combo1_Click() Comma nd2.

58、E nabled = True Comma nd2.Default= True Combo1.SetFocusEnd SubPrivate Sub Comma nd1_Click()Combo1 .A ddItem Combo1.TextCombo1.Text =Combo1.SetFocusEnd SubPrivate Sub Comma nd2_Click() x = Combo1.List In dex Combo1.Removeltem xIf x 0 The nCombo1.ListI ndex = x - 1 ElseVB6.0 程序设计上机实验指导47Comma nd2.E na

59、bled = False Comma nd2.Default = False End IfEnd IfText1.SetFocusEnd SubPrivate Sub Comma nd3_Click() Text1.Text = Combo1. ListCou ntCombo1.SetFocusEnd SubPrivate Sub Comma nd4_Click()EndEnd Sub返回 程序3主要属性设置:对象属性属性值水平滚动条HScroll1HScroll2HScroll3Max100Min0LargeCha nge10SmallCha nge1返回程序代码：Private Sub C

60、omma nd1_Click()HScrolH.Value = 0HScroll2.Value = 0HScroll3.Value = 0End SubPrivate Sub HScroll1_Cha nge()Label1.C apti on = HScrolH.ValueAverageEnd SubPrivate Sub Average。Dim Temp As DoubleTemp = (HScrolH.Value + HScroll2.Value + HScroll3.Value) / 3Label4.C apti on = CStr(Temp)End SubPrivate Sub HScroll2_Cha nge()La