VB课程教案

Visual Basic 程序设计教案 第一章 VB 程序设计概述 对于每一位有志于掌握 Windows 平台上应用程序开发技术的学习者 都必须首先学习 和掌握至少一门计算机程序设计语言作为应用程序的开发工具 VB 是当今世界应用软件 开发中最为流行的工具之一 要学习 VB 程序设计的语言和方法 就必须了解 VB 语言的 基本特性 功能特点及其开发环境 本章教学目标 本章主要介绍 VB 语言的基本特性 功能特点及其开发环境 知识点 1 Visual Basic 在程序开发中的地位及作用 2 掌握开发环境的窗口作用 3 对 Visual Basic 的使用环境加以介绍 技能点 1 理解并能解释面向对象程序设计的基本思想 2 熟悉并基本掌握 Visual Basic 的运行环境 3 理解并能运用 Visual Basic6 0 的主要开发窗口 1 1 概述 教学目标 学习可视化程序语言与其他程序设计语言的区别 了解 Visual Basic 程序设计语言 的基本特点 教学要求 了解 Visual Basic 程序的基本特点 了解 Visual Basic 6 0 的运行的软硬件环境和启动方法 理解 可视化程序语言与其他程序设计语言的区别 本节重点 Visual Basic 程序的基本特点 颜华城教授于 1999 年底开始为北京市建筑物资租赁公司开发研制 计算机建筑物资租 赁管理信息系统 该系统现已投入该公司所属各租赁站和公司本部实际运行 3 年 取得了 良好的经济和社会效益 建筑物资租赁管理是一个集物流和资金流相互交织为一体 数据 处理过程复杂的系统 它是在 Windows 95 98 以及 Windows 2000 平台上 以 Visual Basic 6 0 企业版 为开发工具 开发研制的数据库应用软件 系统以 ADO 方式连接 Access 97 数据库中的数据 并集成 Excel 97 作为报表输出的工具 计算机建筑物资租赁管理系统系统共包括 61 个主要数据处理与操作功能 这些功能分 为 9 个子系统 源程序中共含 72 个 VB 窗体以及一个标准模块 开发者之所以选择 VB 作为系统的开发工具 是因为 VB 继承了其先辈 Basic 程序设 计语言简单易用的特点 其编程系统又采用了面向对象 事件驱动的编程机制 提供了一 种所见即所得的可视界面设计方法 更可贵的是 VB 可以与 Microsoft 微软 公司提供的 Microsoft Office 中的应用程序紧密结合 即与 Microsoft Office 中的宏语言混合编程 开发 者可以充分利用 Microsoft Office 中功能强大的应用软件完成系统所需要的各项工作 一 Windows 平台上应用程序的可视化开发工具 Visual Basic Visual Basic 最早于 1991 年由 Microsoft 公司推出 其中 Visual 表示 可视化 可 视化程序设计语言是当代计算机程序设计语言的先进代表与主流 1998 年 Microsoft 公司 又推出 Visual Basic 6 0 Visual Basic 6 0 在开发环境 功能方面比前几版进一步完善和扩 充 尤其在数据库管理 网络应用方面更胜一筹 使得 Visual Basic 6 0 成为大多数程序员 首选的编程工具 VB 6 0 包括三个版本 分别为学习版 专业版和企业版 其中 学习版 为 VB 6 0 的基础版本 主要供初学者学习使用 专业版 主要供专业人员使用 它除具有学习版的 全部功能外 还包括 ActiveX Internet 控件开发工具 动态 HTML 页面设计等高级特性 企业版 是 VB 6 0 的最高版本 供开发研制企业应用程序使用 在本门课程的教学中 我们使用的是 Visual Basic 6 0 的中文企业版 二 VB 功能特点 1 具有面向对象的可视化设计工具 在 VB 中 应用面向对象的程序设计方法 OOP 方法 把程序和数据封装起来视为 一个对象 每个对象都是可视的 程序员在设计时只需根据界面设计的要求 直接在计算 机屏幕上 画 出各种需要的不同类型的对象 控件和窗体 并为每个对象设置属性 就 可以完成应用程序的人机对话的界面设计 最后程序员的编程工作仅针对对象要完成的功 能进行编程 就可以完成应用程序的全部程序设计工作 2 事件驱动的编程机制 事件驱动编程是当代最先进的编程方法 VB 中每个对象都有相应的各种事件 每个事 件都能够驱动一段程序的运行 针对对象所响应的事件进行编程 能够令应用程序完成设 计者所期望的各种数据处理及其他工作 此种编程机制既可以极大地减少编程量 又可以 降低编程的难度 使得程序易于编写和维护 3 提供了易学易用的应用程序集成开发环境 VB 为用户提供了开发应用程序的集成开发环境 用户可以在同一个开发环境中设计应 用程序界面 编写程序代码 调试程序 进行应用程序的编译等各项工作 4 结构化的程序设计 5 支持多种数据库系统的访问 利用 VB 提供的数据控件或 ODBC VB 可以访问各种当代流行的数据库系统 如 Access SQL Server 以及 Oracle 等各种类型的数据库 也可访问 Microsoft 的 Excel 电子电 子表格以及 Loutus1 2 3 等 6 OLE 技术 VB 的核心是其对对象的链接与嵌入 OLE 的支持 利用 OLE VB 可开发集声音 图象 动画 字处理 Web 等对象于一体的应用程序 7 Active 技术 VB 可方便地使用标准的 Active 部件 调用标准接口 实现各种特定的功能 8 完备的 Help 联机帮助功能 三 运行环境 VB 6 0 是 Windows95 98 Windows NT 或 Windows 2000 下的一个应用程序 它对环 境的要求与所依赖的操作系统的要求是一致的 硬件要求 586 以上 CPU 16M 以上内存 100M 以上硬盘 软件要求 Windows95 98 NT3 51 以上版本或 Windows2000 四 启动 启动 VB 的常用方法主要有以下两种方法 1 通过 开始 按钮的 程序 菜单 选择打开 Microsoft Visual Basic 6 0 中文版 2 双击桌面上的 VB 快捷方式图标 1 2 集成开发环境 教学目标 学习 Visual Basic 程序设计的开发环境 理解掌握主窗口 属性窗口 代码编辑窗 口 工程资源管理器窗口 工具箱窗口的作用及使用方法 教学要求 了解 VB 的工程的三种 工作模式 运行模式 中断模式 了解 属性窗口和代码编辑窗口的关系和区别 理解 各个窗口在程序开发中的作用 掌握 主窗口的使用 窗体窗口的使用 工具箱窗口的使用 属性窗口的使用和工程资源管理器窗口的使用 本节重点 主窗口 属性窗口 代码编辑窗口 工程资源管理器窗口 工具箱窗口的作 用及使用方法 当用户启动 Microsoft Visual Basic 6 0 中文版后 首先进入的环境就是 VB 的系统 集成开发环境 用户可以在这个环境中进行应用程序界面的设计 编写程序代码 调试程 序 进行应用程序的编译等各项工作 系统集成开发环境中包括以下的栏目和窗口 一 集成开发环境窗口 系统集成开发环境也由一个窗口展示 它包括以下 3 个栏目 1 标题栏 窗口中的 标题拦 用于标识当前工程的名称以及工程当前所处的工作模式 VB 的 工程有三种工作模式 1 设计模式 进行用户界面的设计 代码的编制及应用程序的开发 2 运行模式 运行应用程序 此时不可编辑代码和界面 3 中断模式 运行暂时中断 此时可编辑代码 但不能编辑界面 2 菜单栏 菜单拦 中包括 13 个下拉菜单 这些菜单中包含了程序开发过程中所需要的命令 1 文件 主要用于创建 VB 的工程 保存工程 显示最近设计的工程 将当前 工程编译生成可执行文件 保存或另存工程中的文件 打印等工作 VB 的工程是应 用程序的基本和主要载体 要开发一个 VB 的应用程序首先要创建一个工程 一个工 程可以包含一个应用程序的全部窗体 模块 程序等 VB 的工程以文件的形式存放 到磁盘 文件的扩展名为 VBP 2 编辑 主要用于对程序源代码的编辑 其中包括复制 粘贴 查找 替换等 诸多功能 3 视图 主要用于在集成开发环境下 各种管理和工具窗口的显示 以便用户 在程序设计中对 VB 源程序以及各种对象的查看和定义 4 工程 主要用于添加窗体或模块 移除窗体或模块 在 VB 工具箱中添加控 件 设置应用程序运行的启动窗体等 5 格式 主要用于设置窗体控件的位置 如水平居中 垂直居中 多个控件的 对齐位置 控件间的间距等 6 调试 主要用于源程序的查错和调试 7 运行 用于程序的运行 停止及中断 8 查询 主要用于在设计数据库应用程序时设计 SQL 属性 9 图表 主要用于在设计数据库应用程序时编辑数据库 10 工具 主要用于应用程序的菜单设计 以及应用程序设计过程中设置 VB 系 统的各种编辑状态 如 是否要求对源程序进行自动语法检测 是否要求变量声明 是否要求控件对齐到窗体的网格等 11 外接程序 用于为工程增加或删除外接程序 12 窗口 用于屏幕窗口的层叠 平铺以及列出全部打开的文档窗口等 13 帮助 用于帮助用户系统学习掌握 VB 的使用方法及程序设计的方法 3 工具栏 工具拦可以使用户迅速地访问系统常用的菜单命令 二 窗体窗口 窗体窗口用于对窗体的设计 窗体是组成 VB 应用程序的主体对象 它是一个容器 即每一个窗体都可以容纳诸多控件 它通常也是应用程序中人机交互的主要界面 一个应 用程序中包括多个窗体 每个窗体必须有唯一的窗体名 在设计时 窗体网格是可见的 并可通过 工具 菜单中的 选项 命令来改变 三 属性窗口 属性窗口由对象列表框 属性列表框 属性含义说明 属性显示排列方式 4 部分组成 通过属性窗口 用户可以设置对象的各种属性 四 工程资源管理器窗口 工程资源管理器窗口类似 Windows 中的资源管理器 它保存并展示一个应用程序所有 的文件 其中主要包括以下三类文件 窗体文件 文件扩展名是 FRM 标准模块文件 文件扩展名是 BAS 类模块文件 文件扩展名是 CLS 工程资源管理器窗口有三 个按钮 查看代码 查看对象 切换文件夹 其中 查看代码 命令按钮用于查看 与编辑窗体的源程序 查看对象 命令按钮用于对窗体和窗体控件的设计以及各种对象 属性的设置 五 代码窗口 代码窗口专门供用户编写程序 打开代码窗口有以下三种方法 1 选择窗体或模块后 单击 查看代码 按钮 2 鼠标双击窗体或控件 3 视图 菜单中的 代码窗口 命令 六 立即窗口 用户可在立即窗口显示所关心的表达式的值 以便调试程序 七 窗体布局窗口 窗体布局窗口用于指定程序运行时的初始位置 主要为使用户所开发的应用程序能够 在各种不同分辨率的计算机屏幕上正常运行 八 对象浏览器窗口 对象浏览器窗口用以查看在工程中定义的模块或过程 九 工具箱窗口 工具箱窗口为用户提供标准控件 如 命令按钮 Command 标签 Label 文本框 TextBox 组合框 ComboBox 等 也可以通过 工程 菜单中的 部件 项在其中 添加其它控件或 Windows 应用程序 第二章 简单的 VB 程序设计 在了解 VB 语言的基本特性 功能特点及其开发环境后 VB 的学习者还需要进一步了 解面向对象程序设计的概念 掌握建立简单应用程序的基本方法 然后通过一个较为简单 的 VB 应用程序窗体实例的开发 对 VB 的程序设计有一个全面的了解 以便为今后复杂 应用程序的开发打下良好的基础 本章教学目标 知识点 1 结构化程序设计和面向对象程序设计的区别 2 掌握类及对象的概念 3 窗体 控件 属性 事件 方法的开发程序中的作用 4 工程文件的作用及结构 技能点 1 理解并能正确设置窗体及相关控件的属性 2 熟悉并基本掌握 Visual Basic 程序的创建过程 3 理解并能运用工程文件的作用及工程的使用方法 4 正确掌握事件代码的创建方法及方法的调用 2 1 程序设计方法的发展 教学目标 学习面向对象程序设计 OOP 语言的基本思想和基本方法 教学要求 了解 程序设计语言的发展过程 理解 结构化程序设计和面向对象程序设计的区别 本节重点 结构化程序设计和面向对象程序设计的区别 一 初期的程序设计 自 1946 年诞生世界上第一台计算机起 计算机程序设计语言的发展经历了四个阶段 1 机器语言阶段 2 汇编语言阶段 3 高级语言阶段 4 面向对象程序设计阶段 二 结构化程序设计 结构化程序设计 Structure Programming 是一种强调功能抽象化和模块化的编程方 法 它把求解问题的过程看作一个处理过程 20 世纪 70 年代 Dijkstra 提出三种基本的程序结构 顺序结构 选择结构 循环结构 以及自顶向下 逐步求精 模块化程序设计的原则 结构化程序设计解决了由多人共同开 发大型软件时 如何高效率地完成高可靠性系统的问题 结构化程序的可读性好 可维护 性好已成为评价程序质量的首要条件 VB 改变了原 Basic 语言的非结构程序设计思想 采 用结构化程序设计的思想和方法 三 面向对象的程序设计 面向对象程序设计 OOP Object Oriented Programming 是一种以对象为基础 以 事件来驱动对象执行的程序设计技术 OOP 将一个应用程序 逐步划分成相互关联的多个 对象 并且建立起与这些对象相关联的事件过程 通过对象对所发生的事件产生响应 来 执行相应事件过程 以引发对象状态的改变 从而最终达到运算 处理的目的 程序员在 应用程序中只需说明对象应完成的任务 该任务通常仍由编程来完成 仍采用结构化程序 设计的方法 面向对象程序设计最早在 20 世纪 80 年代就已提出 起源于 Smalltalk 语言 此种方 法引入了新的概念和思维方式 为使软件在程序设计阶段能够模仿建立真实世界的模型 此种设计方法对系统的复杂性进行概括 抽象和分类 使软件的设计与实现形成一个由抽 象到具体 由简单到复杂的一个循序渐进的过程 从而解决了大型软件研制中存在的效率 低 质量难以保证 调试复杂 维护困难等一系列问题 因此近年来面向对象的程序设计 得到广泛的应用 目前在 Windows 环境下常用的面向对象程序设计语言有 Visual Basic Visual J Visual C Visual FoxPro 等 面向对象程序设计的优点 1 符合人们的习惯思维方式 便于分析复杂而多变的问题 2 易于软件的维护和功能的增减 3 能用继承的方式减短程序开发所花的时间 5 与可视化技术相结合 改善了工作界面 2 2 对象的概念 VB 提供了面向对象程序设计的强大功能 程序的核心是对象 VB 不仅提供了大量的 控件对象 而且提供了创建自定义对象的方法和工具 为开发应用者带来了诸多便利 教学目标 学习面向对象程序设计中对象 类 方法 对象的属性 对象的事件和对象的事 件过程的基本概念及有关的内容 教学要求 理解 对象和类的概念 理解 对象和类的关系与区别 掌握 对象的属性 事件 方法在程序开发中的作用 在程序设计过程中如何设计 对象的属性 编写对象的事件代码 调对象的方法 本节重点 对象和类的关系 属性 方法 事件在面向对象程序设计中的作用 本节难点 对象和类的概念 本节应注意的问题 对象和类的关系与区别 一 对象和类 1 对象 Object 在 OOP 中 程序的核心是对象 在开发一个应用程序时 必须先建立各种对象 然后 围绕对象来进行程序设计 对象是具有某些特性的具体事物的抽象 如 控件及窗体 每 个对象都具有描述其特征的属性 以及附属于它的行为 在 VB 中 工程中的每一个窗体 窗体中的每一个控件都是一个对象 2 类 类是创建对象实例的模板 是同种对象的集合与抽象 它包含所创建对象的属性描述 和行为特征的定义 类含有属性和方法 它封装了用于类的全部信息 在 VB 中 所见到的类大多是系统已经设计完成的 我们只需使用就可以了 如 VB 工具箱中的可视类图标是 VB 系统设计好的标准类控件 具体的如 工具箱中的 TextBox 控件就是一个标准类 当我们从该类中 取出 某个 Text 控件后 这个 Text 控件就成为一个对象 它自动继承了 TextBox 类的各种特征 即当我们在窗体上画一个控 件时 就将类转换为一个对象 也就创建了一个控件对象 控件对象简称控件 VB 也允 许程序员自行设计类 注意 窗体是一个特例 它既是对象又是类 3 容器 容器也是对象 只是此种对象允许我们在其中添加或包含其他对象 常用的对象有窗 体 Frame 等 除了通过利用控件类产生控件对象外 VB 还提供了系统对象 如打印机 Printer 剪贴板 Clipboard 屏幕 Screen 应用程序 App 等 二 对象的建立和编辑 1 对象的建立方法 1 从工具箱中建立 2 使用复制的方法 2 对象的选定 1 单个对象的选择 用鼠标单击对象 2 多个对象的选择 单击第一个对象 按住 Shift 键 再单击其他对象 3 复制或删除对象 1 复制 先选择对象 然后复制并粘贴 注意 在粘贴对象时 VB 系统会提问是 否要建立控件数组 若不想建立控件数组应回答 否 2 删除 选定对象后按 Del 键 4 对象的命名 每一个对象都有自己的名称 用户所建立的控件和窗体都有默认的名称 如 Form1 Form2 Text1 Text2 等 用户也可以通过对象的属性窗口给对象重新命名 对象 名称必须以英文字母或汉字开头 后面可由字母 汉字 数字串组成 其长度不超过 255 个字符 根据我们多年从事软件开发的经验 我们建议 窗体用汉字命名 控件一般使用 原默认名 三 对象的属性 事件和方法 VB 的控件具有自己的属性 事件和方法 我们可以将属性看作一个对象的性质 将 事件看作对象的响应 将方法看作对象的动作 这三者构成了对象的三要素 1 属性 对象中的数据保存在属性中 是用来描述和反映对象特征的参数 定义对象属性的方 法有以下两种 1 在设计阶段使用属性窗口直接设置对象的属性 如 给一个名为 Label1 的标签对象的 Caption 属性值定义为 建筑物资租赁管理 2 在程序代码编制过程中通过赋值语句来定义 其语句形式为 如 在程序中用 Label1 Caption 建筑物资租赁管理 的语句为 Label1 的标签 对象的 Caption 属性赋值 2 事件 事件过程和事件驱动 1 事件 事件是发生在对象上的事情 VB 系统为每一个对象预先定义了一系列的事件 如单击 Click 双击 DblClick 改变 Change 获取焦点 GotFocus 等 2 事件过程 当对象发生了事件后 应用程序就可能需要处理这个事件 而其处理的步骤就是 事件过程 它是针对某一对象的过程 并与该对象的一个事件相联系 VB 的编程工 作主要就是为对象编写事件过程中的程序代码 事件过程的形式如下 Sub 对象名 事件 参数列表 End Sub 例如 当用户单击名为 Command1 命令按钮事件发生后 所编制的事件过程如下 Sub command1 click Command1 Fontsize 20 设置命令按钮的字体大小为 20 磅 End Sub 注意 当用户对一个对象发出一个动作时 可能会同时在该对象上发生多个事件 如用户在对象上单击鼠标 会同时产生 Click MouseDown MouseUp 三个事件 我 们只需对感兴趣的事件编程即可 3 事件驱动的程序设计 在 VB 中 程序的执行是先等待某个事件的发生 然后再执行处理此事件的过程 即事件驱动程序设计方式 VB 驱动程序的执行步骤如下 启动应用程序 装载和显示窗体 注意 若用户需要在窗体装载计算机内存时执行某些操作和数据处理功能 应将 程序写在窗体的 Form Load 事件或标准模块中 窗体或控件等待事件的发生 事件发生时 执行对应的事件过程 重复执行 步 3 方法 面向对象的程序设计语言提供了一种特殊的过程和函数 该过程和函数称为方法 每 个方法都可执行完成某项任务 对象方法的调用格式为 对象 方法 参数名表 例 Print 方法 2 3 初步建立应用程序 教学目标 运用所学习的 VB 程序设计语言的知识 通过创建一个简单的应用程序窗体 来学 习应用软件开发的基本思想和基本方法 教学要求 了解 应用程序开发示例 理解 VB 程序的开发步骤 掌握 窗体及主要控件的设置及使用方法 本节重点 开发 VB 应用程序的步骤 常用控件及窗体的属性及事件的作用及定义方法 在 VB 中要创建一个应用程序 首先就需要至少创建一个工程和工程中的窗体 创建 工程的常用方法有以下两种 第一种方法是当用户启动 VB 后 在启动对话框中选择 新 建 页的 标准 EXE 系统就会自动创建一个工程和一个窗体 第二种方法是用户选择 系统 文件 菜单中的 新建工程 功能 系统也会自动创建一个工程和一个窗体 新建 工程的默认名称通常为 工程 1 新建窗体的默认名称通常为 Form1 若用户需要 更改窗体的名称 可通过窗体的 名称 属性值直接更改 若需要更改工程的名称则需要 在保存工程时进行更改 VB 工程文件保存的顺序是 先保存工程中的标准模块文件 然 后保存工程中的窗体文件 最后保存工程文件 VB 建立应用程序的步骤如下 第一步 建立用户界面的对象 第二步 进行对象属性的设置 第三步 进行对象事件编程 第四步 保存和调试程序 在调试程序时应设置断点 可设置多个 当程序执行到断点时会暂停程序的运行 用 户可对程序中的变量值以及运行情况进行查验 若需依次查验程序运行的情况可按 F8 键 单步执行 否则可按 运行 按钮继续程序的运行 下面给出创建一个应用程序的实例 设需要创建的工程名为 租赁管理 工程中的 窗体名为 系统启动画面 窗体样式为 1 1 中的图 1 1 该窗体内只包括一个图形控件 Image 和两个标签 Label 控件 为顺利地完成上述简单窗体的程序设计工作 我们首先需要学习有关窗体和几个常用 标准控件的基本知识 一 窗体和标准控件的基本属性 VB 中的窗体和每一个控件都有很多属性 但所有窗体和大多数标准控件都具有如下基 本属性 1 名称属性 名称属性指所创建对象的名称 建议窗体用汉字命名 控件一般使用系统默认名 2 Caption 属性 Caption 属性用于设置控件上显示的文字内容 3 Height Width Top Left 属性 这四个属性用于设置控件的高度 控件的宽度 控件离屏幕顶部的距离 控件离 屏幕左边的距离 4 Enabled 属性 Enabled 属性用于设置对象的可操作性 其值为 True False 5 Visible 属性 Visible 属性用于设置对象的可见性 其值为 True False 6 Font 属性 Font 属性用于设置对象的字体 7 Fore Color 属性 Fore Color 属性用于设置对象的前景颜色 字体颜色 8 Back Color 属性 Back Color 属性用于设置对象的背景颜色 9 Border Style 属性 Border Style 属性用于设置对象的边框样式 0 无 1 单边 10 Alignment 属性 Alignment 属性用于设置对象的对齐方式 0 左对齐 1 右对齐 2 居中 11 Auto Size 属性 当对象的 Auto Size 属性为 True 时 自动调整大小 当 Auto Size 属性为 False 时 不可调 若正文太长则自动裁掉 12 Word Warp 属性 当对象的 Word Warp 属性为 True 时 垂直方向显示文本 13 Tab Index 属性 Tab Index 属性用于决定按下 Tab 键时 焦点在各个控件中移动的顺序 二 窗体 窗体是 VB 工程中的基本容器 通常一个窗体就是应用程序的一个模块 1 属性 1 基本属性 窗体的基本属性主要包括 名称 Caption Height Width Top Left Font Enabled Visible ForeColor Backcolor Image 等 2 MaxButton 属性 MaxButton 属性决定窗体有无最大化按钮 其值为 True False 3 MinButton 属性 MinButton 属性决定窗体有无最小化按钮 其值为 True False 4 Icon 属性 Icon 属性设置窗体最小化时所显示的图标 5 ControlBox 属性 ControlBox 属性决定窗体左上角有无控制菜单框 其值为 True False 6 Picture 属性 Picture 属性用于设置窗体所加载的图片 7 Border Style 属性 Border Style 属性决定窗体的边框样式 其值为 0 None 无边框 不能移动和改变大小 1 Fixed Single 单线边框 可移动 但不可改变大小 2 Sizable 双线边框 可移动和改变大小 3 Fixed Double 固定对话框 4 Fixed Tool Window 有关闭按钮 不能改变大小 5 Sizable Tool Window 有关闭按钮 可改变大小 8 Windows State 属性 Windows State 属性决定窗体运行时的状态 其值为 0 Normal 正常 有窗口边界 1 Minimized 图标 2 Maximized 占满整个屏幕 无边框 2 窗体事件 1 Click 事件 Click 事件指单击窗体时所发生的事件 2 Dblclick 事件 Dblclick 事件指双击窗体时所发生的事件 3 Form Load 事件 Form Load 事件是指窗体在装入计算机内存时所发生的事件 对于未被加载 的窗体 如果其他窗体中引用该窗体的控件及属性时 也会引发 Load 事件 该 事件过程通常用来在启动窗体前 对窗体及其所包含控件的属性进行设置和窗体 中变量的初始化 使窗体按用户需要的方式显示出来 4 Activate 事件 当使用 Show 方法显示一个窗体或单击一个窗体时 使一个窗体变成活动窗 体时 会产生一个 Activate 事件 5 Resize 事件 当使用最大化 最小化按钮或改变窗体大小时 会引发窗体的 Resize 事件 窗体常用的事件是 Form Load 和 Click 事件 3 方法 窗体常用的方法有 Print Cls Move 等 三 图形控件 VB 中常用的图形控件有两个 一个是 Image 图像框 控件 另一个是 PictureBox 图形框 控件 这两个控件都是标准控件 也都可以放置图形 但两者之间 也有很大的区别 1 Image 图像框 控件 Image 控件占用内存少 描绘快 它不是容器 其常用属性为 Picture 和 Stretch Picture 属性用于在控件中添加图形 当 Stretch 设置为 True 时 加载到图像框 的图形可自动调整大小以适应 Image 图像框 控件的尺寸 2 PictureBox 图形框 控件 PictureBox 控件占用内存比 Image 控件多 它是容器 即允许在 PictureBox 控件中 添加其他控件 其常用属性为 Picture 和 Autosize Picture 属性用于在控件中添加图形 当 Autosize 属性设置为 True 时 图形框控件会自动调整大小以适应图形的尺寸 注意 两个图形控件虽然都能够自动调整大小以使所装载的图形和控件相匹配 但 Image 控件中是图形调整大小来适应控件的尺寸 而在 PictureBox 控件中是控件调整大 小来适应图形的尺寸 3 Shape 形状 控件 Shape 形状 控件是 VB 的一个简单标准控件 该控件基本没有特定的功能 主要 用于画基本的几何图形 在应用软件的设计中 Shape 形状 控件通常用于人机界面的 装饰 四 标签 标签 Label 主要用于显示文本信息 但不能作为输入信息的界面 也就是说 标 签的内容只能用 Caption 属性来设置和修改 不能编辑 1 属性 Label 的基本属性有 名称 Caption Enabled Visible FontName Font ForeColor Backcolor Alignment BackStyle 等 其中 Alignment 用于指定 Label 中文字的位置 0 左对齐 1 右对 齐 2 居中 BackStyle 用于指定 Label 背景样式 0 透明 1 不透明 2 事件 Label 的常用事件有 Click DblClick Change 等 五 文本框 文本框 TextBox 是一个文本编辑区 用户可在文本区输入 编辑 修改文本 也可以显示文本 1 属性 1 基本属性 文本框的基本属性主要有 名称 Height Width Top Left Enabled Visible FontName FontSize 等 2 Text 属性 Text 属性用于显示文本框中的信息 3 Maxlength 属性 Maxlength 属性用于设置文本中输入字符的长度 0 属性值表示不限 制用户输入字符的长度 注意 VB 中所有的字符 汉字的长度均为 1 4 Multiline 属性 Multiline 属性用于设置 TextBox 中的文本能否换行 5 Scrollbars 属性 Scrollbars 属性用于设置 TextBox 是否具有滚动条 并设置滚动条的样式 0 None 无 1 Horizontal 加水平滚动条 2 Vertical 加垂直滚动条 3 Both 同时加水平 垂直滚动条 6 Locked 属性 Locked 属性用于设置文本框是否可编辑 常在程序中使用 7 PassWord 属性 PassWord 属性用于设置用何种显示字符掩饰用户输入的字符 常用于密 码口令的输入 8 SelStart 属性 SelStart 属性用于设置在 TextBox 中正文的起始位置 第一个字符的位置为 0 9 SelLength 属性 SelLength 属性用于设置 TextBox 中正文的长度 10 SelText 属性 SelText 属性用于设置 TextBox 中正文的内容 这几个属性一般用在文本编辑中设置插入点及范围 选定字符串 清除文本等 2 事件 Change KeyPress LostFocus 等 1 Change 事件 在 文本中输入新信息时 或在程序中将 Text 属性设置为新值时 每当 用户键入一个字符 都会引发一次该事件 2 KeyPress 事件 当用户按下并释放键盘上某键时引发的事件 在该事件发生的同时 返 回用户输入字符的 ASCII 码值 十进制 3 Lostfocus 事件 当用户使用键或用鼠标单击窗体上其他对象而使该文本失去焦点 时 触发该事件 3 方法 SetFocus 方法 用于将光标自动移到指定的文本框中 该方法主要用于程序 中 其形式如下 对象 SetFocus 如 程序代码 Text5 SetFocus 当 VB 执行了上述程序代码后 就会将光标移到 Text5 上 六 命令按钮 命令按钮 Command 控件主要用于运行某一个程序 1 属性 1 基本属性 命令按钮控件的基本属性主要有 名称 Height Width Top Left Enabled Visible FontName FontSize Backcolor 等 2 Caption 属性 Caption 属性用于使用文字来标识命令按钮的功能 最多 255 个字符 该属性 也可为命令按钮创建快捷键 如果在所输入的某字母前加一个 Spc 5 2 Cls 方法 Cls 方法用以清除程序在运行时在窗体或图形中显示的文本或图形 其语法格式为 对象 Cls 使用 Cls 方法后 图形坐标中两坐标轴的 x 与 y 值均被置为 0 并清除运行时窗体上 显示的文本及图形 但不清除窗体在设计时的文本和图形 对象 选项省略时指窗体 3 Move 方法 Move 方法用于移动窗体或控件 并改变其大小 其语法格式为 对象 Move 上边距离 宽度 高度 说明 1 对象 可以是除时钟 菜单外的所有控件 省略对象时默认对象为窗体 2 左边距离 上边距离 宽度 高度 数值表达式 以 twip 缇 为单位 如果对 象是窗体 则 距离 以屏幕为参照 否则以窗体为参照 例 首先编程设置图形控件 Image1 在窗体中的位置 并向 Image1 中装载图形 然后 令该图形控件移动并放大 Private Sub Form Load 设置图形控件 Image1 在窗体中的位置 并向 Image1 中装载图形 Image1 Top 100 Image1 Left 100 Image1 Picture LoadPicture MYCOMP ICO End Sub Private Sub Image1 Click 令图形控件移动并放大 Image1 Stretch True Image1 Move Image1 Left 100 Image1 Top 100 Image1 Width 100 Image1 Height 100 End Sub 四 源程序的书写要求 1 在主要的程序段落应用汉语对程序的功能进行标注 以增加程序的可读性 2 书写的程序要具有锯齿形风格 即每当书写到条件判断和循环等结构语句时 结构 内的语句应有规律地后移 遇到嵌套结构时 嵌套结构内的语句不但需要后移而且要分出 层次 每一个程序员都要培养此种书写程序的风格与习惯 以便在编写复杂和大程序时仍 能保证程序语法和逻辑的正确性 3 2 数据类型 教学目标 掌握 VB 中主要的数据类型及其表示方法 教学要求 了解 数据类型的概念及种类 理解 各种标准数据类型的应用场合 掌握 各种标准数据类型的表示方法及表示范围 本节重点 自定义数据类型 各种标准数据类型的表示方法及表示范围 一 标准数据类型 1 数值 Numeric 数据类型 1 整型 Integer 和长整型 Long 整形用于保存整数 整数运算速度快 但所表示数的范围小 其中 Integer 的取值 范围是 32768 32767 占 2 个字节 类型符是 号 Long 的取值范围是 2147483648 2147483647 占 4 个字节 类型符是 x1 x2 x2 Else MsgBox 输入有错 2 End If End Sub 3 If Then ElseIf 语句 语句形式 If Then ElseIf Then ElseIf Then Else 语句组 n 1 End if 例 设已在 strC 中存入了一个字符 编程判断该字符是英文字母 数字 其它 并显 示结果 If strC a and strC A and strC 0 and strC y Then t x x y y t If x z Then t x x z z t End If If y z Then t y y z z t End If Else If x z Then t x x z z t End If If y z Then t y y z z t End If End If 5 Select Case 语句 语句形式 Select Case Case 表达式列表 1 Case 表达式列表 2 Case 表达式列表 n Case Else 语句组 n 1 End Select 例 编程判断 strC 中字符的类型 Select Case strC Case a to z A to Z Print strC 是英文字母 Case 0 to 9 Print strC 是数字 Case Else Print strC 是其它字符 End Select 6 条件函数 1 IIf 函数 形式 IIf 例 编程将 x y 中值较大者的值赋给 z z IIf x y x y 2 Choose 函数 形式 Choose 例 假设变量 Nop 中存放了 1 2 3 4 中的某一个值 编程将变量 Nop 中的值转换 成算术四则运算符 其中 1 转换为 2 转换为 3 转换为 4 转换为 并将转换结 果存放到 OP 变量中 Op Choose Nop 四 循环结构 1 For Next 语句 语句形式 For To Step 步长 exit for Next 循环变量 注意 若缺省 Step 步长 选项 系统默认步长为 1 例 编程计算 1 到 100 中奇数之和 Dim i s As Integer s 0 For i 1 To 100 Step 2 s s i Next i Print s 例 编程将 ASCII 码制成表格在图形控件 Picture1 中输出 每行打印 7 个字符 Private Sub Picture1 Click Dim asc I As Integer Picture1 Print Tab 30 ASCII 码对照表 Picture1 Print For asc 32 To 126 Picture1 Print Tab 10 I 2 Chr asc asc I I 1 If I 7 Then I 0 Picture1 Print End If Next End Sub 2 Do Loop 语句 语句形式 Do While exit do Loop Do Loop 循环语句在执行时先判断循环条件 若循环条件为真 执行循环体内的 语句 否则终止循环 例 1 编程计算自然对数 e 的近似值 要求计算的误差小于 0 000001 计算自然对数 e 的公式为 e 1 1 1 1 2 1 3 1 4 1 n Private Sub Command1 Click Dim i n As Integer Dim e s As Double s 1 e 1 Do While s 0 000001 i i 1 s s i e e s Loop Print e End Sub 例 2 编程用转辗相除法求两个正整数 m n 的最大公约数和最小公倍数 求两个正整 数 m n 的最大公约和最小公倍数的算法如下 求两个正整数 m n 的最大公约数算法 第一步 对已知的 m 和 n 先使 m n 第二步 m 除以 n 得余数 r 第三步 若 r 0 则 n 为所求的最大公约数 计算结束 否则将 n 的值赋值给 m 将 r 的值赋值给 n 然后重复执行第二步 直至 r 0 求两个正整数 m n 的最小公倍数算法 当取得 m 和 n 的最大公约数后 将 m 和 n 相乘再除以最大公约数就可得到 m 和 n 的最小公倍数 求两个正整数 m n 的最大公约数和最小公倍数的源程序如下 Private Sub Command1 Click Dim m n p mn As Integer m Val Text1 n Val Text2 If m 0 Or n 0 Then End If m n Then t m m n n t Do While n 0 r m Mod n m n n r Loop Print 最大公约为 n Print 最小公倍为 m n n End Sub 在循环结构中 VB 还有 Do Until 等循环语句 由于语句的功能与上述两种循环语 句基本相同 不再赘述 感兴趣的同学可自学 3 循环的嵌套 在一个循环体内又包含一个完整的循环结构称为循环的嵌套 循环的嵌套是编程中常 用技术 是每一个计算机程序设计员必须掌握的技术 计算机语言中 循环可以并列 可 以嵌套 但不能相交 例 1 古代数学中有一个 百文买百鸡 的问题 题目是 鸡翁一值三文 鸡母一 值二文 鸡雏三值一文 问 百文买百鸡 各买几何 用现代数学方法来考虑这一问题 可以发现这是一个简单的三元一次方程组的求解问题 方程组的数学公式为 设公鸡买 X 只 母鸡买 Y 只 小鸡买 Z 只 根据已知条件可列出以下方程组 X Y Z 100 其中 X 的取值范围 1 33 Y 的取值范围 1 50 3X 2Y Z 3 100 其中 Z 的取值范围 1 99 由于方程组中有三个未知量 而方程只有两个 因此方程为多解 解该方程的程序如 下 Private Sub Command1 Click Dim X Y Z As Integer For X 1 To 33 For Y 1 To 50 For Z 1 To 99 If 3 X 2 Y Z 2 100 And X Y Z 100 Then Print X Y Z End If Next End Sub 例 2 用循环语句编制一个在图形控件 Picture1 中打印 九九乘法表 的程序 Private Sub Picture1 Click Dim ss As String Picture1 Print Tab 40 九九乘法表 Picture1 Print For i 1 To 9 For j 1 To i ss j ss Next Picture1 Print Picture1 Print Next End Sub 五 其它辅助控制语句 1 Go To 语句 语句格式 Go To Go To 语句的作用是无条件地转移到行号或标号指定的语句行 注意 在 VB 程序设计中要尽量少用或不用 Go To 语句 以保证所编程序的结构化 2 End 语句 End 语句用于结束一个程序的运行 返回 Windows 在一个应用程序中 逻辑上只允 许有一个 End 语句 3 With End With 语句 语句格式 With End With With End With 语句用于在不重复指出对象名称的情况下 对某对象执行一系列的语 句 例 对照下面两个过程 就可以认识到 With End With 语句的作用 Private Sub Command1 Click Private Sub Command1 Click With Label1 Label1 Height 2000 Height 2000 Label1 Width 2000 Width 2000 Label1 FontSize 24 FontSize 24 Label1 Caption 标签 Caption 标签 End Sub End With End Sub 3 6 数组 数组是按一定顺序排列 具有相同类型的变量的集合 VB 中将数组分为静态数组和 动态数组 静态数组在声明时必须指明数组的维数和变量的个数 动态数组在声明时仅定 义数组的名称和类型 然后在执行程序的过程中 根据实际需要再用 ReDim 语句定义数组 的维数及变量的个数 而且允许使用简单变量来进行数组中变量个数的定义 数组的使用在管理信息系统软件的程序设计中有着不可替代的作用 离开数组的使用 某些程序的编制将会变得非常麻烦 甚至导致程序编制的失败 因此数组是程序设计人员 必须熟悉和掌握的必备知识 教学要求 了解 数组的概念 理解 静态数组和动态数组的区别 控件数组的作用 掌握 数组的定义及使用方法 控件数组的应用 本节重点 动态数组的应用 控件数组的应用 本节难点 动态数组的应用 一 静态数组及声明 1 一维数组 一维数组的定义如下 Dim 下界 To 上界 As 类型 若缺省下界 系统默认为 0 例 Dim num 1 To 50 As Integer 2 多维数组 VB 中数组的维数允许最多可达 60 维 多维数组的定义格式如下 Dim 下界 1 To 上界 1 下界 2 To 上界 2 As 类型 例 Dim A 12 50 C 10 As Double 二 动态数组 动态数组在声明时只定义数组名或数组名及类型 不指定大小 在执行程序的过程中 再根据需要用 Redim 语句重新定义数组的大小 重新定义动态数组的语句格式如下 Redim 下标 1 下标 2 注意 1 Redim 语句中的下标可以是已被赋值的变量 2 在过程中可多次使用 Redim 来改变数组的大小和维数 3 每次使用 Redim 语句都会使原数组中的数据丢失 如需要保留原数组数据 可 用 Preserve 参数来保留 使用该参数只能改变最后一维的大小 例 在程序运行时由操作者指定一个一维数组的变量个数 然后由计算机自动产生一 组随机数存放到一维数组中 并将此组随机数在窗体上打印出来 完成此项工作的源程序 如下 Dim x As Double Private Sub Form Click W InputBox 请问需要产生多少个随机数 100 100 W Val W ReDim x W For i 1 To W x i Rnd Print x i Next End Sub 注意 动态数组主要用于编程时尚不能确定数组中变量的个数 而只能在程序执行过 程中根据统计或外部提供的信息才能确定数组中变量个数的情况 三 数组的基本操作 1 用循环语句为数组元素赋初值 例 使用 For Next 语句为一维数组赋初值 0 Private Sub Form Load Dim a 10 As Integer For i 0 To 10 a i 0 Next End Sub 2 使用 Array 函数给数组赋值 例 给 a 数组赋值 5 个奇数 给 b 数组赋值 3 个英文字母 Dim a As Variant b As Variant I a Array 1 3 5 7 9 b Array x y z 注意 1 利用 Array 函数对数组各元素赋值 声明的数组是可调数组 并且其类型只能是 Variant 2 数组的下界为 0 上界由函数括号中的参数个数决定 四 数组的应用举例 例 1 排序 令计算机用随机函数自动生成 20 个 10 100 之间的整数 将其按由 小到大的顺序排列 并将这 20 个随机数打印出来 Dim X 20 As Integer Dim i j k As Integer Private Sub Form Load Randomize For i 1 To 20 X i Rnd 90 10 Next End Sub Private Sub Form Click For i 1 To 19 For j i 1 To 20 If X i X j Then k X i X i X j X j k End If Next Print X I Next End Sub 例 2 编程实现 当用户由键盘输入一串英文字母到文本框 Text1 中后 令计算机 自动统计出 Text1 中各种英文字母出现的次数 不区分大小写 并将统计结果打印出来 Private Sub Command1 Click Dim ss As String Dim a 1 To 26 As Integer i k As Integer k Len Text1 Text For i 1 To k ss UCase Mid Text1 Text i 1 If ss A And ss 1 For k 1 To j m m 1 m m Mod 16 Do While Not Label1 m Visible m m 1 m m Mod 16 Loop Next k Label1 m Visible False Image1 m Visible False n n 1 DoEvents ti DateAdd s 1 Now Do While ti Now Loop Loop For i 0 To 15 If Image1 i Visible Then k i 1 End If Next i Text1 Visible True Text1 Text 最后剩的是第 x End Sub 2 函数过程的调用 由于函数过程可由函数名返回一个值 因此函数过程不