内容简介本书以 Visual Basic 6.0 中文版为背景, 详细介绍了 Visual Basic 程序设计的基本知识 基本语法 编程方法和常用算法, 同时将可视化界面设计与程序设计语言有机地结合, 通过内容丰富的实例较系统地介绍了使用 Visual Basic 开发 Windows 应用程序的

Transcription

1 普通高等教育 十二五 规划教材 Visual Basic 语言程序设计教程 周冰邓娟刘芳主编 石义良李欣 刘永真副主编 北 京 科学出版社职教技术出版中心

2 内容简介本书以 Visual Basic 6.0 中文版为背景, 详细介绍了 Visual Basic 程序设计的基本知识 基本语法 编程方法和常用算法, 同时将可视化界面设计与程序设计语言有机地结合, 通过内容丰富的实例较系统地介绍了使用 Visual Basic 开发 Windows 应用程序的方法, 使学生逐步领会面向对象程序设计的编程思想和程序设计技巧 本书既可作为高职 高专 本科计算机专业及非计算机专业的教学用书, 也可以作为全国计算机等级考试 ( 二级 Visual Basic) 的培训教材, 以及相关工程技术人员和计算机爱好者学习计算机程序设计的参考书 图书在版编目 (CIP) 数据 Visual Basic 语言程序设计教程 / 周冰, 邓娟, 刘芳主编. 北京 : 科学出版社,2014 ( 普通高等教育 十二五 规划教材 ) ISBN I. 1V Ⅱ. 1 周 2 邓 3 刘 III. 1BASIC 语言 - 程序设计 - 高等学校 - 教材 IV. 1TP312 中国版本图书馆 CIP 数据核字 (2013) 第 号责任编辑 : 戴薇袁星星 / 责任校对 : 刘玉靖责任印制 : 吕春珉 / 封面设计 : 东方人华平面设计部 出版 北京东黄城根北街 16 号邮政编码 : 印刷科学出版社发行各地新华书店经销 * 2014 年 1 月第一版开本 : / 年 1 月第一次印刷印张 :18 字数 : 定价 :36.00 元 ( 如有印装质量问题, 我社负责调换 < >) 销售部电话 编辑部电话 版权所有, 侵权必究举报电话 : ; ;

3 前 言 Microsoft 公司推出的 Visual Basic 是一种面向对象和采用事件驱动方式的结构化高级程 序设计语言 Visual Basic 是在 BASIC 语言基础上的进一步扩充, 是当前被广泛使用的计算 机高级程序设计语言 目前许多高等院校对 Visual Basic 课程建设十分重视, 针对非计算机专业的本 专科学 生, 采用 Visual Basic 6.0 中文企业版授课, 目的是使学生了解和掌握面向对象程序设计的基 本方法和技能, 能够通过计算机二级 Visual Basic 考试, 或能够获得职业程序员初级证书, 这也正是编者编写本书的宗旨 本书是编者长期从事计算机技术基础课程教学的结晶, 在编写内容上努力做到循序渐进, 详略得体, 重点 难点突出, 尽可能与计算机二级考试紧密结合 ; 在编写风格上以程序结构 为主线, 各章内容完整 前后呼应 ; 针对性强, 可读性好 ; 例题丰富, 一题多解 ( 即对于选择结构 循环结构 数组和过程等章节的一些例题, 采用多种思路或技巧编写出不同的程序 ) 是本书的一个突出特点 编者认为, 本书的这种编写风格有助于调动学生学习本课程的兴趣和积极性, 开拓学生的思维, 培养学生阅读程序和编写程序的能力, 以期达到学生通过对 Visual Basic 编程语言的学习, 掌握面向对象程序设计的基本技能 本书配有 Visual Basic 程序设计实验指导 ( 刘永真 李欣 石义良主编, 科学出版社 ), 以方便学生复习 测试和实验教学 本书由周冰 邓娟 刘芳任主编, 石义良 李欣 刘永真任副主编, 聂玉峰任主审 参加本书编写工作的编者多年来从事高等院校计算机应用专业本 专科的教学工作 本书的第 1 章 第 3 章 第 11 章由邓娟编写 ; 第 2 章 第 7 章 附录由周冰编写 ; 第 4 章 第 9 章由刘永真编写 ; 第 5 章 第 12 章由石义良编写 ; 第 6 章由刘芳编写 ; 第 8 章 第 10 章由李欣编写 全书由周冰统稿, 徐慧娴 宋志肖负责部分辅助工作 在本书的编写过程中, 得到了武汉科技大学城市学院教务部及信息工程学部领导的大力支持与帮助 信息工程学部的杨艳霞 曾志华 黄丽 朱倩等老师对本书的编写提出了不少修改意见, 在此, 编者对他们付出的辛勤劳动表示衷心的感谢 由于时间仓促, 书中的缺点和疏漏之处在所难免, 诚望有关专家和读者不吝批评指正 科学出版社职教技术出版中心 编者 2013 年 9 月

4 目 录 第 1 章 Visual Basic 概述 Visual Basic 的产生和发展 Visual Basic 的基本特点 Visual Basic 的版本 Visual Basic 6.0 的启动和退出 Visual Basic 6.0 的启动 Visual Basic 的退出 集成开发环境 主窗口 其他窗口 可视化程序设计的基本概念 对象的基本概念 对象的属性 事件和方法 可视化程序设计的基本步骤 13 习题 17 第 2 章窗体及基本控件 窗体的结构 窗体的三要素 窗体的属性 窗体的事件 窗体的方法 运行窗体 控件概述 基本控件 标签 文本框 命令按钮 38 习题 42 第 3 章 Visual Basic 语法基础 数据类型 基本数据类型 用户自定义数据类型 常量和变量 标识符的命名规则 48

5 iv Visual Basic 语言程序设计教程 常量 变量 运算符和表达式 算术运算符及其表达式 字符串运算符及其表达式 关系运算符及其表达式 逻辑运算符及其表达式 运算符优先级 常用内部函数 数学函数 随机数函数 字符串函数 转换函数 日期和时间函数 格式输出函数 Visual Basic 表达式的书写 63 习题 63 第 4 章顺序结构 注释语句 数据的输入 利用赋值语句输入数据 使用文本框输入数据 使用 InputBox 函数输入数据 数据的输出 Print 方法 文本框输出 MsgBox 函数 74 科学出版社职教技术出版中心 习题 76 第 5 章选择结构 If 语句 If Then 结构 If Then Else 结构 多分支 If 结构 Select Case 语句 选择结构应用举例 96 习题 98

6 目 录 v 第 6 章循环结构 循环结构的概念 循环语句的类型及循环的三要素 DO LOOP 语句 前测型 Do Loop 循环 后测型 Do Loop 循环 While Wend 循环 For Next 语句 循环的嵌套 多重循环 循环重叠的种类 嵌套循环 其他辅助控制语句 常用算法举例 累加 累乘 求最值 求素数 穷举法 循环应用举例 121 习题 122 第 7 章数组 数组的定义 数组的概念 数组的定义 静态数组与动态数组 静态数组 动态数组 一维数组的基本操作 一维数组元素赋初值 一维数组元素的输入与输出 数据的排序 二维数组的使用 控件数组 控件数组的概念 控件数组的建立 控件数组的应用 For Each Next 语句 148

7 vi Visual Basic 语言程序设计教程 7.7 数组应用举例 149 习题 151 第 8 章常用标准控件 选择控件 单选按钮 复选框 列表框 组合框 框架 滚动条 计时器 图形控件 图片框 图像框 直线控件 形状控件 179 习题 181 第 9 章过程 子过程 子过程的定义 建立子过程 子过程的调用 函数过程 函数的定义 建立函数过程 函数的调用 189 科学出版社职教技术出版中心 过程参数 参数传递 数组参数 对象参数 作用域与生存期 代码模块的概念 变量的作用域 变量生存周期 过程的作用域 过程的嵌套调用 嵌套调用 201

8 目 录 vii 递归调用 过程应用举例 202 习题 205 第 10 章多窗体 菜单与通用对话框 多窗体 MDI 窗体 菜单设计 下拉式菜单设计 弹出式菜单设计 通用对话框 文件 对话框 其他对话框 221 习题 223 第 11 章文件 文件概述 顺序文件 顺序文件的打开 顺序文件的关闭 顺序文件的写操作 顺序文件的读操作 随机文件 随机文件的打开与关闭 随机文件的读操作与写操作 随机文件记录的操作 二进制文件 二进制文件的打开和关闭 二进制文件的读写操作 文件系统控件 DriveListBox 控件 DirListBox 控件 FileListBox 控件 238 习题 239 第 12 章数据库 概述 数据库的创建与访问 创建数据库 243

9 viii Visual Basic 语言程序设计教程 访问数据库的方法 Data 控件 Data 控件的常用属性 Data 控件的常用方法 Data 控件的常用事件 Recordset 对象 数据绑定控件 ADO Connection 对象 Command 对象 Recordset 对象 采用 ADO 访问数据库的一般步骤 262 习题 268 附录程序调试与软件测试 269 参考文献 277 科学出版社职教技术出版中心

10 第 1 章 Visual Basic 概述 本章重点 : 1.1 Visual Basic 的产生和发展 Visual Basic 是 Microsoft 公司于 1991 年推出的基于 BASIC 语言的软件开发工具, 是一种基于对象的可视化编程语言 Visual 的英文含义是可视化, 即 所见即所得, 指的是开发图形用户界面 (Graphic User Interface,GUI) 的方法 Basic 是指 BASIC(Beginners All-Purpose Symbolic Instruction Code, 初学者通用符号指令代码 ) 语言 BASIC 语言短小精悍 易学易用, 是专业和业余编程人员的首选入门语言, 并且被广泛用做教学语言 Visual Basic 既继承了 BASIC 的程序设计的优点, 又增加了面向对象 事件驱动的编程机制, 提供可视化界面设计方法, 使得开发 Windows 环境下的应用程序更简单 快捷 Visual Basic 的出现背景是,1985 年问世的 Windows 操作系统在 20 世纪 90 年代迅速普及, 程序员对快速图形化应用开发的需求越来越强烈 1987 年,A.Cooper 和他的同事们在 Microsoft 编写了一个可视化开发工具的原型, 名为 Cooper, 它就是 Visual Basic 的前身 1991 年,Visual Basic 1.0 问世 Visual Basic 集成了 QuickBASIC 的语法特性 编译功能和 A.Cooper 的可视化开发环境, 允许程序员在一个所见即所得的图形界面中迅速完成开发任务 这对于以往几十年里程序员所熟悉的 编码 编译 连接 运行 的开发体验来说, 称得上是一个全新的变革 Visual Basic 从 1991 年的 1.0 版开始, 共经历了 1992 年 2.0 版 1993 年 3.0 版 1995 年 4.0 版 1997 年 5.0 版 1998 年 6.0 版共 6 种版本 各版本在开发环境和功能上都有扩充和完善 其中 6.0 版以其数据库和网络方面的优势成为目前应用最为广泛的版本 2000 年, Microsoft 又推出了 Visual Basic.NET, 该版本加强了面向对象的特性 本书以 6.0 版为软件环境进行讲解

11 2 Visual Basic 语言程序设计教程 1.2 Visual Basic 的基本特点 Visual Basic 之所以能成为被广泛应用的系统开发软件, 主要是因为其具有以下特点 1. 可视化设计 在 Visual Basic 6.0 中使用了 Microsoft Windows 图形用户界面的许多先进特性和设计思想, 在可视化环境下可以很容易地创建一个前端界面, 剩下只是在程序中加入完成所需功能的代码而已 2. 面向对象 传统的 C 语言 BASIC 语言 Pascal 语言使用的是结构化程序设计方法, 设计程序的主要工作就是设计算法和编写代码 面向对象编程 (Object-Oriented Programming,OOP) 是 20 世纪 80 年代提出来的概念, 立意于创建软件重用代码, 具备更好的模拟现实世界环境的能力, 这使它被公认为是自上而下编程的快捷工具 Visual Basic 6.0 的对象是建立在类的基础上的, 一般来说, 类是一些内容的抽象表示形式, 而对象是类所表示内容的可用示例 Visual Basic 通过类的封装而使源程序更加便于维护 因此可视化界面的设计过程其实就是对象的建立过程 3. 事件驱动 Visual Basic 6.0 通过事件来执行对象的操作 一个对象可能会产生多个事件, 每个事件驱动一段程序的运行 因此, 在事件驱动模式下, 程序的执行是依靠系统能够被识别的触发事件启动的 在设计好前端界面和对象后, 就可以利用事件驱动的特点来编写对应的代码 程序也会根据事件发生的先后次序依次执行对应的代码 4. 结构化程序设计语言 因为 Visual Basic 6.0 起源于 BASIC, 所以 BASIC 的简单易用的特性和结构化设计的特性被很好地保留下来, 不需要很多的计算机专业知识也可轻松上手 5. 多种数据库访问方式 很多应用程序都需要处理大量的数据, 数据库的作用就是对数据进行管理 存储和访问 Visual Basic 6.0 采用 JET 数据库引擎和 ODBC 技术进行数据库的访问, 支持多种类型的数据库系统, 包括 SQL Server Oracle FoxPro Access 等, 也可以访问 Excel 等电子表格 6. 网络支持 科学出版社职教技术出版中心 在应用程序中, 可以使用结构化查询语言 (Struct Query Language,SQL) 直接访问服务器上的数据库, 并提供简单的面向对象的库操作命令 多用户数据库的加锁机制和网络数

12 第 1 章 Visual Basic 概述 3 据库的编程技术, 为单机上运行的数据库提供 SQL 网络接口, 以便在分布式环境中快速而有效地实现客户 / 服务器 (Client/Server,C/S) 方案 7.ActiveX 技术 ActiveX 技术发展了原有支持对象的链接与嵌入 (Object Linking and Embedding,OLE) 技术 通过 ActiveX 技术, 可以使用其他应用程序提供的功能, 如 Word 字处理软件 Excel 电子表格及其他 Windows 应用程序, 使开发人员可以方便地使用标准的 ActiveX 部件, 调用标准接口, 实现特定的功能 1.3 Visual Basic 的版本 Visual Basic 6.0 包括三个版本, 分别是学习版 专业版和企业版 1) 学习版 (Learning Edition):Visual Basic 6.0 的基础版本, 主要供初学者使用 可以用来开发 Windows 9x 和 Windows NT(R) 应用程序 该版本包括所有的内部控件 ( 标准控件 ) 及网格 选项卡和数据绑定控件 2) 专业版 (Professional Edition): 向计算机专业人员提供了一套功能完整的工具, 包括学习版的所有功能, 还加入了附加的 ActiveX 控件 Internet Information Server 应用程序设计器 集成数据工具和数据环境 Active Data Objects 及动态 HTML 页面设计器 3) 企业版 (Enterprise Edition): 允许专业人员以小组的形式来创建强健的分布式应用程序, 是 Visual Basic 6.0 的最高版本 它包括专业版的所有特性, 加上 Back Office 工具, 如结构化查询语言服务器 (SQL Server) Microsoft 共享服务器 (Microsoft Transaction Server) 网络信息服务器 (Internet Information Server) 等 本书主要介绍 Visual Basic 6.0 中文企业版 1.4 Visual Basic 6.0 的启动和退出 Visual Basic 6.0 的启动 Visual Basic 6.0 中文企业版安装完成后, 有多种方式可以启动该项目 1. 使用 开始 程序 命令选择 开始 程序 Microsoft Visual Basic 6.0 命令, 即可启动 Visual Basic 6.0 启动 Visual Basic 6.0 后弹出 新建工程 对话框, 如图 1-1 所示 选择 新建 选项卡, 单击 打开 按钮后, 即可进入 Visual Basic 6.0 集成开发环境 2. 使用 开始 运行 命令使用此方式必须确切地掌握 Visual Basic 6.0 安装的路径 若已知 Visual Basic 6.0 安装在 D:\VB6.0\ 下, 则可选择 开始 运行 命令, 在弹出的对话框中输入 D:\VB6.0\ VB6.exe, 即可启动 Visual Basic 6.0, 如图 1-2 所示

13 4 Visual Basic 语言程序设计教程 图 1-1 新建工程 对话框 图 1-2 运行 对话框 3. 使用 我的电脑 双击 我的电脑 图标, 在 Visual Basic 6.0 安装目录下面找到可执行文件 VB6.exe, 双 击该图标, 即可启动该程序 如第 2 种打开方式所示, 若安装路径为 D:\VB6.0\, 则应进 入 D 盘的 VB6.0 文件夹下, 双击 VB6.exe 图标即可 Visual Basic 的退出 退出 Visual Basic 时, 主要有两种方式 : 1) 单击 Visual Basic 集成开发环境窗口右上角的 关闭 按钮 2) 选择 文件 退出 命令 退出时会弹出对应的保存提示对话框, 如图 1-3 所示, 保存或放弃保存文件后即会退出 Visual Basic 集成开发环境 主窗口 图 1-3 退出程序 科学出版社职教技术出版中心 安装好 Visual Basic 6.0 后, 启动运行, 会弹出 新建工程 对话框, 如图 1-1 所示 对话 框中有 3 个选项卡可供选择, 分别是 新建 选项卡 现存 选项卡和 最新 选项卡 新建 选项卡用以建立新的工程或应用程序, 如图 1-1 所示, 可以选择标准 EXE 工程

14 第 1 章 Visual Basic 概述 5 ActiveX EXE 工程等一系列不同的工程类别, 以创建各种不同类型的应用程序 ; 现存 选项卡用以打开原来已经存在的工程, 如图 1-4 所示, 可以打开在 VB98 文件夹存在的现有工程文件 ; 最新 选项卡用以打开最近建立或使用过的工程, 如图 1-5 所示, 可以非常方便 地找到并打开最近的工程文件 图 1-4 现存 选项卡图 1-5 最新 选项卡在 新建 选项卡中单击 标准 EXE 图标, 然后单击 打开 按钮或者双击 标准 EXE 图标, 即可新建标准 EXE 工程 此时出现集成开发环境的主界面, 在集成开发环境中集成了菜单栏 工具栏 工具箱 窗体设计器 工程资源管理器面板 属性窗口 窗体布局窗口等, 它们都按照默认显示方式显示在集成开发环境中, 如图 1-6 所示 其他窗口 图 1-6 Visual Basic 集成开发环境 Visual Basic 6.0 集成开发环境的操作界面与 Office 等软件操作界面类似, 都采用窗口操作方式

15 6 Visual Basic 语言程序设计教程 1. 标题栏 标题栏可以显示当前的工程名称和当前工程的状态 窗口标题栏中最左边图标的旁边显示的是当前工程的名称, 如图 1-7 所示, 工程 1 为当前工程的名称 在 Microsoft Visual Basic 后面显示的是当前的工程状态 工程的状态可以分为设计状态 运行状态和中断 (break) 状态, 分别在状态栏中显示 [ 设计 ] [ 运行 ] 和 [break], 如图 1-7~ 图 1-9 所示 图 1-7 设计状态下的标题栏 图 1-8 运行状态下的标题栏 图 1-9 中断 (break) 状态下的标题栏 在这 3 种工作状态下, 用户可以进行的操作各不相同 在设计状态下, 用户可以进行用 户界面的设计和代码的编制, 以完成应用程序的开发 ; 在运行状态下, 用户可以运行应用程序, 使用应用程序功能, 但是这时不可编辑代码, 也不可编辑界面 ; 在中断状态下, 应用程序运行暂时中断, 用户可以编辑部分代码, 以调试程序, 但不能编辑界面 在学习 Visual Basic 编程的过程中, 应该注意自己的程序所处的状态以便能够正确地处理需要的操作 2. 菜单栏 在 Visual Basic 6.0 菜单栏中, 有 13 个菜单, 如图 1-10 所示 单击展开菜单内容, 可以选择所需要的菜单命令 菜单旁边括号中的字母表示菜单的快捷键, 同时按 Alt 键和该菜单项后带下划线的字母键就可以打开与之对应的菜单 展开菜单后可以利用上 下 左 右方向键分别移动到某个菜单项, 再按 Enter 键选择相应的菜单项以执行相关命令 菜单栏中各菜单的作用如表 1-1 所示 图 1-10 菜单栏 表 1-1 菜单栏中各菜单的作用 菜单项 功 能 文件 用于创建 打开 保存 显示最近的工程及生成可执行文件 编辑 用于输入或修改程序源代码 视图 用于查看集成开发环境下程序源代码 控件 工程 用于处理控件 模块和窗体等对象 格式 用于窗体控件的对齐等格式化操作 调试 用于程序调试和查错 运行 用于程序启动 中断和停止等 查询 用于数据库表的查询及相关操作 科学出版社职教技术出版中心

16 第 1 章 Visual Basic 概述 7 续表 菜单项 功 能 图表 使用户能够用可视化的手段来表示表及其相互关系, 而且可以创建和修改应用程序所包含的数据库对象 工具 用于集成开发环境下工具的扩展 外接程序 用于为工程增加或删除外接程序 窗口 用于屏幕窗口的层叠 平铺等布局及列出所有已打开的文档窗口 帮助 帮助用户系统地学习和掌握 Visual Basic 的使用方法及程序设计方法 3. 工具栏工具栏提供了对常用命令快速访问的简单方式 当鼠标指针停留在工具按钮上方时会有相应的按钮功能提示信息出现 单击工具栏上的按钮, 就会执行该按钮所代表的操作 Visual Basic 的标准工具栏如图 1-11 所示, 标准工具栏各按钮的功能如表 1-2 所示 除此之外,Visual Basic 还提供了编辑 窗体编辑器和调试等专用的工具栏 显示其他工具栏, 可以右击标准工具栏, 或者选择 视图 工具栏 命令显示或隐藏相应的编辑 窗体编辑器和调试等专用的工具栏 各工具栏显示状态分别如图 1-12~ 图 1-15 所示 工具栏可以紧贴于菜单栏之下, 也可以拖放到窗体的其他任何地方, 或者浮动于窗体之上 图 1-11 标准工具栏 表 1-2 各工具按钮的作用 图标功能图标功能 添加标准 EXE 工程到工程组中, 单击下拉按钮可以弹出下拉列表以供选择需要的工程类型打开 菜单编辑器 对话框保存当前工程复制对象或文本查找指定文本重复上一次撤销操作暂时中断当前工程的运行打开工程资源管理器窗口打开窗体布局窗口打开工具箱打开可视化部件管理器 添加新的窗体到工程中, 单击下拉按钮可以弹出下拉列表, 选择需要的窗体类型打开已有的工程文件剪切对象或文本粘贴对象或文本撤销上一次操作开始运行当前工程结束当前工程的运行打开属性窗口打开对象浏览器窗口打开数据视图窗口数字显示当前对象的位置与大小 图 1-12 其他工具栏的调用

17 8 Visual Basic 语言程序设计教程 图 1-13 编辑 工具栏 图 1-14 窗体编辑器 工具栏 图 1-15 调试 工具栏 4. 工程资源管理器窗口 工程就是各种文件的集合 工程资源管理器窗口默认在 Visual Basic 集成开发环境的右上方 在该窗口中, 可以看到该工程及工程中的各种文件 这些文件包括工程文件 (*.vbp) 窗体文件 (*.frm) 类模块文件 (*.cls) 标准模块文件 (*.bas) 和资源文件 (*.res) 等, Visual Basic 中的常用文件扩展名及其说明如表 1-3 所示 工程资源管理器窗口上方有 3 个按钮, 分别是 查看代码 按钮 查看对象 按钮和 切换文件夹 按钮 单击 查看代码 按钮, 可以切换到当前所选择的窗体对象或其他对象的代码窗口 ; 单击 查看对象 按钮, 可以切换到当前所选择对象的对象设计窗口 ; 单击 切换文件夹 按钮, 可以将工程中的文件在按类型分层显示或不分层显示两种模式之间切换, 如图 1-16 所示 表 1-3 Visual Basic 中常用文件扩展名及其说明 扩展名 说 明.vbp 工程文件.frm 窗体模块文件, 包含窗体及其控件的正文描述 属性设置, 也含有窗体级的常数 变量和外部过程 ( 事件过程和一般过程 ) 的声明.frx 窗体的二进制数据文件, 包含窗体上控件的属性数据 对含有二进制属性 ( 例如图片或图标 ) 的任何.frx 文件均是不可编辑的, 这些文件都是自动产生的.cls 类模块文件, 与窗体模块类似, 但没有可见的用户界面 可以使用类模块创建含有方法和属性代码的自己的对象 该文件是可选项.bas 标准模块文件, 可以包含类型 常数 变量 外部过程和公共过程的公共的或模块级的声明 该文件是可选项 资源文件, 包含无须重新编辑代码便可以改变的位图 字符串和其他数据 例如, 如果计划用一种外语.res 将应用程序本地化, 可以将用户界面的全部正文串和位图存放在资源文件里, 然后将资源文件本地化, 而不是将整个应用程序本地化 一个工程最多包含一个资源文件 该文件是可选项 图 1-16 工程资源管理器窗口 ( 按类型分层显示文件 ) 5. 属性窗口 科学出版社职教技术出版中心 属性窗口默认在工程资源管理窗口的下方 按 F4 键, 或者单击工具栏中的图标, 打开属性窗口, 或者选择 视图 属性窗口 命令都可以打开或者隐藏属性窗口 在 Visual Basic 6.0 中, 窗体及窗体上的控件都有不同的属性 通过属性窗口可以设置每个对象的外观和各种数据 在初始化时, 每个控件都有一组默认的值, 称为默认值, 属性窗口如图 1-17 所示

18 第 1 章 Visual Basic 概述 9 对象下拉列表 选项卡 属性名 属性列表 属性值 属性介绍 图 1-17 属性窗口属性窗口从上至下的组成部分如下 1) 对象下拉列表 : 单击其右边的下拉按钮可弹出所选窗体及窗体所包含的所有对象的下拉列表 选中其中一个对象, 下面的属性列表则显示对应该对象的所有可编辑属性 2) 选项卡 : 可以根据自己的习惯选择对象属性的排列方式, 该排列方式有 按字母序 和 按分类序 两种, 通常属性默认按照字母排序 3) 属性列表 : 在属性列表中, 左边显示的是属性名, 右边显示的是每种属性所对应的属性值, 可以查看或修改相应属性的属性值 具有固定属性值的属性可在其下拉列表中选择其中的一种作为属性值 对于某些属性, 可直接输入相应数据作为其属性值 4) 属性介绍 : 利用鼠标选择某个对象的某种属性后, 在属性窗口最下方可以显示该属性的简要介绍信息 6. 窗体布局 窗口在属性窗口的下方是 窗体布局 窗口, 如图 1-18 所示 窗体布局 窗口中有一个小屏幕图标, 用来布置各窗体在运行时相对显示器所显示的位置, 将鼠标指针放置在 窗体布局 窗口里, 当鼠标指针变成十字箭头时, 可以直接在该窗口中用鼠标拖动小窗体图标以调整窗体运行时的位置 7. 窗体设计窗口 窗体设计窗口主要用来在窗体上设计应用程序的界面, 如图 1-19 所示 工程中的每一个窗体都有自己的窗体 图 1-18 窗体布局 窗口

19 10 Visual Basic 语言程序设计教程 设计窗口, 窗体上的对象可以随意移动或者改变大小 在窗体设计窗口中的窗体可以通过改变窗体边框上的的 3 个实心控制点 ( 亦称 句柄 ) 放大或缩小窗体 运行时窗体的大小即为所设定的窗体大小 在设计状态下的窗体上有网格显示, 方便对齐窗体上的对象 若不希望显示网格, 可以选择 工具 选项 命令, 弹出 选项 对话框, 选择 通用 选项卡, 将 窗体网格设置 选项组中的 显示网格 复选框取消勾选 ; 若需要更改网格大小, 则在 显示网格 复选框被勾选的前提下对网格单位的宽度和高度进行适当调整即可, 如图 1-20 所示 图 1-19 窗体设计窗口 图 1-20 选项 对话框 8. 代码窗口 代码窗口是对代码进行编辑的窗口, 每一个窗体都有自己的代码窗口 双击某窗体或窗体的任意对象, 或者单击工程资源管理器窗口的 查看代码 按钮, 或者选择 视图 代码窗口 命令都可以打开某个窗体所对应的代码窗口 代码窗口包括 3 部分 : 左上方的下拉列表是对象列表, 该列表列出了所有该窗体上的对象 ( 包括窗体本身 ); 右上方的下拉列表是事件列表, 列出了左边选择的对象的所有事件 ; 下方的空白区域是代码编写区, 程序都写在这个区域中, 如图 1-21 所示 在代码编写区中编辑代码的时候, 系统会自动根据用户所输入的对象列出相应的成员或者提示函数语法等, 以方便用户编写代码, 如图 1-22 所示 对象列表 代码编写区 事件列表 科学出版社职教技术出版中心 图 1-21 代码窗口 图 1-22 代码编写状态 9. 工具箱 工具箱中提供了常用的标准控件, 如图 1-23 所示 若有需要, 也可以通过单击工具菜单添加部件的方法添加需要的工具按钮

20 第 1 章 Visual Basic 概述 可视化程序设计的基本概念 对象的基本概念 Visual Basic 中的对象 (Object) 是代码和数据的集合 现实生活中的任何实体都是一个对象, 如一本书 一个人 一台计算机 一台计算机又可以分为很多不同的部件, 如主板 CPU 等, 这些部件可以分别看成单独的对象, 因此计算机对象也可以称做一个对象容器 在 Visual Basic 的环境中, 任何窗体 菜单 应用程序和可以添加到窗体中的任何控件及数据库都是一个对象, 这些对象都具有属性 事件和方法 其中窗体是一个对象, 窗体中的任何控件也分别是一个对象, 因此窗体也可以称为对象容器 对象的属性 事件和方法 1. 对象的属性 图 1-23 工具箱 现实生活中的每一个对象都有自己的一系列特征, 这些特征可以称为属性 不同的对象具有不同的属性 因此, 各种对象才会有区别 在 Visual Basic 中的每个对象的属性是指描述该对象的各种状态的性质, 如名称 (Name) 字体(Font) 等, 通过修改对象的属性能够控制对象的外观和各种操作 设置对象的属性有以下两种方法 1) 通过属性窗口设置属性 这种方法可以很容易设置某个对象的属性, 如图 1-24(a) 所示, 首先在对象下拉列表中选择需要修改属性的对象, 然后在属性列表中选择需要修改的属性, 在右边修改对应的属性值即可 例如, 可将对象 Form1 的 Caption 属性修改为 欢迎, 修改后的效果如图 1-24(b) 所示 (a) 设置前 (b) 设置后 图 1-24 在属性窗口中设置 Caption 属性

21 12 Visual Basic 语言程序设计教程 2) 通过编写代码修改属性 通过代码方式修改属性就是利用赋值的方法改变对应属性的属性值, 语法格式为对象名. 属性名 = 属性值例如, 若要设置名称为 Command1 的按钮的标题 (Caption) 为 确认, 相应的代码为 Command1.Caption=" 确认 " 2. 对象的事件 事件可以看做在对象上所发生的动作 例如, 启动计算机, 就是在计算机对象上所发生 的事件 在 Visual Basic 中的对象也有相应的事件, 只不过这些对应的事件都是预先定义好 的能够被对象所识别的操作 例如, 单击对象的动作就能够触发对应对象的单击 (Click) 事件, 不同的对象所能够响应的事件也不一样 在 Visual Basic 中, 对象的事件是固定的, 用户不能自己建立 但是用户可以描述发生某个事件后所实现的功能, 即用户可以编写对象的事件过程代码, 让对象发生相应事件后, 执行相应的代码 如果希望实现单击某个按钮弹出一个对话框, 就应该在这个按钮对象的 Click 事件中编辑弹出对话框的代码, 对象的事件过程的语法格式为 Sub 对象名 _ 事件名 () 程序代码 End Sub 编写代码时, 打开某窗体的代码窗口, 在左边的对象列表中选择需要的对象名, 然后在右边的事件列表中找到对应的事件, 则上述事件过程的代码框架会出现在代码编写区, 用户只要在事件过程的相应位置编写程序代码即可 以下代码是已经由 Visual Basic 完成的事件过程, 只需要完成其中的代码, 如 Dim a As Integer 即可, 如图 1-25 所示 图 1-25 事件过程的添加 3. 对象的方法 Private Sub Form_Load() End Sub 科学出版社职教技术出版中心 注意 : 若对象为本窗体, 则事件过程中的对象名为 Form, 因为本窗体对代码窗口而言是唯一的, 不需要用名称来区分, 但是在程序编写过程中是需要用对象名来区别不同对象的 方法是对象针对事件所执行的动作 例如, 按下电源键后计算机开机即为一种方法 对于方法的实现, 用户只关心其最终的效果, 并不关心中间的过程实现 例如, 人 ( 对象 ) 可以走动 ( 方法 ), 我们并不关心这个人是以多快的速度在走, 只是关心这个人最后走到什么地方 对象的方法也可以看做是执行了一系列动作, 只是关注最后的结果

22 第 1 章 Visual Basic 概述 13 Visual Basic 中对象的方法也是如此, 将某些操作集成为固定的方法, 可以由用户调用完成某些功能, 如对象的 Move 方法就具备实现移动对象的功能, 用户调用该方法可以移动指定的对象 调用对象方法的语法格式为对象名. 方法 [( 参数 )] 1) 当方法不需要参数或参数可选但无返回值时, 其命令的语法格式为对象名. 方法例如,Form1.Show 语句表示调用对象名为 Form1 窗体的 Show 方法,Show 方法用来显示窗体 调用该方法后, 可以显示 Form1 窗体 2) 当方法有多个参数时, 用逗号分隔各个参数 例如,Command1.Move 100, 100, 1000, 800 语句表示移动 Command1 对象, 并改变其大小 Move 方法后的 4 个参数分别表示 Command1 对象移动后横坐标为 100 Twip 纵坐标为 100 Twip, 移动后 Command1 对象的宽度为 1000 Twip, 高度为 800 Twip 注意 : 在 Visual Basic 中的窗口模式下, 单位默认的是 Twip, 即 缇,1 像素约等于 15 缇, 如分辨率 1024, 那么实际在 Visual Basic 中表示相同大小的尺寸需要使用 缇 1.7 可视化程序设计的基本步骤 可视化程序设计按以下四个基本步骤进行 :1 设计界面 ;2 设置属性 ;3 编写代码 ; 4 调试运行 下面通过一个简单的程序来具体说明这四个基本步骤 例 1.1 设计图 1-26 所示的程序, 当单击 显示 按钮时, 文本框中出现 武汉科技大学城市学院 ; 当单击 清除 按钮时, 文本框内的文字消失 ; 当单击 退出 按钮时, 对话框关闭 实现本例的可视化程序设计的基本步骤如下 1. 设计界面 图 1-26 例 1.1 运行结果 首先建立一个工程 按照前面介绍的启动 Visual Basic 的步骤启动 Visual Basic 6.0, 新建一个标准的 EXE 工程 在新建的工程中有一个名称为 Form1 的窗体, 在这个窗体上进行所需要的界面设计 界面是用户和应用程序交互的场所, 所以设计界面的时候一定要考虑用户的可操作性和方便性 在这个程序中, 需要 4 个控件对象, 它们分别是 1 个文本框控件和 3 个按钮控件 单击工具箱中的文本框图标, 当鼠标指针变成十字形后可以在窗体合适的位置拖动鼠标, 拖出一个矩形区域, 表示当前控件的大小, 松开鼠标后, 在刚刚出现的矩形区域就出现了一个文本框, 文本框中默认出现文字 Text1 ; 或者双击文本框图标也同样可以添加一个文本框控件, 当选中某个控件对象时, 会出现 8 个控制点, 然后直接通过拖曳鼠标来调整控件大小, 如图 1-27 所示

23 14 Visual Basic 语言程序设计教程 用同样的方法单击工具箱中的按钮图标, 在窗体上添加 3 个按钮, 分别调整按钮至合适大小 其默认值在按钮上分别自动出现 Command1 Command2 Command3, 如图 1-28 所示 图 1-27 添加文本框控件 图 1-28 添加按钮控件 2. 设置属性添加好需要的控件后, 为每个控件修改对应的属性 修改属性可以改变控件的外观和各种可操作属性, 方便用户和应用程序交互 修改属性的方法就是利用属性窗口分别修改每个对象需要的属性 1) 单击窗体 (Form1) 的任一空白位置 ( 不含文本框和按钮所在位置 ), 在对应的属性窗口修改 Caption 属性的值为 欢迎进入 Visual Basic 的世界! 修改后的属性窗口如图 1-29 所示 2) 用鼠标选中文本框控件 此时文本框四周出现 8 个控制点, 如图 1-30 所示 它表明 现在可以对当前文本框控件进行操作 此时在属性窗口中的对象下拉列表中显示的就是当前 选中文本框对象的名称 Text1, 表明当前属性窗口列出的是文本框 Text1 的所有属性 在属 性窗口将 Text 属性清空, 如图 1-31 所示 单击 Font 属性后的 按钮, 或者双击前面的 Font 属性名, 都可以打开 字体 对话框, 如图 1-32 所示 可以根据需要修改控件所显示的字 体, 将字体 (Font) 属性值改为宋体 二号 粗体 科学出版社职教技术出版中心 图 1-29 Form1 属性修改 图 1-30 选择文本框控件

24 第 1 章 Visual Basic 概述 15 图 1-31 修改文本框属性 图 1-32 字体 对话框 3) 修改命令按钮属性 分别选择 3 个命令按钮, 用同样的方法修改 3 个按钮的属性, 修改 Command1 的 Caption 属性值为 显示 Command2 的 Caption 属性值为 清除 Command3 的 Caption 属性值为 退出 修改后各命令按钮的属性如图 1-33 所示 各控件的属性值如表 1-4 所示 (a)command1 属性 (b)command2 属性 (c)command3 属性 图 1-33 命令按钮属性设置 表 1-4 控件属性值 控件属性属性值 Form TextBox CommandButton CommandButton CommandButton Name Form1 Caption 欢迎进入 Visual Basic 的世界! Name Text1 Text1 空白 Name Command1 Caption 显示 Name Command2 Caption 清除 Name Command3 Caption 退出

25 16 Visual Basic 语言程序设计教程 各控件属性设置完成后, 设计状态下的窗体如图 1-34 所示, 此时完成了属性修改步骤 3. 编写代码应用程序要完成用户需要的功能, 仅仅设计出界面是不够的, 还必须编写相关的代码, 由代码来实现相应的功能, 这样才完成了应用程序与用户的交互 所以在设计好用户界面后, 就要考虑用代码来完成用户需要的功能了 Visual Basic 中的代码是和对象的事件过程分不开的, 明确了响应对象的什么事件去完成什么工作, 就可以清楚地编写出代图 1-34 设置好属性的设计界面码 下面分别为 3 个按钮添加相关的单击事件代码, 以响应用户单击按钮时完成相应的工作 1) 用户单击 显示 按钮后, 应在文本框中显示文本 在代码窗口中的对象列表中选择名称为 Command1 的对象, 在事件列表中选择 Click 事件 在响应 Click 事件的过程中添加的代码如下 : Text1.Text = " 武汉科技大学城市学院 " 表示设置文本框里显示的文本为 武汉科技大学城市学院 代码窗口如图 1-35 所示 2) 用户单击 清除 按钮后, 清除文本框中的文本内容 为此在代码窗口中选择 Command2 对象, 在事件列表中同样选择 Click 事件, 添加代码如下 : Text1.Text = "" 表明设置文本框中的文本为空, 用两个引号括起来的无任何内容, 表明为空 代码窗口 如图 1-36 所示 图 1-35 Command1 的 Click 事件代码 图 1-36 Command2 的 Click 事件代码 3) 用户单击 退出 按钮后, 退出应用程序 同样, 在 Command3 的 Click 事件中描 述要完成的工作, 即退出应用程序 可以利用 End 结束语句实现此功能 代码窗口如图 1-37 所示 4. 调试运行 科学出版社职教技术出版中心 在编写完应用程序代码后还需要调试应用程序以保证其能够正确执行 选择 运行 启动 命令, 或直接单击工具栏中的 启动 按钮 ; 也可以直接按 F5 键 若程序无误, 则可以看到正确的运行结果 如图 1-38 所示, 分别单击 3 个按钮测试是否实现了需要的功能 若运行过程中有错误需要中断, 可选择 运行 中断 命令, 或直接单击工具栏中的 中断 按钮 若运行过程中需要强行结束返回设计状态, 可选择 运行 结束 命令, 或直接单击工具栏中的 结束 按钮

26 第 1 章 Visual Basic 概述 17 图 1-37 Command3 的 Click 事件代码 图 1-38 运行状态 调试过程还可以检查程序中出现的错误 若在程序运行中出现错误, 程序会在出现错误的地方提示错误 如图 1-39 和图 1-40 所示, 此时可以单击 调试 按钮进入中断状态检查程序, 单击 结束 按钮结束当前程序运行状态回到设计状态 有关程序调试的基本知识和具体操作, 本书配套实验指导书给出了详细的介绍 图 1-39 错误提示 图 1-40 系统标记错误行 实际上, 用 Visual Basic 设计程序的时候, 编写代码步骤和调试运行步骤经常重叠 在代码量比较大的程序中, 可能无法将全部代码一次性编写完成 可以将编写代码步骤和调试运行步骤反复进行, 不断完善代码, 从而完成整个工程的代码编写工作 在今后的学习中, 建议读者养成良好的编程习惯, 按照上述步骤进行程序设计的全过程 习 题 一 选择题 1. 以下叙述中错误的是 ( ) A.Visual Basic 是事件驱动型可视化编程工具 B.Visual Basic 应用程序不具有明显的开始和结束语句 C.Visual Basic 工具箱中的所有控件都具有宽度 (Width) 和高度 (Height) 属性 D.Visual Basic 中控件的某些属性只能在运行时设置 2. 以下叙述中错误的是 ( ) A. 一个工程可以包括多种类型的文件 B.Visual Basic 应用程序既能以编译方式执行, 又能以解释方式执行 C. 程序运行后, 在内存中只能驻留一个窗体 D. 对于事件驱动型应用程序, 每次运行时的执行顺序可以不一样

27 18 Visual Basic 语言程序设计教程 3. 在下面的操作中, 不能退出 Visual Basic 的是 ( ) A. 在系统控制菜单中选择 关闭 命令 B. 按 Alt+Q 组合键 C. 单击 Visual Basic 集成开发环境窗口的 关闭 按钮 D. 按 F10 键 4. 英文 Visual 的含义是 ( ) A. 结构化 B. 可视化 C. 集成 D. 调试 5.Visual Basic 6.0 共有 3 个版本, 按功能从弱到强的顺序排列应是 ( ) A. 学习版 专业版和企业版 B. 学习版 工程版和专业版 C. 学习版 企业版和专业版 D. 学习版 专业版和工程版 6.Visual Basic 中工程文件的扩展名是 ( ) A..vbp B..frm C..vbw D..frx 7.Visual Basic 中窗体文件的扩展名是 ( ) A..vbp B..frm C..vbw D..pdm 8. 下列不能打开属性窗口的操作是 ( ) A. 选择 视图 属性窗口 命令 B. 按 F4 键 C. 按 Ctrl+T 组合键 D. 单击工具栏中的 属性窗口 按钮 9. 在设计应用程序时, 通过 ( ) 窗口可以查看到应用程序工程中的所有组成部分 A. 代码 B. 窗体设计 C. 属性 D. 工程资源管理器 10. 通过以下 ( ) 窗口可以在设计时直观地调整窗体在屏幕上的位置 二 填空题 A. 代码 B. 窗体布局 C. 窗体设计 D. 属性 1.Visual Basic 应用程序中标准模块文件的扩展名是 2.Visual Basic 6.0 的主窗口由标题栏 菜单栏和 3. 窗口用于显示和修改一个对象的属性 4. 提供对常用命令的快速访问按钮 组成 5.Visual Basic 集成开发环境的 3 种工作状态是 和 三 简答题 1. 简述 Visual Basic 6.0 的主要特点 2. 简述启动和退出 Visual Basic 6.0 的方法 3. 一个工程在 Visual Basic 中有几种工作状态, 分别是什么? 4. 什么是对象, 对象的三要素是什么? 5. 如何为工程添加代码? 6. 如何运行一个程序? 科学出版社职教技术出版中心

28 第 1 章 Visual Basic 概述 19 四 编程题 编写一个程序, 界面和运行结果如图 1-41 所示, 在文本框中输入自己的姓名, 单击 确 定 按钮后, 姓名出现在按钮上 图 1-41 程序界面及运行结果

29 第 2 章 窗体及基本控件 本章重点 : 窗体 (Form) 是一个存放控件的窗口容器, 是一个可以包含其他对象的对象 在程序运 行时, 窗体成为用户与应用程序进行交互操作的界面 在 Visual Basic 中, 窗体使用灵活, 既可以同时显示程序中的所有窗体, 也可以按程序的需要显示或隐藏某些窗体 控件是放置在窗体上的程序能够直接使用的对象 它在 Visual Basic 程序设计中扮演着 重要的角色, 是 Visual Basic 程序的基本组成部分 每个控件都有自己的属性 事件和方法 学会使用各种不同的控件, 熟练地对各个控件的常用属性 事件和方法进行设置, 是进行 Visual Basic 可视化程序设计的基础, 同时合理地应用控件可让应用程序界面美观, 使操作更方便 2.1 窗体的结构 本书采用以下符号规约来描述 Visual Basic 语句 ( 或函数 ) 的语法格式 : 1)[ ]: 可选项, 表示其中的内容根据需要可有可无 2){ }: 任选项, 表示可以任选其中所罗列的内容 3) : 重复, 表示其前面的内容重复出现若干项 窗体的结构与 Windows 下的窗口十分类似, 在程序运行前 ( 即设计阶段 ), 称为窗体 ; 在程序运行后, 也可以称为窗口 在 新建工程 对话框中选择 标准 EXE 选项, 单击 确定 按钮, 即可创建第一个窗体 这个窗体就像一块空白画布, 用户可以在其上创建自己的界面, 窗体的结构如图 2-1 所示 系统菜单位于窗体的左上角, 双击其图标将关闭窗体 ; 如果单击其图标, 将显示系统下拉菜单 标题栏是窗体的标题 单击窗体的 最大化 按钮, 将使窗体扩大到整个屏幕 ; 单击 最小化 按钮, 将使窗体缩小为一个图标 ; 单击 关闭 按钮, 将关闭窗体 若需要创建新窗体, 具体步骤如下 1) 选择 工程 添加窗体 命令 科学出版社职教技术出版中心

30 第 2 章 窗体及基本控件 21 2) 在 添加窗体 对话框中选择 新建 选项卡, 再选择 窗体 选项 此时用户界面中出现 Form2, 工程资源管理器窗口中出现两个窗体, 如图 2-2 所示 图 2-1 窗体结构 图 2-2 工程资源管理器窗口 2.2 窗体的三要素 窗体的属性窗体属性决定了窗体的外观和操作, 可以用两种方法来设置窗体属性 : 一是通过属性窗口设置 ; 二是在窗体事件过程中通过程序代码设置 大部分属性既可以通过属性窗口设置, 又可以通过程序代码设置, 而有些属性只能通过程序代码或属性窗口设置 通常把只能通过属性窗口设置的属性称为只读属性 窗体的常用属性如下 1.Name( 名称 ) 属性功能 : 设置窗体的名称 此属性值只能在设计时在属性窗口中更改 运行时为只读状态, 不能调整 建议对窗体取一个有意义的名称, 以体现窗体的类型和用途等, 便于日后识别 2.AutoRedraw( 自动重画 ) 属性功能 : 设置窗体被遮盖后是否要自动重绘窗体上的内容 语法格式 : 窗体名.AutoRedraw={True False} 运行时, 如果把 AutoRedraw 属性设置为 False( 默认值 ), 则当一个窗体被其他窗体覆盖, 又显示该窗体时, 将擦掉该窗体上的所有图形 ; 如果把 AutoRedraw 属性设置为 True, 则当上述情况发生时, 将自动刷新或重画该窗体上的所有图形 例如 : Form1.AutoRedraw=True

31 22 Visual Basic 语言程序设计教程 3.BackColor( 背景色 ) 属性和 ForeColor( 前景色 ) 属性 功能 :BackColor 属性用于返回或设置对象的背景颜色,ForeColor 属性用于返回或设置 在对象里显示的图片和文本的前景颜色 BackColor 属性的语法格式 : 窗体名.BackColor[=Color] ForeColor 属性的语法格式 : 窗体名.ForeColor[=Color] 在程序代码中可用 Windows 运行环境的 RGB 颜色方案, 使用调色板或在代码中使用 RGB 或 QBColor 函数指定标准 RGB 颜色 颜色是一个十六进制常量, 每种颜色都用一个 常量表示 不过, 在设计程序时, 不必用颜色常量来设置背景色, 可以通过调色板来直观地设置 其操作是 : 选择属性窗口中的 BackColor 属性, 单击右端的下拉按钮, 将显示一个对话框, 在该对话框中选择 调色板 选项卡, 即可显示调色板, 此时只要单击调色板中的某个色块, 即可把这种颜色设置成窗体的背景色 例如, 将窗体 Form1 的背景色设置为红色, 则可使用下面三种设置方法 : Form1.BackColor = RGB(255, 0, 0) Form1.BackColor = &HFF& ( 低字节到高字节分别表示红 绿 蓝的值 ) Form1.BackColor = vbred 4.BorderStyle( 边框 ) 属性 功能 : 设置窗体的边框样式 语法格式 : 窗体名.BorderStyle={ } Visual Basic 中窗体的边框样式有 6 种不同风格, 如表 2-1 所示 表 2-1 边框样式 科学出版社职教技术出版中心 属性值 功 能 0-None 窗体无边框 固定单边框, 包含控制菜单栏 标题栏 最大化 按钮和 最小化 按钮, 其大小只能用 1-Fixed Single 最大化 按钮和 最小化 按钮改变 2-Sizable ( 默认值 ) 可调整的边框, 窗体大小可变, 并有标准的双线边界 固定对话框, 包含控制菜单栏和标题栏, 但没有 最大化 按钮和 最小化 按钮, 窗体 3-Fixed Dialog 大小不变 ( 设计时设定 ), 并有双线边界 4-Fixed ToolWindow 固定工具窗口, 窗体大小不能改变, 只显示 关闭 按钮, 并用缩小的字体显示标题栏 5-Sizable ToolWindow 可调工具窗口, 窗体大小可变, 只显示 关闭 按钮, 并用缩小的字体显示标题栏 注意 : 在运行期间,BorderStyle 属性是 只读 属性, 即只能在设计阶段设置, 不能在运行期间改变

32 第 2 章 窗体及基本控件 23 5.Caption( 标题 ) 属性功能 : 设置窗体标题栏中显示的内容 语法格式 : 窗体名.Caption= 字符串 Caption 属性和 Name 属性的区别如下 1)Name 是系统用来识别对象的, 编程时需要用它来指代各对象 ;Caption 是给用户看的, 提示用户了解该对象的作用 2)Name 可以采用系统默认的名称, 但 Caption 应根据实际情况改成意义明确的内容 3) 所有对象都有 Name 属性, 但不一定都有 Caption 属性 两者区别可参见图 2-3 Name Caption 图 2-3 Name 属性与 Caption 属性的区别 6.Enabled( 响应 ) 属性功能 : 设置窗体是否被响应 语法格式 : 窗体名.Enabled={True False} 运行时, 当窗体的 Enabled 属性值为 True( 默认值 ) 时, 表示响应 ; 为 False 时, 表示不响应 响应即鼠标指针移动到窗体标题栏或单击窗体上的控件时, 窗体会做出相应的变化 ; 不响应即通过鼠标无法操作窗体 7.Font( 字体 ) 属性功能 : 设置窗体上文本的字体 字号 字形等样式 Font 属性如表 2-2 所示

33 24 Visual Basic 语言程序设计教程 表 2-2 Font 属性 属 性 属性值类型 功 能 FontName( 字体名称 ) 字符型 决定对象上正文的字体 ( 默认为宋体 ) FontSize( 字号大小 ) 整型 决定对象上正文的字体大小 FontBold( 加粗 ) 逻辑型 决定对象上正文是否是粗体 FontItalic( 倾斜 ) 逻辑型 决定对象上正文是否是斜体 FontUnderline( 下划线 ) 逻辑型 决定对象上正文是否带下划线 FontStrikeThru( 删除线 ) 逻辑型 决定对象上正文是否加一删除线 注意 :FontBold FontItalic FontUnderline 的属性值均为逻辑值 True 或 False 例如 : Form1.FontName=" 宋体 " 'Form1 窗体中的字体为 " 宋体 " Form1.FontSize=40 'Form1 窗体中的字号大小为 40 Form1.FontBold=True Form1.FontUnderline= True 8.Left Top Height Width 属性 功能 : 决定窗体的位置和大小 语法格式 : 窗体名.Left[=x] 窗体名.Top[=y] 窗体名.Height[=Number] 窗体名.Width[=Number] 'Form1 窗体中的字加粗 'Form1 窗体中的字加下划线 注意 : 单位为 twip,1twip=1/20 点 =1/1440in=1/567cm Left Top 属性决定窗体的位置 当单击并拖动窗体的时候, 便可修改这两个属性的属性值 Height Width 属性决定窗体的大小 当选中控件时, 控件周围出现 8 个小黑方块, 鼠标指针移动到这些方块上时会变成双向箭头形状, 这时按下鼠标左键并拖动, 可改变窗体的大小, 即改变了 Height Width 属性值 具体如表 2-3 所示 表 2-3 Left Top Height Width 属性 属 性 功 能 Left 设定窗体左边界和控件左边框的相对距离 Top 设定窗体上边界和控件上边框的相对距离 Height 设定窗体的高度 Width 设定窗体的宽度 科学出版社职教技术出版中心 9.Icon( 控制图标 ) 属性 功能 : 返回或设置窗体左上角显示的图标或当窗体最小化 (WindowState=1) 时显示的图标

34 第 2 章 窗体及基本控件 25 通常该属性设置为.ico 格式的图标文件 语法格式 : 窗体名.Icon=LoadPicture(IconPath) 注意 : 此属性必须在 ControlBox 属性值设置为 True 时才有效 10.MaxButton( 最大化 按钮 ) 属性功能 : 设置窗体在执行时 最大化 按钮是否有效 语法格式 : 窗体名.MaxButton={True False} 运行时, 当窗体的 MaxButton 属性值为 True( 默认值 ) 时, 表示 最大化 按钮有效 ; 为 False 时, 表示 最大化 按钮无效 11.MinButton( 最小化 按钮 ) 属性功能 : 设置窗体在执行时 最小化 按钮是否有效 语法格式 : 窗体名.MinButton={True False} 运行时, 当窗体的 MinButton 属性值为 True( 默认值 ) 时, 表示 最小化 按钮有效 ; 为 False 时, 表示 最小化 按钮无效 例如, 若希望窗体 Form1 的 最大化 按钮无效 ( 即 Form1 的 最大化 按钮呈淡灰色 ), 则 Form1.MaxButton=False; 若希望窗体 Form1 的最小化按钮无效 ( 即 Form1 的 最小化 按钮呈淡灰色 ), 则 Form1.MinButton=False 12.MDIChild( 子窗体 ) 属性功能 : 设置这个窗体是否含有另一个 MDI 子窗体 语法格式 : 窗体名.MDIChild={True False} 当窗体的 MDIChild 属性值为 True 时, 表示有另一个 MDI 子窗体 ; 为 False( 默认值 ) 时, 表示没有另一个 MDI 子窗体, 关于 MDI 的详细介绍请见第 10 章 13.Picture( 图片 ) 属性功能 : 设置窗体的背景图片 语法格式 : 窗体名.Picture=LoadPicture (" 图形文件名 ") 例如 : Form1.Picture=LoadPicture("D:\Graphics\BEANY.bmp") 其含义是将计算机中路径 D:\Graphics\BEANY.bmp 指向的图片通过 LoadPicture( 加载图

35 26 Visual Basic 语言程序设计教程 片 ), 添加到窗体中作为窗体的背景 用该属性可以显示多种格式的图形文件, 包括.ico.bmp.wmf.gif.jpg.cur.emf.dib 等 14.Visible( 可视 ) 属性 功能 : 设置窗体在执行时是否可见 语法格式 : 窗体名.Visible={True False} 当窗体的 Visible 属性值为 True( 默认值 ) 时, 表示窗体可见 ; 为 False 时, 表示窗体隐藏 只有在运行程序时, 该属性才起作用, 即在设计阶段, 即使把窗体的 Visible 属性设置为 False, 窗体也仍然可见, 程序运行后才消失 15.WindowState( 窗体状态 ) 属性 功能 : 设置窗体在执行时的状态 语法格式 : 窗体名.WindowState={0 1 2} Visual Basic 窗体执行时有 3 种不同状态如表 2-4 所示 表 2-4 WindowState 属性 属性值 功 能 0 表示有窗口边界的正常窗口状态 1 表示以图标方式显示的最小化状态 2 表示无边框充满整个屏幕的最大化状态 窗体的事件 不同的对象对应不同事件的发生,Visual Basic 中窗体有很多事件, 通过执行相应的代码来响应相应的事件 窗体常用的事件如下 1)Activate( 激活 ) 事件 : 当窗体为被激活的当前窗口时, 触发本事件 在 Load 事件发生后, 系统自动触发 Activate 事件 2)Click( 单击 ) 事件 : 当用户单击窗体时触发本事件 3)DblClick( 双击 ) 事件 : 当用户双击窗体时触发本事件 科学出版社职教技术出版中心 注意 : 双击实际上触发两个事件, 第一次按鼠标按键时触发 Click 事件, 第二次按鼠标按键时触发 DblClick 事件 4)Deactivate( 失去激活 ) 事件 : 当窗体失去激活状态, 即另一个窗体成为当前窗口时, 触发本事件 5)Load( 加载 ) 事件 : 当加载窗体时触发本事件 往往用于在启动程序时对属性和变量进行初始化 语法格式 :

36 第 2 章 窗体及基本控件 27 Private Sub Form_load() End Sub 注意 :Load 事件发生时, 窗体是不活动的, 即 Form_Load 发生在装载窗体对象的时候 ; 而 Activate 事件发生时, 窗体是活动的, 即 Form_Activate 发生在窗体得到焦点的时候 Print 方法不能在不活动窗体上使用, 因此 Print 方法不能用于 Load 事件中 打开一个窗口, 会触发 Load 和 Activate 两个事件, 但如果让窗口失去焦点, 然后获得焦点, 只会触发 Activate 事件 6)Unload( 卸载 ) 事件 : 当关闭窗体时, 触发本事件, 将窗体从内存中卸载 当窗体被卸载再重新装入时, 窗体中所有控件都将重新初始化 语法格式 : Private Sub Form_Unload(Cancel As Integer) End Sub 窗体的方法 窗体有多个方法, 如 Show Hide Cls Move Print 等 1.Show( 显示 ) 方法和 Hide( 隐藏 ) 方法 Show 方法用于在屏幕上显示一个窗体, 如果调用方法时指定的窗体没有装载,Visual Basic 自动装载 调用 Show 方法与设置窗体 Visible 属性为 True 具有相同的效果 语法格式 : [ 窗体名 ].Show Hide 方法用于隐藏显示在屏幕上的窗体, 但不能使其卸载 当一个窗体从屏幕上隐去时, 其 Visible 属性被设置为 False, 并且该窗体上的控件也变得不可访问, 但对运行程序期间的数据引用无影响 若要隐去的窗体没有装入, 则 Hide 方法会装入该窗体但不显示 语法格式 : [ 窗体名 ].Hide 例如 : Form1.Hide Form2.Show ' 表示隐藏窗体 Form1 ' 表示显示窗体 Form2 2.Cls( 清屏 ) 方法该方法用于清除运行时窗体上或图形上用 Print 方法生成的文本和图形 语法格式 : [ 对象名 ].Cls

37 28 Visual Basic 语言程序设计教程 对象名可以是窗体或图片框 当对象名省略时, 表示清除当前窗体 例如 : Form1.Cls Cls Picture1.Cls 3.Move( 移动 ) 方法 该方法用于移动对象, 并且可以在移动时变化对象的大小 语法格式 : [ 对象名.]Move Left [,Top[,Width[,Height]]] 其中, 对象名可以是窗体和除时钟 菜单以外的所有控件 窗体名省略 ( 即未选对象名 ) 时, 默认为当前窗体 Move 方法中的 Left Top Width Height 4 个参数的单位为 twip 注意 : 1)Left 参数值是必须被设置的 2) 如果后面参数被指定, 此参数前的其他参数也必须被指定, 即如果不先指定 Left 和 Top 参数, 则无法指定 Width 参数 3) 对象坐标系的坐标原点在左上角顶点, 越向下 Top 值越大, 越向右 Left 值越大 例如 : Private Sub Form_Click() Move Left - 100, Top - 100, Width - 100, Height End Sub 运行时, 每单击一次窗体, 窗体就会向左上方移动 100 单位, 并且宽 高都减少 100 单位 4.Print( 打印 ) 方法 该方法用于输出文字信息 语法格式 : [ 对象名.]Print[ 输出项列表 ][{;,} ] 其中, 对象名省略时默认为当前窗体 注意 : 1) 输出项列表可以由 0 个 1 个或多个输出的数值表达式或字符串表达式构成 若有多个输出项, 彼此间可用逗号或分号分隔来指定输出内容格式 ; 若 Print 后什么都没有, 则输出一空行 2) 逗号, 表示分区格式, 下一个输出项将与上一个输出项间隔 14 列 3) 分号 ; 表示下一个输出项将以紧凑格式紧跟着上一个输出项输出 例 2.1 Print 的使用 程序代码 : Private Sub Form_Click() 科学出版社职教技术出版中心

38 第 2 章 窗体及基本控件 29 Print 1, 2, 3 Form1.Print Print "We"; "Study"; "VB" Print Print "***************" End Sub 运行结果如图 2-4 所示 运行窗体 图 2-4 例 2.1 运行结果 运行窗体有 3 种方法 : 1) 单击工具栏中的 启动 按钮 2) 选择 运行 启动 命令 3) 按 F5 键 例 2.2 窗体的简单应用 界面设计如图 2-5 所示 该界面中各控件及其属性设置如表 2-5 所示 图 2-5 例 2.2 界面设计 表 2-5 属性设置 控件属性属性值 Form Label OptionButton OptionButton Name Caption Name Caption BackColor Name Caption Name Caption Form1 学习之道 Label1 空白 &H00FFC0C0& Option1 上课 Option2 复习 程序代码 : Private Sub Form_Click() Label1.Caption = " 成功通过考试!" End Sub Private Sub Form_DblClick() Form1.Caption = " 欢迎你学习 VB!!"

39 30 Visual Basic 语言程序设计教程 End Sub Private Sub Option1_Click() Label1.Caption = " 听明白勤思考记下来!" End Sub Private Sub Option2_Click() Label1.Caption = " 多上机善提问多总结!" End Sub 单击窗体运行效果如图 2-6 所示, 双击窗体运行效果如图 2-7 所示 图 2-6 单击 Form 图 2-7 双击 Form 单击 上课 单选按钮运行效果如图 2-8 所示, 单击 复习 单选按钮运行效果如图 2-9 所示 2.3 控件概述 图 2-8 单击 Option1 图 2-9 单击 Option2 1.Visual Basic 中的控件分类 (1) 标准控件标准控件是工具箱中默认出现的控件, 如命令按钮 标签 文本框等, 这些控件在 Visual Basic 的可执行文件中, 因此也称为 Visual Basic 的基本控件 标准控件始终出现在工具箱中, 不能从工具箱中删除 标准控件中每个控件具体功能如表 2-6 所示 表 2-6 控件功能表序号控件图标功能 科学出版社职教技术出版中心 Pointer 指针 PictureBox 图片框 这是工具箱中唯一不绘制控件的项 在选定指针后只能改变窗体中绘制的控件的大小, 或移动这些控件 显示图形图像, 该控件可作为图形方法的输出容器, 或作为其他控件的容器

40 第 2 章 窗体及基本控件 31 续表 序号控件图标功能 Label 标签 TextBox 文本框 Frame 框架 CommandButton 命令按钮 CheckBox 复选框 OptionButton 单选按钮 ComboBox 组合框 ListBox 列表框 HScrollBar 水平滚动条 VScrollBar 垂直滚动条 Timer 定时器 DriveListBox 驱动器列表框 DirListBox 目录列表框 FileListBox 文件列表框 Shape 形状 Line 直线 Image 图像框 Data 数据 显示不想让其他用户改变的文本信息显示可以进行编辑的文本, 与标签控件相比, 用户可以改变文本框中的内容允许从图形方面或功能方面对控件分组 为了将控件分组, 首先要创建框架, 然后在框架中添加控件创建按钮, 可以通过它来执行某项命令创建一个复选框, 用它很容易指出某项的真假, 有多个选择时, 可用于显示这些选择, 并可选中多个选项允许显示多个选项, 但只能从中选择一项允许绘制一个组合列表框和文本框 使用时可从下拉列表中选择一项, 也可在文本框中输入值用于显示选项的列表, 可从这些选项中选择一项 如果包含的选项太多而无法一次显示出来, 则可滚动显示水平滚动条是一个图形工具, 在项目列表很长或者信息量很大时, 可以使用滚动条来提供简便的定位 它还可以模拟当前所在的位置 滚动条可以作为输入设备, 或者速度 数量 颜色等的指示器来使用 例如, 可以用它来控制计算机游戏的音量, 或者查看定时处理中已用的时间垂直滚动条是一个图形工具, 在项目列表很长或者信息量很大时, 可以使用滚动条来提供简便的定位 它还可以指示当前所在的位置在指定的时间间隔内产生定时器事件 该控件在设计时可见, 但在运行时不可见显示有效的磁盘驱动器显示目录和路径显示文件列表在设计时, 允许在窗体上绘制多种形状的图形 可在其中选择矩形 圆角矩形 正方形 圆角正方形 椭圆形或圆形在设计时用来在窗体上绘制各种样式的线在窗体上显示位图 图标或元文件中的图形图像 Image 控件中显示的图像可以仅是装饰性的, 与 PictureBox 相比, 它使用的资源要少一些通过窗体上被绑定的控件来访问数据库中的数据 21 OLE 允许把其他应用程序的对象链接和嵌入 Visual Basic 应用程序中 (2)ActiveX 控件 ActiveX 控件指扩展名为.ocx 的文件提供的控件, 包括各种版本 Visual Basic 提供的控件和仅在专业版和企业版中提供的控件, 另外还有许多第三方提供的 ActiveX 控件, 如动画 公用对话框 ActiveX 控件就是一段可以重复使用的编程代码和数据, 是由 ActiveX 技术创

41 32 Visual Basic 语言程序设计教程 建的一个或多个对象所组成的, 通常放在 Windows 的 System 目录下, 如图 2-10 所示 (3) 可插入对象有些对象能够添加到工具箱中, 如一个 Excel 工作表, 这时可以把它们当作控件使用, 这样的对象称为可插入对象 其中一些对象还支持 OLE 自动化, 使用这种控件就可以在 Visual Basic 应用程序中通过编程控制另一个应用程序的对象 2. 向工具箱中添加控件的方法如果希望使用标准工具箱中没有的控件, 则选择 工程 部件 命令, 在弹出的 部件 对话框中勾选需添加的控件对应的复选框, 单击 确定 按钮, 对应的控件图标则出现在工具箱中 部件 对话框如图 2-11 所示 图 2-10 增加了内部控件和 ActiveX 控件的工具箱图 2-11 部件 对话框 3. 向窗体上添加控件的方法向窗体上添加文本框控件的方法有 3 种 方法一 : 1) 单击工具箱中的文本框图标, 该图标反相显示 2) 把鼠标指针移到窗体上, 变为 + 时, 按下鼠标左键, 向右下方拖动鼠标, 窗体上 出现一个方框 3) 拖动方框到合适大小, 松开鼠标, 就在窗体上添加了一个文本框控件 方法二 : 双击工具箱中的文本框图标, 则可在窗体中显示该控件, 与第一种方法不同的 是, 利用该方法所添加控件大小 位置是固定的 科学出版社职教技术出版中心 方法三 : 用第一种方法时, 每单击一次工具箱中的某个图标, 只能在窗体上添加一个相 应的控件 如果要添加多个某种类型的控件, 必须多次单击相应的控件图标 为了能单击一次控件图标即可在窗体上添加多个相同类型的控件, 可按如下步骤操作 1) 按住 Ctrl 键不放, 单击工具箱中要创建的控件图标, 然后松开 Ctrl 键 2) 用前面介绍的方法在窗体上添加控件 ( 可以添加一个或多个 ) 3) 添加完控件后, 单击工具箱中的指针图标 ( 或其他图标 )

42 第 2 章 窗体及基本控件 基本控件 标签标签 (Label) 主要用于显示文字说明 提示信息等不需要用户修改的文本 标签在运行时不具有交互性, 其显示内容一般只在设计状态通过标题 (Caption) 属性来修改 通常用标签来标注本身不具有 Caption 属性的控件 例如, 可用标签为文本框 列表框 组合框等控件来添加描述性的文字 1. 标签控件的属性 (1)Alignment( 对齐 ) 属性功能 : 设置标签中文本的对齐方式 语法格式 : 对象名.Alignment={0 1 2} 其中,0 1 2 表示有 3 种对齐模式, 如表 2-7 所示 表 2-7 Alignment 属性设置属性值功能 0 ( 默认值 ) 从标签的左边开始显示标题, 即左对齐 1 从标签的右边开始显示标题, 即右对齐 2 从标签的中间开始显示标题, 即居中对齐 (2)AutoSize( 大小自动适应 ) 属性功能 : 设置标签是否能够自动调整大小以显示所有的内容 语法格式 : 对象名.AutoSize={ True False} 其中, 属性值为 False( 默认值 ), 表示显示控件的原始大小 ; 属性值为 True, 表示根据控件中的内容自动调整控件大小 (3)BackStyle( 背景样式 ) 属性功能 : 设置标签的背景样式 语法格式 : 对象名.BackStyle= {0 1} 其中, 属性值为 1( 默认值 ), 表示背景是不透明的 ; 属性值为 0, 表示背景是透明的 (4)BorderStyle( 边框样式 ) 属性功能 : 设置标签的边框样式 语法格式 : 对象名.BorderStyle={0 1}

43 34 Visual Basic 语言程序设计教程 其中, 属性值为 0( 默认值 ), 表示无边框 ; 属性值为 1, 表示单线边框 (5)Caption( 标题 ) 属性功能 : 设置标签的文本内容 语法格式 : 对象名.Caption [= 字符串 ] 2. 标签控件的事件标签可以接受 Click( 单击 ) DblClick( 双击 ) 等事件, 但一般不需要编写代码 例 2.3 设计一个界面说明标签的基本属性的使用方法, 界面设计如图 2-12 所示 该界面中各控件及其属性设置如表 2-8 所示 表 2-8 控件属性设置 控件属性属性值 Label Label Name Label1 Caption Label1 Name Label2 Caption 学习 VB AutoSize True BackStyle 0( 透明 ) BorderStyle 1( 单线边框 ) 运行结果如图 2-13 所示 图 2-12 例 2.3 界面设计 文本框 文本框 (TextBox) 图 2-13 例 2.3 运行结果 科学出版社职教技术出版中心 是一个文本编辑区域, 主要用于接受用户的输入 输出 修改等 信息, 可以输入单行文本, 也可以输入多行文本, 在程序运行过程中具有良好的交互性 1. 文本框控件的属性 (1)Name( 名称 ) 属性功能 : 设置文本框的名称 (2)Text( 文本 ) 属性功能 : 设置文本框中显示的文本内容 语法格式 : 对象名.Text[= 字符串 ]

44 第 2 章 窗体及基本控件 35 用户输入 修改的文本内容与 Text 属性相关 注意 : 文本框没有 Caption 属性 (3)Locked( 锁定 ) 属性功能 : 设置文本框是否可以被编辑 语法格式 : 对象名.Locked ={ True False} 其中, 属性值为 False( 默认值 ), 表示文本内容可以编辑 ; 属性值为 True, 表示文本内容只能读但不能修改 (4)MaxLength( 最大长度 ) 属性功能 : 设置文本框中输入的字符串最大长度 如果属性值为 0( 默认值 ), 表示文本框中字符串的长度不限, 只受操作系统内存的限制 ; 属性值为大于 0 的整数, 该整数表示能够输入的最大字符数目 (5)MultiLine( 多行 ) 属性功能 : 设置文本框是否可以输入多行文本 语法格式 : 对象名.MultiLine ={ True False } 其中, 属性值为 False( 默认值 ), 表示只能单行显示, 超出文本框宽度的部分被截除 ; 属性值为 True, 表示可以多行显示文本, 若文本行数超过文本框宽度, 系统会自动为文本框添加滚动条 (6)PasswordChar( 口令 ) 属性功能 : 设置是否在文本框中显示用户所输入的字符串 如果该属性被设置为某一字符, 如 *, 则无论在 Text 属性值中输入什么, 在文本框中都只显示 * PasswordChar 属性和 MaxLength 属性经常联合用于设置口令 ( 俗称 密码 ), 以保证输入口令的安全性 注意 : 该属性有效的前提是 MultiLine 属性值必须设置为 False (7)ScrollBars( 滚动条 ) 属性 功能 : 设置文本框滚动条的模式 语法格式 : 对象名.ScrollBars={ } 其中, 属性值为 , 表示滚动条有 4 种模式, 如表 2-9 所示 表 2-9 ScrollBars 属性设置 属性值 功 能 0 ( 默认值 ) 表示没有滚动条 1 表示只有水平滚动条 2 表示只有垂直滚动条 3 表示既有水平滚动条, 又有垂直滚动条

45 36 Visual Basic 语言程序设计教程 注意 : 该属性有效的前提是 MultiLine 属性值必须设置为 True (8)SelLength( 选中字符数 ) SelStart( 起始位置 ) 和 SelText( 选中的字符串 ) 属性功能 : 控制文本框中的插入点和文本选定操作, 这些属性仅能在运行时使用 语法格式 : 对象名.SelLength [=number] 对象名.SelStart [=index] 对象名.SelText [=value] 说明 : 1)SelLength 设置选定文本的长度, 若值为 0, 表示未选中任何内容 2)SelStart 设置选定文本的起始点, 第一个字符位置是 0 3)SelText 设置当前选定文本的内容 2. 文本框控件的事件和方法 (1) 文本框控件的事件文本框常用事件有 Change 和 KeyPress 1)Change( 变化 ) 事件 当用户改变文本框的内容时, 文本框的 Change 事件被触发, 该事件对应的代码结构如下 : Private Sub Text1_Change() End Sub 例 2.4 实现标签的标题和文本框的内容同步显示 思路 : 用文本框接收用户输入的内容, 用文本框 Change 事件将文本框内容赋予窗体的 标题属性 Caption, 即可达到窗体的标题与文本框内容一致的效果 界面设计如图 2-14 所示 该界面中控件及其属性设置如表 2-10 所示 表 2-10 控件属性设置 控件属性属性值 Label Caption BackColor Name TextBox Text 科学出版社职教技术出版中心 Name Label1 Label1 &H00FFFFC0& Text1 Text1 当在文本框中输入 大家好 时, 标签中的文字也同步显示为 大家好, 代码如下 : Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub

46 第 2 章 窗体及基本控件 37 运行结果如图 2-15 所示 图 2-14 例 2.4 界面设计 图 2-15 例 2.4 运行结果 2)KeyPress( 按键 ) 事件 当文本框被选中时, 按任意键该文本框的 KeyPress 事件被 触发, 该事件对应的代码结构如下 : Private End Sub Sub Text_KeyPress(KeyAscii As Integer) 其中,KeyAscii 是 KeyPress 事件的参数, 反映了按键对应键名的 ASCII 码值, 输入数据时, 通过 KeyPress 事件过程来识别输入字符是否正确, 达到判断检查的功能 (2) 文本框控件的方法文本框常用的方法是 SetFocus 方法 SetFocus 方法可以设置焦点, 其获得焦点的显示效果是焦点 ( 光标 ) 在文本框中闪动 例如,Text1.SetFocus 表示文本框 Text1 获得焦点 例 2.5 设计一个界面说明文本框的属性 事件 方法的使用 界面设计如图 2-16 所示 该界面中各控件及其属性设置如表 2-11 所示 表 2-11 控件属性设置 控件属性属性值 Label Label Label Label TextBox TextBox TextBox Name Label1 Caption 姓名 Name Label2 Caption 密码 Name Label3 Caption 显示密码 Name Label4 Caption 留言 Name Text1 Text 空白 Name Text2 Text 空白 PasswordChar * MaxLength 6 Name Text3 Text 空白 Lock True

47 38 Visual Basic 语言程序设计教程 控 件 属 性 属性值 Name Text4 TextBox Text 空白 MultiLine True 续表 Text2 文本框的 Change 事件实现文本框变化功能, 其事件代码如下 : Private Sub Text2_Change() Text3.Text = Text2.Text End Sub 运行结果如图 2-17 所示 命令按钮 图 2-16 例 2.5 界面设计 图 2-17 例 2.5 运行结果 命令按钮是 (CommandButton) 是 Visual Basic 应用程序中使用较多的控件, 通常在其 Click 事件中编写程序, 当用户单击这个按钮时, 就会根据这段代码来启动 中断 结束该程序所定义的某个任务, 从而执行具体的操作, 如计算结果 清除界面 移动图片 关闭窗体等 1. 命令按钮控件的属性 (1)Caption( 标题 ) 属性功能 : 设置命令按钮的标题 (2)Cancel( 取消 ) 属性功能 : 设置命令按钮是否为取消按钮 语法格式 : 对象名.Cancel={ True False} 科学出版社职教技术出版中心 其中, 属性值为 True, 表示当用户按 Esc 键时, 与单击该按钮效果相同, 即响应该按钮对应的 Click 事件 ; 属性值为 False( 默认值 ), 表示该按钮非取消按钮 注意 : 一个窗体内, 只有一个命令按钮能设置 Cancel 属性值为 True, 即只能有一个取消按钮

48 第 2 章 窗体及基本控件 39 (3)Default( 确定 ) 属性功能 : 设置命令按钮是否为默认按钮 语法格式 : 对象名.Default={True False} 其中, 属性值为 True, 表示当用户按 Enter 键时, 与单击该按钮效果相同, 即响应该按钮对应的 Click 事件 ; 属性值设为 False( 默认值 ), 表示该按钮非默认按钮 注意 : 在一个窗体内, 只能将一个命令按钮设置 Default 属性值为 True, 即只能有一个确定按钮 (4)Enabled( 是否响应 ) 属性功能 : 设置命令按钮是否能被按下 语法格式 : 对象名.Enabled={True False} 其中, 属性值为 True( 默认值 ), 表示该按钮能被响应 ; 属性值为 False, 表示该按钮不能被响应, 以灰色显示 (5)Picture( 图片 ) 属性功能 : 设置命令按钮上显示的图形 语法格式 : 对象名.Picture=LoadPicture(" 图形文件名 ") (6)Style( 风格 ) 属性功能 : 设置命令按钮的类型 语法格式 : 对象名.Style={0 1} 其中, 属性值 0 1 表示命令按钮的两种风格, 如表 2-12 所示 表 2-12 Style 属性 属性值 功 能 0 ( 默认值 ) 表示标准按钮, 按钮上只显示 Caption 属性设置的文本 1 表示图形风格, 按钮上会显示由 Picture 属性指定的图形 注意 : 只有在命令按钮的 Style 属性值设置为 1 时, 才会在命令按钮上显示图形 (7)ToolTipText( 解释 ) 属性功能 : 设置当鼠标指针在命令按钮上暂停时显示的文本 2. 命令按钮控件的事件和方法 (1) 命令按钮控件的事件命令按钮最重要的事件是 Click 事件, 其次是 MouseDown( 鼠标按下 ) 事件和 MouseUp

49 40 Visual Basic 语言程序设计教程 ( 鼠标弹起 ) 事件 这 3 个事件发生的顺序为 MouseDown 事件 MouseUp 事件和 Click 事件 MouseDown 事件 : 鼠标指针位于按钮上并按下时所触发的事件 MouseUp 事件 : 释放鼠标时按钮所触发的事件 Click 事件 : 此事件被触发有以下几种情况 : 单击按钮时发生 按钮控件具有焦点时, 按 Space 键 ( 空格键 ) 或 Enter 键 在程序中按钮的 Value 属性为 True 值的命令运行时, 触发此事件 注意 : 命令按钮没有 DblClick( 双击 ) 事件 Click 事件代码结构如下 : Private Sub Command1_Click() End Sub (2) 命令按钮控件的方法命令按钮控件的方法主要是 SetFocus 方法 SetFocus 方法的功能是设置焦点, 其获得焦点的显示效果是按钮上有一个虚线边框 例如 : Command1. SetFocus 例 2.6 设计一个运算器, 在 Text1 和 Text2 中分别输入两个数, 单击 + - / 按钮则在 Text3 中显示相应的结果 界面设计如图 2-18 所示 该界面中各控件及其属性设置如表 2-13 所示 图 2-18 例 2.6 界面设计 表 2-13 控件属性设置 控件属性属性值 Label Label Label Label Name Label1 Caption 操作数 1 Name Label2 Caption 操作数 2 Name Caption Name Caption 科学出版社职教技术出版中心 Label3 结果 Label4 空白

50 第 2 章 窗体及基本控件 41 控 件 属 性 属性值 Label Name Label5 Caption = TextBox Name Text1 Text 空白 TextBox Name Text2 Text 空白 TextBox Name Text3 Text 空白 CommandButton Name Command1 Caption + CommandButton Name Command2 Caption - CommandButton Name Command3 Caption CommandButton Name Command4 Caption / 续表 程序代码 : Private Sub Command1_Click() Label4.Caption = "+" Text3.Text = Val(Text1.Text) + Val(Text2.Text) 'Val 的功能是将文本框的内容转换为数值型 End Sub Private Sub Command2_Click() Label4.Caption = "-" Text3.Text = Val(Text1.Text) - Val(Text2.Text) End Sub Private Sub Command3_Click() Label4.Caption = "*" Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub Command4_Click() Label4.Caption = "/" If Text2.Text <> 0 Then Text3.Text = Val(Text1.Text) / Val(Text2.Text) Else Text3.Text = " 除数不能为 0" End If End Sub

51 42 Visual Basic 语言程序设计教程 运行结果如图 2-19 所示 图 2-19 例 2.6 运行结果 习 题 一 选择题 1. 不能打开属性窗体的方法是 ( ) A. 选择 视图 属性窗口 命令 B. 按 F4 键 C. 按 Ctrl+T 组合键 D. 单击工具栏中的 属性窗口 按钮 2. 为了使一个窗体从屏幕消失但仍在内存中, 所使用的方法或语句为 ( ) A.Show B.Hide C.Load D.Unload 3. 当一个工程含有多个窗体时, 其中的启动窗体是 ( ) A. 启动 Visual Basic 时建立的窗体 B. 第一个添加的窗体 C. 最后一个添加的窗体 D. 在 工程属性 对话框中指定的窗体 4. 运行时, 每单击一次窗体, 窗体会向右下方移动 10 单位, 并且宽 高都减少 10 单 位的命令是 ( ) A.Move left+10,top-10,width+10,height-10 B.Move left+10,top+10,width+10,height-10 C.Move left+10,top-10,width-10,height-10 D.Move left+10,top+10,width-10,height 在设计模式下, 双击窗体 Form1 的空白处, 打开代码窗口, 显示 ( ) 事件代码 A.Form_Click B.Form1_Load C.Form_Load D.Form1_Click 6. 以下关于窗体的描述中, 错误的是 ( ) A. 执行 Unload Form1 语句后, 窗体 Form1 消失, 但仍在内存中 B. 窗体的 Load 事件在加载窗体时发生 C. 当窗体的 Enable 属性为 False 时, 通过鼠标和键盘对窗体的操作都被禁止 D. 窗体的 Height Width 属性用于设置窗体的高和宽 7. 以下叙述中错误的是 ( ) A. 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B. 以.bas 为扩展名的文件是标准模块文件 科学出版社职教技术出版中心

52 第 2 章 窗体及基本控件 43 C. 窗体文件包含该窗体及其控件的属性 D. 一个工程中可以含有多个标准模块文件 8. 在 Visual Basic 中, 所有的窗体和控件都必定具有的一个属性是 ( ) A.Name B.Font C.Caption D.FillColor 9. 为了把焦点移到某个指定的控件, 所使用的方法是 ( ) A.SetFocus B.Visible C.Refresh D.GetFocus 10. 唯一能区别一个控件的属性是 ( ) A.Caption B.Text C.Name D.Index 11. 在窗体上添加一个文本框, 其名称为 Text1, 为了在程序运行后隐藏该文本框, 应 当使用的语句为 ( ) A.Text1.Clear B.Text1.Visible = False C.Text1.Hide D.Text1.Enabled = False 12. 要使一个命令按钮成为图形命令按钮, 应设置其 ( ) 属性值 A.Picture B.Style C.DownPicture D.DisabledPicture 13. 要把一个命令按钮设置成无效, 应设置其 ( ) 属性值 A.Visible B.Enabled C.Default D.Cancel 14. 以下能够触发文本框 Change 事件的操作是 ( ) A. 文本框失去焦点 B. 文本框获得焦点 C. 设置文本框的焦点 D. 改变文本框的内容 二 填空题 1. 假定一个文本框的 Name 属性为 Text1, 为了在该文本框中显示 Hello!, 所使用的 语句为 2. 一个控件在窗体上的位置由 Top 和 Left 属性决定, 其大小由 和 属 性决定 3. 为了选择多个控件, 可以按住 键, 然后单击每个控件 4. 在窗体上添加两个文本框和一个命令按钮, 然后在命令按钮的代码窗口中编写如下 事件过程 : Private Sub Command1_Click() Text1.Text = "Visual Basic" Text2.Text = Text1.Text Text1.Text = "ABCD" End Sub 程序运行后, 单击命令按钮, 文本框 Text1 和 Text2 中显示的内容分别为 和 5. 在窗体 Form1 上添加两个文本框 Text1 Text2 和一个命令按钮 Command1, 然后编 写如下两个事件过程 : Private Sub Command1_Click() A = Text1.Text + Text2.Text

53 44 Visual Basic 语言程序设计教程 Print A End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" End Sub 程序运行后, 在第一个文本框 (Text1) 和第二个文本框 (Text2) 中分别输入 123 和 321, 然后单击命令按钮, 则输出结果为 科学出版社职教技术出版中心

54 第 3 章 Visual Basic 语法基础 本章重点 : 数据是计算机处理的对象 我们可以把生活中的各种事物的数据或者相关内容通过计算机来处理, 因此如何转换成计算机可以处理的数据是很重要的 为了更好地处理各种数据, 在 Visual Basic 中定义了多种数据类型 不同的数据类型, 所占的存储空间不一样, 被计算机处理的速度也有所区别 因此, 在编写程序过程中应该选择合适的数据类型来描述数据 3.1 数据类型 基本数据类型 Visual Basic 中的基本数据类型主要有数值型 字符型 逻辑型 日期型 变体型和对象型, 其中数值型数据又包括整型 长整型 单精度型 双精度型 货币型和字节型 Visual Basic 中的基本数据类型具体如表 3-1 所示 表 3-1 基本数据类型 数据类型 关键字 类型符 所占字节数 范 围 整型 Integer % ~ 长整型 Long & ~ 单精度型 Single! 4 ±1.40E-45~±3.40E+38 双精度型 Double # 8 ±4.94D-324~±1.79D+308 货币型 E+14~+9.22E+14 字节型 Byte 1 0~255 日期型 Date 8 01~12 01~31 100~9999 逻辑型 Boolean 2 True False 字符型 String $ 一个字符占一个字节 0~65535 个字符 对象型 Object 4 任何对象引用 变体型 Variant 可以存放任何数据类型

55 46 Visual Basic 语言程序设计教程 1. 数值型数据 数值型数据包括整型 长整型 单精度型 双精度型 货币型和字节型, 其中整型和长 整型为整型数据, 单精度型和双精度型为实型数据 数值型数据都有各自的有效取值范围, 当程序中的某种数据超过了或者低于规定范围, 就会发生 上溢 或 下溢 ( 简称 溢出 ) 的错误 ; 因此, 在选择数据类型时, 要注意可能存在的溢出情况 (1) 整型数据整型数据是不带小数点的数据, 和数学中整数的含义类似, 只是整型数据取值范围为 ~+32767, 在计算机中用 2 字节 ( 即 16 位 ) 存储 其类型符为 %, 即在数据尾加上 % 就表示此数据为整型数据 例如,2% 表示 2 以整型数据格式存储 (2) 长整型数据长整型数据和整型数据类似, 都表示整数, 但所能表示的数据范围比整型大, 取值范围为 ~ , 在计算机中用 4 字节存储 其类型符为 & 例如,5& 表示 5 以长整型数据格式存储 (3) 单精度型数据单精度型数据是带小数点的实数, 在计算机中用 4 字节存储, 有效数字为 7 位, 通常单精度型数据以指数形式表示, 底数部分用 E 或 e 表示 例如,3.6e+5 表示数学中的 , 7.45E-6 表示 (4) 双精度型数据双精度型数据也是带小数点的实数, 有效数字为 15 位或 16 位, 在计算机内用 8 字节存储, 比单精度型数据精度更高 通常双精度型数据以指数形式表示, 底数部分用 D 或 d 表示 例如,55.87d+5 表示数学中的 ,7.45D-6 表示 (5) 货币型数据货币型数据是为了计算货币而设置的定点实数或整数, 其精度要求比较高, 在计算机中用 8 字节存储 例如,23.5@ 表示 23.5 以货币型数据格式存储 (6) 字节型数据字节型数据是范围 0~255 的无符号的整数, 在计算机中仅用 1 字节存储, 因此称为字节型数据 2. 日期型数据 日期型数据是为表示日期而设置的数据类型, 在计算机中用 8 字节存储, 表示公元 100 年 1 月 1 日 ~9999 年 12 月 31 日之间的日期和时间数据, 日期型数据用 # 括起来标示 例如,#7/25/2006# 表示 2006 年 7 月 25 日 3. 逻辑型数据 科学出版社职教技术出版中心 逻辑型数据也称布尔型数据, 用来表示逻辑判断的结果 它只有真 (True) 和假 (False) 两种取值, 在计算机中用 2 字节存储 使用时, 当数值型数据转换为逻辑型数据时, 数字 0 转换为 False, 非 0 的数字转换为 True; 当逻辑型数据转换为数值型数据时,False 转换为 0, True 转换为 -1

56 第 3 章 Visual Basic 语法基础 字符型数据字符型数据是用双引号括起来的一串字符, 有两种 : 定长字符串和变长字符串 定义定长字符串时, 其后加上 * 和数字, 表示该字符串的长度为该数字表示的字节数 例如, Dim a As String * 6, 表示定义变量 a 是一个 6 字符的定长字符串数据 5. 对象型数据对象型数据主要用于定义应用程序中对象的类型 6. 变体型数据变体型数据可以表示任何一种数据类型, 其大小由所赋予的数据类型决定 例如 : Dim a As Variant ' 定义 a 为变体型数据 a=123 'a 为整型数据 a="visual Basic" 'a 为字符型数据 用户自定义数据类型用户自定义数据类型是根据用户需要在已存在的基本数据类型基础上组合而形成的新的数据类型 例如, 一个学生的基本信息包括学生的学号 ( 字符型数据 ) 姓名( 字符型数据 ) 出生日期( 日期型数据 ) 等, 各组成元素隶属一种基本数据类型, 组合成的学生基本信息即为一个用户自定义数据类型 用户自定义数据类型必须由用户在程序中先自行定义后才能使用, 定义该数据类型的格式如下 : [Private Public] Type 用户自定义类型名元素名 1 As 数据类型元素名 2 As 数据类型 End Type 注意 : 1) 用户自定义类型名的命名规则遵循标识符的命名规则 ( 见 3.2 节 ), 只有被定义了的用户自定义数据类型才可以在程序中使用 用户自定义数据类型必须写在模块或窗体的通用声明部分 2) 元素的数据类型可以是字符串, 字符串为定长字符串, 一般使用 String* 常数 格式, 用来指明字符串长度, 也可以不使用常数, 不指明字符串长度, 但此类型仍然是定长字符串类型 3) 定义语句应该放在标准模块或窗体模块的声明部分, 在窗体中的声明部分定义 Type 语句应该指定 Private, 在模块中的声明部分定义 Type 语句默认为 Public 上述学生的基本信息数据类型可以定义如下 :

57 48 Visual Basic 语言程序设计教程 Private Type Student SNo As String * 10 SName As String * 10 SBirth As Date End Type ' 定义学号为 10 字符长度的定长字符型数据 ' 定义姓名为 10 字符长度的定长字符型数据 ' 定义出生日期为日期型数据 这样,Student 数据类型通过 3 个元素来描述一个学生的基本信息 此后, 可以使用当前自定义的数据类型定义所需要的学生信息数据变量 3.2 常量和变量 标识符的命名规则 在 Visual Basic 中, 标识符是程序员为变量 常量 数据类型 过程 函数 类等对象定义的名称 使用标识符可以完成对这些对象的引用 Visual Basic 中标识符的命名规则如下 1) 标识符可以由字母 数字或下划线组成, 必须以字母开头 2) 标识符的长度不能超过 255 字符, 控件 窗体 类和模块的名字不能超过 40 字符 3) 自定义的标识符不能和 Visual Basic 中的运算符 语句 函数和过程名等关键字同名, 同时也不能与系统已有的方法和属性同名 关键字是 Visual Basic 保留下来的作为程序中有固定含义的标识符, 不能被重新定义 ( 声明 ) 4) 保证标识符在同一范围内是唯一的 常量 常量也称为常数 在 Visual Basic 中, 用常量表示在整个程序中事先设置的 不会改变数值的数据 例如, 若经常要计算圆的面积, 可以把圆周率设置为一个常量, 以方便计算 常量分为直接常量和符号常量两种 常量的数据类型可以是任何一种数据类型 1. 直接常量 科学出版社职教技术出版中心 直接常量是在程序中直接给出的数值 字符 日期等具体的数据值 按照数据类型分类, 直接常量可分为以下几类 (1) 字节型 整型和长整型常量在 Visual Basic 中可以使用十进制 十六进制和八进制 3 种方法表示这 3 类常量 十进制整数只能包含数字 0~9 正负号 十进制整型数据的取值范围为-32768~+32767, 如 十六进制数由数字 0~9 A~F 或 a~f 组成, 并以 &H 开头, 其后的数据位数不多于 4 位, 范围为 &H0~&HFFFF 例如,&H13 表示十进制的 19 八进制数由数字 0~7 组成, 并以 &0 或 & 开头, 其后的数据位数不多于 6 位, 范围为 &0~ & 例如,&013 表示十进制的 11

58 第 3 章 Visual Basic 语法基础 49 (2) 单精度和双精度浮点型常量在 Visual Basic 中, 浮点型数据用科学计数法表示, 以字母 E 或 e 表示单精度数的指数符号, 用字母 D 或 d 表示双精度数的底数符号, 即为乘以 10 的幂次 例如,1.23E-5 就相当于 (3) 日期型常量日期型常量用一对 # 括起来, 中间为计算机可识别的日期格式, 如 #08/20/2001# 和 # :23:25pm# (4) 逻辑型常量逻辑型常量 ( 布尔常量 ) 只有 True( 真 ) 和 False( 假 ) 两个值, 直接用 True 和 False 表示 (5) 字符型常量字符型 ( 字符串型 ) 常量是用一对双引号引起来的任意字符序列, 如 "Visual Basic6.0" 注意 : 字符型常量的引号必须是英文半角引号 Visual Basic 允许在常量后直接加类型符定义常量类型 例如,45& 表示长整型常量, 36.4@ 表示货币常量 2. 符号常量符号常量用一个标识符代表一个直接常量, 用这个标识符作为常量名 符号常量又分为两种, 即系统内部定义常量和用户定义常量 (1) 系统内部定义常量系统内部定义常量是 Visual Basic 和 Visual Basic 中的控件所提供的 这些常量可与应用程序的对象 方法和属性一起使用, 在代码中可以直接使用它们 例如,vbRed 就是系统内部定义的常量, 相当于长整数 &HFF 选择 视图 对象浏览器 命令, 在对象浏览器窗口中可以查看系统所提供的所有内部符号常量 (2) 用户定义常量定义格式 : Const 符号常量名 [As 数据类型 ]= 常量表达式符号常量名要符合标识符命名规则, 指定用某个名称代替某个常量或者常量表达式 数据类型省略时, 默认用当前数据的数据类型作为常量的数据类型 例如 : Const Pi= As Single Const Da= #9/1/2013# Const M As Integer=45,D="tea" as String ' 同时声明多个常量时, 多个变量 ' 之间用逗号间隔声明 Const MM=" 妹妹 " 变量 变量是其值在程序执行过程中能够改变的量

59 50 Visual Basic 语言程序设计教程 1. 声明变量 通常变量是先声明后使用, 声明变量是告知变量的名称和变量能存放数据的数据类型 在变量使用之前提前声明变量称为显式声明, 若不提前声明则称为隐式声明 变量存放数据 类型可以是基本数据类型, 也可以是用户自定义数据类型 变量名的命名应遵循标识符的命 名规则 (1) 显式声明 格式如下 : {Dim Public Private Static} 变量名 1 [As 类型 1 ][, 变量名 2 [As 类 型 2 ]] 其中, 变量名 遵循变量的命名规则 ; 类型 用来声明与之对应的变量, 可以是基本数据类型, 也可以是用户自定义数据类型 例如 : Dim a As Integer Static b As String Private Type Student SName As String * 10 Sage As Integer Stel As String * 11 End Type Dim s1 As Student 'Student 是用户自定义数据类型,s1 是该类型变量 若需要为 s1 的各数据成员赋值, 需要使用单个英文句号. 来引用每个数据成员, 例如 : s1.sname = " 王方 " s1.sage = 25 s1.stel = " " 这里可以利用. 访问 s1 中的每一个数据成员, 可以把每一个数据成员当作一个变量来看待 若使用声明语句时省略数据类型, 则默认为该数据的数据类型是变体型, 例如 : Dim c 'c 默认为变体型 数据在声明后, 系统会自动将数值型变量赋值为 0, 为字符型或变体类型变量赋值为空值, 将逻辑型的变量赋值为 False, 将日期型变量赋值为 0:00:00 (2) 隐式声明如果没有声明就直接使用,Visual Basic 会自动根据数据值对其规定数据类型, 例如 : X=35 'X 为整型数据 Y="Visual Basic 6.0 编程 " 'Y 为字符型数据 科学出版社职教技术出版中心 (3) 后缀法声明对于数值型变量, 允许直接在变量名后面加上数据类型符 ( 即后缀 ), 指定该变量的数

60 第 3 章 Visual Basic 语法基础 51 据类型, 例如 : xa% xb@ xc$ ' 变量 xa 是整型数据 ' 变量 xb 是货币型数据 ' 变量 xc 是字符型数据 2. 强制显式声明变量语句 Visual Basic 虽然不要求必须对变量进行声明, 但是不声明变量经常会出现很多错误, 所以一般编程者希望在运行程序之前由系统编译器帮助检查程序中是否有未显式声明的变量 如果希望这样做, 可以在通用声明部分用强制显式声明语句 格式如下 : Option Explicit 这个语句所实现的功能也可以通过 Visual Basic 系统的选项功能来设置 选择 工具 选项 命令, 弹出 选项 对话框, 在 编辑器 选项卡的 代码设置 选项组中勾选 要求变量声明 复选框, 如图 3-1 所示 图 3-1 强制显式声明语句的设置 3.3 运算符和表达式 运算是对数据进行加工的过程, 描述不同运算的符号称为运算符, 参与运算的数据称为操作数 在 Visual Basic 中, 运算符有算术运算符 字符串运算符 关系运算符 逻辑运算符 ; 有些书还提出了赋值运算符 日期运算符 对象运算符的概念, 实际上并没有提出新的运算符, 只是将某些运算符的功能做了扩展 表达式用来表示某个求值规则, 可以由关键字 运算符 常量 变量 函数 对象和配对的圆括号以合适的形式组合而成 每个表达式都有一个唯一的值作为表达式的值 根据运算符的不同, 表达式可分为算术表达式 字符串表达式 关系表达式 逻辑表达式等 下面分别介绍每种运算符和表达式 算术运算符及其表达式算术运算符是专用来进行数学计算的运算符 Visual Basic 提供的算术运算符共有 7 个, 除负号为单目运算符外, 其余的均为双目运算符, 即需要两个操作数完成的运算 算术运算

61 52 Visual Basic 语言程序设计教程 符及其优先级如表 3-2 所示 表 3-2 算术运算符及其优先级 算术运算符含义示例结果优先级 ^ 乘方 3^ 负号 * 乘 4* / 除 3/ \ 整除 2\5 0 4 Mod 取模 / 取余 6 Mod 加 减 算术表达式就是由算术运算符连接操作数构成的表达式, 其运算结果也是一个算术值 由于一个表达式中可能出现多种算术运算符, 所以, 计算的时候要按照优先级进行运算, 优先级高的优先计算 圆括号可以改变优先级, 括号内的优先级最高 说明 : 1)+ - * / 的运算规则和数学里面的运算规则一样, 计算时按照 先乘除, 后加减 的规则计算 2) 整除运算的运算规则是先计算两个整数的商, 再丢弃商值的小数部分 若参加运算的除数或被除数不是整数, 则按照四舍五入的方法先进行取整, 然后按照整除运算的规则计算结果 例如,8\3 的结果是 2,5.8\3 的结果是 2 3)a Mod b 是计算 a 整除 b 后的余数值, 如果参加计算的数据是小数, 先对它们进行四舍五入取整, 然后完成求模运算 如果参加运算的数据有负数, 用绝对值参加取模运算, 运算结果的符号和 a 的符号一致 例如,5.6 Mod 3 的结果是 0,-5 Mod 3 的结果是 -2 4 ) + - 也可以对日期型数据进行计算, 用来计算日期之间的关系, 如 #12/19/1999#-#11/16/1999# 的结果为 33, 表示 1999 年 11 月 16 日到 1999 年 12 月 19 日之间有 33 天 #11/16/1999#+33 的结果为 #12/19/1999#, 表示 1999 年 11 月 16 日之后的 33 天是 1999 年 12 月 19 日 例 3.1 声明变量 a b, 分别赋值为 2 和 3, 在窗体的 Click 事件中观察各种算术运算的结果 该程序窗体的 Click 事件的代码如下 : Private Sub Form_Click() a = 2: b = 3 Print a + b, a - b Print a * b, a Mod b Print a / b, a \ b Print a ^ b End Sub 科学出版社职教技术出版中心

62 第 3 章 Visual Basic 语法基础 53 运行程序, 单击窗体可看到各算术表达式的值, 运行结果如图 3-2 所示 字符串运算符及其表达式 字符串运算符的作用是实现字符串的连接, 有时也称其为连接运算符, 连接运算符有 & 和 + 当参加运算的操作数都是字符型数据时, 两个运算符的作用和结果相同, 都是将两个字符串连接起来, 组成一个新的字符串, 例如 : 图 3-2 例 3.1 运行结果 "xyz" + "123" "xyz" & "123" ' 结果为新字符串 "xyz123" ' 结果为新字符串 "xyz123" 当连接运算的操作数不是或不全是字符串时, 两个连接运算符的结果可能就有所差别 & 连接符在任何时候都做字符串连接操作, 如果操作数有非字符串数据, 先将其转换为对应的字符串数据, 再进行连接操作 例如 : "123" & "xyz" ' 结果为新字符串 "123xyz" 123 & 456 ' 结果为新字符串 "123456" 123 & "xyz" ' 结果为新字符串 "123xyz" 对于 + 连接符, 运算时若其中一个字符串为数字字符型数据, 另一个为数值型数据, 先将数字字符型变为数值型, 再实现算术加法运算 ; 若两个均为数值型数据, 则直接按照算术运算符实现加法运算 ; 若其中一个为数值型数据, 另外一个为非数字字符型数据, 系统则会提示出错 例如 : "123"+45 ' 结果为数据 ' 结果为数据 168 "Visual Basic 编程 "+45 ' 程序提示出错注意 : 为了避免 + 做连接运算时与加法运算混淆, 一般使用 & 作为连接符号使用, 但使用 & 连接符时必须在 & 的前面和后面各增加一个空格避免出错 这是因为符号 & 的另一个含义是长整型的类型符, 如果变量与符号 & 接在一起,Visual Basic 系统先把它作为类型定义符处理, 从而出现语法错误 例 3.2 编写一个简单的加法程序, 用两个文本框存放被加数和加数, 另外一个文本框存放结果, 单击 计算 按钮将计算结果显示在结果框中, 单击 算式 按钮将整个算式完整显示在算式的标签中 界面设计如图 3-3 所示, 并按照要求设置各对象的属性 Command1 按钮实现计算功能, 其 Click 事件代码如下 : Private Sub Command1_Click() Dim s1 As Integer, s2 As Integer, s3 As Integer s1 = Val(Text1.Text) s2 = Val(Text2.Text) s3 = s1 + s2

63 54 Visual Basic 语言程序设计教程 Text3.Text = s3 End Sub Command2 按钮实现算式显示功能 可以考虑用连接字符串的方法, 将算式中的各个部分连接起来, 并且显示在 Label3 中, 其 Click 事件代码如下 : Private Sub Command2_Click() Label3.Caption = Label3.Caption & Text1.Text & "+" & Text2.Text & "=" & Text3.Text End Sub 输入 12 和 56 两个数, 分别单击两个按钮的运行结果如图 3-4 所示 图 3-3 例 3.2 设计界面 图 3-4 例 3.2 运行结果 注意 : 该例题中进行字符串连接时, 标签的 Caption 属性和文本框的 Text 属性都是字符串, 可以直接当作字符串连接 ; 但 + 当作显示字符串被连接时要加上引号, 否则会出现错误 关系运算符及其表达式 关系运算符又称为比较运算符, 用来比较两个操作数之间的大小关系 操作数可以是数 值型数据 字符 ( 串 ) 型数据 日期型数据等, 但不能是逻辑型数据 若为逻辑型数据, 则 需要根据逻辑型数据向数值型数据转换的规则转换后再进行运算 关系运算的结果是逻辑 值, 即运算的结果只有 True 和 False 两种 关系运算符及其优先级如表 3-3 所示 表 3-3 关系运算符及其优先级 关系运算符含义示例结果优先级 = 等于 "abc"="abd" False > 大于 (3+5)>2 True >= 大于等于 "abc">="abd" False 科学出版社职教技术出版中心 关系运算符具有相同 的优先级 < 小于 "abc"<"abc" False 关系运算符具有相同 <= 小于等于 "23"<="4" True 的优先级 <> 不等于 "a"<>"a" True 说明 : 1) 数值型数据在进行比较的时候, 直接比较其值的大小 例如,5>3 的结果为 True 2) 日期型数据比较大小时,Visual Basic 会把日期型数据看成一个 yyyymmdd 的 8 位整

64 第 3 章 Visual Basic 语法基础 55 数, 按照数值比较其大小 例如,# #># # 的结果为 False 3) 字符型数据比较大小时, 若为单个字符, 比较其 ASCII 码值 若为字符串, 依次从左边第一个字符开始比较, 直到发现一个不相同的为止, 由第一个不相同的字符的大小的关系代表字符串的大小 若字符串长度不相等, 短字符串尾部可以补空格比较 4) 常见的字符值由对应的 ASCII 码表中的顺序决定, 常见字符 ASCII 码大小关系如下 :" 空格 "< <"0"<"1"< <"9"< <"A"<"B"< <"Y"<"Z"< <"a"<"b"< <"y"<"z"<" 任何汉字 " 例如,"sab">"aab" 的结果为 True,"abc"="ABC" 的结果为 False 5) 逻辑值不能参加运算, 如果比较中出现逻辑值, 先将逻辑值转换为对应的数值型数据再进行比较 例如,10 <= 3 < 20 先计算 10<=3 的结果为 False, 然后将 False 转换为数值 0, 将结果再和 20 比较, 结果为 True 6) 数值型数据与可转换为数值型的数据比较时, 将字符型数据转换为对应的数值型数据进行计算 例如,29>"189", 按数值比较, 结果为 False 数值型与不能转换成数值型的字符型比较 例如,77>"sdcd", 不能比较, 系统将提示出错 7) 关系运算没有优先级, 也可以认为具有相同的优先级, 所以计算的时候按照从左到右的顺序进行计算 逻辑运算符及其表达式逻辑运算符也称为布尔运算符, 用来对逻辑型数据进行各种逻辑运算 它的操作数经常是关系表达式或逻辑型数据, 其结果也仍然是逻辑型数据, 即 True 或 False 逻辑运算符及其优先级如表 3-4 所示 表 3-4 逻辑运算符及其优先级 逻辑运算符 含 义 优先级 Not 逻辑非 1 And 逻辑与 2 Or 逻辑或 3 Xor 逻辑异或 4 Eqv 逻辑同或 5 Imp 逻辑蕴含 6 逻辑运算的结果比较复杂, 其运算规则 ( 真值表 ) 如表 3-5 所示 表 3-5 逻辑运算符运算规则 A B Not A A And B A Or B A Xor B A Eqv B A Imp B True True False True True False True True True False False False True True False False False True True False True True False True False False True False False False True True 说明 : 计算逻辑表达式时, 如果存在关系表达式, 则先计算关系表达式, 再计算逻辑表

65 56 Visual Basic 语言程序设计教程 达式 例如,4>5 And 5<3 的结果为 False 数学上表示某个数在某个值域范围内时用表达式 10 X<20, 用 Visual Basic 程序中应写 成 X>= 10 And X< 运算符优先级 每种同类型的运算符都有内部的运算符优先级, 不同类型的运算符之间也有相应的优先 级顺序 一个表达式中既可以包括相同类型的运算符, 也可以包括不同类型的运算符或者函数 当多种运算符出现在同一个表达式中时, 应该先按照不同类型运算符间的优先级进行运算 各种运算符间的优先级如下 : 数值运算符 > 字符串运算符 > 关系运算符 > 逻辑运算符 可以用括号改变优先级顺序, 使得括号内的运算优先于括号外的运算 对于多重括号, 总是由内到外强制表达式的某些部分优先运行 括号内的运算总是最优先计算 例如 : 1) 表达式 3 * 2 \ 5 Mod 3 运算的顺序是先计算乘法, 再计算整除, 最后计算取模 2) 若 a=2,b=3,c=4,d=5, 表达式 Not a<=c Or 4*c=b^2 And b<>a+c 的计算顺序是先计算 3 个关系表达式的值,a<=c 的值为 True,4*c=b^2 的值为 False,b<>a+c 的值为 True, 然后依次计算 Not And 和 Or 表达式的值, 结果为 False 3.4 常用内部函数 Visual Basic 提供了上百种内部函数 ( 库函数 ), 调用它们的方法有以下两种 第一种方法 : 函数名 ( 参数列表 ) 第二种方法 : 函数名 ' 有参函数将参数写在括号中调用 ' 无参函数直接利用函数名调用 说明 : 1) 使用库函数要注意参数的个数及其参数的数据类型 2) 要注意函数的定义域 ( 自变量或参数的取值范围 ) 例如,sqr(x) 要求 x 0 3) 注意函数的值域 例如,exp(23773) 的值就超出了实数在计算机中表示的范围 在 Visual Basic 中, 有些函数是通用的, 有些函数是与某种操作有关的, 这些函数可以分为数学函数 随机数函数 字符串函数 转换函数 日期和时间函数 格式输出函数等 数学函数 数学函数用于各种算数运算, 常用数学函数如表 3-6 所示 表 3-6 常用数学函数 函 数 一般格式 说 明 Sin Sin(x) 返回弧度 x 的正弦值 Cos Cos(x) 返回弧度 x 的余弦值 科学出版社职教技术出版中心

66 第 3 章 Visual Basic 语法基础 57 函 数 一般格式 说 明 Tan Tan(x) 返回弧度 x 的正切值 Atn Atn(x) 返回弧度 x 的反正切值 Abs Abs(x) 返回 x 的绝对值 Exp Exp(x) 返回 e 的 x 次幂, 即 e x Sgn Sgn(x) 返回 x 的符号值 Sqr Sqr(x) 返回 x 的平方根 Int Int(x) 返回不大于 x 的最大整数 Fix Fix(x) 返回 x 的整数部分 续表 说明 : 1) 三角函数的使用与数学上类似, 只是函数内参数的单位应为弧度 所以在使用函数时, 若使用度数应转换为对应的弧度 例如, 求 sin30 的值, 应将 30 转换为对应的弧度, 再使用数学函数, 即为 sin( /180*30) Sin(1) 结果为 )Abs 函数用于返回某个数的绝对值, 正数的绝对值是其本身, 负数的绝对值为其相反数 例如,Abs(-3.2) 的值为 3.2 3)Exp 函数用返回 e 的指定次幂, 其中 e 的值为 例如,Exp(-5) 相当于求 e -5, 其结果为 E-03 4)Sgn 函数用于返回某个数的符号, 符号函数 Sgn 的返回值有 3 种 :1 0-1, 若参数为正, 返回值为 1; 若参数为 0, 返回值为 0; 若参数为负, 返回值为 -1 例如 :Sgn(-3)= -1( 参数为负数 ),Sgn(0)= 0,Sgn(3)=1( 参数为正数 ) 5)Sqr 函数用于返回某个数的平方根值, 根据数学上对平方根的定义, 参数只能为非负数 ( 可以为实数 ) 例如,Sqr(9) 的结果为 3,Sqr(9.56) 的结果为 ) 取整函数 Int 用于返回不大于某个数的最大整数 例如,Int(50.6) 的结果为 50,Int(-50.6) 的结果为 -51 在图 3-5 所示的数轴上可以清楚地看到, 直接在数轴上取某个数左侧离它最近的那个整数为 Int 函数的结果 图 3-5 数轴表示取整关系 7) 取整函数 Fix, 也称为直接取整函数, 即直接取某个数的整数部分 例如,Fix(10.4) 的结果为 10,Fix(-5.6) 的结果为 -5 注意 : 在使用时, 要注意 Int 函数和 Fix 函数的区别 若是正数取整, 用 Int 函数或 Fix 函数的结果是一致的 ; 若是负数取整, 用 Int 函数或 Fix 函数得到的结果是不同的 随机数函数在编程中经常要使用随机数, 如游戏 测试或模拟程序 随机数函数如表 3-7 所示

67 58 Visual Basic 语言程序设计教程 表 3-7 随机数函数 函数一般格式说明 Rnd Rnd(x) 返回小于 1 但大于或等于 0 的随机数 说明 : 1) 随机数函数 Rnd(x) 可以带参数, 参数的值决定了 Rnd 函数生成随机数的方式 随机数函数参数说明如表 3-8 所示 表 3-8 随机数函数参数说明 参数 x 的值小于 0 大于 0 等于 0 省略 Rnd 函数产生结果每次都使用 x 作为随机数种子得到的结果相同以 x 为随机数种子的随机数序列中的下一个随机数最近生成的数序列中的下一个随机数 例如,Rnd(-1) 得到的是以 -1 为随机数种子的结果, 结果为 , 每次运行得到的结果都一样 Rnd(1) 得到的是以 1 为随机数种子, 对最初给定的种子都会生成相同的数列, 因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子 因此虽然随机数每次都不相同, 但是如果参数相同, 那么随机数序列就是相同的 通常使用时, 都使用省略参数的随机数函数, 即 Rnd 2) 直接使用 Rnd 函数每次得到的序列都是一样的, 即使可以使用不同的参数来改变随机序列, 但是在使用中有时希望每次都得到不同的序列, 那么可以使用 Randomize 随机数种子生成器语句, 用在 Rnd 函数之前, 这样可以使得 Rnd 函数产生的随机数为不同的序列 例如, 不使用 Randomize 语句, 直接调用 Rnd 函数 : Private Sub Form_Click() Print Rnd End Sub 所产生的随机数序列在两次运行程序时出现相同的随机数序列, 如图 3-6 所示 使用 Randomize 语句, 再调用 Rnd 函数 : Private Sub Form_Click() Randomize Print Rnd End Sub 科学出版社职教技术出版中心 使用 Randomize 语句后, 两次运行程序出现了不同的随机数序列, 如图 3-7 所示 3) 在实际使用中, 随机数可能要扩大范围或者限制在特定范围内, 若要得到 0~50 之间 ( 不包括 50) 的随机数, 直接可以用得到的随机数乘以 50, 扩大随机数范围, 即 Rnd*50 Rnd 函数通常与 Int 函数配合使用, 用来得到特定范围内的随机整数 例如, 若要生成 [a, b] 区间范围内的随机整数, 可以采用公式 Int((b-a+1)*Rnd + a) 例如, 若要产生 [10,100] 内的随机整数, 则可以用 Int(91*Rnd+10) 来得到

68 第 3 章 Visual Basic 语法基础 59 图 3-6 不使用 Randomize 语句两次运行结果 图 3-7 使用 Randomize 语句两次运行结果 字符串函数 Visual Basic 提供了大量的字符串函数, 用于解决各类字符串处理问题, 如表 3-9 所示 表 3-9 字符串函数 函 数 一般格式 说 明 Ltrim$ Ltrim$(Str) 去掉字符串 Str 左边的空白字符, 并返回 Rtrim$ Rtrim$(Str) 去掉字符串 Str 右边的空白字符, 并返回 Trim$ Trim$(Str) 去掉字符串 Str 左边和右边的空白字符, 并返回 Left$ Left$(Str,n) 取字符串 Str 左部的 n 个字符, 并返回 Right$ Right$(Str,n) 取字符串 Str 右部的 n 个字符, 并返回 Mid$ Mid$(Str,p,n) 取字符串 Str 第 p 个字符开始的 n 个字符, 并返回 Len Len(Str) 测试字符串 Str 的长度 String$ String$(n,Str) 返回包含 Str 第一个字符重复 n 次的字符串 Space$ Space$(n) 返回包含 n 个空格的字符串 InStr InStr([start, ]s1, s2[, compare]) 返回字符串 s2 在字符串 s1 中从 start 开始第一次出现的位置 Ucase$ Ucase$(Str) 将字符串 Str 转换为大写字母字符串 Lcase$ Lcase$(Str) 将字符串 Str 转换为小写字母字符串 字符串函数是专门用来处理字符串的一系列函数 1) 大多数字符串函数的返回值都为字符串, 因此可以在函数后面加上 $, 表示该函数的 返回值类型也为字符串, 在使用的时候可以省略 在使用字符串函数的时候要注意参数类型 个数和每个参数的含义 2)Ltrim Rtrim Trim 3 个函数的使用方法相同, 只需要把需要去掉空格符的字符串作 为参数即可以完成功能 例如,Ltrim(" abcd ") 的结果为 "abcd ",Rtrim(" abcd ") 的结果为 " abcd",trim(" abcd ") 的结果为 "abcd" 这个函数一般在处理数据库数据时用得较多, 或者在匹配用户输入数据的时候考虑有 些无效的空格会造成错误, 所以要用函数去掉某些空格 注意这 3 个函数都不能去掉中间 的字符 3)Left Right Mid 3 个函数的作用也是类似的, 用于取得字符串的某些字符 Left 函 数和 Right 函数分别是指从字符串左边或者右边开始取得某个字符串的字符, 参数为要操作的 字符串和要取的位数, 而 Mid 函数是从字符串指定位置取指定个字符, 因此有 3 个参数 例

69 60 Visual Basic 语言程序设计教程 如,Left("abcdefghi",3) 的结果为 "abc",right("abcdefghi",4) 的结果为 "fghi",mid("abcdefghi",3,4) 的结果为 "cdef" 4)Len 函数用于测试字符串长度, 其返回值为数字, 即字符串长度 例如,Len("China!") 的结果为 6 5)String 函数和 Space 函数均用于返回指定长度字符串,String 函数返回指定字符的字 符串, 而 Space 函数返回指定长度的空格 例如,String(3, "s") 的结果为 "sss",string(3, "sab") 的结果同样为 "sss",space(6) 的结果为 " " 6)InStr 函数用于返回给定字符串出现的位置, 也可以认为是一个查找字符串的函数 语法格式如下 : InStr([start,]s1,s2[,compare]) 其中,start 为可选参数, 为数值表达式, 用于设置每次搜索的起点 如果省略, 将从第一个字符的位置开始 s1 为给定字符串,s2 为要查找的字符串, 即表示查找 s1 中是否有 s2 出现 compare 也为可选参数, 表示字符串比较类型, 一般不使用 由于是查找字符串, 所以函数的结果也有多种情况 : 如果 s1 为零长度字符串, 则函数返回值为 0; 如果 s1 为 Null, 则函数返回值为 Null; 如果 s2 为零长度字符串, 则函数返回 start 的值 ; 如果 s2 为 Null, 则函数返回 Null; 如果在 s1 中查找不到 s2, 则函数返回 0; 若可以查找到, 则函数返回在 s1 中找到 s2 的位置起始值 ; 如果 start >len(s2), 则函数返回值为 0 例如,InStr(" abcdef ", " def ") 的结果为 4,InStr(2, " abcdef ", " def ") 的结果为 4,InStr(2, " abcdef ","") 的结果为 2,InStr(2, " abcdef ",NULL) 的结果为 NULL 7)Ucase 和 Lcase 两个函数也是类似的, 用于直接将字符串中的字符进行大小写字符的转换 例如,Ucase("How Are You") 的结果为 "HOW ARE YOU",Lcase("How Are You") 的结果为 " how are you" 转换函数 Visual Basic 提供了一组转换函数, 使不同类型的数据处理变得方便, 常用转换函数及数据类型转换函数分别如表 3-10 和表 3-11 所示 表 3-10 常用转换函数 函数一般格式说明 Asc Asc(Str) 返回字符 Str 首字符的 ASCII 码值 Chr Chr(n) 返回 ASCII 码值 n 对应的字符 Val Val(Str) 返回包含于字符串 Str 内的数字 Str Str(n) 返回数值 n 组成的字符串 表 3-11 数据类型转换函数 函数一般格式说明 CBool CBool(Str) 将任何有效的字符串或字符表达式转换为逻辑型数据 CByte CByte(n) 将 0~255 内的数据转换为字节型数据 CCur CCur(n) 将数据转换为货币型数据 CDate CDate(Str) 将任何日期表达式转换为日期型数据 科学出版社职教技术出版中心

70 第 3 章 Visual Basic 语法基础 61 续表 函 数 一般格式 说 明 CDbl CDbl(n) 将范围内的数据转换为双精度数据 CInt CInt(n) 将数据转换为整型数据, 小数部分四舍五入 CLng CLng(n) 将数据转换为长整型数据 CSng CSng(n) 将数据转换为单精度数据 CStr CStr(n) 将数据转换为字符串 CVar CVar(n) 若为数值, 则范围与双精度数据相同 ; 若不为数值, 则范围与字符串相同 CVErr CVErr(n) 将实数转换为错误值 1) 转换函数中使用较多的是表 3-10 中的函数, 便于将字符和数值相互转换 2)Asc 函数仅返回字符串首字母的 ASCII 码值 例如,Asc("China") 的结果为 67( 大写字母 C 的 ASCII 码值为 67),Asc("A") 的结果为 65 3)Chr 函数返回对应 ASCII 码的字符 例如,Chr(100) 的结果为 "d"( 小写字母 d 的 ASCII 码值为 100) 4)Val 函数返回包含在参数中的数值, 转换时会有多种情况, 如表 3-12 所示 表 3-12 Val 函数转换情况 语句结果 Val("1. 456") 结果为 1.456, 数值转换, 全部为数字字符串, 可以直接转换 Val("1.34S45") 结果为 1.34, 遇到字母停止转换, 字母后内容忽略 Val("-15DDIAN") 结果为 -15, 字母后内容忽略, 符号原样转换 Val("ACD3") 结果为 0, 字母开头均转换为 0 Val("&H1F") 结果为 31,Val 函数可以转换八进制或者十六进制数据 Val("1.7e2") 结果为 170,Val 函数可以转换单精度存储的数据 5)Str 函数直接返回对应的字符串, 转换时会将符号和小数点各转换为一个字符 例如, Str(16.89) 的结果为 " 16.89", 正数省略符号, 转换为空格, 小数点转换为 "." Str(-7.5) 的结果为 "-7.5", 负号直接转换 6)Str 函数和 CStr 函数的区别在于,Str 函数转换的时候, 正数会出现前导空格, 而 CStr 函数则不会产生前导空格, 直接将数字转换, 而负数转换相同 例如,CStr(16.89) 的结果为 "16.89", 正数的符号不转换 日期和时间函数 Visual Basic 中的日期和时间函数如表 3-13 所示 表 3-13 日期和时间函数 函 数 一般格式 说 明 Now Now 返回当前系统日期和时间 Date Date 返回当前系统日期 Time Time 返回当前系统时间

71 62 Visual Basic 语言程序设计教程 函 数 一般格式 说 明 Year Year(T) 返回表达式 T 的年份 (yyyy) Month Month(T) 返回表达式 T 的月份 (1~12) Day Day(T) 返回表达式 T 的日期 (1~31) WeekDay WeekDay(T) 返回表达式 T 的星期 (1~7) Hour Hour(T) 返回表达式 T 的小时 (0~23) Minute Minute(T) 返回表达式 T 的分钟 (0~59) Second Second(T) 返回表达式 T 的秒 (0~59) Timer Timer 返回系统当前时间从午夜算起经过的秒数 续表 1) 日期和时间函数使用相对简单, 若无参数, 则返回系统的时间或日期 ; 若有参数, 确定其参数均为日期型的数据即可操作 2) 函数的参数可以为任何日期型数据, 包括函数的结果 例如,Year(Now) 返回当前日 期的年份,Day(#7/25/2006#) 的结果为 25 3)WeekDay 函数的结果是将周日认为是一个星期的开始, 即周日对应的返回值为 1, 依次类推 格式输出函数 Visual Basic 中的格式输出函数可以用 Format 语句实现, 如表 3-14 所示 表 3-14 格式输出函数 函数一般格式说明 Format Format(S[, F]) 将数据转换为指定格式字符串 1)S 为有效表达式, 即要转换的数据 参数 F 一般不省略, 当省略时, 可以简单认为 此时 Format 函数的作用和 CStr 函数一致 例如,Format(-455) 的结果为 "-455" 2) 格式化数据时, 参数 F 中可以出现 # 0 等字符串来表示某种指定格式, 每一 个字符都可以代表转换后的一位字符, 当数据超过指定位数, 0 表示用 0 补齐, 而 # 表示不进行其他操作, 两种都进行四舍五入 例如,Format( , "##.###") 的结果为 " ",Format( , "00.000") 的结果为 " ",Format(2.3, "##.###") 的结 果为 "2.3",Format(2.3, "00.000") 的结果为 "02.300" 一般情况下, 整数部分用 # 表示, 小数的位数可以用 0 表示, 即规定某个数据保 留的位数 例如,Format(2.3, "##.000") 的结果为 "2.300" 在 Format 参数中, 还可以出现其他的符号, 如, : 或其他数据等, 这些符号原样 输出, 在处理时, 数据从右向左匹配 例如,Format(254485, "##:1:##") 的结果为 "2544:1:85" 当参数以 % 结尾时, 表示以百分制显示 例如,Format( , "00.0%") 的结果为 " %" 科学出版社职教技术出版中心 3) 格式化字符串时, 参数 F > < 等字符, 这些字符可以用来 用来表示字符串的长度, 不足的在字符串前补空格, 前加!, 则表示在字符串后补空格 > < 表示转换为大写或者小写字母 例如,Format("ABcd",

72 第 3 章 Visual Basic 语法基础 63 "@@@@@@@@") 的结果为 " ABcd",Format("ABcd", "!@@@@@@@@") 的结果为 "ABcd ",Format("Hello kid", "<") 的结果为 "hello kid",format("hello kid", ">") 的结果为 "HELLO KID" 也可以同时使用多个符号表示 例如,Format("Hello", ">@@@@@@@@") 的结果为 " HELLO" 3.5 Visual Basic 表达式的书写 在编写 Visual Basic 程序时, 应使用正确的 Visual Basic 表达式来进行程序的编写,Visual Basic 表达式的书写规则如下 1) 每个符号占一个位置, 必须在同一基准并排书写, 所有符号都不能出现在上标 下标位置, 例如,2 3 应该写成 2^3,x 1 要写成 x1 2) 数学表达式中省略的乘号必须要写上, 如数学表达式 2x 的 Visual Basic 算术表达式是 2*x, 否则含义就不同了 3) 所有的括号都应该用 ( ), 括号必须配对, 不能出现 [ ] 或者 { } 4) 数学中的有些符号不能出现在 Visual Basic 中, 如 ± 等 5) 书写 Visual Basic 表达式时要注意合理地使用函数 例如 : a b 1 数学表达式的 Visual Basic 表达式是 (a+b)/(a-b), 不能出现分子分母形式, 并根 a b 据需要按原计算优先级补加上小括号, 使得运算优先级不变 2 表达式中的乘方运算符号 2 (a b) (a b) 3 的 Visual Basic 表达式是 (a-b)^2+(a+b)^3, 指数应该写成 Visual Basic 2 b b 4ac 3 数学表达式的 Visual Basic 表达式是成 (b-sqr(b*b-4*a*c))/(2*a) 或者 2a (b-sqr(b^2-4*a*c))/2/a, 分子分母形式应转换为除法形式, 省略的乘号补上, 再利用 Sqr 函 数计算求平方根的操作, 最后根据优先级关系补加小括号 习 题 一 选择题 1. 符号 % 是声明 ( ) 类型变量的类型定义符 A.Integer B.Variant C.Single D.String 2. 以下变量名中,( ) 不符合 Visual Basic 的命名规范 A.Abc901 B._mnu_O2pen C.price_ D.K 3. 下面 ( ) 不是 Visual Basic 的数据类型 A.Single B.Object C.Currency D.Bool 4. 关于变量名的说法不正确的是 ( ) A. 必须是字母开头, 不能是数字或其他字符

73 64 Visual Basic 语言程序设计教程 B. 不能是 Visual Basic 的保留字 C. 可以包含字母 数字 下划线和标点符号 D. 不能超过 255 个字符 5. 在 Visual Basic 中, 下列运算符中优先级最高的是 ( ) A.* B.\ C.< D.Not 6. 以下语句的输出结果是 ( ) Print Format$(" ","000,000.00") A B.32,548.5 C.032, D.32, 表达式 4+5\6*7/8Mod 9 的值是 ( ) A.4 B.5 C.6 D.7 8. 若有 a=8 : b=9 : print a>b, 则输出结果为 ( ) A.-1 B.0 C.False D.True 9. 以下关系表达式中, 其值为假的是 ( ) A."XYZ"<"XYz" C."the"<>"there" 10. 函数 Len(Str(Val("123.4"))) 的值为 ( ) B."VisualBasic"="visualbasic" D."Integer">"Int" A.11 B.5 C.6 D 设 A=" ", 则表达式 Val(Left(A,4)+Mid(A,4,2)) 的值为 ( ) A B C.8 D.6 12.Rnd 函数不可能产生 ( ) 值 A.0 B.1 C D 表达式 Right("Beijing",4) 的值是 ( ) A.Beij B.jing C.eiji D.ijin 14. 表达式 Abs(-5)+Len("ABCDE") 的值是 ( ) A.5ABCDE B.-5ABCDE C.10 D 表达式 Int(-17.8)+Fix(-17.8)+Int(17.8)+Fix(17.8) 的值是 ( ) A.1 B.0 C.-1 D.-2 二 根据要求写出表达式 1. 产生一个 1~100 范围内的随机正整数 2. 表示 x 是在 (10,50) 区间范围内的数据 3. 表示 x 是 4 或者 13 的倍数 4. 产生 A~Z 范围内的 ( 包括 A~Z) 的大写字母 ( 提示 : 字母 A 的 ASCII 码值为 65) 三 写出下列函数的值 1.Int( ); 2.Sqr(Sqr(16)); 3.Fix( ); 4.Int(Abs(99-100)/2); 5.Sgn(7*3+2); 6.Format(2.3, "##.000"); 7.Left("Hello",2); 8.Val("16 Year"); 9.Str( ) 科学出版社职教技术出版中心

74 第 3 章 Visual Basic 语法基础 65 四 将下列数学表达式改写为等价的 Visual Basic 表达式 2 2 b 4ac b 1. 4a 2 ; sin 10 cos ; (a b) 4ac ; 4. a +e + a+e 五 编程题 框输出 1. 编写一个程序, 将用户由文本框输入的大写字母转换成小写字母, 并在另一个文本 2. 编写一个程序, 在文本框中显示当前系统时间, 并随时间进行变化

75 第 4 章 顺序结构 本章重点 : 开始介绍本章内容前, 有以下两点说明 : 1) 为表示一个算法, 即程序的操作步骤, 本书统一采用传统流程图 流程图是用一些图框表示各类操作流程的图形 用流程图表示算法比较直观, 便于理解 一些常用的流程图符号由美国国家标准化协会 (ANSI) 规定, 如图 4-1 所示 2) 在 Visual Basic 中编写程序代码时, 其 Visual Basic 语句书写自由, 但需要遵循一定的规则 : 1 Visual Basic 一般一行书写一条语句, 一行最多有 1023 个字符 2 在一行内可以书写多条较短的语句, 但语句间要用 : 隔开 3 较长的语句可分多行书写, 但分行时需要在行末加 _ 符号 4 代码不区分字母的大小写 5 对于用户自定义的常量 变量和过程名称,Visual Basic 以第一次定义和使用的格式为准, 以后的表示均自动转换为第一次定义和使用的格式 6 对应 Visual Basic 中仅包含一个单词的关键字, 首字母自动转换为大写, 其余字母为小写 ; 包含多个单词的关键字,Visual Basic 会将每个单词的首字母转换为大写, 其余字母为小写 例如,Font ForeColor 程序设计普遍采用结构化方法, 可使程序结构清晰, 可读性强, 提高程序的质量和效率 结构化程序由 3 种基本控制结构组成, 即顺序结构 分支结构和循环结构 这 3 种基本结构可以组成各种复杂程序 顺序结构是一种简单的程序结构, 即按程序段中语句出现的先后顺序依次执行的结构 在顺序结构中出现的主要语句就是 Visual Basic 中允许的各种合法语句, 如赋值语句 输入 / 输出语句及各类函数 顺序结构的流程如图 4-2 所示 先执行 A 操作, 其次执行 B 操作 最后执行 N 操作, 它们是顺序执行的关系 科学出版社职教技术出版中心

76 第 4 章 顺序结构 67 图 4-1 常用流程图符号 图 4-2 顺序结构流程示意图 4.1 注释语句 为了提高程序的可读性, 以方便自己或他人理解语句的含义, 在程序的必要位置加上注释语句是必要的 注释语句是非执行语句 注释语句有以下两种定义格式 格式一 : Rem 注释内容格式二 : ' 注释内容功能 : 用于对程序中的语句进行注释说明 说明 : 1) 注释语句可单独占一行, 也可以放在语句的后面 2) 若在语句行后面使用 Rem 关键字, 则必须使用冒号 : 与语句隔开 3) 若在语句行后面使用 ', 则不必使用冒号, 单引号应是半角英文的直撇号 例如 : Private Sub Command1_Click() Rem 将文本框 1 里面的内容赋给文本框 2 Text2.Text = Text1.Text ' 将文本框 1 里面的内容赋给文本框 2 Text1.Text = " " :Rem 将文本框 1 里面的内容清空 End Sub 4.2 数据的输入 输入是指在执行程序时需要从外界获取的必要信息 例如, 统计全部学生某门课程的总分和平均分, 首先要输入全部学生这门课程的分数 输入在有些状况下也可以没有, 如求 10!, 则在编写程序时不需要输入任何数据

77 68 Visual Basic 语言程序设计教程 Visual Basic 中可以有多种基本输入方式, 包括赋值语句 文本框的输入和 InputBox 函数的输入等 利用赋值语句输入数据 Visual Basic 编程语言中用 = 作为赋值运算符, 简称赋值号 赋值语句的格式为 [Let] 变量名 ={ 常量 变量 表达式 对象的属性 } 在上述格式中, 赋值语句的功能是将赋值号右边的表达式的值赋给赋值号左边的变量 ; 其中赋值号左边的变量可以是用户自定义的变量, 也可以是对象的属性 ; 赋值号右边的表达式可以是常量 表达式 文本框等控件中获取的值, 也可以是由 InputBox 函数提供的值 说明 : 1) 赋值号两边的数据类型必须保持一致性或兼容 2) 赋值语句先计算右边表达式的值, 再将结果赋给左边的变量 例如,Let X=X+1 表示变量 X 加上 1 以后赋给左边的变量 X 例 4.1 在名称为 Form1 的窗体上从上到下添加两个文本框, 名称分别为 Text1 Text2; 再添加一个命令按钮, 名称为 Command1, 标题为 选中字符数是 程序运行时, 在 Text1 中输入若干字符, 选中部分内容后, 单击 选中字符数是 按钮, 则在 Text2 中显示选中的字符个数, 如图 4-3 所示 Command1 的 Click 事件的代码如下 : 图 4-3 例 4.1 运行结果 Private Sub Command1_Click() Text2.Text = Text1.SelLength ' 此处的赋值语句为属性赋值 End Sub 使用文本框输入数据 科学出版社职教技术出版中心 文本框控件具备 Text 的属性, 程序可以通过获取文本框内容获得相关的信息, 也可以将有关信息显示在文本框内, 故在很多程序中利用文本框完成信息的输入与输出 例 4.2 设计一个程序, 输入一个长方体的长 宽 高, 计算并输出其体积, 界面如图 4-4 所示 当用户输入长 宽 高后单击 计算 按钮, 输出结果

78 第 4 章 顺序结构 69 图 4-4 例 4.2 运行结果 程序代码 : Private Sub Command1_Click() Dim a As Single, b As Single, h As Single, v As Single a = Val(Text1.Text) b = Val(Text2.Text) h = Val(Text3.Text) v = a * b * h Text4.Text = v End Sub Private Sub Command2_Click() End End Sub 使用 InputBox 函数输入数据文本框输入是以文本框控件为载体完成数据输入的, 当数据量比较大的时候也可以通过 输入对话框 来实现数据的输入 InputBox 函数的作用就在于 : 在一对话框中显示提示信息, 待用户在文本框中输入数据后单击按钮, 返回文本框中的内容 函数返回值的类型为 String 类型 InputBox 函数的语法格式为 X=InputBox( 提示信息,[ 标题 [, 默认值 ][,X 坐标,Y 坐标 ][, 帮助文件, 上下文 ]]) InputBox 函数各参数用法说明如表 4-1 所示 表 4-1 InputBox 函数参数用法说明参数用法 提示信息 标题默认值 提示信息参数是必需的 若包含多个行, 可在各行之间用 Chr(13)( 回车符 ) Chr(10)( 换行符 ) 或 Chr(13)& Chr(10) 来分隔对话框的标题, 可选项文本框里的默认值, 可选项

79 70 Visual Basic 语言程序设计教程 续表 参 数 用 法 X 坐标,Y 坐标 X 坐标 Y 坐标决定输入框的位置 帮助文件 可选项, 识别帮助文件, 用该文件为对话框提供上下文相关的帮助 如果已提供帮助文件, 则必须提供上下文 上下文 可选项, 数值表达式, 由帮助文件的作者指定给某个帮助主题的帮助上下文编号 返回值 返回值 x 将是用户在文本框中输入的数据,x 是一个字符串类型的值 如果单击 Cancel 按钮, 则 x 将为空字符串 例如, 执行语句 : X=InputBox (" 请输入任意字符串 ", " 输入 ") 弹出的对话框如图 4-5 所示 例 4.3 设计图 4-6 所示的界面, 当单击 交换 按钮时, 依次出现两次输入对话框, 第一次输入 a 的值, 第二次输入 b 的值, 最后将交换后的 a b 的值显示在对应的文本框中 图 4-5 InputBox 的运行结果图 4-6 交换数字界面设计 思路 : 交换变量的值必须另外设定中间变量 c, 临时存放从 a 中获得的值, 再将 b 的值 赋给 a, 最后将放在 c 存储单元的值赋给 b Command1 的 Click 事件的代码如下 : Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = Val(InputBox(" 输入 a 的值 ", " 输入 a")) ' 将从 InputBox 中获得的值转换为数值型赋给 a b = Val(InputBox(" 输入 b 的值 ", " 输入 b")) ' 将从 InputBox 中获得的值转换为数值型赋给 b c = a a = b b = c Text1.Text = a Text2.Text = b End Sub ' 实现变量 a 和变量 b 之值的交换 ' 交换后的值赋给 Text1 ' 交换后的值赋给 Text2 科学出版社职教技术出版中心 运行程序时直接单击 交换 按钮, 弹出图 4-7(a) 所示的输入对话框, 输入 a 的值为 3; 然后单击 确定 按钮, 又弹出一个输入对话框, 输入 b 的值为 4, 如图 4-7(b) 所示 ; 单击 确定 按钮, 文本框内显示 a 和 b 的值交换后的结果, 如图 4-7(c) 所示

80 第 4 章 顺序结构 71 (a) 输入 a 的值 (b) 输入 b 的值 (c) 交换结果 图 4-7 利用 InputBox 输入数据注意 : 在较为简单的程序中, 利用文本框等控件或 InputBox 函数基本可以完成所有的输入功能 相对而言, 结合标签控件 文本框完成输入更为清晰且易于操作 但是在有较大数据量的情况下, 如学生的成绩 用户的信息等需要几十甚至成百上千的数据输入时, 往往就需要利用循环 数组和 InputBox 函数相结合的方式来输入数据 4.3 数据的输出 程序设计的最终目的是给用户一个答案, 计算的结果应显示在用户界面上供用户观看 因此对于一个完整的程序, 数据的输出是必不可少的 例如, 统计学生的平均成绩, 通过计算全部学生的成绩后所得的平均成绩就是输出结果 没有输出的程序是没有意义的 在 Visual Basic 程序设计中, 数据的输出可以有多种方式, 如使用 Print 方法输出或用 MsgBox 函数进行输出 ; 当然也可以在各类可供输出的控件上完成输出, 如文本框 标签等 Print 方法 Print 方法是很多 Visual Basic 对象所具备的方法, 包括窗体 图片框或打印机等 使用 Print 方法可以在上述对象中显示字符串和表达式的值 其语法格式为 [ 对象名.]Print[{ 常量 变量 表达式 [{, ;}]}] 说明 : 1) 对象名可以是 Form( 窗体 ) PictureBox( 图片框 ) 或 Printer( 打印机 ) 如果省略对象名, 则在当前窗体上输出 2) 表达式可以是数值表达式或字符串表达式 当输出多个表达式时, 表达式之间可以用, ; 或 隔开 3) 若各表达式之间用, 分隔, 则按标准输出格式 分区输出格式 ( 每区 14 个字

81 72 Visual Basic 语言程序设计教程 符 ) 输出 4) 若输出各表达式之间用 ; 分隔, 则按紧凑格式 ( 数值前一个符号位, 后面一个空格, 字符串前后没有空格 ) 输出 5) 若要使后面执行 Print 方法时还在本行输出, 可以在末尾加 ; 或, 6) 单独执行一个 Print 方法, 效果为换行 仅靠使用 Print 方法输出结果的格式过于单调, 往往输出需要配合其他输出格式控制函数, 包括 Tab Spc 或 Space 等函数 (1)Tab 函数语法格式 : Tab(n) 功能 : 输出的数据定位到 n 指定的位置 若省略 n, 则在下一行首位置输出 ; 若当前位置大于 n, 则在下一行的 n 列开始输出 当 Print 方法与 Tab 函数一起使用时, 打印的外观将会被分割为均匀 定宽的列 各列的宽度等于选用字体内以磅为单位的所有字符的平均宽度 (2)Spc 函数或 Space($) 函数语法格式 : Spc(n) 或 Space(n) 功能 : 跳过 n 个空格后再输出下一个数据 若有如下代码段 : Print "11111" Print Tab(5); "20" Print Spc(5); "20" 则代码的运行结果如图 4-8 所示 可以看到 Tab 函数产生的输出效果是从第 5 列开始输出 20, 而 Spc 函数的效果为在 20 输出之前有 5 个空格输出 例 4.4 在窗体中创建一个按钮对象 按钮代码如下 : Private Sub Command1_Click() Print 1, 2, 3 Print 1; 2; 3 Print Print "a"; "b"; "c" Print "a", "b", "c" Print "123"; Print "abc" End Sub 单击 Command1 效果如图 4-9 所示 科学出版社职教技术出版中心 图 4-8 运行结果 例 4.5 输入任意圆半径, 将对应的圆周 圆面积 圆体积结果显示在窗体上 在窗体上创建按钮对象,Caption 属性改为 输入半径 按钮代码如下:

82 第 4 章 顺序结构 73 Private Sub Command1_Click() Const p = Dim r As Single, L As Single, s As Single, v As Single r = Val(InputBox(" 请输入圆的半径 :", " 输入 ")) ' 获得 r 的值 L = 2 * p * r s = p * r * r v = 4/3 * p * (r ^ 3) ' 分别计算圆周长 面积和体积 Print " 圆的半径为 " & Str(r) Print " 圆的周长为 " & Str(L) Print " 圆的面积为 " & Str(s) Print " 圆的体积为 " & Str(v) ' 将结果显示在窗体上 End Sub 当输入半径为 3 时, 窗体运行结果如图 4-10 所示 图 4-9 不同分隔符的 Print 效果 图 4-10 例 4.5 运行结果 文本框输出文本框在很多场合下都可以作为输出的对象, 相对 Print 方法的效果比较直观 下面通过例 4.6 说明 例 4.6 利用 InputBox 函数输入一个 4 位正整数 m, 编程实现将 m 倒序输出 例如, 输入 1234, 输出 4321 思路 : 利用整除 \ 和取余 (Mod) 分离出各位数字, 然后将各位数字重新组合成倒序后的数值, 界面设计如图 4-11 所示 反序 按钮的代码如下 : Private Sub Command1_Click() Dim m As Integer, n As Integer Dim a As Integer, b As Integer, c As Integer, d As Integer m = Val(InputBox(" 请输入 4 位数 ")) a = m \ 1000 ' 取千位数 b = (m - a * 1000) \ 100 ' 取百位数 c = (m - a * b * 100) \ 10 ' 取十位数 d = m Mod 10 ' 取个位数 Text2 = d*1000+c*100+b*10+a ' 反序输出 End Sub

83 74 Visual Basic 语言程序设计教程 思考 : 也可以将 4 位整数当作字符, 利用字符函数 Left Right 和 Mid 取各位字母, 重 新组合成新字符串输出 运行结果如图 4-12 所示 图 4-11 例 4.6 界面设计 图 4-12 例 4.6 运行结果 4.4 MsgBox 函数 MsgBox( 消息对话框 ) 用于创建一个消息框, 等待用户选择一个按钮, 并通过返回值 将用户的选择作为程序继续执行的依据 信息对话框中通常显示一些提示信息 出错信息或者警告信息等 MsgBox 函数的语法格式如下 : [Action=]MsgBox( 提示信息, 显示类型, 标题 ) 说明 : 1) 提示信息显示在提示框内 2) 显示类型为信息对话框所显示的效果, 显示类型对应的数值 符合常量及其含义如 表 4-2~ 表 4-4 所示 3)Action 可以获取用户所选择按钮对应的返回值 表 4-2 按钮类型含义对照表 数 值 符号常量 意 义 0 vbokonly 只显示 OK 按钮 1 vbokcancel 显示 OK Cancel 按钮 2 vbabortretryignore 显示 Abort Retry Ignore 按钮 3 vbyesnocancel 显示 Yes No Cancel 按钮 4 vbyesno 显示 Yes No 按钮 5 vbretrycancel 显示 Retry Cancel 按钮 表 4-3 图标效果对照表 数值符号常量意义 16 vbcritical Stop Sign 对极其重要的问题提醒用户 32 vbquestion Question Mark 增亮显示没有危险的问题 48 vbexclamation Exclamation Mark 强调警告用户必须知道的事情 64 vbinformation Information Mark 可以使乏味的信息变得有趣 科学出版社职教技术出版中心

84 第 4 章 顺序结构 75 表 4-4 省略按钮效果对照表 数 值 符号常量 意 义 0 vbdefaultbutton1 第一个按钮省略 256 vbdefaultbutton2 第二个按钮省略 512 vbdefaultbutton3 第三个按钮省略 注意 : 1) 设置 MsgBox 函数中的显示类型时, 既可以将所需的符号常量类型用 + 连接起来, 又可以直接将符号常量对应的数值加起来作为设置 2) 若返回值不需要做进一步的判断, 则可以省略 Action=, 同时使用 MsgBox 函数 的时候不用圆括号 例如 : x = MsgBox(" 是否退出?", vbokcancel, " 提示 ") 在弹出的对话框中若单击 确定 按钮, 则 x=1, 否则 x 等于 2 MsgBox 函数返回值含义如表 4-5 所示 表 4-5 MsgBox 函数返回值 返回值 符号常量 用户单击的按钮 1 vbok 确定 按钮 2 vbcancel 取消 按钮 3 vbabort 终止 按钮 4 vbretry 重试 按钮 5 vbignore 忽略 按钮 6 vbyes 是 按钮 7 vbno 否 按钮 下面列举几个不需要返回值的 MsgBox 函数运用的效果 MsgBox " 欢迎光临!", vbokonly + vbinformation, " 欢迎 " 显示效果如图 4-13 所示 MsgBox " 网络连接出现问题, 是否重试?", 274, " 警告 " '274 为 显示效果如图 4-14 所示 图 4-13 MsgBox 函数对话框 ( 一 ) 图 4-14 MsgBox 函数对话框 ( 二 )

85 76 Visual Basic 语言程序设计教程 习 题 一 选择题 1.Print 方法可以输出多个表达式, 若使用标准格式输出, 各表达式间的分隔符是 ( ); 若使用紧凑格式输出, 各表达式的分隔符是 ( ) A. 空格 B. 逗号 C. 冒号 D. 分号 2. 语句 Print "10+6=";10+6 的输出结果是 ( ) A.10+6=10+6 B.10+6=16 C.16=10+6 D."10+6"= 下列程序 Private Sub Command1_Click() a = Val(InputBox(" 请输入 a")) b = Val(InputBox(" 请输入 b")) Print a + b End Sub 运行时, 在提示窗口输入 4 和 5, 输出结果是 ( ) A.4 B.20 C.9 D. 出错 4. 下列事件过程 Private Sub Command1_Click() MsgBox Str( ) End Sub 运行时, 在输出对话框中显示的提示是 ( ) A B."76" C.76 D. 无提示 5. 下列事件过程 Private Sub Command1_Click() a$ = "24" b$ = "34" c$ = a$ & b$ d = Val(c$) Print d \ 10 End Sub 运行后单击窗体, 输出结果是 ( ) A.243 B C.2434 D."2434\10" 6. 执行下列程序段后,A B C 的值分别为 ( ) A=3:B=4:C=5 A=B:B=C:C=A 科学出版社职教技术出版中心 A B C D.4 5 5

86 第 4 章 顺序结构 77 二 填空题 1.InputBox 函数用于产生 对话框, 其返回值类型为, 利用 函 数, 可将 InputBox 函数的返回值转化为数值类型 2. 若要显示图 4-15 所示的对话框, 所需的 MsgBox 语句为 3. 若在运行下面程序时输入 34, 输出对话框的提示信息 是 Private Sub Command1_Click() X1 = InputBox(" 请输入 X") MsgBox (X1) End Sub 图 4-15 对话框 4. 下面程序的输出结果是 Private Sub Form_Click() Print Space(2); "*" Print Space(1); "***" Print "*****" End Sub 5. 下面程序的输出结果是 三 编程题 Private Sub Form_Click() Print "*"; Print Space(1); "***"; Print Space(1); "*****" End Sub 1. 利用 InputBox 函数输入参数 a b c, 计算二次方程 ax 2 +bx+c=0 的两个根 ( 仅考虑有实根的情况 ) 2. 输入一个华氏温度, 要求输出对应的摄氏温度, 公式为 5 C= (F- 32) 9