Transcription

1 普通高等教育 十二五 规划教材公共课系列 高级语言程序设计 Visual Basic 刘立群刘哲 邹丽娜主编 刘冰周颖王伟王占军副主编 郑尚志梁宝华参 编 周进钱进参编 北京 科学出版社职教技术出版中心

2

3 内容简介本书是为了适应 Visual Basic 程序设计课程教学需要而编写的, 知识点全面完整, 涵盖了全国计算机等级考试二级考试大纲要求 全书共分 13 章, 从认识 Visual Basic 程序开始, 由浅入深地系统介绍了 Visual Basic 6.0 可视化程序环境下的编程方法 窗体和控件的使用 常用事件和方法 程序结构及基本算法 过程和数组 本书采用案例式教学方式编写, 注重将知识与实例分析融为一体, 在知识的讲解过程中逐一引入实例 本书中所有教学资源, 包括教材中实例的源程序及各章节电子讲义, 可从科学出版社网站 ( 下载 本书内容丰富 简明易懂 实例充足, 除可作为高等学校 Visual Basic 程序设计课程的教材外, 还可作为参加全国计算机等级考试人员的自学和辅导教材 图书在版编目 (CIP) 数据高级语言程序设计 Visual Basic/ 刘立群, 刘哲, 邹丽娜主编. 北京 : 科学出版社,2012 ( 普通高等教育 十二五 规划教材 公共课系列 ) ISBN Ⅰ. 1 高 Ⅱ. 1 刘 2 刘 3 邹 Ⅲ. 1BASIC 语言 - 程序设计 - 高等学校 - 教材 Ⅳ. 1TP312 中国版本图书馆 CIP 数据核字 (2011) 第 号责任编辑 : 陈晓萍宋丽 / 责任校对 : 王万红责任印制 : 吕春珉 / 封面设计 : 东方人华平面设计部 印刷科学出版社发行各地新华书店经销 * 2012 年 1 月第一版开本 : / 年 1 月第一次印刷印张 :15 1/2 字数 : 定价 :27.00 元 ( 如有印装质量问题, 我社负责调换 ) 销售部电话 编辑部电话 版权所有, 侵权必究举报电话 : ; ; 科学出版社职教技术出版中心

4

5 前 言 Visual Basic(VB) 是一种由微软公司开发的包含协助开发环境并支持事件驱动的可视化编程语言, 它源自于 Basic 编程语言 VB 拥有图形用户界面 (GUI) 和快速应用程序开发 (RAD) 系统, 用户可以轻易地使用 DAO RDO ADO 连接数据库, 或者轻松地创建 ActiveX 控件 程序员可以轻松地使用 VB 提供的组件快速建立一个应用程序 由于它功能强大 容易掌握, 不仅被许多大专院校列入了教学计划, 并且已经作为全国计算机等级考试二级的考试科目之一 为了满足各院校开设 Visual Basic 程序设计课程的教学需要, 适应学生参加国家二级考试的要求, 我们紧紧围绕全国计算机等级考试二级考试大纲, 设计组织本书的知识点, 针对二级考试中笔试和上机考试的不同形式和要求, 在积累和总结多年从事二级考试辅导教学经验的基础上, 以 Visual Basic 6.0 中文版为语言背景, 编写了 高级语言程序设计 Visual Basic 和 高级语言程序设计 Visual Basic 实训 本书作为主教材, 共分 13 章, 包括认识 Visual Basic 设计简单的 Visual Basic 应用程序 Visual Basic 程序设计基础 数据输出与输入 程序设计的基本控制结构 常用标准控件 数组 过程 图形操作 键盘与鼠标事件 菜单设计 文件 通用对话框设计 内容覆盖了二级考试的全部知识点, 并且对每一个重要知识点都设计了相应的程序设计实例, 强化对核心知识点的理解, 引导学生通过对具体案例的学习和实践掌握程序设计方法 高级语言程序设计 Visual Basic 实训 是本书的辅助教材, 包括两个部分 : 实验篇和习题篇 实验篇不仅给出实验目的和实验内容, 而且力求将启发 创新引入实验过程, 因此设置了综合实验部分, 要求学生通过完善程序代码后, 经过调试运行实现程序功能 习题篇中的知识要点对主教材知识点进行概括, 实战测试给出主教材中相应章节的测试题, 并在答案与解析中给出参考答案 本书可以作为高等学校 Visual Basic 程序设计课程的教材, 也可作为参加全国计算机等级考试人员的自学和辅导教材 全书由刘立群 刘哲 刘冰 邹丽娜 周颖 王伟 王占军共同编写, 由刘立群 统稿 尽管尽了最大努力, 但由于编者水平有限 经验不够丰富, 书中难免存在不足之处, 敬请广大读者批评指正 刘立群 2011 年 10 月 科学出版社职教技术出版中心

6

7 目 录 第 1 章认识 Visual Basic Visual Basic 概述 Visual Basic 的发展过程 Visual Basic 的特点 Visual Basic 的启动和退出 Visual Basic 的启动 Visual Basic 的退出 Visual Basic 集成开发环境 主窗口 窗体窗口 工程资源管理器 属性窗口 工具箱 窗体布局窗口 9 本章小结 9 习题 9 第 2 章设计简单的 Visual Basic 应用程序 第一个简单的 VB 程序 VB 应用程序设计的基本步骤 创建用户界面 设置对象属性 编写事件代码 保存 装入 运行程序 面向对象程序设计基本概念 对象与类 对象的属性 对象的事件 对象的方法 标签 文本框和命令按钮 常用属性 标签 文本框 命令按钮 窗体 32 科学出版社职教技术出版中心 窗体的常用属性 32

8 iv 高级语言程序设计 Visual Basic 窗体的常用方法 窗体的常用事件 35 本章小结 38 习题 38 第 3 章 Visual Basic 程序设计基础 语句和编码规则 关键字和标识符 语句书写规则 常量变量与数据类型 基本数据类型 自定义类型 枚举类型 常量 变量 运算符和表达式 算术运算符与算术表达式 字符串运算符与字符串表达式 关系运算符与关系表达式 逻辑运算符与逻辑表达式 日期运算符与日期表达式 运算符的执行顺序 常用内部函数 数学函数 字符串函数 转换函数 日期时间函数 随机数函数 数制转换函数 测试函数 57 本章小结 58 习题 58 第 4 章数据输出与输入 数据输出 Print 方法 与 Print 方法有关的函数 Cls 方法 数据输入 InputBox 函数 消息框 MsgBox 66

9 目录 v MsgBox 函数 MsgBox 语句 打印输出 直接打印输出 窗体打印输出 69 本章小结 70 习题 70 第 5 章程序设计的基本控制结构 顺序结构 选择结构 If 语句 Select Case 语句 IIf 函数 循环结构 For Next 语句 Do Loop 语句 While Wend 语句 几种循环语句的比较 循环的嵌套 其他控制语句 95 本章小结 96 习题 96 第 6 章常用标准控件 单选钮和复选框 利用单选钮和复选框修改文字格式 单选钮的常用属性和事件 复选框的常用属性和事件 框架 利用框架为单选钮分组 框架的常用属性和事件 滚动条 利用滚动条控制命令按钮大小 滚动条的常用属性和事件 列表框和组合框 列表框常用属性 事件和方法 利用列表框管理学生名单 112 科学出版社职教技术出版中心 组合框的常用属性 事件和方法 利用组合框管理电器价目表 114

10 vi 高级语言程序设计 Visual Basic 6.5 计时器 计时器常用属性 事件和方法 计时器应用实例 116 本章小结 118 习题 119 第 7 章数组 数组概述 数组的定义 数组元素的操作 动态数组 数组的清除 For Each...Next 语句 与数组有关的常用算法程序 求最值问题 排序问题 矩阵问题 控件数组 控件数组的概念 控件数组的建立 控件数组的使用 138 本章小结 139 习题 139 第 8 章过程 Sub 过程 Sub 过程定义 Sub 过程的调用 Sub 过程的参数传递 Function 过程 函数的定义 函数的调用 函数过程的参数传递 过程参数 参数传递方式 可选参数 对象参数 多窗体程序设计 考试系统登录界面 窗体的建立和移除 157

11 目录 vii 窗体的加载 窗体的显示 窗体的隐藏 窗体的卸载 Sub Main 过程 多重窗体程序应该注意的问题 变量的作用范围 局部变量 模块变量 全局变量 符号常量作用范围 Shell 函数 事件过程 165 本章小结 165 习题 165 第 9 章图形操作 图形操作基础 坐标系统 颜色的表示 图形控件 图片框 图像框 线和形状 图形方法 Line 方法 Circle 方法 180 本章小结 180 习题 181 第 10 章键盘与鼠标事件 键盘事件 KeyDown 事件 KeyUp 事件 KeyPress 事件 KeyPreview 属性 鼠标事件 MouseDown 事件 MouseUp 事件 MouseMove 事件 鼠标事件的应用实例 鼠标指针的形状 187 本章小结 188 科学出版社职教技术出版中心 习题 189

12 viii 高级语言程序设计 Visual Basic 第 11 章菜单设计 概述 下拉式菜单 弹出式菜单 菜单设计的步骤 菜单编辑器 下拉式菜单的建立 下拉式菜单的建立实例 有效性控制 菜单项标记 弹出式菜单的建立 197 本章小结 199 习题 199 第 12 章文件 数据文件 文件概述 顺序文件的打开与关闭 顺序文件的读写操作 随机文件的打开与关闭 随机文件的读写操作 文件操作中常用的语句和函数 文件系统控件 驱动器列表框 目录列表框 文件列表框 文件系统控件的应用 212 本章小结 213 习题 213 第 13 章通用对话框设计 对话框概述 对话框的分类 对话框的特点 通用对话框 添加通用对话框控件 通用对话框的基本属性和方法 通用对话框的使用 打开 (Open) 对话框 另存为 (Save As) 对话框 222

13 目录 ix 颜色 (Color) 对话框 字体 (Font) 对话框 打印 (Print) 对话框 帮助 (Help) 对话框 通用对话框综合应用 225 本章小结 228 习题 228 部分习题参考答案 231 参考文献 235 科学出版社职教技术出版中心

14 第 1 章认识 Visual Basic 学习目标与要求 : 了解 VB 的发展过程和语言特点 掌握 VB 的启动与退出 了解 VB 的集成开发环境 1.1 Visual Basic 概述 BASIC 是 Beginner s ALL-purpose Symbolic Interchange Code( 初学者通用符号代码 ) 的缩写 BASIC 语言自 1964 年问世以来, 由于其简单 易学, 得到了广泛应用 1988 年, 图形接口 (GUI) 的出现极大地改变了微机产业, 使之飞速发展, 随之出现了 Windows 操作系统 但在 Windows 环境下如何开发像 Windows 那样具有优美的环境和丰富的功能的应用程序是一大难题 1991 年,Microsoft 公司推出了 Visual Basic 1.0 版本, 提供了进行 Windows 编程的简单方法 Visual 指的是可视化的编程方法, 即不需编写大量代码去描述界面元素的外观和位置, 只要把预先建立的对象添加到屏幕上即可方便地开发图形用户界面 (GUI) 它简化了复杂的窗口程序编写过程, 让编程者将更多的精力致力于问题的求解过程 Visual Basic 既保留了 BASIC 语言简单 易用的优点, 又充分利用了 Windows 提供的图形环境, 提供了崭新的可视化程序设计工具 迄今为止,Visual Basic 已经发展成为快速应用程序开发工具的代表 Visual Basic 的发展过程 20 世纪 70 年代末,Microsoft 公司在当时的 PC 机上开发了第一代的 Basic 语言, 成为当时非常流行的编程工具, 许多计算机初学者使用它来编制各种各样的小程序 20 世纪 90 年代初, 由于 Windows 操作平台的逐渐流行,PC 机的操作方式开始由命令行方式向图形用户界面方式转变 Microsoft 公司开始把 Basic 语言向可视化编程方向发展, 于是就有了第一代的 Visual Basic Visual Basic 升级了数次 1993 年开发了 3.0 版,1996 年开发了 4.0 版,1997 年推出 5.0 版, 随着版本的提高,Visual Basic 的功能越来越强 5.0 版以后,Visual Basic 同时在中国推出中文版 与以前各版本相比, 其功能有了质的飞跃, 已成为 32 位的 全面支持面向对象的大型程序设计语言 在 1998 年推出 Visual Basic 6.0( 以下简称 VB6) 版时,VB 又在数据访问 控件 语言 向导及 Internet 支持等方面增加了许多新的功能, 在开发环境 功能上进一步完

15 2 高级语言程序设计 Visual Basic 善和扩充, 尤其在数据库管理 网络应用方面更胜一筹 VB 6.0 包括 3 种版本 : 学习版 专业版和企业版 (1) 学习版 (Learning Edition): 是 VB 的基础版本, 包含了所有的标准控件及网格 控件 数据绑定控件和 Tab 对象 适合初学者用来学习开发 Windows 应用程序 (2) 专业版 (Professional Edition): 包括了学习版的全部功能, 并增加了 ActiveX 控件 Internet 控件 Crystal Report Writer 报表控件, 主要用于开发客户机 / 服务器应 用程序 它为专业编程者提供了一整套功能完备的开发工具 (3) 企业版 (Enterprise Edition): 包括了专业版的全部功能, 并增加了自动化管理 器 部件管理器 数据库管理工具 Microsoft Visual SourceSafe 面向工程版的控制系统等, 主要用于创建分布式应用程序 高性能的客户机 / 服务器应用程序或 Internet 上的应用程序 如无特别说明, 本书中内容均基于 VB 6.0 企业版, 所有程序都是在 VB 6.0 企业版 下运行通过, 大多数程序可以在专业版和学习版中运行 Visual Basic 的特点 VB 是可视化的 面向对象的 采用事件驱动方式的结构化高级程序设计语言 总的来说,VB 有以下主要特点 1. 可视化的编程工具 用传统的程序设计语言设计程序, 都是通过编写程序代码来设计用户界面的, 在设计过程中看不到界面的实际效果, 必须编译后运行程序才能看到 如果对界面效果不满意, 还得返回到程序中修改, 这大大影响了软件的开发效率 而 VB 提供了可视化的程序设计工具, 程序设计者只需从 工具箱 中取出所需 控件, 将其放置到窗体的指定位置构成用户界面, 并设置这些图形对象的属性,VB 会自动生成界面设计代码, 从而大大提高了程序设计的效率 2. 面向对象的程序设计思想 面向对象是近年来出现的一种程序设计技术, 是一种全新的设计和构造软件的思维方法 它把程序和数据封装起来作为一个 对象, 并赋予每个 对象 应有的属性 程序设计者在设计对象时, 不必编写建立和描述每个对象的程序代码, 而是在界面上用工具画出对象,VB 自动生成对象的程序代码和数据并封装起来, 程序设计者只需编写实现程序功能的代码 这样, 即大大节省了程序的开发时间, 也降低了编程的难度 3. 事件驱动的编程机制 传统的程序设计方法是面向过程的, 程序设计者必须根据程序要实现的功能, 写出一个包括主程序和若干个子程序的完整程序 因此, 程序设计者必须考虑程序运行的每一个细节, 对编程人员要求较高 VB 改变了传统的编程机制, 程序中没有明显的主程序, 程序执行的基本方法是由 事件 来驱动子程序 例如, 在窗体上画一个命令按钮, 用户用鼠标单击命令按钮会发生一个按钮单击事件, 发生此事件就要执行一段由按钮单击事件驱动的子程序, 在 科学出版社职教技术出版中心

16 第 1 章认识 Visual Basic 3 VB 中将子程序称为 过程 4. 结构化的程序设计语言 VB 具有高级程序设计语言的语句结构, 接近自然语言和人类的逻辑思维方式 VB 是解释型语言, 在输入代码的同时, 解释系统可以自动进行语法检查, 及时提示语法错误 在利用 VB 设计应用程序的过程中, 随时可以运行程序, 调试程序, 查看程序的运行结果 程序设计好后, 还可以编译生成可执行文件 (.EXE), 使其脱离 VB 环境, 直接在 Windows 环境下运行 5. 强大的数据库功能 VB 具有很强的数据库管理功能 利用数据控件和数据库管理窗口, 可以直接建立或处理 Microsoft Access 格式的数据库, 并提供强大的数据存储和检索功能 同时, 功能强大的 ADO(Active Database Object) 技术还能直接编辑和访问其他外部数据库, 如 Visual FoxPro Oracle 等, 从而使网络数据库的开发更加快捷简单 6. 网络功能 VB 提供了 IIS 和 DHTML(Dynamic HTML) 两种类型的程序设计方法, 用来编写 Internet 上的应用程序 利用它们进行程序设计, 程序设计者不需要学习编写脚本和操作 HTML 标记, 就可以开发功能很强的基于 Web 的应用程序 除上述特征外,VB 还提供了动态数据交换 (DDE) 与动态链接库 (DLL) 技术, 用来建立 VB 应用程序与其他 Windows 应用程序间的数据通信和调用 ; 利用对象的链接与嵌入 (OLE) 技术, 可以开发集声音 图像 动画 字处理 Web 等对象于一体的应用程序 ; 可以定制用户自己的 ActiveX 控件, 并把它作为集成开发环境和运行环境的一部分, 为开发应用程序提供服务 ; 同时, 还提供了多种向导, 通过它们可以快速地创建不同类型 不同功能的应用程序 1.2 Visual Basic 的启动和退出 Visual Basic 的启动 1.Visual Basic 的启动方法开机并进入 Windows 后, 启动 VB 的方法如下 方法一 : 在桌面上双击 Visual Basic 6.0 的快捷方式 方法二 : 选择 开始 菜单中的 程序 命令, 找到 Microsoft Visual Basic 6.0 中文版, 弹出下一个级联菜单, 单击 Microsoft Visual Basic 6.0 中文版 命令, 即可进入 VB 集成开发环境的 新建工程 窗口, 如图 1.1 所示 新建工程的窗口上有 新建 现存 和 最新 3 个选项卡 如果单击 现存 或 最新 选项卡, 则可分别显示现有的或最新的 VB 应用程序文件名列表, 供用户从

17 4 高级语言程序设计 Visual Basic 图 1.1 新建工程 对话框 列表中选择要打开的文件名, 此两个选项卡均是针对已保存过的 VB 程序而使用 对初学者或第一次建立某个 VB 应用程序, 一般选择 新建 选项卡 (1) 新建 : 为默认选项卡 在 新建 选项卡中选择相应的程序类型, 单击 打开 按钮可以建立新的应用程序, 其中 标准 EXE 为默认程序类型 (2) 现存 : 列出了已经存在的应用程序文件名, 可以从中选择路径及要打开的文件名, 单击 打开 按钮, 打开选择的程序文件 (3) 最新 : 列出了最近使用过的应用程序文件名, 可以从中选择要打开的文件名 2. 在 新建 选项卡中的程序类型 (1) 标准 EXE: 建立一个标准的 EXE 工程 (2)ActiveX EXE 和 ActiveX DLL: 这两种应用程序只能在专业版和企业版中建立 功能上两种程序是一致的, 只是包装不同 前者包装成 EXE( 可执行 ) 文件, 后者包装成 DLL( 动态链接库 ) (3)ActiveX 控件 : 只能在专业版或企业版中建立, 主要用于开发用户自己定义的 ActiveX 控件 (4)VB 应用程序向导 : 该向导用于在开发环境下直接建立新的应用程序框架 (5) 数据工程 : 主要提供开发数据报表应用程序的框架 (6)IIS 应用程序 : 用 VB 代码编写服务器端的 Internet 应用程序 (7) 外接程序 : 选择该类型, 可以建立自己的 VB 外接程序, 并在开发环境中自动打开连接设计器 (8)DHTML 应用程序 : 只能在专业版或企业版中建立 可以编写响应 HTML 页面操作的 VB 代码, 并可把处理过程传送到服务器上 (9)VB 企业版控件 : 用来在工具箱中加入企业版控件图标 以上多种工程类型, 第一种为初学者常用 当我们在对话框中选择要建立的工程类型, 如 标准 EXE, 然后单击 打开 按钮, 可进入 VB 集成开发环境, 如图 1.2 所示, 集成环境中有多个窗口, 在下一节中我们将详细介绍 Visual Basic 的退出 退出 VB 环境返回到 Windows 的方法有多种 方法一 : 选择 VB 菜单栏的 文件 退出 命令 方法二 : 按 Alt+Q 键 方法三 : 单击 VB 窗口的 关闭 按钮 如果当前应用程序没有保存, 系统将提示是否保存 此时, 选择 是, 则将文件保存后退出 VB; 选择 否, 则放弃保存直接退出 科学出版社职教技术出版中心

18 第 1 章认识 Visual Basic Visual Basic 集成开发环境 在 VB 6.0 应用程序集成开发环境中, 一个新工程连同一些窗口和工具被自动打开, 如图 1.2 所示 VB 集成开发环境由若干部分组成, 主要包括主窗口 窗体窗口 工具箱 工程资源管理器 属性窗口 窗体布局窗口和立即窗口 这些窗口的确切尺寸和式样依赖于系统配置 图 1.2 VB 集成开发环境 主窗口 VB 主窗口由标题栏 菜单栏和工具栏组成 1. 标题栏标题栏用来标识 VB 集成开发环境和当前打开的工程文件名 ( 缺省为 工程 1 ) 标题栏左端为控制盒, 右端为最小化 最大化 / 还原和关闭按钮 在标题文字后面的方括号中指出了当前工程所处的工作状态,VB 有以下 3 种工作模式 (1) 设计模式 : 设计界面 设置属性和编辑代码时进入设计模式 (2) 运行模式 : 单击工具栏中 启动 按钮, 运行程序时进入运行模式, 用于演示和测试程序的功能, 此时不能编辑界面和代码 运行结束后, 系统返回设计模式 (3) 中断模式 : 程序运行过程中因某种原因中断运行, 处于调试状态时就会进入中断模式 此时可通过窗口观察 修改或调试程序 按下 F5 键或单击工具栏中 继续

19 6 高级语言程序设计 Visual Basic 按钮, 程序将继续运行 ; 单击工具栏中 结束 按钮, 程序将结束运行 2. 菜单栏 VB 菜单栏提供了 13 组下拉菜单选项 (1) 文件 (File): 打开工程 保存工程 生成可执行文件等工程管理命令 (2) 编辑 (Edit): 剪切 复制 粘贴 查找替换等编辑命令 (3) 视图 (View): 打开不同窗口的命令 (4) 工程 (Project): 添加窗体 模块 用户控件及显示工程属性的命令 (5) 格式 (Format): 格式化窗体控件的命令 (6) 调试 (Debug): 设置断点等程序调试命令 (7) 运行 (Run): 启动 中断 结束等程序运行命令 (8) 查询 (Query): 设计数据库应用程序时 SQL 属性的设置命令 (9) 图表 (Diagram): 设计数据库应用程序时图表的处理命令 (10) 工具 (Tools): 过程控制 菜单设计器 工程和环境选项等工具 (11) 外接程序 (Add-Ins): 可以增删外接程序 (12) 窗口 (Windows): 对象窗口的布局命令 (13) 帮助 (Help): 相关帮助信息 3. 工具栏 VB 提供了编辑 标准 窗体编辑器和调试 4 种工具栏 VB 集成开发环境中的默认工具栏是 标准 工具栏, 如图 1.3 所示 只需将鼠标指针在工具按钮上停几秒钟, 屏幕上将显示所指工具按钮的功能说明, 如表 1.1 所示 要显示或隐藏某个工具栏, 可以选择 视图 工具栏 命令 图 1.3 VB 集成开发环境中的标准工具栏 表 1.1 标准工具栏中的常用工具按钮 按钮名称功能 添加 Standard EXE 工程 添加窗体 菜单编辑器 添加一个新工程, 相当于 文件 菜单中的 添加工程 命令 在工程中添加一个新窗体, 相当于 工程 菜单中的 添加窗体 命令 打开菜单编辑对话框, 相当于 工具 菜单中的 菜单编辑器 命令 打开工程 保存工程打开一个已有的工程或保存一个工程 剪切 复制 粘贴将选定内容剪切 复制剪贴板及把剪贴板内容粘贴到当前插入位置 启动 中断 结束运行 暂停 结束一个应用程序的运行 工程资源管理器 属性窗口 窗体布局窗口 工具箱 打开或切换至工程资源管理器窗口 打开或切换至属性窗口 打开或切换至窗体布局窗口 打开或切换至工具箱窗口, 相当于 视图 菜单中的 工具箱 命令 科学出版社职教技术出版中心

20 第 1 章认识 Visual Basic 7 标准 工具栏的右边有两个显示区域, 显示当前窗体或当前控件在其父对象中的位置和大小, 如图 1.4 所示 窗体窗口 窗体设计器窗口位于集成开发环境的中间, 简称窗体 (Form), 是应用程序最终面向用户的窗口 从工具箱中选取所需要的控件, 在窗体上画出来, 这是 VB 应用程序界面设计的第一步 每个窗体有一个唯一的名称标识, 按照建立窗体时的顺序默认名称为 Form1 Form2 等 一个 VB 应用程序可以包含多个窗体 ( 最多可达 255 个 ), 但至少要包含一个窗体, 一个窗体最多可以容纳 255 个控件 新建一个工程, 工程下默认包含一个窗体, 缺省名为 Form1 窗体的标题栏显示该窗体的名称和窗体隶属的工程名称 窗体在设计模式时有标准网格, 这些网格用于对齐窗体上的控件 如果希望取消网格或调整网格间距, 可选择 工具 选项 通用 选项卡进行设置, 在运行模式时网格将消失 工程资源管理器 工程资源管理器, 简称 工程窗口, 用来管理当前程序包含的各类文件, 如图 1.5 所示 在工程窗口的标题栏下方从左至右有以下 3 个按钮 (1) 查看代码按钮 : 可以切换到 代码窗口, 查看和编辑代码 (2) 查看对象按钮 : 可以切换到 窗体窗口, 查看和编辑对象 (3) 切换文件夹按钮 : 折叠或展开对象文件夹中的项目列表 图 1.4 工具栏右侧显示区域 图 1.5 工程窗口 工程窗口与 Windows 下的资源管理器类似, 它以层次管理的方式显示当前应用程序下的各类文件 一个应用程序可以包含以下几类文件 (1) 工程文件 (.vbp) 和工程组文件 (.vbg): 每个工程对应一个工程文件 对于一个较复杂的应用程序, 可以含有两个以上的工程文件, 这些工程文件组成一个工程组 选择 文件 添加工程 命令可以添加一个工程 (2) 窗体文件 (.frm): 每个窗体对应一个窗体文件 窗体及其控件的属性和代码都存放在窗体文件中 选择 工程 添加窗体 命令可以添加一个窗体 (3) 窗体的二进制数据文件 (.frx): 若一个窗体中包括图片或图标等二进制信息, 则保存窗体文件.frm 的同时, 会产生一个与该窗体文件具有相同主文件名的.frx 文件 (4) 标准模块文件 (.bas): 又称程序模块文件, 主要用来声明全局变量和定义一些通用过程 选择 工程 添加模块 命令可以添加一个标准模块

21 8 高级语言程序设计 Visual Basic (5) 类模块文件 (.cls):vb 提供了大量预定义的类, 同时也允许用户根据需要定义自己的类 (6) 资源文件 (.res): 是一种可以同时存放文本 图片 声音等多种资源的纯文本文件, 可以使用简单的文本编辑器进行编辑 (7)ActiveX 控件的文件 (.ocx): 可以添加到工具箱, 并在窗体中使用 属性窗口在 VB 中, 对象分为窗体和窗体上的控件 每个对象都可以用一组属性来描述其特征, 而属性窗口就是用来设置窗体或窗体中控件的属性的 属性窗口由以下几部分组成, 如图 1.6 所示 (1) 标题栏 : 显示属性窗口名称 正在设置属性的对象名称及关闭按钮 (2) 对象列表框 : 在下拉列表中列出了当前窗体和当前窗体中各控件的名称及类型, 可查看并选择某一对象 (3) 属性排列方式 : 提供了 按字母序 和 按分类序 两种属性名称的显示方式 (4) 属性列表框 : 显示选中对象的属性, 左边为属性名, 右边为属性值 (5) 属性含义说明框 : 显示选中属性的功能说明 工具箱 图 1.6 属性窗口 工具箱窗口由工具图标组成, 如图 1.7 所示 这些图标是 VB 应用程序的构件, 称为对象或控件 工具箱中的工具分为内部控件和 ActiveX 控件 启动 VB 后, 工具箱中只有内部控件 需要 ActiveX 控件时, 可选择 工程 部件 命令将其添加到工具箱 科学出版社职教技术出版中心

22 第 1 章认识 Visual Basic 9 图 1.7 工具箱窗口 窗体布局窗口 窗体布局窗口用于指定程序运行时窗体的初始位置 用户只要用鼠标拖动如图 1.8 所示 窗体布局窗口 中的 Form 窗体的位置, 就决定了该窗体运行时的初始位置 若一个工程中有多个窗体, 在布局窗口同时可以观察多个窗体的相对布局 除上述几种窗口外,VB 集成开发环境中还有一些其他窗口, 包括代码编辑器窗口 立即窗口 本地窗口和监视窗口等 图 1.8 窗体布局窗口 本章小结 本章主要介绍了 VB 的发展过程及特点 VB 的启动与退出方式 Visual Basic 意为可视化的 BASIC, 它提供了可视化的编程工具, 采用了面向对象的程序设计思想和事件驱动的编程机制 介绍了 VB 的集成环境 主窗口的布局 常用工具栏 常用的文件类型 常用工具 详细介绍了 VB 集成环境中的窗体设计窗口 工程窗口 属性窗口 窗体布局窗口及工具箱 习 题 一 思考题 1. 启动 VB 环境的方法有哪几种? 2. 说出两种启动运行一个 VB 工程的方法

23 10 高级语言程序设计 Visual Basic 3. 关闭 VB 窗口中的工具箱后, 如何重新打开? 4. 如何打开 VB 的代码窗口? 二 选择题 1. 在 VB 集成环境中要结束一个正在运行的工程, 可单击工具栏上的按钮 A. B. C. D. 2. 在 VB 集成环境中, 要添加一个窗体, 可以单击工具栏上的按钮 A. B. C. D. 3. 在 VB 集成环境的设计模式下, 用鼠标双击窗体上的某个控件打开的窗口 是 A. 工程资源管理器窗口 B. 属性窗口 C. 工具箱窗口 D. 代码窗口 4. 在 VB 集成环境中, 可以列出工程中所有模块名称的窗口是 A. 工程资源管理器窗口 B. 窗体设计窗口 C. 属性窗口 D. 代码窗口 5. 以下关于 VB 特点的叙述中, 错误的是 A.VB 是采用事件驱动编程机制的语言 B.VB 程序既可以编译运行, 也可以解释运行 C. 构成 VB 程序的多个过程没有固定的执行顺序 D.VB 程序不是结构化程序, 不具备结构化程序的 3 种基本结构 6.VB 采用了 编程机制 A. 面向过程 B. 面向对象 C. 事件驱动 D. 可视化 7. 启动 VB 有多种方法, 以下不正确的是 A. 通过 开始 菜单的 程序 命令 B. 通过 开始 菜单的 运行 命令 C. 通过 我的电脑 找到相应程序的可执行文件 D. 通过 DOS 方式直接运行相应程序 8. 以下叙述中错误的是 A. 标准模块文件的扩展名.bas B. 标准模块文件是纯代码文件 C. 在标准模块中声明的全局变量可以在整个工程中使用 D. 在标准模块中不能定义过程 9. 在 VB 集成开发环境中, 运行 VB 程序的快捷键为 A.F1 B.F2 C.F4 D.F5 10. 快捷键的功能相当于执行文件文件菜单中的打开工程命令, 或者相当于 单击工具栏上打开工程按钮 A.Ctrl+A B.Ctrl+C C.Ctrl+X D.Ctrl+O 科学出版社职教技术出版中心

24 第 2 章设计简单的 Visual Basic 应用程序 学习目标与要求 : 熟练掌握建立应用程序的步骤 通过实例掌握添加控件 设置属性和编写代码的方法 熟练掌握常用公共属性 熟练掌握标签 文本框 命令按钮的属性 事件 熟练掌握窗体的属性 方法 事件 2.1 第一个简单的 VB 程序 如何用 VB 编写程序呢? 本节将通过一个简单的 VB 程序实例来介绍 VB 应用程序的开发过程 例 2.1 第一个简单的 VB 程序 项目说明 : 用户界面由 VB 的多个对象组成, 运行程序时出现的窗口是窗体, 窗体上有 3 个命令按钮 2 个标签和 1 个文本框 其程序运行界面如图 2.1 所示 程序运行后, 在 输入字号 文本框中输入字号, 单击 改变字号 按钮, 则可改变标签中文字大小 ; 单击 向右走 按钮, 则标签会向右移动 ; 单击 结束 按钮, 则结束程序运行 在此实例中, 窗体作为控件的容器是程序运行的窗图 2.1 程序运行界面口, 窗体和其中的控件被统称为对象 在窗体上包含了标签 文本框和命令按钮, 它们是构成 VB 应用程序的最基本的 3 个控件 下一节将以此程序为例, 介绍 VB 应用程序的设计步骤 2.2 VB 应用程序设计的基本步骤 设计 VB 应用程序一般需要以下几个步骤 (1) 创建用户界面 (2) 设置对象属性 (3) 编写事件代码 (4) 保存运行程序 下面按照以上的应用程序设计步骤来建立例 2.1 第一个简单 VB 程序, 从中了解

25 12 高级语言程序设计 Visual Basic 面向对象编程的基本思想, 体会面向对象程序开发的一般步骤 创建用户界面用户界面是应用程序与用户之间进行交互的接口, 也就是一个应用程序的运行窗口 创建用户界面就是要创建程序窗体并在窗体上添加控件, 对于一个新的应用程序来说, 要从新建工程开始 1. 新建工程和窗体启动 VB 6.0, 在 新建工程 对话框中选择新建一个 标准 EXE 工程 此时系统会自动创建 工程 1 和一个默认的窗体 Form1, 下面的操作都是在 Form1 上完成的 2. 添加控件在窗体上添加控件的方法有两种 (1) 双击工具箱中所需的控件图标, 在窗体上即出现一个默认大小的对象框, 用户可在窗体中拖动鼠标对其进行缩放及移动操作 (2) 单击工具箱中相应的控件图标, 将鼠标移到窗体上, 此时鼠标光标变为 + 号, 将 + 号移到窗体适当位置, 按下鼠标左键向右下方拖动至所需大小后松开鼠标, 此时在窗体上生成一个指定大小的对象框 下面用方法 (2) 为例 2.1 添加命令按钮 单击工具箱中的 CommandButton, 然后将鼠标指针移到窗体上, 按住鼠标左键向右下角拖拽, 得到如图 2.2 所示的命令按钮时松开鼠标左键 此时带有选择柄的命令按钮出现在窗体上, 命令按钮上显示的内容默认为 Command1, 命令按钮的名称默认也是 Command1 命令按钮的大小及位置可以通过鼠标拖拽进行修改 按上述方法, 继续添加 2 个命令按钮, 名称分别是 Command2 和 Command3 再添加 2 个标签, 名称为 Label1 和 Label2 1 个文本框, 名称为 Text1 拖拽鼠标调整好控件的大小和位置, 创建后的用户界面如图 2.3 所示 图 2.2 添加 CommandButton 控件 3. 调整对齐控件 图 2.3 添加控件后的用户界面 窗体中的多个控件常需要进行对齐和调整, 如多个控件的对齐 多个控件的间距调 整 统一大小 前后顺序的调整等 科学出版社职教技术出版中心 调整对齐控件的操作方法 : 先选定多个待调整的控件, 然后使用 格式 菜单中的

26 第 2 章设计简单的 Visual Basic 应用程序 13 相应命令 ; 或者通过 视图 菜单中的 工具栏, 选择 窗体编辑器 打开窗体编辑工具栏, 使用其中的工具进行控件的调整操作 同时选定多个对象的方法有两种 (1) 单击鼠标选中第一个控件, 然后按住 Shift 键或 Ctrl 键, 分别单击其他控件 (2) 与 Windows 下选定多个连续文件或文件夹相似, 在窗体空白处按下鼠标左键拖动鼠标光标, 将欲选定的对象包围在一虚框中然后释放鼠标左键即可 一旦成组选择控件, 被选择的控件就可以像单个控件一样进行移动 复制 删除 设置相同属性等 同时选中图 2.3 中的 3 个命令按钮并分别选择 格式 菜单, 进行 对齐 中间对齐, 水平间距 相同间距 后, 用户界面如图 2.4 所示 设置对象属性 图 2.4 调整对齐后用户界面 窗体及控件创建好以后, 并没有显示出我们要求的程序界面, 如命令按钮上的文字 标签显示的内容等, 都需要通过修改属性才能实现 设置控件对象属性要先选中一个或多个控件, 然后修改相应属性值 VB 中设置或改变对象的属性有两种方法 (1) 在界面设计阶段, 可通过属性窗口的属性框直接设置对象的属性 (2) 在编码阶段, 可通过语句来实现属性的改变, 语句格式为 : 对象. 属性名 = 属性值 下面使用方法 (1) 为例 2.1 设置对象属性 1. 设置标签属性单击标签 Label1 将其选中, 在属性窗口中找到 Caption 属性, 将其右侧属性值改为 欢迎来到 VB 世界! 再找到 AutoSize 属性, 将其属性值修改为 True, 如图 2.5 所示, 这时标签的显示内容就发生了变化, 而且标签可随显示内容自动调整大小 在属性窗口中继续找到 Font 属性, 用来设置标签显示文字的字体, 单击右侧按钮, 弹出 字体 对话框, 如图 2.6 所示 将字体设置为 宋体, 字形设置为 粗体 大小设置为 9, 然后单击 确定 按钮 这时标签的标题按照指定的字体 字形和大小显示 图 2.5 为标签设置属性 图 2.6 字体 对话框

27 14 高级语言程序设计 Visual Basic 2. 设置文本框属性单击选中文本框 Text1, 在属性窗口找到 Text 属性, 将其属性的当前值 Text1 清空 3. 设置命令按钮属性单击命令按钮 Command1, 在属性窗口左列栏中找到的 Caption 属性, 将其属性的当前值 Command1 改为 改变字号 用同样的方法, 分别将命令按钮 Command2 和 Command3 的 Caption 属性的当前值改为 向右走 和 结束 这样, 应用程序的用户界面外观已经设计完成, 接下来要进入编码阶段 编写事件代码每个窗体有自己的代码窗口, 专门用于显示和编辑应用程序源代码, 如图 2.7 所示 打开代码窗口有以下 3 种方法 (1) 由 视图 菜单中选择 代码窗口 命令 (2) 从工程资源管理窗口中选择一个窗体或标准模块, 并单击 查看代码 按钮 (3) 双击要查看或编辑代码的窗体或控件本身 1. 代码窗口 代码窗口中各部分组成如下 图 2.7 代码窗口 (1) 对象列表框 : 单击对象列表框下拉按钮, 可显示窗体中已经添加的所有对象名 其中, 通用 表示与特定对象无关的通用代码, 一般利用它声明模块级变量或用户编写自定义过程 (2) 过程列表框 : 在对象列表框选择某一对象名, 在过程列表框中选择事件过程名, 代码窗口中会自动生成该对象指定事件过程头及过程尾, 用户可以在过程头尾内的代码编辑区中输入代码 (3) 代码编辑区 : 用户在此输入和编辑代码 (4) 过程查看 按钮 : 单击该按钮, 代码窗口只能显示出所选定过程代码 (5) 全模块查看 按钮 : 单击该按钮, 代码窗口中显示模块中全部过程代码 科学出版社职教技术出版中心

28 第 2 章设计简单的 Visual Basic 应用程序 编写过程代码添加到窗体上的控件还不能完成其功能, 如果希望单击命令按钮时能执行某些操作, 则需要编写相应的事件代码 双击例 2.1 窗体上的 改变字号 命令按钮, 打开 Command1 的代码 (Code) 窗口, 如图 2.8 所示 代码窗口中的两行程序语句是由 VB 系统自动给出的, 在这两行程序语句之间输入以下程序语句 : Label1.FontSize = Text1.Text 按上述方法, 分别双击 Command2 和 Command3 命令按钮, 分别编写它们的单击事件过程代码, 代码内容如图 2.9 所示 图 2.8 输入代码前的代码窗口 图 2.9 输入代码后的代码窗口 每输入完一行代码并按 Enter 键后,VB 会自动检查该行的语法错误 如果语句正 确, 则自动以不同颜色显示代码的不同部分, 并在运算符前后加上空格 编辑代码时,VB 接受 Windows 的编辑技术, 可以选择复制 剪切 粘贴命令, 快 速完成代码的复制 移动和删除 3. 代码编辑器 代码编辑器提供了许多便于编写 VB 代码的功能, 这些功能通过编辑器选项来设置 选择 工具 选项 命令, 打开 选项 对话框, 在该对话框中选择 编辑器 选 项卡, 如图 2.10 所示 编辑器 选项卡分为两部分, 即 代码设置 和 窗口设置 代码设置包括以下几个内容 (1) 自动语法检测 : 选择该项, 则自动校验键入的程序行的语法是否正确 (2) 要求变量声明 : 选择该项, 则强制显式声明变量, 所有变量必须先声明才能使用 (3) 自动列出成员 : 选择该项, 将在输入代码的过程中显示列表框, 列出适当的选 择参数 例如, 当输入一个控件名并跟有一个句点时, 将显示列表框并自动列出这个控件的所有属性及方法, 如图 2.11 所示 此时键入属性名的前几个字母, 就可以从列表框中选中该属性名, 按 Tab 键即可完成输入 (4) 自动显示快速信息 : 选择该项, 将自动显示关于函数及其参数的信息 (5) 自动显示数据提示 : 选择该项, 当鼠标位于某个变量上时, 自动显示该变量的值

29 16 高级语言程序设计 Visual Basic 图 2.10 代码编辑器 图 2.11 自动列出成员 (6) 自动缩进 : 选择该项, 当输入代码时, 后续行以前一行的缩进位置为起点 (7)Tab 宽度 : 设置制表符宽度, 其范围为 1~32 个空格, 默认值是 4 个空格 窗口设置包括以下几个内容 (1) 编辑时可拖放文本 : 选择该项, 则可从 代码 窗口向 立即 或者 监视 窗口内拖放文本 (2) 缺省为整个模块查询 : 选择该项, 将为新模块设置默认状态, 可以在代码窗口 内查看多个过程, 等同于按下代码窗口左下角的 全模块查看 按钮 (3) 过程分隔符 : 设置显示或隐藏出现在代码窗口中每个过程结尾处的分割线 此 选项只有在 缺省为整个模块查询 被选中时才生效 保存 装入 运行程序 至此, 我们已经创建了第一个 VB 程序, 为了验证该程序能否完成所要求的功能, 则需运行程序, 但在运行程序之前先要对工程及文件进行保存 VB 应用程序包含 4 种类型的文件 (1) 窗体文件, 扩展名为.frm (2) 工程文件, 扩展名为.vbp (3) 类模块文件, 扩展名为.cls (4) 公用的标准模块文件, 扩展名为.bas 单击保存命令,VB 会依次保存这几种类型的文件 在例 2.1 中, 只有窗体文件 (.frm) 和工程文件 (.vbp) 保存程序时, 系统提示先提示保存窗体文件再保存工程文件 1. 保存程序 单击工具栏中 保存工程 按钮, 或选择菜单 文件 保存工程 命令, 将先后弹出两个保存对话框, 第 1 个为 文件另存为 对话框, 用来保存窗体文件, 如图 2.12 所示 ; 第 2 个为 工程另存为 对话框, 用来保存工程文件, 如图 2.13 所示 在对话框中, 保存在 下拉列表框中显示的是文件的保存路径, 默认的文件保存路径为 C:\Program Files\Microsoft Visual Studio\VB98, 如果想保存在新的路径下, 则应打开 保存在 下拉列表框, 选择新的保存路径 此例中新建了一个学号文件夹 , 用来保存程序文件 科学出版社职教技术出版中心

30 第 2 章设计简单的 Visual Basic 应用程序 17 图 2.12 文件另存为 对话框 图 2.13 工程另存为 对话框 选择好保存路径后, 还要分别设置 文件名 和 保存类型, 此例中的 文件名 均为默认文件名, 保存类型 均为默认文件扩展名 如果不想使用默认文件名, 可以键入新的文件名 但是, 文件的保存类型通常使用默认保存类型, 不可任意修改, 如 窗体文件 (*.frm) 工程文件 (*.vbp) 等 需要注意的是, 如果对已保存的程序进行了修改 ( 包括界面和代码 ), 需要再次保存程序, 可以单击工具栏中 保存工程 按钮, 但是此时将不会弹出保存对话框, 而是直接在原有文件上进行更新 如果要为程序保存副本, 需要选择 文件 菜单下的 工程另存为 和 XXX.frm 另存为 命令, 分别对工程和窗体文件进行另存为操作 2. 装入程序退出 VB 系统之后, 如果想要再次运行程序, 除了需要启动 VB 系统, 还需进行程序的装入 不管一个工程包含多少窗体文件和其他模块文件, 只需装入工程文件即可 例 2.1 中通过上面的保存过程保存了两个文件, 分别是窗体文件 (Form1.frm) 和工程文件 ( 工程 1.vbp), 下一次打开程序时, 可以在 我的电脑 中, 找到工程文件 ( 工程 1.vbp) 直接双击即可 也可以通过选择 文件 打开工程 命令, 在 打开工程 对话框中打开工程文件, 如图 2.14 所示 默认的 现存 选项卡, 可以按路径找到已经存在的工程文件 最新 选项卡则显示最近使用的文件 图 2.14 打开工程 对话框 3. 运行程序 在 VB 环境中, 程序可以用解释方式运行, 也可以编译后运行, 即生成可执行文件

31 18 高级语言程序设计 Visual Basic (.EXE), 脱离 VB 环境直接在 Windows 环境下运行 (1) 解释运行 选择 运行 启动 命令, 或者单击工具栏上的 启动 按钮, 或者直接按下 F5 键都可以解释运行程序 (2) 处理程序中的错误 程序运行时, 难免会出现错误, 此时应该分析产生错误的原因, 修改错误以后才能继续编辑或运行程序, 直到程序运行结果与预期结果相同为止 程序中的错误一般分为以下 3 类 (1) 编译错误 VB 编译器遇到不正确的代码时, 就会出现编译错误, 这种错误多数是由于在键入代码时出错 例如, 可能拼错了某个关键字, 丢掉了某些必需的标点, 或使用了 If 语句却没有使用 End If 语句等 VB 具有智能编辑功能, 所以有些编译错误在编写代码时会立即被发现并给出提示, 如 语句格式不完整 或 缺少表达式 等错误, 如图 2.15 所示 而有些编译错误则在程序运行时出现提示, 如图 2.16 所示 图 2.15 编写代码时提示的编译错误 图 2.16 运行时提示的编译错误 (2) 实时错误 实时错误是指在程序运行时发生的错误 此时, 程序运行处于中断模式, 系统给出错误编号及错误位置的提示, 需要单击 调试 按钮, 返回代码窗口, 修改错误代码以后再继续运行程序 常见实时错误如下 1 要求对象 这种错误一般是由于对象名输入错误, 系统找不到相应的对象 例如, 例 2.1 在程序中文本框的名称为 Text1, 如果在程序代码中被写成 Txt1, 语句如下 : Label1.FontSize = Txt1.Text 当运行此语句时, 系统找不到 Txt1 对象, 则会出现错误提示, 如图 2.17 所示 单击 调试 按钮中断程序, 代码窗口中会提示出错的语句 ( 以黄色底纹标出 ), 将此句修改正确后需要重新运行程序 此类错误对初学者来说, 是最容易出现的一种错误 科学出版社职教技术出版中心

32 第 2 章设计简单的 Visual Basic 应用程序 19 图 2.17 实时错误 溢出, 如图 2.18 所示 这种错误是由于程序变量值引用不正确引起的 例如, 变量赋值超出其数据类型的范围, 或者除法运算的除数为 0 时, 都会导致这样的运行错误 3 下标越界, 如图 2.19 所示 这种错误是在使用数组时发生的 当引用的数组下标超出声明的数组下标范围时, 就会导致这种错误 图 2.18 实时错误 6 图 2.19 实时错误 9 (3) 逻辑错误 程序可以顺利运行完毕, 但没有产生希望的运行结果 这类错误是最难处理的, 因为没有任何错误的提示, 只能从运行结果中发现 逻辑错误一般是程序设计算法上的错误, 所以需要重新分析算法和运行结果才能改正错误 4. 调试程序程序调试过程中可以用单步调试 中断调试的方法来逐语句 逐过程地执行代码, 以帮助确定代码中错误的具体位置 (1) 单步调试 选择 调试 逐语句 命令, 或按下 F8 键, 可以使程序逐条语句运行 ; 选择 调试 逐过程 命令, 或按下 Shift+F8 键, 可以仅运行一个过程 (2) 中断调试 设置断点方法 : 将光标移动到程序中需要中断的语句位置, 选择 调试 切换断点 命令, 或者直接在代码窗口中的某语句前的空白区域单击鼠标 设置断点后的代码窗口如图 2.20 所示 ; 清除断点可以选择 调试 清除断点 命令 程序运行到断点处, 会自动中断运行, 此时, 只要将鼠标指针指向程序代码中的变量, 则会显示该变量的当前值 通过分析可以帮助发现程序中逻辑错误 5. 生成可执行文件经过运行调试后的程序, 要使其脱离 VB 环境能在 Windows 下直接运行, 就必须经过编译建立可执行文件 (1) 选择 文件 生成工程 1.exe 命令, 显示如图 2.21 所示对话框

33 20 高级语言程序设计 Visual Basic 图 2.20 设置断点后的程序代码 图 2.21 生成可执行文件 (2) 保存在 列表框中显示的是文件的保存路径, 如果不想保存在默认路径下, 应该选择新的保存路径 文件名 中显示的是生成的可执行文件名称, 默认的可执行文件与工程文件同名, 其扩展名为.exe 如果不想使用默认文件名, 则应键入新文件名 例 2.1 中, 将生成可执行文件 第一个 VB 程序.EXE (3) 单击 确定 按钮, 即可生成可执行文件 在 Windows 环境下运行时, 只需在 我的电脑 中找到该文件, 双击文件名即可 2.3 面向对象程序设计基本概念 对象是 VB 编程的核心, 窗体和控件都是对象 在例 2.1 中, 我们向窗体上添加了 3 个命令按钮, 这些命令按钮已经具备了基本的外观特征和功能, 但这并不用编写程序去实现, 这是因为 命令按钮 这个控件已经包含了这些功能的代码 这就是面向对象程序设计的特点, 不需要关心对象的详细实现过程就可以直接将其应用到程序中, 简化了编程的过程 对象与类 对象是具有特殊性质 ( 属性 ) 和行为方式 ( 方法 ) 的实体, 在现实生活中到处可以见到, 如一辆汽车可看作一个对象, 汽车的型号 价格 外观等特性称为 属性, 汽车的启动 加速 减速等是汽车行为, 称为 方法 对象的概念是相对的, 根据观察者的角度可将对象分解和综合, 如汽车还可分解为车头 车尾, 也可分解为发动机 车轮等对象, 分解后的对象又都分别具有不同的属性和行为 类是具有共同抽象的对象的集合, 在面向对象的程序设计中, 类是创建对象实例的模板, 它包含所创建对象的共同属性描述和共同行为特征的定义, 即对象是类的实例 例如, 各种各样的汽车可以看作一个汽车类, 具体到某一辆特定的汽车则称为汽车类的一个实例, 即一个对象 VB 中的类可分为两种 : 一种是由系统设计好, 可以直接使用的类 ; 另一类是由用户定义的类, 本书中重点介绍第一种 在上一节所介绍的工具箱中的标准控件均为 VB 系统设计好的标准控件类, 当开发者在窗体上 画 一个控件的过程即为该控件类的实例化, 将控件类转换成了一个控件对象, 以后简称为控件 除了用户大量使用的窗体和控件对象外,VB 还提供了一些系统对象, 如打印机 (Printer) 剪贴板(Clipboard) 科学出版社职教技术出版中心

34 第 2 章设计简单的 Visual Basic 应用程序 21 屏幕 (Screen) 等, 在后面的章节中将涉及系统对象的使用 在面向对象程序设计中, 对象 是系统中基本的运行实体 建立一个对象后, 其操作是通过与该对象有关的属性 事件和方法来描述的 属性 事件和方法也称为对象的三要素 对象的属性 1. 对象的属性属性是对象的特征, 不同的对象有不同的属性 对象常见的属性有名称 (Name) 标题 (Caption) 颜色(Color) 字体(Font) 等 2. 属性设置的两种方法 (1) 通过属性窗口设置对象的属性 属性窗口一般在 VB 环境的右侧, 如果属性窗口没有打开, 可以通过下面 3 种方式打开 1 单击 工具栏 上的属性按钮 2 选择 视图 属性窗口 3 按下 F4 键 属性窗口中可以按字母序或按分类序排列当前对象的所有属性 设置属性时, 先在左侧栏中找到相应的属性名称, 然后修改右侧的属性值 (2) 在程序中用程序语句设置 格式 : 对象名. 属性名 = 属性值例如, Label1.Caption= " 欢迎来到 VB 世界!" 则将标签 Label1 的标题属性值设置为 欢迎来到 VB 世界! 这两种方法都可以实现属性的修改, 但是又有区别 : 大多数属性在属性窗口中修改以后, 窗体中可以立刻看到控件状态的变化 如例 2.1 中, 修改标签和命令按钮的 Caption 属性以后, 立刻就可以看到窗体上的标签和命令按钮显示内容发生了变化 而如果使用方法 (2) 在程序代码中用语句实现, 则需要运行程序时属性设置才能生效 在一个程序中应该使用哪种方法设置属性需要根据实际情况考虑 但是需要注意的是, 有些属性仅允许在属性窗口中设置, 如 Name 属性 而有些属性必须在程序代码中利用语句进行设置, 如文本框的 SelStart SelLength 和 SelText 属性等 对象的事件传统高级语言使用的是面向过程 按顺序执行的编程机制, 这种编程机制的缺点是程序员必须要关心什么时候发生什么事情 VB 采用的是事件驱动的编程机制, 在这种机制下, 程序员只要编写若干个响应用户动作的事件代码, 如鼠标单击 选择命令等, 这些代码的执行则由用户启动的事件来触发

35 22 高级语言程序设计 Visual Basic 1. 事件 所谓事件 (Event), 是指由系统预先设计好的, 能被某一对象识别的动作 如单击 (Click) 双击 (DblClick) 键盘按下 (KeyPress) 载入窗体 (Load) 移动鼠标 (MouseMove) 等都是事件 不同的对象所能识别的事件不同, 如窗体能识别单击和双击事件, 而命令按钮只能识别单击事件 当事件由用户触发 ( 如窗体的 Click 事件 ) 或由系统触发 ( 如窗体的 Load 事件 ) 时, 对象就会执行该事件的代码, 即对事件作出响应 例如, 在例 2.1 中, 程序运行时, 用户单击 向右走 命令按钮时, 触发了 Command2 的单击 (Click) 事件, 相应的事件代码被执行, 从而实现了窗体上的标签向右移动 2. 事件过程 响应某个事件后, 所执行的程序代码叫做事件过程 (Event Procedure) 格式 : Private Sub 对象名 _ 事件名 ([ 参数列表 ]) 事件响应程序代码 End Sub 这里的 对象名 指的是该对象的名称属性, 事件名 是由 VB 预先定义好的该对象的事件 例如, 在例 2.1 中, 程序运行时, 用户单击 改变字号 命令按钮时, 发生了 Command1 的单击 (Click) 事件, 系统就会执行下面这个事件过程 Private Sub Command1_Click() Label1.FontSize = Text1.Text End Sub 当用户单击 向右走 结束 按钮时, 分别触发了 Command2 Command3 的 Click 事件, 系统会分别执行相应的事件过程 Private Sub Command2_Click() Label1.Left = Label1.Left End Sub Private Sub Command3_Click() End End Sub 对象的方法 在面向对象程序设计中, 引入了称为 方法 (Method) 的特殊过程和函数 方法的操作与过程和函数的操作相同, 但 方法 是特定对象的一部分, 正如 属性 和 事 件 一样 格式 : 对象名. 方法名 [ 参数列表 ] 科学出版社职教技术出版中心

36 第 2 章设计简单的 Visual Basic 应用程序 23 例如, 在 VB 中, 提供了一个名为 Print 的方法, 当把它用于不同的对象时, 可以在不同的对象上输出信息, 下面的语句可以实现在对象名为 Form1 的窗体上显示字符串 Visual Basic 程序语言设计 设计 Form1.Print "Visual Basic 程序语言设计 " 如果语句改为 : Printer.Print "Visual Basic 程序语言设计 " 执行时, 将在对象名为 Printer 的打印机上打印字符串 Visual Basic 程序语言 在调用方法时, 可以省略对象名 在这种情况下,VB 所调用的方法作为当前对象的方法, 一般把当前窗体 (Me) 作为当前对象 下面的 3 条语句, 执行时都将在当前窗体上显示字符串 Visual Basic 程序语言设计 Print "Visual Basic 程序语言设计 " Me.Print "Visual Basic 程序语言设计 " Form1.Print "Visual Basic 程序语言设计 " VB 提供了大量的方法, 了解对象的方法是学习 VB 程序设计的一个重要方面, 在以后的章节中我们将分别介绍各种对象及其方法 2.4 标签 文本框和命令按钮 在应用程序窗体中, 标签 文本框和命令按钮是 3 个必不可少的基本控件 其中, 标签仅用于在窗体上显示有关程序的文本, 而文本框既可以显示文本, 也可以用于接收用户的信息, 并在程序中使用这些信息 命令按钮可以用来控制预先编好的事件过程的发生, 是应用程序与用户进行交互最常用的控件 常用属性 VB 中的对象都有自己的属性, 其中有一部分属性是大多数控件所共同具有的, 如名称属性 (Name) 是否可见属性 (Visible) 等 下面介绍一些控件的常用属性 1.Name( 名称 ) 属性 该属性是所有对象都具有的属性, 它是所创建对象的名称, 为字符串型 所有的对象在创建时都会由 VB 自动提供一个默认名称, 如 Form1 Form2 Label1 Text2 等 Name 属性在属性窗口的第一行, 即 名称 框中进行修改 Name 属性的值将作为对象的标识在程序中被引用, 但不会显示出来 需要注意的是,Name 属性只能在属性窗口里设置, 在程序运行时是只读的, 不可以用赋值语句更改 例如,Form1.Name = "NewName" 是错误代码 2.Caption( 标题 ) 属性 该属性的值为字符串型, 表示所属对象的标题, 将显示在对象上 窗体的标题将显

37 24 高级语言程序设计 Visual Basic 示在窗体的标题栏中 在默认情况下, 对象的 Caption 属性值与 Name 属性值相同, 但 Caption 属性值可以在程序中用赋值语句重新设置 例如, Form1.Caption = " 我的窗体 " 3.Height 和 Width( 高度 宽度 ) 属性 Height 和 Width 属性用来设置和返回控件对象的高度和宽度, 属性值均为数值型, 它们决定了控件对象的大小, 如图 2.22 所示 在窗体上设计控件时,VB 自动提供了缺省 坐标系统, 窗体的上边框为坐标横轴, 左边框为坐标纵轴, 窗体左上角顶点为坐标原点 (0,0), 单位为 twip 1twip=1/20 点 =1/1440 英寸 =1/567 厘米 4.Top 和 Left( 顶边距 左边距 ) 属性 Top 和 Left 属性决定了控件对象在其父对图 2.22 控件位置属性象中的位置, 属性值为数值型 例如, 当一个命令按钮控件放置到窗体上时,Top 表示控件到窗体顶端的距离,Left 表示控件到窗体左端的距离, 如图 2.22 所示 对于窗体,Top 表示窗体到屏幕顶端的距离,Left 表示窗体到屏幕左端的距离, 此时屏幕是窗体的父对象 5.Enabled( 可用 ) 属性 该属性用来设置控件是否有效 属性值为逻辑型, 默认值为 True True: 允许用户操作, 并对操作作出响应 False: 禁止用户操作, 呈暗淡色 例如, Text1. Enabled= False 6.Visible( 可见 ) 属性 ' 使文本框 Text1 不可用 该属性用来设置控件是否可见 属性值为逻辑型, 默认值为 True True: 程序运行时控件可见 False: 程序运行时控件隐藏 7.Font( 字体 ) 属性 该属性用来设置文本的外观, 可以在程序中设置, 也可以在属性窗口中设置, 其属性对话框如图 2.23 所示, 默认情况下为宋体 小五号字 FontName: 设置字体类型, 属性值为字符串型, 如 宋体 隶书 FontSize: 设置字的大小, 属性值为整型, 如 科学出版社职教技术出版中心

38 第 2 章设计简单的 Visual Basic 应用程序 25 FontBold: 设置字形是否粗体, 属性值为逻辑型 FontItalic: 设置字形是否斜体, 属性值为逻辑型 FontStrikethru: 设置文本是否加删除线, 属性值为逻辑型 FontUnderline: 设置文本是否加下划线, 属性值为逻辑型 8.BackColor( 背景色 ) 属性 图 2.23 字体 对话框 该属性用来设置对象的背景色 ( 即正文以外的显示区域的颜色 ), 其值为十六进制常数 在属性窗口列表中选择 BackColor, 单击右边的, 将弹出一个列表, 用户可以通过选择 调色板 或 标签 内的颜色完成属性设置, 也可以直接键入颜色值, 或使用 VB 颜色常量 例如, Form1.BackColor=&HFF00AA Form1.BackColor=VBWhite ' 将窗体背景色设置为紫色 ' 将窗体背景色设置为白色 9.ForeColor( 前景色 ) 属性该属性用来设置对象的前景色 ( 即正文颜色 ), 其值是一个十六进制常数, 用户可以在 调色板 中直接选择所需颜色, 设置方法与 BackColor 属性的设置方法相同 10.BackStyle( 背景样式 ) 属性该属性用来设置对象的背景样式 属性值为数值型 0 Transparent: 透明, 即不显示控件背景色 1 Opaque: 不透明, 此时可为控件设置背景颜色 11.BorderStyle( 边框样式 ) 属性该属性用来返回和设置控件边框样式 属性值为数值型 0 None: 控件周围没有边框 1 Fixed Single: 控件带有单边框 12.Alignment( 对齐样式 ) 属性该属性用来设置正文在控件上的对齐方式 属性值为数值型 0 Left Justify: 正文左对齐 1 Right Justify: 正文右对齐 2 Center: 正文居中对齐 13.AutoSize( 自动调整 ) 属性该属性用来设置控件是否可以根据正文自动调整大小 属性值为逻辑型

39 26 高级语言程序设计 Visual Basic True: 可以自动调整大小 False: 保持原设置时的大小, 正文若太长将自动裁剪 14.TabIndex 属性 TabIndex 属性值决定了对象的 Tab 顺序, 即按 Tab 键时焦点在各个控件间轮换的顺 序 该属性值为数值型 焦点是指对象接收用户鼠标或键盘输入的能力, 当对象具有焦点时, 可接收用户的 输入, 否则将不能接收用户的输入 当向窗体上添加多个控件时, 系统会自动为它们分配一个 Tab 顺序 在默认情况下, 其 Tab 顺序与控件建立的顺序相同, 即第 1 个建立的控件的 TabIndex 属性值为 0, 第 2 个为 1, 以此类推 若要改变控件的 Tab 顺序, 可以通过设置 TabIndex 属性来实现,TabIndex 属性值可在属性窗口中或在应用程序中进行设置 需要注意的是, 在程序运行时, 不可见或无效的控件不能得到焦点, 另外 Frame 和 Label 等不需要输入操作的控件也得不到焦点 15. 控件默认属性 每个控件对象有且只有一个属性可以直接由控件名来代表 例如, 对文本框的 Text 属性赋值, 可以用 Text1 代表 Text1.Text 例如, Text1.Text="Visual Basic" 可以简写为 : Text1="Visual Basic" VB 中把这个特殊的属性叫做控件的默认属性 一般控件的默认属性是该控件最重要的属性 控件的默认属性如表 2.1 所示 表 2.1 几个常用控件的默认属性 控件默认属性控件默认属性 文本框 Text 标签 Caption 命令按钮 Value 图片框 图像框 Picture 单选钮 Value 复选框 Value 滚动条 Value 列表框 组合框 Text 标签 标签主要用来显示文本信息, 它所显示的内容只能通过对 Caption 属性的设置或修改来实现, 不能在程序运行时直接编辑 1. 属性 (1) 标签的常用属性 标签的常用属性有 Name Caption Height Width Top Left Enabled Visible FontName FontSize FontBold FontItalic FontUnderline Alignment AutoSize 和 BorderStyle 等 科学出版社职教技术出版中心

40 第 2 章设计简单的 Visual Basic 应用程序 27 例 2.2 设计程序, 使其在窗体上显示 5 个外观不同的标签控件 项目设计 : 在 Form1 窗体上添加 5 个标签, 其名称为默认值 Label1~Label5, 并在属性窗口中分别设置其属性 各属性设置如表 2.2 所示, 程序运行结果如图 2.24 所示 表 2.2 属性设置对象属性属性值对象属性属性值 Label1 Label2 Label3 Caption 左对齐 Caption 背景白色 Alignment 0 Label4 BackColor &H00FFFFFF& BorderStyle 1 BorderStyle 0 Caption 居中 Caption 前景红色 Alignment 2 Label5 ForeColor &H000000FF& BorderStyle 1 BorderStyle 0 Caption 自动 BorderStyle 1 AutoSize True 图 2.24 对齐 边框 颜色属性示例 (2)WordWrap 属性 WordWrap 属性控制 Caption 属性的内容能否自动换行, 该属性只对汉字有效 属性值为逻辑型, 默认值为 False True: 标签会改变高度与标题文本相适应, 宽度则与原来标签宽度相同 False: 标签的宽度扩展到标题中最长的一行, 在高度方向显示标题的所有行 但是注意只有将 AutoSize 属性设置为 True 时, 对 WordWrap 属性的设置才起作用 2. 事件标签的常用事件有单击 (Click) 和双击 (DblClick) 文本框文本框也称编辑框, 既可以输入 编辑文本, 也可以显示文本, 是最常用的数据输入 / 输出控件 利用文本框, 用户可以创建一个类似 记事本 的文本编辑器 1. 属性 (1) 文本框的常用属性 文本框的常用属性有 Name Height Width Top Left Enabled Visible FontName FontSize FontBold FontItalic FontUnderline 和 Alignment 等

41 28 高级语言程序设计 Visual Basic (2)Text 属性 该属性可以返回或设置文本框中的文本信息 其取值为字符串型, 默认最大长度为 2048 个字符 (3)Maxlength 属性 该属性用来设置文本框中能够输入的正文内容的最大长度 其取值为整数类型, 默认设置为 0 0: 任意长字符串, 但不能超过 32K 非零整数, 文本框中可容纳的字符数 需要注意的是, 在 VB 中字符长度以字为单位, 一个西文字符与一个汉字都是一个字, 长度为 1 (4)MultiLine 属性 该属性用来返回或设置文本框中是否可以输入多行文本 其取值为逻辑型, 默认设置为 False True: 文本框可以输入或显示多行文本, 同时具有文字处理器的自动换行功能, 即输入的正文超出文本框时会自动换行 按 Ctrl+Enter 键可插入一空行 False: 只能输入单行文本 (5)ScrollBars 属性 该属性用来设置文本框是否带有滚动条, 其取值为整数类型, 默认设置为 0 0 None: 无滚动条 1 Horizontal: 具有水平滚动条 2 Vertical: 具有垂直滚动条 3 Both: 同时具有水平和垂直滚动条 需要注意的是, 只有当 MultiLine 属性为 True 时,ScrollBars 属性才会有效 当加入了水平滚动条以后, 文本框内的自动换行功能会失效, 只有按 Enter 键才能回车换行 (6)Locked 属性 该属性用来设置文本框在运行时是否可以被编辑, 其取值为逻辑型, 默认值为 False False: 可以编辑 True: 文本框中的文本不可以被编辑, 此时文本框的作用相当于标签 (7)PasswordChar 属性 该属性为字符型, 用于将 Text 属性值显示为指定字符 在默认状态下, 该属性的值为空字符串, 当用户在文本框中输入字符时, 输入的字符可以在文本框中显示出来 如果把该属性值设为某一字符, 则当用户在文本框中输入字符时, 文本框中显示的不是输入的字符, 而是该属性的设置值 例如, 当 PasswordChar 属性设置为 * 时, 用户在文本框中输入 jsj, 在文本框中显示的是 *** 需要注意的是, 该属性不改变 Text 属性值, 只改变文本的显示结果 (8)SelStart SelLength 和 SelText 属性 用来返回程序运行时用户选中文本的相关信息, 这 3 个属性只可以在语句中调用, 不出现在属性窗口 SelStart: 整型, 返回选中文本的开始位置, 第 1 个字符的位置是 0 SelLength: 整型, 返回选中文本的长度 SelText: 字符型, 返回选中文本的内容 设置了 SelStart 和 SelLength 属性后, 系统会自动将选定的文本内容保存到 SelText 中 科学出版社职教技术出版中心

42 第 2 章设计简单的 Visual Basic 应用程序 29 例 2.3 复制文本框中所选内容 项目说明 : 设计程序, 使得单击窗体时, 程序会自动将第 1 个文本框的前 8 个字符选定并显示在第 2 个文本框中 程序运行结果如图 2.25 所示 项目设计 : (1) 创建界面 在窗体上添加 2 个文本框 Text1 Text2 其中,Text1 的 Text 属性设置为 : 文本框是一个文本编辑区域, 用户可在该区域输入 编辑 修改和显示正文内容, 即创建一个简单的文本编辑器 图 2.25 文本框应用举例 (2) 设置属性 属性设置如表 2.3 所示 表 2.3 文本框属性设置 对象属性属性值说明 Text1 Text2 MultiLine True 允许多行显示 ScrollBars 2 Vertical 只有垂直滚动条 MultiLine True 允许多行显示 ScrollBars 3 Both 同时加水平和垂直滚动条 (3) 编写代码 Private Sub Form_Click() Text1.SelStart=0 Text1.SelLength=8 Text2.Text=Text1.SelText End Sub ' 将 Text1 中的第 1 字符设为要选择文本的起点 ' 将选择文本的长度定为 8 个字符 ' 将被选择的字符串存入 Text2 中 2. 事件文本框控件支持 Change KeyPress 和 LostFocus 等多个事件 (1)Change 事件 当用户输入内容或当程序修改 Text 属性值时会触发该事件 用户每输入或删除一个字符就会触发一次 Change 事件 例如, 用户键入 Hello 时, 会发生 5 次 Change 事件 (2)LostFocus 事件 当用户按下制表键 (Tab) 或单击其他对象, 使当前文本框失去焦点时, 则触发该事件 Change 事件和 LostFocus 事件都可以用来检查 Text 属性值, 但后者更为有效 3. 方法文本框的常用方法 :SetFocus 格式 :[ 对象名.]SetFocus 功能 : 该方法可以把焦点移到指定对象中 当在窗体上建立了多个文本框后, 可以用该方法把光标置于所需要的文本框上 例如, 当单击命令按钮时, 将光标置于第一个文本框中, 需要添加如下代码

43 30 高级语言程序设计 Visual Basic Private Sub Command1_Click() Text1.SetFocus ' 让文本框 Text1 获取焦点 End Sub 说明 : 该方法还适用于可以获取焦点的其他对象, 如 CheckBox CommandButton 和 ListBox 等控件 命令按钮 在程序中, 命令按钮通常与单击事件过程相对应 在程序运行期间, 用户单击命令按钮调用相应的事件过程, 完成指定的功能 在程序运行时, 常用以下方法触发命令按钮 (1) 鼠标单击 (2) 按 Tab 键将焦点移到相应命令按钮上, 再按 Enter 键 (3) 按 Alt+ 快捷键 1. 属性 (1) 基本属性 命令按钮基本属性有 Name Height Width Top Left Enabled Visible FontName FontSize 和 BackColor 等 (2)Caption 属性 该属性为字符型, 默认属性值为 Command1~CommandN 在设置命令按钮的 Caption 属性时, 如果在某个字母前添加字符 &, 则程序运行时标题中的该字母就会带有下划线, 这个字母称为快捷键, 当用户按下 Alt+ 快捷键时, 相当于按下该命令按钮 例如, 将 Command3 的 Caption 属性设置为 退出 (&Q), 运行程序时, 用户按下 Alt+Q 键相当于单击该命令按钮 (3)Default 属性 Default 属性是命令按钮的特有属性, 属性值为逻辑型, 默认值为 False 1)True:Enter 键有效, 按下 Enter 键相当于用鼠标单击了该命令按钮 在一个窗体中只能有一个命令按钮的 Default 属性值为 True 当某个命令按钮的 Default 属性值被设置为 True 后, 该窗体中的其他所有命令按钮的 Default 属性将被自动设置为 False 2)False:Enter 键无效 (4)Cancel 属性 Cancel 属性也是命令按钮的特有属性, 属性值为逻辑型, 默认值为 False True: 按 Esc 键相当于用鼠标单击了该命令按钮 在一个窗体中只能有一个命令按钮的 Cancel 属性值为 True, 当某个命令按钮的 Cancel 属性值被设置为 True 后, 该窗体中的其他所有按钮的 Cancel 属性将被自动设置为 False False:Esc 键无效 (5)Value 属性 该属性用于检查命令按钮是否被按下, 只能在程序运行期间设置或引用 属性值为逻辑型, 默认值为 False True: 命令按钮被按下 在程序运行过程中, 如果将 Value 值设置为 True, 可以直接触发命令按钮的 Click 事件 False: 命令按钮未被按下 科学出版社职教技术出版中心

44 第 2 章设计简单的 Visual Basic 应用程序 31 (6)Style 属性 该属性用于设置命令按钮的样式 0 Standard: 命令按钮上不能显示图形 1 Graphical: 命令按钮上可以显示图形, 也可以显示文字 若要改变命令按钮颜色或者在命令按钮上显示图形, 首先必须将 Style 属性设置为 1, 然后在 Picture 属性中设置需要显示的图形文件 若在 Picture 属性中选择了图形文件, 如果 Style 属性值为 0, 则图形仍不能显示 (7)Picture 属性 该属性用来设置命令按钮上显示的图形, 前提是 Style 属性值为 1 显示的图形文件可以是.bmp 和.ico 文件 (8)ToolTipText 属性 该属性用来设置当鼠标在命令按钮上停留 1 秒时, 在其提示框中显示的提示信息, 其取值为字符型 例如, Command1.ToolTipText = " 确认后, 单击此按钮 " 2. 事件命令按钮的主要事件有 Click 事件, 命令按钮不支持 DblClick 事件 例 2.4 编写设置密码程序, 设定密码为 hello 项目说明 : 程序运行时, 用户在左侧文本框中输入密码, 然后单击 确定 命令按钮, 程序将核对用户输入的密码与事先设定的密码是否一致 如果一致, 则在右侧文本框中显示 密码正确, 继续进行! ; 若不一致, 则显示 密码错, 重新输入! 程序运行结果如图 2.26 所示 项目设计 : (1) 创建界面 在窗体 Form1 中添加 3 个命令按钮 Command1~Command3,2 个文本框 Text1 和 Text2 图 2.26 程序运行结果 (2) 设置属性 属性设置如表 2.4 所示 ( 名称属性取默认值 ) 表 2.4 属性设置 对 象 属 性 属性值 Form1 Caption 设置密码程序 Text1 Text 空 Text1 PasswordChar * Text2 Text 空 Command1 Caption 确定 Command2 Caption 清除 Command3 Caption 退出 &Q (3) 编写代码 Private sub Command1_Click()

45 32 高级语言程序设计 Visual Basic pass=text1.text If pass="hello" Then Text2.Text=" 密码正确, 继续进行!" Else Text2.Text=" 密码错, 重新输入!" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Private Sub Command3_Click() End End Sub 2.5 窗体 执行 VB 应用程序时, 桌面上的窗口就是窗体, 窗体 (Form) 是所有控件的容器 新建工程时 VB 系统会自动创建一个窗体, 默认名称为 Form1, 在保存工程时, 窗体也要作为文件保存在磁盘上, 其扩展名为.frm 窗体的常用属性 窗体的属性决定了窗体的外观, 先单击选定窗体后, 可以在属性窗口中进行窗体属性的设置 1. 基本属性 窗体的基本属性有 Name Caption Font BackColor ForeColor Height Width Left 和 Top 等 需要注意的是, 窗体的前景色是指在窗体上输出 ( 由 Print 方法输出 ) 的文本及绘制的图形的颜色, 对于其中的标签 命令按钮等控件没有影响 2.Appearance 属性 该属性用于设置窗体的显示效果, 属性值为数值型 0: 窗体显示为平面效果 1( 默认值 ): 窗体显示为立体效果 3.AutoRedraw 属性 该属性用于设置窗体失去焦点并又重新获得焦点时, 自动重绘功能是否有效, 即窗体上的内容是否会因为遮盖而消失 属性值为逻辑值 True: 自动重绘窗体上的所有内容 科学出版社职教技术出版中心

46 第 2 章设计简单的 Visual Basic 应用程序 33 False( 默认值 ): 不会自动重绘窗体上的内容 4.ControlBox 属性该属性用于设置窗体是否具有控制菜单, 属性值为逻辑值 True( 默认值 ): 窗体具有控制菜单 False: 窗体不具有控制菜单 5.Enabled 属性该属性用于设置窗体是否能够对键盘或鼠标产生的事件作出响应, 默认值为 True, 表示能够对事件作出响应 6.BorderStyle 属性该属性用于返回和设置窗体的边框样式 窗体的 BorderStyle 属性值如表 2.5 所示 表 2.5 BorderStyle 属性值 样式说明 0 None 1 Fixed Single 2 Sizable 3 Fixed Dialog 4 Fixed ToolWindow 5 Sizable ToolWindow 无边框 无标题栏, 不能改变窗体大小, 运行时任务栏上无对应按钮 固定单边框 无最大 最小化按钮, 不能改变窗体大小 可调整的边框 ( 默认值 ) 有最大 最小化按钮, 可以改变窗体大小固定对话框 有标题栏, 但无最大 最小化按钮, 不能改变窗体大小, 运行时任务栏无该窗体按钮 固定工具窗口 窗体大小不能改变, 只显示关闭按钮, 标题栏字体缩小 可变大小工具窗口 窗体大小可以改变, 只显示关闭按钮, 标题栏字体缩小 7.MaxButton 和 MinButton 属性决定窗体是否有最大化 最小化按钮 属性值为逻辑值 True( 默认值 ): 表示窗体的 最大化 最小化 按钮有效 False: 表示相应的按钮无效 这两个属性只能在属性窗口中进行设置 8.Moveable 属性该属性用于设置窗体的位置是否可以被改变 默认值为 True, 表示窗体可以被移动 9.Picture 属性该属性用于设置对象的背景图片, 设置的方法有两种 (1) 在窗体属性列表中选择 Picture, 单击其右边的按钮, 会弹出如图 2.27 所示的 加载图片 对话框 选择一个图片文件后单击 打开 按钮, 可以将选择的图片作为窗体背景图片 ; 可以加载的图片类型有位图 (.bmp) 文件 JPEG(.jpg) 文件 GIF(.gif) 文件等

47 34 高级语言程序设计 Visual Basic 图 2.27 加载图片 对话框 (2) 在程序代码中设置该属性值, 必须使用 LoadPicture 函数 例如, Form1.Picture = LoadPicture("c:\picture\lake.bmp") 通过该语句可以在运行时将 c:\picture\lake.bmp 图片文件设置为窗体 Form1 的背景图片 如果图片文件 lake.bmp 与 Form1 所在的工程文件在同一路径下, 那么在程序中可以使用下面的方法加载图片 或 Form1.Picture = LoadPicture ("lake.bmp") Form1.Picture = LoadPicture (App.Path+"\lake.bmp") 其中, 函数 LoadPicture 的参数是字符串表达式, 当参数为空时, 表示清除图片 例如, 下面的语句表示清除 Form1 中的图片 Form1.Picture = LoadPicture() 另外,LoadPicture 函数除了可以把图片加载到窗体上之外, 还可以把图片加载到图片框 (PictureBox) 和图像框 (Image) 控件上, 详见第 9 章 10.Visible 属性 该属性用于设置窗体是否可见 默认值为 True, 表示窗体可见 11.WindowsState 属性 该属性用来指定窗体启动后的初始大小, 属性值为数值型, 默认值为 0 0 窗体以正常方式显示 1 窗体最小化成图标 2 窗体以全屏方式显示 窗体的常用方法 窗体常用的方法有 Print Cls 和 Move 等 1.Print 方法 格式 :[ 对象名.]Print 表达式 科学出版社职教技术出版中心

48 第 2 章设计简单的 Visual Basic 应用程序 35 功能 : 用来在对象上输出表达式的值 说明 : (1) 当省略对象名时, 默认在当前窗体上输出 (2) 表达式在窗体上输出的位置由窗体的 CurrentX 和 CurrentY 属性决定, 在默认情况下, 从 (0,0) 开始 执行完一次 Print 方法之后,CurrentY 自动加 1, 即换到下一行 (3) 有关 Print 方法, 将在第 4 章做更详细的介绍 2.Cls 方法 格式 :[ 对象名.]Cls 功能 : 清除对象上由 Print 方法显示的文本, 或由 Pset Line Circle 等画图方法所画出的图形, 且将光标移动到窗体左上角 说明 : (1) 当省略对象名而只写 Cls 时, 默认清除当前窗体上的内容 (2) 该方法经常写为以下形式 Cls 或 Me.Cls Picture1.Cls ' 清除当前窗体 ' 清除图片框 Picture1 (3) 有关 Cls 方法, 将在第 4 章做更详细的介绍 3.Move 方法格式 :[ 对象名.]Move< 左边距 >[,< 上边距 >[,< 宽度 >[,< 高度 ]]] 功能 : 移动窗体, 且可同时改变其大小 说明 : (1) 左边距 上边距 宽度 高度均以 Twip 为单位 (2) 此方法也适用于其他可见控件, 如命令按钮 标签 文本框等 宽度与高度表示对象的大小, 左边距和右边距则表示与父对象的相对位置 如果对象是窗体, 位置是相对屏幕而言的 ; 若是放置在窗体内的控件, 位置是以窗体作参考坐标的 (3) 左边距参数是必选的 若要指定任何其他参数, 必须先指定该参数之前的参数 (4) 使用 Move 方法与修改对象的 Left Top Weight Height 等属性值具有相同的效果 4.Refresh 方法格式 :[ 对象名.] Refresh 功能 : 强制完全重绘窗体及窗体上的控件 说明 : 窗体的绘制一般是自动进行的, 并不需要使用 Refresh 方法 窗体的常用事件窗体常用的事件有 Click( 单击 ) DblClick( 双击 ) Load( 装载 ) Unload( 卸载 ) Activate( 激活 ) 等事件

49 36 高级语言程序设计 Visual Basic 1.Click 事件 当用户单击窗体的空白区域或单击窗体上的一个无效控件时,Click 事件被触发 需要说明的是,Click 事件总是在 DblClick 事件之前先被触发 要区分操作中按下的是鼠标左键还是右键, 应使用 MouseUp 或 MouseDown 事件 2.DblClick 事件 用鼠标双击窗体空白区域或双击窗体上的一个无效控件时,DblClick 事件被触发 必须保证在系统双击时限内连续两次按下鼠标左键, 才能触发 DblClick 事件 ; 如果超过时限, 将被看作单击而触发 Click 事件 在 Windows 的控制面板中设置鼠标的双击速度可以改变双击时间限制 3.Activate 事件和 Deactivate 事件 当窗体获得焦点变成活动窗体时, 就会触发 Activate 事件 当窗体不再是活动窗体 时触发 Deactivate 事件 4.Initialize 事件 当应用程序创建一个窗体时, 将触发 Initialize 事件 通过 Initialize 事件, 可以初始 化窗体需要使用的数据 窗体的 Initialize 事件发生在 Load 事件之前 5.Load 事件 把窗体装入内存工作区时触发 Load 事件 当通过 Load 方法启动应用程序或装载窗 体时, 也会触发该事件 Load 事件过程通常用于启动程序时对属性 变量进行初始化 和装载数据 Load 事件发生后, 系统还会自动发生一个 Activate 事件, 这时窗体被激活 例如, 如果希望在 Load 事件中实现输出操作, 需要先调用 Show 方法, 否则将无法输出 Private Sub Form_Load() Form1.Show Print "Visual Basic" End Sub 6.Unload 事件 在窗体被卸载时触发 Unload 事件 可以通过 Unload 事件过程来完成必要操作, 如保存数据等操作 Unload 事件过程执行完毕后, 窗体在内存中被卸载 7.Paint 事件 在应用程序运行时, 若出现下列情况就会自动触发 Paint 事件 (1) 窗体窗口被最小化成图标, 然后又恢复正常显示状态 (2) 原本遮挡着该窗体的窗体被移开并使该窗体全部或部分显露出来 科学出版社职教技术出版中心

50 第 2 章设计简单的 Visual Basic 应用程序 37 (3) 该窗体因其他窗体的移动而被全部或部分遮挡 (4) 窗体的大小改变或移动 (5) 使用 Refresh 方法 触发 Paint 事件后, 可以进行窗体的重绘 将 AutoRedraw 属性值设置为 True, 也可以自动完成窗体的重绘 例 2.5 通过编写窗体的 Load 事件代码设置窗体属性 项目说明 : 在窗体的相关事件中编写代码, 实现窗体的初始设置, 并在窗体上输出文字 当单击窗体时, 窗体的位置和大小将改变, 单击命令按钮时, 窗体更换背景图片 初始窗体运行界面如图 2.28 所示, 更换背景后窗体界面如图 2.29 所示 (1) 创建界面 : 在窗体上添加一个命令按钮, 所有属性设置均在程序代码中实现 (2) 编写代码 Private Sub Form_Load() Form1.Caption = "Visual Basic window" ' 设置窗体标题栏 Form1.Width = 8000 ' 设置窗体宽度 Form1.Height = 2500 ' 设置窗体高度 Form1.Left = 0 ' 设置窗体到屏幕的左边距 Form1.Top = 0 ' 设置窗体到屏幕的上边距 Form1.BackColor = &HFFFFFF ' 设置窗体 Form1 的背景色为白色 Form1.ForeColor = &HFF0000 ' 设置窗体 Form1 的前景色为蓝色 Form1.FontName = "roman" Form1.FontSize = 20 Command1.Left = 3000 Command1.Top = 1200 End Sub Private Sub Form_Activate() Form1.Print " 单击窗体改变窗体位置及大小 " Form1.Print " 单击按钮改变窗体背景 " End Sub Private Sub Command1_Click() ' 加载当前工程文件夹内的一幅背景图片 Form1.Picture = LoadPicture("1.jpg") End Sub Private Sub Form_Click() ' 移动窗体, 同时改变其大小 Form1.Move 1000, 1000, Form1.Width , Form1.Height ' 移动命令按钮 Command1.Move Command1.Left + 500, Command1.Top End Sub 程序运行界面如图 2.28 所示

51 38 高级语言程序设计 Visual Basic 图 2.28 窗体初始运行界面 图 2.29 窗体更换背景后运行界面 本章小结 本章介绍了 VB 对象的公共属性, 并通过一个 VB 应用程序的实例, 引入了面向对象程序设计的基本思想, 介绍了对象的 3 个基本要素 : 属性 事件和方法 讲解了标签 文本框和命令按钮 3 个控件的使用 详细介绍了窗体的属性 事件和方法 通过本章的学习让读者初步掌握了 VB 应用程序开发的步骤, 学会使用 VB 的一些常用控件, 为后面章节学习 VB 中的其他控件打下基础 习 题 一 选择题 1. 在窗体上画 1 个文本框 ( 名称为 Text 1) 和 1 个标签 ( 名称为 Label 1), 程序运 行后, 如果在文本框中输入文本, 则标签中立即显示相同的内容 以下可以实现上述操作的事件过程是 A.Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub B.Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub C.Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub D.Private Sub Label1_Click() Label1.Caption=Text1.Text End Sub 2. 以下说法中错误的是 A. 如果把一个命令按钮的 Default 属性设置为 True, 则按 Enter 键与单击该命 令按钮的作用相同 B. 可以用多个命令按钮组成命令按钮数组 C. 命令按钮只能识别单击 (Click) 事件 D. 通过设置命令按钮的 Enabled 属性, 可以使该命令按钮有效或禁用 科学出版社职教技术出版中心

52 第 2 章设计简单的 Visual Basic 应用程序 设窗体中有一个文本框 Text1, 若在程序中执行了 Text1.SetFocus, 则触发 A.Text1 的 SetFocus 事件 B.Text1 的 GotFocus 事件 C.Text1 的 LostFocus 事件 D. 窗体的 GotFocus 事件 4. 假定编写了如下 4 个窗体事件的事件过程, 则运行应用程序并显示窗体后, 已 经执行的事件过程是 A.Load B.Click C.LostFocus D.KeyPress 5. 为了使标签具有 透明 的显示效果, 需要设置的属性是 A.Caption B.Alignment C.BackStyle D.AutoSize 6. 以下叙述错误的是 A. 双击鼠标可以触发 DblClick 事件 B. 窗体或控件的事件名称可以由编程人员确定 C. 移动鼠标时, 会触发 MouseMove 事件 D. 控件的名称可以由编程人员设定 7. 在窗体上有一个名为 Text1 的文本框 当光标在文本框中时, 如果按下字母键 A, 则被调用的事件过程是 A.Form_KeyPress() B.Text1_LostFocus() C.Text1_Click() D.Text1_Change() 8. 若设置了文本框的属性 PasswordChar="$", 则运行程序时向文本框中输入 8 个 任意字符后, 文本框中显示的是 A.8 个 "$" B.1 个 "$" C.8 个 "*" D. 无任何内容 二 填空题 1. 能够被对象所识别的动作与对象可执行的动作分别称为, 2. 要把窗体 Form1 的标题改为 等级考试, 可使用的语句是 3. 当窗体的 属性设置为 时, 窗体及其中的所有控件均不可访问 4. 为了使文本框同时具有垂直和水平滚动条, 应先将 MultiLine 属性设置为 True, 然后再把 ScrollBar 属性设置为 5. 用来设置文字字体是否斜体的属性是

53 第 3 章 Visual Basic 程序设计基础 学习目标与要求 : 了解 VB 语言的语句和编码规则 熟练掌握 VB 中的数据类型和常量变量的定义与应用以及变量的作用域 掌握 VB 中的运算符和表达式的定义和使用 了解 VB 中的各类内部函数, 并掌握部分常用函数 3.1 语句和编码规则 关键字和标识符 1. 关键字 关键字又称为保留字, 是 VB 系统定义的 有特定意义的词汇, 它是程序设计语言 的组成部分 在 VB 中, 当用户在编辑窗口中输入关键字时, 系统会自动识别, 并将其 首字母改为大写 2. 标识符 程序设计常常需要为一些对象命名, 然后通过名字访问这些对象, 我们把这些自定 义的命名称为标识符 标识符通常用于标记用户自定义的常量 变量 控件 函数和过程的名字 VB 中标识符的命名应遵循如下规则 (1) 必须以字母或汉字开头 (2) 只能由字母 汉字 数字和下划线组成, 但不能直接使用 VB 的关键字 (3) 不能超过 255 个字符, 控件 窗体和模块的名字不能超过 40 个字符 (4) 在标识符的有效范围内必须是唯一的 在定义标识符的时候要尽量选用一些有意义的字符, 这样可以提高程序的可读性, 例如, 姓名可以定义为 name,3 个数可以定义为 num1 num2 和 num 语句书写规则 语句是程序设计时使用的指令, 语句的书写必须符合 VB 的规定 VB 可以设置自动语法检测, 方法为 : 选择 工具 选项 命令, 选中 编辑器 选项卡上的 自动语法检测 复选框, 这样, 系统对于不符合语法规则的语句就会给出错误提示, 并提示出错的原因 科学出版社职教技术出版中心

54 第 3 章 Visual Basic 程序设计基础 41 1.VB 语句书写格式 (1)VB 中每个语句以回车结束, 通常一行只写一条语句, 语句的长度不能超过 1023 个字符 如果一行写多条语句, 语句之间要用冒号 : 隔开 如果将一条语句断 开换行写, 需要在语句断开处用下划线 _ 结尾, 这样就表示下一行语句与本行语句属于一条语句 注意, 下划线要与最后一个字符间隔至少一个空格 如果希望在程序代码中添加注释, 则使用单引号 ', 其后面的内容表示注释, 不参与程序代码的运行 (2)VB 能够自动对语句进行简单的格式调整, 例如, 关键字的第一个字母大写, 运算符的前后加上空格等 所以在输入时不区分大小写, 例如, 输入 print a+1, 按 Enter 键结束后,VB 会自动将其调整为 Print a + 1 (3)VB 还具有自动提示的功能 例如, 当输入对象名时, 系统会提示该对象的方法 事件等, 当输入定义变量的语句时, 系统会提示变量类型, 此时只需要选择相应项再按空格键即可, 方便了手工输入 2. 命令格式中的符号约定 为了方便介绍语法格式, 本书对命令格式中的符号采用统一约定 符号的含义如下 (1)< > 中的参数为必选参数 (2)[ ] 中的参数为可选参数, 其中的内容是否选择由用户根据具体情况决定, 不影响语句本身的功能, 如果省略, 则默认为缺省值 (3) 用来分隔多个选项, 表示从多个选项中选择一项 这些符号不是命令的组成部分, 它们只是命令的书面表示方法, 在输入具体命令时, 这些符号均不可作为语句中的成分输入 3.2 常量变量与数据类型 数据是程序处理的对象, 不同类型的数据占用的空间不同, 处理的方式也不同 VB 的数据类型主要分为 3 大类 : 系统定义的基本数据类型 自定义类型和枚举类型 在程序设计中需要将数据存储为常量或变量 值不能被改变的量称为常量, 值可以被改变的量称为变量 在程序中用常量和变量表示数据是重要的程序设计思想 基本数据类型表 3.1 列出了 VB 支持的基本数据类型 表 3.1 VB 基本数据类型 数据类型 字节数 类型符 取值范围 字节型 (Byte) 1 0~255 布尔型 (Boolean) 2 True 或 False 整型 (Integer) 2 % ~32767 长整型 (Long) 4 & ~

55 42 高级语言程序设计 Visual Basic 续表 数据类型 字节数 类型符 取值范围 单精度浮点型负数从 E38~ E-45 4! (Single) 正数从 E-45~ E38 双精度浮点型负数从 D308~ D # (Double) 正数从 D-324~ D308 货币型 (Currency) 从 ~ 日期型 (Date) 年 1 月 1 日 ~9999 年 12 月 31 日 字符串型 (String) 字符串长度 $ 定长字符串型 (String* 长度 ) 字符串长度 $ 变体型 (Variant) 不定 对象型 (Object) 4 1. 字符串型 (String) (1) 字符串是由 ASCII 码字符组成的一个字符序列, 所以在字符串中字母的大小写 是有区别的, 如 "ABC" 与 "abc" 是不相等的 (2) 字符串中包含的字符个数称为字符串的长度, 如果长度为 0, 则称为空字符串 例如, "abc" ' 长度为 3 的字符串 " 中华人民共和国 " ' 长度为 7 的字符串 " " ' 由 4 个空格组成的字符串, 长度为 4 "" ' 空字符串 (3) 程序代码中的字符串需要加上定界符双引号, 但输出一个字符串时并不显示双 引号, 运行程序时从键盘上输入一个字符串也不需要输入双引号, 如图 3.1 所示 2. 数值型 (Numeric) 图 3.1 立即 窗口 数值型用来表示能够进行加 减 乘 除 整除 乘方和取模等算术运算的数值, 它包括整数类型和实数类型 (1) 整数类型 整数类型用来表示不带小数点和指数符号的整数, 它又分为整型 长整型和字节型 1 整型 (Integer): 以 2 个字节存储整数, 取值范围为 ~ 长整型 (Long): 以 4 个字节存储整数, 取值范围为 ~ 字节型 (Byte): 以 1 个字节存储整数, 取值范围为 0~255 科学出版社职教技术出版中心

56 第 3 章 Visual Basic 程序设计基础 43 (2) 实数类型 实数类型用来表示可以带有小数点或指数符号的实数, 它又分为单精度浮点型 双精度浮点型和货币型 1 单精度浮点型 (Single): 以 4 个字节存储实数, 指数部分用 E 表示 例如, E+3 ' 乘以 10 的 3 次方 取值范围为负数从 E38 ~ E-45, 正数从 E-45 ~ E38 2 双精度浮点型 (Double): 以 8 个字节存储实数, 指数部分用 D 表示 例如, D-4 ' 乘以 10 的 -4 次方 取值范围为负数从 D308~ D-324, 正数从 D-324~ D308 3 货币型 (Currency): 是为了表示货币而设置的数据类型 货币型以 8 个字节存储实数, 没有指数形式, 精确到小数点后 4 位, 超过 4 位的数字将被舍去 取值范围为 ~ 表示数值型数据时, 要根据实际情况选用恰当的数据类型, 才能加快运算速度, 提高运算效率 例如, 如果表示整数 265, 就应当选择整型 (Integer); 如果表示含小数的实数 12.27, 就应当选择单精度浮点型 (Single) 3. 日期型 (Date) 日期型用来表示日期, 存储为 8 个字节, 它可以表示的日期范围从公元 100 年 1 月 1 日 ~9999 年 12 月 31 日 日期型数据需要用定界符 # 括起来, 例如, #January 1,1993# #1 Jan 93# # # 4. 布尔型 (Boolean) 布尔型又称为逻辑型, 它只有两个值, 即真值 (True) 和假值 (False), 存储为 2 个字节 布尔型数据和数值型数据可以相互转换, 当布尔型数据转换为数值型数据时, 真转换为 -1, 假转换为 0; 当数值型数据转换为布尔型数据时, 非零转换为真,0 转换为假 5. 变体型 (Variant) 变体型是一种可变的数据类型, 它可以用来表示除了定长字符串型和自定义类型以外的任何数据类型 6. 对象型 (Object) 对象型用来表示图形 OLE 对象或其他对象, 存储为 4 个字节 自定义类型 VB 允许用户在窗体模块或标准模块的声明部分使用 Type 语句定义自己的数据类

57 44 高级语言程序设计 Visual Basic 型, 又称为记录型 格式 : [Public Private] Type 数据类型名 数据类型元素名 as 数据类型 数据类型元素名 as 数据类型 End Type 说明 : (1) 如果使用关键字 Public, 表示定义的数据类型在整个工程中都有效 ; 如果使用 关键字 Private, 表示定义的数据类型只在声明的模块中有效 在标准模块中定义时, 关 键字 Public 或 Private 都可省略, 默认为 Public; 在窗体模块中定义时, 必须加上关键字 Private (2) 数据类型名 是要定义的数据类型的名字, 数据类型元素名 是要定义的数 据类型的组成元素的名字, 它们都应遵循标识符的命名规则 (3) 数据类型 是基本数据类型或已经存在的自定义类型 例如, Type Student No as String*8 Name as String*4 Age as Integer End Type ' 定义为 8 个字符的定长字符串 ' 定义为 4 个字符的定长字符串 此例定义了一个数据类型 Student, 它包含 3 个元素 :No Name 和 Age 其中,No 和 Name 为定长字符串型,Age 为整型 枚举类型 当一个变量只有几种可能的取值时, 可以定义为枚举类型, 即将该变量的取值一一列举出来, 该变量的取值只限于列举出来的值的范围 这种方法可以提高程序的阅读性并减少错误 枚举类型可以在窗体模块 标准模块或公用类模块的声明部分使用 Enum 语句来定义 格式 : [Public Private] Enum 枚举名称成员名 1 [= 常数表达式 ] 成员名 2 [= 常数表达式 ] End Enum 说明 : 科学出版社职教技术出版中心 (1) 如果使用关键字 Public, 表示定义的枚举类型在整个工程中都有效 如果使用关键字 Private, 表示定义的枚举类型只在声明的模块中有效 关键字 Public 或 Private

58 第 3 章 Visual Basic 程序设计基础 45 都可省略, 默认为 Public (2) 枚举名称 是要定义的枚举类型的名字, 成员名 是要定义的枚举类型的组成元素的名字, 它们都应遵循标识符的命名规则 (3) 常数表达式 是可选的, 如果省略, 在默认情况下, 枚举中的第一个成员被初始化为 0, 其后的成员则被初始化为比其前一个成员大 1 的数值 例如, Public Enum Workday Monday Tuesday Wednesday Thursday Friday Saturday Sunday End Enum 此例定义了一个枚举类型 Workday, 它包含 7 个成员, 值依次为 (4) 如果不省略 常数表达式, 可以用赋值语句给枚举中的成员赋值, 所赋的值可以是任何长整型的数 例如, Public Enum Workday Monday=1 Tuesday Wednesday Thursday Friday Saturday Sunday End Enum 此例定义了一个枚举类型 Workday, 它包含 7 个成员, 第 1 个成员 Monday 的值为 1, 其他成员的值依次为 常量常量是在程序运行过程中, 值保持不变的量, 如数值 字符串等 VB 的常量分为直接常量和符号常量 1. 直接常量直接常量就是在程序中给出具体数据的值 按照数据类型分类, 直接常量又分为数值常量 字符串常量 逻辑常量或日期常量 例如, E D7 "this is a string" True # # 等

59 46 高级语言程序设计 Visual Basic VB 在处理这些常量时要对其类型进行判断, 以便合理分配存储空间, 但有些常量的类型存在多义性, 例如, 常量 7.05 可以作为单精度类型 双精度类型或者货币类型进行处理 VB 在默认情况下会将数据处理为需要内存容量最小的数据类型, 这样 7.05 就被作为单精度类型处理 用户也可以在数值的后面加上相应的类型说明符来指明常量的类型 例如,2.75! 是一个单精度浮点型常量,11.25# 是一个双精度浮点型常量 2. 符号常量符号常量是用一些有意义的名字代替永远不变的值 在程序设计中, 常常遇到一些反复出现的数值, 此时就可以定义一些符号常量来替代它们 这样, 我们看到的就不再是数字, 而是具有含义的名字, 从而增加了代码的可读性 格式 :Const 常量名 [ 类型说明 ] = 表达式 [, 常量名 [ 类型说明 ] = 表达式 ] 说明 : 常量名 是要定义的符号常量的名字, 应遵循标识符的命名规则 ; 类型说明 可以使用 As 类型 形式, 也可以使用类型说明符 ; 表达式 是用户指定的符号常量的值, 可以是数值型 字符串型 逻辑型或日期型, 也可以使用已经定义好的符号常量定义新的符号常量 如果在一行定义多个符号常量, 之间用逗号进行分隔 例如, Const Pi = Const Pi2 = Pi * 2, Pi4 = Pi * 4 Const tomorrow = #1/1/1995# Const num! = 1.25, max As Double = 变量变量实际上代表一些临时的内存单元, 在这些内存单元中存储着数据, 其内容因程序的运行而变化 变量都有变量名和数据类型, 程序通过变量名来引用变量值, 数据类型决定了变量的存储方式 1. 变量的声明变量的声明也称为变量的定义, 就是事先将变量的名称和数据类型通知给程序 声明方式分为显式声明和隐式声明 (1) 显式声明 : 在使用变量前用声明语句声明变量 格式 :Dim 变量名 [ 类型说明 ] 说明 : 1 关键字 Dim 还可以是 Static Private Public 或 Global, 它们的区别是声明的变 量的作用范围不同, 这一点将在第 8 章详细介绍 2 变量名 应遵循标识符的命名规则 3 类型说明 可以使用 As 类型 形式也可以使用类型说明符, 若未指定类型 则为变体型 例如, Dim var As Integer Public sum_1 As Double ' 定义 var 为整型变量 科学出版社职教技术出版中心 ' 定义 sum_1 为双精度浮点型变量

60 第 3 章 Visual Basic 程序设计基础 47 Dim tomorrow As Date Dim total! Dim average@ Dim x ' 定义 tomorrow 为日期型变量 ' 定义 total 为单精度浮点型变量 ' 定义 average 为货币型变量 ' 定义 x 为变体型变量 当定义变量为字符串型时, 可以通过 String* 长度 来定义定长字符串型变量 又如, Dim name1 As String ' 定义 name1 为变长字符串型变量, 长度取决于赋值 Dim name2 As String*6 ' 定义 name2 为定长字符串型变量, 长度为 6 可以用一个 Dim 语句定义多个变量, 但必须指定每个变量的数据类型, 否则为变体型 例如, Dim var1 As Integer, var2 As Integer ' 定义 var1 和 var2 都为整型变量 Dim var1, var2 As Integer ' 定义 var1 为变体型变量,var2 为整型变量 (2) 隐式声明 :VB 允许使用未经声明语句声明的变量, 这种方式称为隐式声明 例如, Private Sub Command1_Click() Var = 50 Print Var End Sub 在该过程中, 程序没有事先用声明语句声明变量 Var, 而是直接为变量 Var 赋值为 50, 这时 VB 会自动创建一个变量 Var 虽然这种方法很方便, 但是如果使用变量时把变量名拼写错了, 会导致一个难以查找的错误 为了避免这样的错误发生, 可以采用强制变量声明, 即在模块的声明段中加入语句 Option Explicit 或者选择 工具 选项 命令, 选择 编辑器 选项卡, 再选择 要求变量声明 复选框, 单击 确定 按钮, 这样 VB 就会在任何新模块中自动插入语句 Option Explicit, 如图 3.2 所示 图 3.2 设置强制变量声明 设置强制变量声明以后, 程序遇到未经声明语句声明的变量就会给出错误警告

61 48 高级语言程序设计 Visual Basic 2. 自定义类型的变量 自定义类型的变量与基本数据类型的变量的定义格式完全一样 例如, 在 节中自定义了一个数据类型 Student, 下面语句定义了一个 Student 类型的变量 lining Dim lining As Student 由于自定义类型包含多个元素, 所以引用自定义类型的变量时应指定引用了哪个元素 格式 : 变量名. 元素名 例如, lining.no lining.name lining.age 3. 枚举类型的变量 枚举类型的变量与基本数据类型的变量的定义格式完全一样 例如, 在 节中定义了一个枚举类型 Workday, 下面语句定义并引用了一个 Workday 类型的变量 mywork Dim mywork As Workday ' 定义变量 mywork 为 Workday 类型 mywork = Tuesday ' 将成员 Tuesday( 值为 2) 赋值给变量 mywork Print mywork ' 输出变量 mywork 的值, 结果为 运算符和表达式 运算符是表示数据之间运算方式的符号, 操作数是参与运算的数据, 表达式是由运算符和操作数组成的式子 例如, 算术表达式 中,1 2 是操作数, + 是运算符 需要两个操作数的运算符, 称为双目运算符 ; 只需要一个操作数的运算符, 称为单目运算符 例如, - 作为负号时只需要一个操作数, 是单目运算符 VB 提供了丰富的运算符, 可以组成多种类型的表达式 算术运算符与算术表达式 1. 算术运算符 算术运算符的功能是对数值进行算术运算 VB 支持的算术运算符如表 3.2 所示 表 3.2 算术运算符 运算符运算表达式举例表达式含义运算结果令 x=5,y=2 ^ 乘方 x ^ y x 的 y 次方 25 - 负号 -y 负 y -2 科学出版社职教技术出版中心