【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：VB6.0程序设计上机实验指导 - 大学课件绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

VB6.0 程序设计上机实验指导 VB6.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 应用程序 程序功能：程序界面见下图，要求当按“显示内容”按钮时，文本框中 出现红色的“HelloVisual Basic！”的文字，按“清屏”按钮时，文本框 中文字消失，按“结束”按钮后，程序结束。

     1 实验一认识 VB6.0程序中有一个窗体，一个文本框和三个按钮，其属性如下： 对象名称 属性 属性值 （名称） Form1 窗体 Caption VB，你好！ （名称） Text1 Text 文本框 Alignment 2 Font 粗体、14 号 ForeColor 红色 （名称） Command1 命令按钮 Caption 显示内容 （名称） Command2 命令按钮 Caption 清屏 （名称） Command3 命令按钮 Caption 结束事件代码： Private Sub Command1_Click Text1.Text quotHello，Visual Basic！quot End Sub Private Sub Command2_Click Text1.Text quotquot End Sub Private Sub Command3_Click End End Sub想一想： 怎样在窗体中添加控件，怎样改变窗体和控件的大小，怎样改变控 件的位置。

    如果要使窗体的高度为 4000，宽度为 5000，可以用什么 方法设置？如果要使文本框的位置为：左边 405，上边 405，可以使 用什么方法设置？ 2 VB6.0 程序设计上机实验指导 怎样在属性窗口中为窗体和控件设置属性，试试在属性窗口中设置 窗体的大小属性和文本框的位置属性。

    看一下其他控件的大小、位 置属性怎样设置？ 如何在窗体或控件的事件过程中加入程序段， 本实验在哪些对象（指 出对象名称）的哪些事件（指出事件名称）中加入了程序段（指出 Sub 过程名称），这些程序段分别有什么功能。

     怎样在程序中使用命令设置对象的属性，本实验对哪些对象的哪些 属性进行了设置。

    试试在窗体的 Load 事件中设置窗体的大小和文本 框的位置。

     怎样保存程序，需要保存哪些文件；怎样运行程序。

     如果将文本框的名称改为“Texthy”，将第一个命令按钮的名称改为 “Cmdhy”，将第二个命令按钮的名称改为“Cmdqk” ，将第三个命令 按钮的名称改为“Cmdtc” ，则上述程序要作哪些改动？ 选做实验 建立程序，功能如下： 程序中有一个窗体，一个文本框和四个按钮，三个按钮分别显示“红色” 、 、“绿色”“蓝色”字样，一个按钮显示“退出”字样。

    当按“红色”按钮时，文本框中出现红色的文字“红色”；当按“绿色”按钮时，文本框中出现绿色的文字“绿色”；当按“蓝色”按钮时，文本框中出现蓝色的文字“蓝色”。

    当按“退出”按钮时，结束程序。

    程序界面如下图所示。

     提示: 可使用 RGB函数设置颜色。

     附：RGB函数的使用 功能： 返回一个 Long 整数，用来表示一个 RGB 颜色值。

     语法: RGBred green blue 参数： red 必要参数；Variant Integer。

    数值范围从 0 到 255，表示颜色 3 实验一认识 VB6.0 的红色成份。

     green 必要参数；Variant Integer。

    数值范围从 0 到 255，表示颜 色的绿色成份。

     blue 必要参数；Variant Integer。

    数值范围从 0 到 255，表示颜色 的蓝色成份。

    说明: 一个 RGB 颜色值指定红、绿、蓝三原色的相对亮度，生成一个用于显 示的特定颜色。

    RGB 函数可以产生 256＊256＊256 种不同的颜色。

    任何 需要得到颜色的属性都可以通过 RGB 函数设置。

     传给 RGB 的任何参数的值，如果超过 255，会被当作 255。

     下面的表格显示一些常见的标准颜色，以及这些颜色的红、绿、蓝三原 色的成份： 颜色 红色值 绿色值 兰色值 黑色 0 0 0 蓝色 0 0 255 绿色 0 255 0 青色 0 255 255 红色 255 0 0 洋红色 255 0 255 黄色 255 255 0 白色 255 255 255 4 VB6.0 程序设计上机实验指导 实验二 窗体和标准控件（一） 实验目的 1.掌握命令按钮、标签及文本框控件的使用方法 2.掌握复选框、单选按钮及框架控件的使用方法 实验内容一、命令按钮、标签及文本框控件的使用方法 程序 1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。

    要求在运行时，两个文本框中的内容均不允许用户编辑；如果用户在“原文”的文本框中选定所需的内容，单击“复制”命令按钮，则在“输出”文本框中输出选定的内容，如右图所示；如果单击“结束”命令按钮，则结束程序的运行。

     提示： 文本框中选定内容可以使用文本框的属性 SelText（选定文本内容） 、 SelStart（选定文本起始点）、SelLength（选定文本长度）读取或设置。

     属性设置和程序代码见附录。

     想一想： 如果不用鼠标选定文本，而是通过 InputBox 函数输入所选文本的起始 点和长度，怎样修改程序。

     如果第一个文本框中文本没有被选中， 则复制全部内容，如何修改程序。

     如果将“复制”功能改为“移动”功能，如何修改程序。

     附:InputBox 函数的使用 功能: 在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含 文本框内容的字符串。

     语法: InputBoxprompt title default 5 实验二 窗体和标准控件（一） 参数： prompt 必要，字符串表达式，让对话框显示给用户的一个提示。

    prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。

    如果 prompt 包含多个行，则可在各行之间用回车符 Chr13、换行符 Chr10 或回车换行符的组合 Chr13 amp Chr10 来分隔。

     title 可选，字符串表达式，给对话框指定一个标题。

    如果省略 title， 则把应用程序名放入标题栏中。

     default 可选，字符串表达式，显示在文本框中的缺省值。

    如果省略 default，则文本框为空。

     说明: 如果用户单击 OK 或按下 ENTER，则 InputBox 函数以字符串类型返回 文本框中的内容。

    如果用户单击 Cancel，则此函数返回一个长度为零 的字符串 quotquot。

     注意: 如果还要指定第一个命名参数以外的参数，则必须在表达式中使用 InputBox。

    如果要省略某些位置参数，则必须加入相应的逗号分界符。

     程序 2：建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编 、码”“电话号码”进行校验（性别只允许输入“男”或“女” ，邮政编码必须是6 位数字，电话号码必须是 8 位数字） 。

    如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。

    所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。

     提示： 在过程中间要退出过程可使用命令“Exit Sub” ，通过函数 Len字符串 可得到字符串的长度，通过函数 IsNumeric字符串可检验字符串是否 是数值。

     属性设置和程序代码见附录。

     想一想： 如果要求在文本框失去焦点时就对文本框的内容进行校验，则如何编 程？ 如果输入的数据不符合要求，或者在按“退出”按钮时还有空白的文本 框，在作出处理之前要求给出提示信息，如何修改程序。

     提示： 可利用消息框（MsgBox） 6 VB6.0 程序设计上机实验指导 附： Len函数的使用 功能： 返回一个长整型数据，其中包含字符串内字符的数目。

     语法： Lenstring 参数： string 任何有效的字符串表达式。

     附： IsNumeric函数的使用 功能： 返回布尔类型数据，指出表达式的运算结果是否为数值。

     语法： IsNumericexpression 参数： expression 参数，必要的，是一个包含数值的表达式或字符串表达式。

     说明： 如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否 则返回 False。

     附： 消息框（Msgbox）的使用 功能： 在对话框中显示消息，等待用户单击按钮，并返回一个整型数据告诉用 户单击了哪一个按钮。

     语法： MsgBoxprompt buttons title 参数： prompt 必要，字符串表达式，作为显示在对话框中的消息。

    prompt 的 最大长度大约为 1024 个字符，由所用字符的宽度决定。

    如果 prompt 的 内容超过一行，则可以在每一行之间用回车符 Chr13、换行符 Chr10 或是回车与换行符的组合 Chr13 amp Chr10 将各行分 隔开来。

     buttons 可选，数值表达式，是值的总和，指定显示按钮的数目及形式， 使用的图标样式，缺省按钮是什么以及消息框的强制回应等。

     如果省略， 则 buttons 的缺省值为 0。

     title 可选，字符串表达式，在对话框标题栏中显示的内容。

    如果省略 title，则将应用程序名放在标题栏中。

    二、复选框、单选按钮及框架控件的使用 程序 3：在窗体中有一个标签，内有若干文字，要求通过窗体中的复选框或单选按钮确定标签中文字的字体（宋体或黑体）、字号（10 号或 12 号）和字形（是否粗体、是否斜体），请建立应用程序。

     想一想： 为了要设置字体、字号和字形，可分别使用复选框或单选按钮，什么时 7 实验二 窗体和标准控件（一） 候应使用复选框，什么时候应使用单选按钮。

     在什么时候要根据不同情况执行不同的语句。

    提示： 在程序运行时设置字体属性，可使用 FontName、FontSize、FontBold、 FontItalic 属性等。

     可以使用分支结构语句： If…Then…Else…End If 建立分支结构的程序， 以使程序可以按不同情况执行不同的语句。

    属性设置和程序代码见附录。

    附：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 属性的缺省值取决于系统，Visual Basic 中可用的字体取决 于系统的配置、显示设备和打印设备。

    与字体相关的属性只能设置为真 正存在的字体的值。

     一般来说，用 FontSize、FontBold、FontItalic、FontStrikethru 和 FontUnderline 属性来设置大小和样式属性前，要先改变 FontName 属 性。

     用 FontSize 属性以所要的字体格式化文本。

    缺省值由系统决定。

    要改 变缺省值，以磅为单位指定字体尺寸。

     FontSize 的最大值为 2160 磅。

     可以通过这些字体属性，在设计时用属性窗口或在运行时使用代码来格 式化文本。

    对于 Picturebox 控件及 Form 和 Printer 对象，设置这 些属性不会影响在控件或对象上已经绘出的图片和文本。

    对于其它控 件，改变字体将会在屏幕上立刻生效。

    附：If…Then…Else…End If 8 VB6.0 程序设计上机实验指导 功能： 根据表达式的值有条件地执行一组语句。

     语法： If condition Then statementElse elsestatement 或者 If condition Then statements Else elseifstatements End If If...Then...Else 语句的语法具有以下几个部分： condition 必要参数。

    一个或多个具有下面类型的表达式：数值表达式 或字符串表达式，其运算结果为 True 或 False。

     statements 必要参数。

    一条或多条语句，它们在 condition 为 True 时 执行。

     elsestatements 可选参数。

    一条或多条语句，它们在前面的 condition 不为 True 时执行。

     说明： 可以使用单行形式（第一种语法）来做短小简单的测试。

    但是，块形式 （第二种语法）则提供了更强的结构化与适应性，并且通常也是比较容 易阅读、维护及调试的。

     注意： 在单行形式中，按照 If...Then 判断的结果也可以执行多条语句。

    所 有语句必须在同一行上并且以冒号分开，如下面语句所示： If A gt 10 Then A A 1 : B B A : C C B 在块形式中，If 块必须以一个 End If 语句结束。

     提示： 根据单一表达式来执行多种可能的动作时，Select Case 更为有用。

     选做实验 综合题：依照“附件”中的计算器，自己编一个计算器。

    本实验要求：可以使用数字按钮输入数值（整数）。

     提示： 将十个数字按钮组成一个按钮数组，统一编程；使用函数 CStr表达式 可以使数值转化成字符串。

     附： CStr函数的使用 功能： 强制将一个表达式转换成某种字符型数据类型。

     语法： CStrexpression 9 实验三 窗体和标准控件（二） 实验三 窗体和标准控件（二） 实验目的 1.掌握列表框和组合框控件的使用方法 2.掌握滚动条和定时器控件的使用方法 实验内容一、列表框和组合框控件的使用 程序 1：编写程序。

    要求：程序运行初期，在窗体左边的列表框中生成 10个由小到大排列的 10 到 100 之间的随机整数，单击窗体中“右移”按钮，则左边列表框的 10 个数移动到右边的列表框中，并由大到小排列，此时“左移”按钮变为有效。

    单击“左移”按钮，右边列表框中的数又被移到左边的列表框中。

    单击“退出”按钮或按 ESC 键，可退出程序。

    窗体示意图如下。

     提示： 将列表框的 Sorted 属性设置为 True，可使列表框中的项目从小到大排 序。

     使用“For 循环变量初值 To 终值…Next 循环变量”可实现循环功能 可使用语句 Randomize 和函数 Rnd产生随机数。

     移动列表框中的数，相当于将第一个列表框内容通过列表框的 AddItem 方法加入到第二个列表框，然后通过列表框的 RemoveItem 方法将第一 个列表框内容删除。

     程序代码见附录。

     附：For 循环语句的使用 功能： 以指定次数来重复执行一组语句。

     语法： For counter start To end Step step statements Exit For statements 10 VB6.0 程序设计上机实验指导 Next counter参数： counter 必要参数。

    用做循环计数器的数值变量。

    这个变量不能是 Boolean 或数组元素。

     start 必要参数，counter 的初值。

     End 必要参数，counter 的终值。

     Step 可选参数。

     counter 的步长。

     则 如果没有指定， step 的缺省值为 1。

     Statements 可选参数。

    放在 For 和 Next 之间的一条或多条语句，它 们将被执行指定的次数。

    说明： step 参数可以是正数或负数。

    step 参数值决定循环的执行情况，如果 step 的值为正数或 0，则当 counter lt end 时执行循环；如果 step 的 值为负数，则当 counter gt end 时执行循环。

     当所有循环中的语句都执行后，step 的值会加到 counter 中。

    此时， 循环中的语句可能会再次执行（基于循环开始执行时同样的测试） ，也 可能是退出循环并从 Next 语句之后的语句继续执行。

     循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。

     Exit For 经常在条件判断之后使用，例如 If...Then，并将控制权转移 到紧接在 Next 之后的语句。

     可以将一个 For...Next 循环放置在另一个 For...Next 循环中，组成 嵌套循环。

    不过在每个循环中的 counter 要使用不同的变量名。

    下面 的体系结构是正确的： For I 1 To 10 For J 1 To 10 For K 1 To 10 ... Next K Next J Next I注意： 应避免在循环中改变 counter 的值，否则将会使程序代码的阅读和调 试变得更加困难。

     如果省略 Next 语句中的 counter，就像 counter 存在时一样执行。

    附： Rnd和 Randomize函数的使用功能： Rnd函数返回一个包含随机数值的 Single Randomize 初始化随机数生成器语法： Rnd Randomize返回值： Rnd 生成随机数序列中的下一个随机数。

     Randomize 用系统计时器返回的值作为新的种子值。

     11 实验三 窗体和标准控件（二） 说明： Rnd 函数返回小于 1 但大于或等于 0 的值。

     对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用 数列中的前一个数作为下一个数的种子。

     在调用 Rnd 之前， 先使用无参数的 Randomize 语句初始化随机数生成器， 该生成器具有根据系统计时器得到 Rnd 的种子的功能。

     为了生成某个范围内的随机整数，可使用以下公式： Intupperbound - lowerbound 1 Rnd lowerbound 这里，upperbound 是随机数范围的上.