VB6.0程序设计 上机实验指导.docVIP

VB6.0程序设计上机实验指导VB6.0程序设计上机实验指导前言Visual Basic是Microsoft公司推出的一种Windows应用程序的开发工具。由于它具有使用方便、简单易学、功能丰富等特点，迅速成为目前最流行的Windows应用程序的开发工具之一。VB6是VB用户使用最多的一个版本，它对以前版本的已有功能作了进一步的完善，并增加了很多功能。VB是一门理论和实践结合非常紧密的课程，要真正掌握和学好该门课程，必须加强实践性环节的教学，为此我们在教学实践的基础上，结合我们的经验和体会，编写了该实验指导书。该实验指导书以Microsoft公司的VB6为基本平台，根据“VB6程序设计”课程的教学内容，我们共安排了如下十个实验，供教师和读者选用：1、认识VB6.02、窗体和标准控件（一）3、窗体和标准控件（二）4、VB编程基础（一）5、VB编程基础（二）6、菜单、工具栏和状态栏的设计7、对话框、多文档界面设计8、文件的基本操作和文件的读写9、图形方法和图形控件10、数据库操作同时在附录中给出了有关实验的程序代码，并非标准答案，仅供读者查阅。本实验指导书虽然是在作者教学实践的基础上编写而成的，但由于时间仓促和作者水平所限，书中难免有不足甚至错误之处，恳请批评指正。 作者 2005年12月目录实验一 认识VB6.01实验二 窗体和标准控件（一）4实验三 窗体和标准控件（二）8实验四 VB编程基础（一）12实验五 VB编程基础（二）16实验六 菜单、工具栏和状态栏的设计19实验七 对话框、多文档界面设计22实验八 文件的基本操作和文件的读写24实验九 图形方法和图形控件26实验十 数据库操作28附录30实验一 认识VB6.0 实验目的1.掌握VB集成开发环境的启动和退出2.了解VB集成开发环境的基本组成3.学会在VB集成开发环境中建立应用程序 实验内容一、 VB集成开发环境的启动和退出1. 启动VB集成开发环境想一想：可以通过哪些方法启动VB集成开发环境。2. 在“新建工程”对话框中选择“标准EXE”注意：在“新建工程”对话框中有几个选项卡？它们各有什么作用？在“新建”选项卡中有哪些选项？3. 熟悉VB集成开发环境4. 退出VB集成开发环境想一想：可以通过哪些方法退出VB集成开发环境。二、 VB集成开发环境的基本组成1. 指出VB集成环境中各组成部分的名称。2. 找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。想一想：可以通过哪些方法打开代码窗口。3. 掌握在窗体设计器窗口中添加控件。4. 学会设置窗体、命令按钮、文本框的最常用属性。5. 在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件过程中输入代码。想一想：窗体、命令按钮、文本框的缺省事件是什么。三、 建立第一个VB应用程序程序功能：程序界面见下图，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,Visual Basic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。程序中有一个窗体，一个文本框和三个按钮，其属性如下：对象名称属性属性值窗体（名称）CaptionForm1VB，你好！文本框（名称）TextAlignmentFontForeColorText12粗体、14号红色命令按钮（名称）CaptionCommand1显示内容命令按钮（名称）CaptionCommand2清屏命令按钮（名称）CaptionCommand3结束事件代码：Private Sub Command1_Click() Text1.Text = Hello，Visual Basic！End SubPrivate Sub Command2_Click() Text1.Text = End SubPrivate Sub Command3_Click() EndEnd Sub想一想：l 怎样在窗体中添加控件，怎样改变窗体和控件的大小，怎样改变控件的位置。如果要使窗体的高度为4000，宽度为5000，可以用什么方法设置？如果要使文本框的位置为：左边405，上边405，可以使用什么方法设置？l 怎样在属性窗口中为窗体和控件设置属性，试试在属性窗口中设置窗体的大小属性和文本框的位置属性。看一下其他控件的大小、位置属性怎样设置？l 如何在窗体或控件的事件过程中加入程序段，本实验在哪些对象（指出对象名称）的哪些事件（指出事件名称）中加入了程序段（指出Sub过程名称），这些程序段分别有什么功能。l 怎样在程序中使用命令设置对象的属性，本实验对哪些对象的哪些属性进行了设置。试试在窗体的Load事件中设置窗体的大小和文本框的位置。l 怎样保存程序，需要保存哪些文件；怎样运行程序。l 如果将文本框的名称改为“Texthy”，将第一个命令按钮的名称改为“Cmdhy”，将第二个命令按钮的名称改为“Cmdqk”，将第三个命令按钮的名称改为“Cmdtc”，则上述程序要作哪些改动？ 选做实验建立程序，功能如下：程序中有一个窗体，一个文本框和四个按钮，三个按钮分别显示“红色”、“绿色”、“蓝色”字样，一个按钮显示“退出”字样。当按“红色”按钮时，文本框中出现红色的文字“红色”；当按“绿色”按钮时，文本框中出现绿色的文字“绿色”；当按“蓝色”按钮时，文本框中出现蓝色的文字“蓝色”。当按“退出”按钮时，结束程序。程序界面如下图所示。提示:l 可使用VB中预设的颜色常量或RGB()函数或QBColor函数设置颜色。附：RGB()函数的使用功能：l 返回一个Long整数，用来表示一个RGB颜色值。语法：RGB(red,green,blue)参数：l red、green、blue必要参数；Variant(Integer)。数值范围从0到255，表示颜色的红色、绿色和蓝色成份。说明：l 一个RGB颜色值指定红、绿、蓝三原色的相对亮度，生成一个用于显示的特定颜色。RGB函数可以产生256*256*256种不同的颜色。任何需要得到颜色的属性都可以通过RGB函数设置。l 传给RGB的任何参数的值，如果超过255，会被当作255。l 下面的表格显示一些常见的标准颜色，以及这些颜色对应的颜色常量名称和红、绿、蓝三原色的成份：颜色红色值绿色值兰色值黑色000蓝色00255绿色02550青色0255255红色25500洋红色2550255黄色2552550白色25525525555实验二 窗体和标准控件（一） 实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法 实验内容一、 命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。要求在运行时，两个文本框中的内容均不允许用户编辑；如果用户在“原文”的文本框中选定所需的内容，单击“复制”命令按钮，则在“输出”文本框中输出选定的内容，如右图所示；如果单击“结束”命令按钮，则结束程序的运行。提示：l 文本框中选定内容可以使用文本框的属性SelText（选定文本内容）、SelStart（选定文本起始点）、SelLength（选定文本长度）读取或设置。属性设置和程序代码见附录。想一想：l 如果不用鼠标选定文本，而是通过InputBox函数输入所选文本的起始点和长度，怎样修改程序。l 如果第一个文本框中文本没有被选中，则复制全部内容，如何修改程序。l 如果将“复制”功能改为“移动”功能，如何修改程序。附:InputBox函数的使用功能:l 在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。语法:InputBox(prompt, title , default)参数：l prompt必要，字符串表达式，让对话框显示给用户的一个提示。l title可选，字符串表达式，给对话框指定一个标题。如果省略 title，则把应用程序名放入标题栏中。l default可选，字符串表达式，显示在文本框中的缺省值。如果省略default，则文本框为空。说明:l 如果用户单击 OK 或按下 ENTER，则 InputBox 函数以字符串类型返回文本框中的内容。如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ()。注意:l 如果还要指定第一个命名参数以外的参数，则必须在表达式中使用 InputBox。如果要省略某些位置参数，则必须加入相应的逗号分界符。程序2：建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验（性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字）。如果输入的数据不符合要求，则清空相应的文本框，并将插入点置于该框中。所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。提示：l 在过程中间要退出过程可使用命令“Exit Sub”，通过函数Len(字符串)可得到字符串的长度，通过函数IsNumeric(字符串)可检验字符串是否是数值。属性设置和程序代码见附录。想一想：l 如果要求在文本框失去焦点时就对文本框的内容进行校验，则如何编程？l 如果输入的数据不符合要求，或者在按“退出”按钮时还有空白的文本框，在作出处理之前要求给出提示信息，如何修改程序。提示：l 可利用消息框（MsgBox）附： Len()函数的使用功能：l 返回一个长整型数据，其中包含字符串内字符的数目。语法：Len(string)参数：l string任何有效的字符串表达式。附： IsNumeric()函数的使用功能：l 返回布尔类型数据，指出表达式的运算结果是否为数值。语法：IsNumeric(expression)参数：l expression 参数，必要的，是一个包含数值的表达式或字符串表达式。说明：l 如果整个expression 的运算结果为数字，则IsNumeric 返回True；否则返回False。附： 消息框（Msgbox）的使用功能：l 在对话框中显示消息，等待用户单击按钮，并返回一个整型数据告诉用户单击了哪一个按钮。语法：MsgBox(prompt, buttons , title)参数：l prompt必要，字符串表达式，作为显示在对话框中的消息。l buttons可选，数值表达式，是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则 buttons 的缺省值为 0。l title可选，字符串表达式，在对话框标题栏中显示的内容。如果省略title，则将应用程序名放在标题栏中。二、 复选框、单选按钮及框架控件的使用程序3：在窗体中有一个标签，内有若干文字，要求通过窗体中的复选框或单选按钮确定标签中文字的字体（宋体或黑体）、字号（10号或12号）和字形（是否粗体、是否斜体），请建立应用程序。想一想：l 为了要设置字体、字号和字形，可分别使用复选框或单选按钮，什么时候应使用复选框，什么时候应使用单选按钮。l 在什么时候要根据不同情况执行不同的语句。提示：l 在程序运行时设置字体属性，可使用FontName、FontSize、FontBold、FontItalic属性等。l 可以使用分支结构语句：IfThenElseEnd If建立分支结构的程序，以使程序可以按不同情况执行不同的语句。属性设置和程序代码见附录。附：FontName、FontSize、FontBold、FontItalic属性的使用功能：l FontName属性：返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体。l FontSize属性：返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体的大小。l FontBold、FontItalic属性：按下述格式返回或设置字体样式：Bold、Italic。语法：object.FontName = fontobject.FontSize = pointsobject.FontBold = booleanobject.FontItalic = boolean参数：l object对象表达式。l font字符串表达式，指定所用的字体名。l points数值表达式，用磅为单位指定所用字体的大小。l boolean布尔表达式，指定字体样式，属性值为True或False。附：IfThenElseEnd If功能：l 根据表达式的值有条件地执行一组语句。语法：If condition Then statementElse elsestatement或者If condition ThenstatementsElse elseifstatementsEnd IfIf.Then.Else 语句的语法具有以下几个部分：l condition必要，条件表达式。l statements必要。一条或多条语句，它们在condition为True时执行。l elsestatements可选。一条或多条语句，它们在前面的 condition不为 True 时执行。提示：l 根据单一表达式来执行多种可能的动作时，Select Case更为有用。 选做实验综合题：依照“附件”中的计算器，自己编一个计算器。本实验要求：可以使用数字按钮输入数值（整数）。提示：l 将十个数字按钮组成一个按钮数组，统一编程；使用函数CStr(表达式)可以使数值转化成字符串。附： CStr()函数的使用功能：l 强制将一个表达式转换成某种字符型数据类型。语法：l CStr(expression)实验三 窗体和标准控件（二） 实验目的1. 掌握列表框和组合框控件的使用方法2. 掌握滚动条和定时器控件的使用方法 实验内容一、 列表框和组合框控件的使用程序1：编写程序。要求：程序运行初期，在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数，单击窗体中“右移”按钮，则左边列表框的10个数移动到右边的列表框中，并由大到小排列，此时“左移”按钮变为有效。单击“左移”按钮，右边列表框中的数又被移到左边的列表框中。单击“退出”按钮或按ESC键，可退出程序。窗体示意图如下。提示：l 将列表框的Sorted属性设置为True，可使列表框中的项目从小到大排序。l 使用“For 循环变量=初值 To 终值Next 循环变量”可实现循环功能l 可使用语句Randomize和函数Rnd()产生随机数。l 移动列表框中的数，相当于将第一个列表框内容通过列表框的AddItem方法加入到第二个列表框，然后通过列表框的RemoveItem方法将第一个列表框内容删除。程序代码见附录。附：For循环语句的使用功能：l 以指定次数来重复执行一组语句。语法：For counter = start To end Step stepstatementsExit ForstatementsNext counter参数：l counter必要,用做循环计数器的数值变量。l start必要，counter 的初值。l End必要，counter 的终值。l Step可选参数。counter 的步长。如果没有指定，则step的缺省值为 1。l Statements可选参数。放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数。说明：l step 参数可以是正数或负数。step 参数值决定循环的执行情况，如果step的值为正数或0，则当counter = end时执行循环。l 当所有循环中的语句都执行后，step 的值会加到 counter 中。此时，循环中的语句可能会再次执行（基于循环开始执行时同样的测试），也可能是退出循环并从 Next 语句之后的语句继续执行。l 循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。 l 可以将一个 For.Next 循环放置在另一个 For.Next 循环中，组成嵌套循环。不过在每个循环中的 counter 要使用不同的变量名。注意：l 应避免在循环中改变 counter 的值，否则将会使程序代码的阅读和调试变得更加困难。l 如果省略Next语句中的counter，就像counter存在时一样执行。附： Rnd()和Randomize()函数的使用功能：l Rnd()函数返回一个包含随机数值的 Singlel Randomize初始化随机数生成器语法：RndRandomize返回值：l Rnd生成随机数序列中的下一个随机数。l Randomize用系统计时器返回的值作为新的种子值。说明：l Rnd函数返回小于1但大于或等于0的值。l 对最初给定的种子都会生成相同的数列，因为每一次调用Rnd函数都用数列中的前一个数作为下一个数的种子。l 在调用Rnd之前，先使用无参数的 Randomize语句初始化随机数生成器，该生成器具有根据系统计时器得到Rnd的种子的功能。l 为了生成某个范围内的随机整数，可使用以下公式：Int(upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。附： AddItem、RemoveItem方法的使用功能：l AddItem方法用于将项目添加到 ListBox 或 ComboBox 控件。l RemoveItem方法用以从 ListBox 或 ComboBox 控件中删除一项。语法：object.AddItem item, indexobject.RemoveItem index参数：l object必需的。一个对象表达式。l Item必需的。字符串表达式，它用来指定添加到该对象的项目。l Index整数表达式，用来指定新项目或者要删除的项目在该对象中的位置。对于ListBox或ComboBox控件的首项，index为0。说明：l 如果所给出的index值有效，则AddItem方法会将item放置在object中相应的位置。如果省略index，当Sorted属性设置为True时，AddItem方法会将item添加到恰当的排序位置，当Sorted属性设置为False时，AddItem方法会将item 添加到列表的结尾。程序2：建立应用程序，窗体如下图所示，有一个简单组合框、三个命令按钮、一个文本框和一个标签。要求：l 单击“添加”按钮可将输入的内容添加到组合框中l 单击“删除”按钮可删除组合框中选定的项目l 单击“统计人数”按钮，可将组合框中的项目总数输出到右边的文本框l 单击“退出”或按ESC键退出程序 程序代码见附录。想一想：l 如果去掉“统计人数”按纽，让统计人数的工作在添加人员或删除人员时自动进行，应如何更改程序？l 为了使用户界面更友好，在设计本程序时在哪些方面需要考虑的？二、 滚动条和定时器控件的使用程序3：编写程序，运行时的界面如下图所示。要求：无论是拖动滚动条上的滚动框，还是单击滚动箭头（数值递增或递减1）或滚动条（数值递增或递减10），均可以在相应的标签中反映当前数值，并动态计算出均值；单击“Reset”按钮，可将各滚动条上的滚动框复位。属性设置和程序代码见附录。想一想：l 滚动条的Change事件和Scroll事件有什么区别？，本程序应该在什么事件中编程？程序4：利用定时器控件设计一个数字式时钟应用程序。提示：l 可使用Time函数取得系统时间。属性设置和程序代码见附录。想一想：l 如果要求程序整时报时，该如何修改程序。提示：l 可使用下面程序段实现。 If Second(Time) =n，则显示组合数的值，否则显示数据出错。窗体如下图所示。程序代码见附录。二、 典型问题的算法程序2：利用下列两式求得圆周率的近似值，忽略级数式中绝对值小于0.000001的项。以及提示：l 找出后一项与前一项的关系，通过前一项得到后一项，然后累加起来。程序代码见附录。想一想：l 参照下图，按“开始”按钮，可以实现每隔一秒加上一项，在两个文本框中分别显示已累加项数和圆周率的近似值，按“停止”按钮，结束累加工作，如何编写程序？l 这是一个利用级数求特殊数的值这样一个典型问题的算法，如下图所示，请总结此算法。你是否还能找到其他类似的问题？若能找到，请试着做一下。提示：l 自然对数底e的级数表示如下：e=1+1/1!+1/2!+1/3!+可参照下图编程。程序3：如下图所示，求2-200之间所有素数，要求每输出五个数据换一行。提示：l 可以通过一个自定义函数来求解某个数是否为素数。程序代码见附录。程序4：利用随机函数产生20个-500到500的随机整数（包括-500和500），单击窗体时，在窗体上输出这20个数，同时在窗体上显示输出从大到小排好序的这些数。要求以每行5个数的格式显示，如下图所示。说明：l 排序算法有很多，请使用最典型的冒泡法求解上面的问题。程序代码见附录。想一想：l 如果要求由一个Sub过程实现两个数交换，则如何修改程序？ 选做实验综合题1：依照“附件”中的计算器，自己编一个计算器。本实验要求：可以实现四则运算。实验六 菜单、工具栏和状态栏的设计 实验目的1. 掌握下拉式菜单的设计方法2. 掌握弹出式菜单的设计方法3. 了解工具栏和状态栏的设计方法 实验内容一、 下拉式菜单的设计程序1：建立一个应用程序，该程序窗口中有一个文本框，设计菜单，菜单项如下图所示。编制程序，完成各菜单项的功能。 提示：l 设置颜色可使用通用对话框，请查阅相关知识，或将此功能留着以后实现。程序代码见附录。程序2：编写程序。要求：程序运行初期，在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数，相应的动态菜单如下图所示；如果选择“转移”菜单下面的“右移”命令，则左边列表框的10个数移动到右边的列表框中，并由大到小排列；再打开“转移”菜单，则只有“左移”命令可用。 程序代码见附录。二、 弹出式菜单的设计程序3：将程序2中的下拉菜单改成二个弹出式菜单，分别作为两个列表框的快捷菜单，当列表框有数据时，菜单有效，否则无效。窗体如下图所示。 程序代码见附录。三、 工具栏和状态栏的设计程序4：工具栏的设计。设计一个窗口外观如下图所示的程序，在窗口下方的“请输入”文本框中输入一句名言，选择“编辑”菜单中的“名言展示”命令，或按下工具栏中的“名言展示”按钮，可将这句名言添加到窗口中间的“名言展示”文本框中。类似地，此程序还可以用这两种方法实现以下功能：复位、调整“名言展示”文本框中字体颜色、查看本程序信息、退出。提示：l 在文本框中可以使用VB的字符串常量VBCrLf实现强制换行。程序代码见附录。程序5：状态栏的设计。在程序4的基础上，加上状态栏，在状态栏中显示“名言展示”文本框中展示的名言句数和总长度，以及系统日期和系统时间。程序代码见附录。 选做实验1. 综合题1：依照“附件”中的计算器，自己编一个计算器。本实验要求：计算器中加入下拉菜单，并为其中的“编辑”菜单的“复制”和“粘贴”菜单项编制相应的程序。提示：l 可以使用Clipboard对象的SetText方法和GetText方法将文本字符串送到粘贴板或从粘贴板取到文本字符串。附：Clipboard对象的SetText方法和GetText方法的使用功能：l SetText方法用以将文本字符串放到Clipboard对象中。l GetText方法用于取得Clipboard对象中的文本字符串。语法：Clipboard.SetText textClipboard.GetText组成部分：l text必需的。是被放置到剪贴板中的字符串数据。说明：l 如果 Clipboard 对象中没有与期望的格式相匹配的字符串，则返回一个零长度字符串 ()。2. 综合题2：建立学生档案管理信息系统。本实验要求：设计菜单。实验七 对话框、多文档界面设计 实验目的1 掌握预定义对话框的使用方法2 掌握通用对话框的使用方法3 掌握简单的MDI应用程序的设计方法4 了解多文档文本编辑器的设计方法 实验内容一、 对话框的使用程序1：使用预定义对话框输入和输出数据。程序如下图所示，用于管理学生成绩。按输入按钮，使用预定义对话框InputBox输入学生人数及每个学生的成绩；使用预定义对话框MsgBox输出总分和平均成绩。 程序代码见附录。程序2：使用通用对话框进行属性设置。 程序代码见附录。二、 简单的MDI应用程序的设计程序3：建立一个应用程序，程序中有一个MDI窗体，通过MDI窗体的“文件”菜单中的“新建文档”菜单项可建立一个文档窗口作为MDI窗体的子窗体，在此子窗体可进行文本编辑。通过菜单可建立多个文档窗口，也可进行编辑文档内容、关闭文档等操作，如下图所示。 提示：l 菜单应建在MDI窗体中。l 将文档窗体作为对象，在“新建文档”菜单命令中声明一个新的文档窗体类型的变量，对此对象类型的变量进行属性设置，最后将其显示。例：如果文档窗体的名称为MyDocu，则下列程序段可实现新建文档功能：Dim NewForm As MyDocuNewForm.Caption=”我的文档”NewForm.Showl 假如父文档的名称为MDIForm1，则可使用下列语句关闭MDIForm1窗体中的活动文档，实现“关闭文档”功能：Unload MDIForm1.ActiveForml 在文档窗体中加入一个文本框。文本框的Top属性和Left属性均设为0，在文档窗体的Resize事件中加入命令，使文本框的Height属性和Width属性的值分别等于窗体的ScaleHeight属性和ScaleWidth属性，这样可以使文档窗体中文本框保持最大。程序代码见附录。 选做实验在程序3中，为“编辑”菜单下的“剪切”、“复制”、“粘贴”、“全选”命令编写程序；在“文件”菜单下增加“打开文档”和“保存文档”命令，并为它们编写程序。提示：l “剪切”、复制“、粘贴”功能均与粘贴板（Clipboard）对象有关，相关内容可参阅实验六选做实验第一题。l “打开文档”和“保存文档”命令的实现，除了要使用通用对话框控件打开相应的对话框指定文件名及其位置外，还需要使用Input语句和Write语句读入文件的内容或文档中的内容写入文件。相关内容可参阅实验八。实验八 文件的基本操作和文件的读写 实验目的1 掌握DriveListBox、DirListBox和FileListBox等文件控件的使用方法2 掌握用传统方式进行文件复制、移动、删除及重命名等基本方法3 掌握顺序文件、随机文件和二进制文件的读写操作方法4 了解MSFlexGrid控件的使用方法 实验内容一、 使用DriveListBox、DirListBox和FileListBox等控件程序1：建立一个应用程序，该程序利用文件系统控件可以实现文件的复制、移动和删除，如下图所示。程序代码见附录。想一想：l 如果要求一次操作多个文件或文件夹，应如何修改程序？二、 顺序文件、随机文件和二进制文件的读写程序2：编写程序，要求能将文本框中的内容写入顺序文件，或者能将顺序文件的内容读入到文本框中，如下图所示。程序代码见附录。想一想：l 顺序文件的读写还有哪些方法？程序3：编写程序，要求能将下图中若干个文本框中的内容写入随机文件中，或者能将随机文件的内容读入到相应的文本框中，如下图所示。提示：l 在随机文件读写操作之前，应先定义一个自定义的记录类型。定义方法见下例。Type StuRec创建用户自定义的类型。Name As String * 20定义元素的数据类型。Sex As BooleanAge As IntegerEnd Type程序代码见附录。实验九 图形方法和图形控件 实验目的1 掌握使用图形方法绘制典型的图形2 了解图片框和图像控件的区别3 掌握图片框和图像控件的使用方法4 掌握直线控件和形状控件的使用方法5 了解图像处理的基本方法 实验内容一、 图形方法的应用程序1：在窗体上绘制-到的正弦曲线，如下图所示。提示：l 可以在系统坐标系中画线，也可以在自定义坐标系中画线，比较两者优缺点。程序代码见附录。二、 图片框控件和图像控件的使用程序2：在窗体上左右各放置一个大小相同的图片框和图像框，修改它们的边框式样（BordeStyle属性）,使它们的边框一样。通过Picture属性装入一个同样的位图文件（.bmp），如下图所示，观察两个控件的变化以及其中图形的差异。若装入的是图元文件（.wmf），则图片框和图像控件中的图形又会怎样？设置图片框的AutoSize属性为True，观察两个图形的差异。设置图像控件的Stretch属性为True，再次通过Picture属性装入同样的位图文件（.bmp），观察两个图形的差异。程序3：创建应用程序，利用图片框浏览大幅面图形。在窗体放置两个图片框，一个垂直滚动条和一个水平滚动条，如下图所示。在第二个图片框中装入一个大图形，利用两个滚动条改变第二个图片框在第一个图片框中的位置，实现对整幅图形的浏览。程序代码见附录。程序4：创建一个测试图像控件特性的应用程序：单击窗体上的“放大”、“缩小”按钮，能使图像框中的图形放大或缩小。程序代码见附录。三、 直线控件和形状控件的使用程序5：建立如下图所示的应用程序，通过命令按钮控制直线控件的旋转和形状控件的形状、位置等的变化，掌握直线和形状控件的特点和使用方法。程序代码见附录。四、 图像处理程序6：创建应用程序：通过使输出的文本产生微移后叠加，在图片框中输出有立体效果的文本，如下图所示。程序代码见附录。实验十 数据库操作 实验目的1. 掌握创建数据库的方法2. 掌握数据控件的使用方法3. 掌握控件的数据绑定技术4. 掌握数据库记录集的操作方法 实验内容一、 创建数据库stud.mdb通过“Microsoft Access”和VB6中的“可视化数据库管理器”分别建立数据库stud.mdb，其中有一个数据表student，该数据表的结构如下：字段名类型长度学号String7班级String8姓名String8性别String2年龄Integer出生日期Date/Time婚否Boolean简