VB60程序设计上机实验指导

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.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。想一想：可以通过哪些方法打开代码窗口。3.掌握在窗体设计器窗口中添加控件。4.学会设置窗体、命令按钮、文本框的最常用属性。5.在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件过程中输入代码。想一想：窗体、命令按钮、文本框的缺省事件是什么。三、建立第一个VB应用程序程序功能：程序界面见下图，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,VisualBasic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。实验一认识VB6.02程序中有一个窗体，一个文本框和三个按钮，其属性如下：对象名称属性属性值窗体（名称）CaptionForm1VB，你好！文本框（名称）TextAlignmentFontForeColorText12粗体、14号红色命令按钮（名称）CaptionCommand1显示内容命令按钮（名称）CaptionCommand2清屏命令按钮（名称）CaptionCommand3结束事件代码：PrivateSubCommand1_Click()Text1.Text=Hello，VisualBasic！EndSubPrivateSubCommand2_Click()Text1.Text=EndSubPrivateSubCommand3_Click()EndEndSub想一想：怎样在窗体中添加控件，怎样改变窗体和控件的大小，怎样改变控件的位置。如果要使窗体的高度为4000，宽度为5000，可以用什么方法设置？如果要使文本框的位置为：左边405，上边405，可以使用什么方法设置？VB6.0程序设计上机实验指导3怎样在属性窗口中为窗体和控件设置属性，试试在属性窗口中设置窗体的大小属性和文本框的位置属性。看一下其他控件的大小、位置属性怎样设置？如何在窗体或控件的事件过程中加入程序段，本实验在哪些对象（指出对象名称）的哪些事件（指出事件名称）中加入了程序段（指出Sub过程名称），这些程序段分别有什么功能。怎样在程序中使用命令设置对象的属性，本实验对哪些对象的哪些属性进行了设置。试试在窗体的Load事件中设置窗体的大小和文本框的位置。怎样保存程序，需要保存哪些文件；怎样运行程序。如果将文本框的名称改为“Texthy”，将第一个命令按钮的名称改为“Cmdhy”，将第二个命令按钮的名称改为“Cmdqk”，将第三个命令按钮的名称改为“Cmdtc”，则上述程序要作哪些改动？[选做实验]建立程序，功能如下：程序中有一个窗体，一个文本框和四个按钮，三个按钮分别显示“红色”、“绿色”、“蓝色”字样，一个按钮显示“退出”字样。当按“红色”按钮时，文本框中出现红色的文字“红色”；当按“绿色”按钮时，文本框中出现绿色的文字“绿色”；当按“蓝色”按钮时，文本框中出现蓝色的文字“蓝色”。当按“退出”按钮时，结束程序。程序界面如下图所示。提示:可使用RGB()函数设置颜色。附：RGB()函数的使用功能：返回一个Long整数，用来表示一个RGB颜色值。语法:RGB(red,green,blue)参数：red必要参数；Variant(Integer)。数值范围从0到255，表示颜色实验一认识VB6.04的红色成份。green必要参数；Variant(Integer)。数值范围从0到255，表示颜色的绿色成份。blue必要参数；Variant(Integer)。数值范围从0到255，表示颜色的蓝色成份。说明:一个RGB颜色值指定红、绿、蓝三原色的相对亮度，生成一个用于显示的特定颜色。RGB函数可以产生256＊256＊256种不同的颜色。任何需要得到颜色的属性都可以通过RGB函数设置。传给RGB的任何参数的值，如果超过255，会被当作255。下面的表格显示一些常见的标准颜色，以及这些颜色的红、绿、蓝三原色的成份：颜色红色值绿色值兰色值黑色000蓝色00255绿色02550青色0255255红色25500洋红色2550255黄色2552550白色255255255VB6.0程序设计上机实验指导5实验二窗体和标准控件（一）[实验目的]1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法[实验内容]一、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。要求在运行时，两个文本框中的内容均不允许用户编辑；如果用户在“原文”的文本框中选定所需的内容，单击“复制”命令按钮，则在“输出”文本框中输出选定的内容，如右图所示；如果单击“结束”命令按钮，则结束程序的运行。提示：文本框中选定内容可以使用文本框的属性SelText（选定文本内容）、SelStart（选定文本起始点）、SelLength（选定文本长度）读取或设置。属性设置和程序代码见附录。想一想：如果不用鼠标选定文本，而是通过InputBox函数输入所选文本的起始点和长度，怎样修改程序。如果第一个文本框中文本没有被选中，则复制全部内容，如何修改程序。如果将“复制”功能改为“移动”功能，如何修改程序。附:InputBox函数的使用功能:在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。语法:InputBox(prompt[,title][,default])实验二窗体和标准控件（一）6参数：prompt必要，字符串表达式，让对话框显示给用户的一个提示。prompt的最大长度大约是1024个字符，由所用字符的宽度决定。如果prompt包含多个行，则可在各行之间用回车符(Chr(13))、换行符(Chr(10))或回车换行符的组合(Chr(13)&Chr(10))来分隔。title可选，字符串表达式，给对话框指定一个标题。如果省略title，则把应用程序名放入标题栏中。default可选，字符串表达式，显示在文本框中的缺省值。如果省略default，则文本框为空。说明:如果用户单击OK或按下ENTER，则InputBox函数以字符串类型返回文本框中的内容。如果用户单击Cancel，则此函数返回一个长度为零的字符串()。注意:如果还要指定第一个命名参数以外的参数，则必须在表达式中使用InputBox。如果要省略某些位置参数，则必须加入相应的逗号分界符。程序2：建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验（性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字）。如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。提示：在过程中间要退出过程可使用命令“ExitSub”，通过函数Len(字符串)可得到字符串的长度，通过函数IsNumeric(字符串)可检验字符串是否是数值。属性设置和程序代码见附录。想一想：如果要求在文本框失去焦点时就对文本框的内容进行校验，则如何编程？如果输入的数据不符合要求，或者在按“退出”按钮时还有空白的文本框，在作出处理之前要求给出提示信息，如何修改程序。提示：可利用消息框（MsgBox）VB6.0程序设计上机实验指导7附：Len()函数的使用功能：返回一个长整型数据，其中包含字符串内字符的数目。语法：Len(string)参数：string任何有效的字符串表达式。附：IsNumeric()函数的使用功能：返回布尔类型数据，指出表达式的运算结果是否为数值。语法：IsNumeric(expression)参数：expression参数，必要的，是一个包含数值的表达式或字符串表达式。说明：如果整个expression的运算结果为数字，则IsNumeric返回True；否则返回False。附：消息框（Msgbox）的使用功能：在对话框中显示消息，等待用户单击按钮，并返回一个整型数据告诉用户单击了哪一个按钮。语法：MsgBox(prompt[,buttons][,title])参数：prompt必要，字符串表达式，作为显示在对话框中的消息。prompt的最大长度大约为1024个字符，由所用字符的宽度决定。如果prompt的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。buttons可选，数值表达式，是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则buttons的缺省值为0。title可选，字符串表达式，在对话框标题栏中显示的内容。如果省略title，则将应用程序名放在标题栏中。二、复选框、单选按钮及框架控件的使用程序3：在窗体中有一个标签，内有若干文字，要求通过窗体中的复选框或单选按钮确定标签中文字的字体（宋体或黑体）、字号（10号或12号）和字形（是否粗体、是否斜体），请建立应用程序。想一想：为了要设置字体、字号和字形，可分别使用复选框或单选按钮，什么时实验二窗体和标准控件（一）8候应使用复选框，什么时候应使用单选按钮。在什么时候要根据不同情况执行不同的语句。提示：在程序运行时设置字体属性，可使用FontName、FontSize、FontBold、FontItalic属性等。可以使用分支结构语句：If…Then…Else…EndIf建立分支结构的程序，以使程序可以按不同情况执行不同的语句。属性设置和程序代码见附录。附：FontName、FontSize、FontBold、FontItalic属性的使用功能：FontName属性：返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体。FontSize属性：返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体的大小。FontBold、FontItalic属性：按下述格式返回或设置字体样式：Bold、Italic。语法：object.FontName[=font]object.FontSize[=points]object.FontBold[=boolean]object.FontItalic[=boolean]参数：object对象表达式。font字符串表达式，指定所用的字体名。points数值表达式，用磅为单位指定所用字体的大小。boolean布尔表达式，指定字体样式，属性值为True或False两个值之一。说明：FontName属性的缺省值取决于系统，VisualBasic中可用的字体取决于系统的配置、显示设备和打印设备。与字体相关的属性只能设置为真正存在的字体的值。一般来说，用FontSize、FontBold、FontItalic、FontStrikethru和FontUnderline属性来设置大小和样式属性前，要先改变FontName属性。用FontSize属性以所要的字体格式化文本。缺省值由系统决定。要改变缺省值，以磅为单位指定字体尺寸。FontSize的最大值为