Microsoft Word - VBYY

Transcription

1 社 心 版 中 出 学 出版 cn 科 术 k. 技 boo 教.a 职 ww w

2 普通高等教育 十一五 规划教材 程序设计基础 Visual Basic 语言实现 刘敏昆李志平主编 解继丽李咏波王泳 刘江涛副主编 北 京

3 内容简介 本书在注重基本原理 基本概念讲解的基础上, 强调基本语法 基本技能的实际应用, 注意充分培养学生的综合应用能力和自学能力 本书共 10 章, 主要内容包括程序设计与程序设计语言 计算机程序设计的基础知识 面向对象程序设计 过程及调用 程序设计的集成开发环境 常用控件 图形应用程序设计 文件系统及其应用 Visual Basic 与数据库 本书适合作为普通高等院校非计算机专业本科生的教材, 也可作为相关从业人员的参考书 图书在版编目 CIP 数据 程序设计基础 :Visual Basic 语言实现 / 刘敏昆, 李志平主编. 北京 : 科学出版社,2009 ( 普通高等教育 十一五 规划教材 ) ISBN Ⅰ. 程 Ⅱ.1 刘 2 李 Ⅲ.BASIC 语言 程序设计 高等学校 教材 Ⅳ.TP312 中国版本图书馆 CIP 数据核字 (2009) 第 号 责任编辑 : 陈晓萍 / 责任校对 : 耿耘责任印制 : 吕春珉 / 封面设计 : 耕者设计工作室 科学出版社发行各地新华书店经销 * 2009 年 2 月第一版开本 : / 年 2 月第一次印刷印张 :12 印数 : 字数 : 定价 :20.00 元 ( 如有印装质量问题, 我社负责调换 科印 ) 销售部电话 编辑部电话 版权所有, 侵权必究举报电话 : ; ; 科学出版社职教技术出版中心

4 前 言 Visual Basic 是一种可视化的编程语言, 利用它, 可使编程工作变得轻松 快捷 在 Visual Basic 的开发环境下, 无需进行代码设计便可进行数据处理 文字 声音 影像的制作以及数据库的访问等操作 Visual Basic 快捷的开发速度, 简单易学的语法, 友好便利的开发环境, 是初学者的首选入门语言 当前在国内已出版的程序设计相关书籍中, 有关程序设计基础的理论与实践成果已经相当丰富, 但是基本都偏向于 函数 语法 语句 的讲授思路, 以应用来讲解语句 语言的书籍还不多, 不适应目前 Visual Basic 教育发展的现状 为了实施新的教学理念, 我们编写了本书, 而本书坚持 应用问题 语句 语法 的编写思路, 以面向应用带动语法的讲授, 注重培养学生理论结合实际, 系统地解决问题的能力 本书共 10 章, 第 1 章程序设计与程序设计语言, 主要介绍了设计语言的分类 计算机程序设计的基本思路与指导思想, 程序开发的基本步骤等 ; 第 2 章计算机程序设计的基础知识, 介绍了程序设计的基础语言的数据类型 运算符和编码规则等基础知识 ; 第 3 章面向对象程序设计, 主要讲述了面向对象程序设计概念 Visual Basic 开发环境 可视化编程的一般步骤等 ; 第 4 章程序设计的基本语句与结构, 主要介绍了常用函数 语句及控制结构等内容 ; 第 5 章过程及调用, 主要介绍了过程的定义与调用及代码编写 ; 第 6 章程序设计的集成开发环境, 主要介绍了 Visual Basic 集成开发环境的各种功能, 及对话框和菜单的设计与使用 ; 第 7 章常用控件, 主要介绍了控件的概念及常用控件和 ActiveX 控件的使用 ; 第 8 章图形应用程序设计, 介绍了绘制图形和图形的输出 ; 第 9 章文件系统及其应用, 介绍了文件的结构 分类与操作, 文件的读写, 文件系统控件等 ; 第 10 章 Visual Basic 与数据库, 简单介绍了数据库的基本概念和使用方法, 详细介绍了 Data 控件 DBGird 控件 ADO Data 控件的使用和 SQL 语言的使用 本书在编写上符合计算机科学规范, 在组织架构上涵盖所属学科的新理论与方法, 在案例选取上注重适用与准确, 在编写材料上兼顾理论与实用 ; 在新度 深度与广度方面都有通盘考虑, 因此本书具有很好的实用价值 在编写过程中, 我们多次得到云南师范大学校领导 科研处领导的关心和指导, 在此一并致谢 科学研究是一个不断探索 发展和完善的过程, 信息技术的教学与研究更是如此, 本书仅作为教学团队与学科建设的研究成果奉献给大家, 相信以后会有更多 更好的成果与大家一起分享 由于编者水平有限, 加之编写时间仓促, 书中不妥之处在所难免, 敬请广大读者批评指正, 以便及时改正 编者 2008 年 12 月 2 日 i

5 目 录 前言第 1 章程序设计与程序设计语言 程序设计与程序设计语言概述 程序与程序设计 程序设计语言 计算机语言 计算机语言的发展 计算机语言的分类 计算机语言的特征 计算机程序设计概述 计算机程序设计的思想 计算机程序设计的基本方法 计算机程序设计的基本步骤 计算机程序的基本结构 结构化程序设计方法... 9 第 2 章计算机程序设计的基础知识 数据类型 变量与常量 运算符与表达式 内部函数 语句 语法 语义及规则 计算机程序设计的结构表示 顺序结构 条件判断结构 循环结构 计算机执行程序的过程 计算机程序设计环境 计算机的算法 第 3 章面向对象程序设计 可视化编程概述 可视化编程的基本概念 对象 对象的属性 事件和方法 科学出版社职教技术出版中心 iii

6 程序设计基础 Visual Basic 语言实现 3.2 窗体 控件与代码窗口 窗体对象 控件 代码窗口 可视化编程的一般步骤 建立用户界面 设置窗体和控件的属性 编写代码 应用实例 第 4 章程序设计的基本语句与结构 顺序结构程序设计 顺序结构程序的概念 赋值语句 数据输出 使用对话框 卸载对象语句 Cls 方法 注释语句 应用实例 选择结构程序设计 IF 语句 多分支条件选择语句 条件函数 ( 可选 ) 综合应用实例 循环结构程序设计 循环结构程序设计的概念 For Next 语句 Do Loop 循环语句 其他辅助控制语句 应用实例 数组 数组和数组元素 静态数组 动态数组 应用实例 第 5 章过程及调用 Visual Basic 过程的分类 iv

7 目 录 5.2 Visual Basic 的过程 子过程 创建子过程 调用子过程 函数过程 定义函数过程 调用函数过程 过程应用实例 参数传递 形式参数与实际参数 按址传递与按值传递 传递数组 第 6 章程序设计的集成开发环境 程序设计集成开发环境的概念 Visual Basic 的启动与退出 Visual Basic 的启动 Visual Basic 的退出 主窗口 标题栏 菜单栏 工具栏 其他窗口 工具箱窗口 窗体设计器窗口 工程资源管理器窗口 代码编辑器窗口 属性窗口 窗体布局窗口 科学出版社职教技术出版中心 对象浏览器窗口 立即 本地和监视窗口 创建一个简单的 Visual Basic 应用程序 Visual Basic 集成开发环境的配置 视图 菜单的设置 Visual Basic 集成开发环境的高级设置 Visual Basic 帮助系统的使用 第 7 章常用控件 控件的概念及基本属性 v

8 程序设计基础 Visual Basic 语言实现 控件的分类 控件的命名 控件的值属性 焦点 访问键 容器 常用控件 单选钮和复选框 框架 列表框和组合框 时钟 滚动条控件 图像控件和图片框控件 ActiveX 控件的使用 向工具箱中添加 ActiveX 控件的方法 常用的 ActiveX 控件 第 8 章图形应用程序设计 绘制图形 默认坐标系统 线宽与线型 填充与色彩 图形控件 图形方法 图形的输出 PictureBox 控件 Image 控件 第 9 章文件系统及其应用 文件的结构 分类与操作 文件的结构 文件的分类 文件的操作 文件的读写 文件的打开与关闭 顺序文件的读写 随机文件的读写 文件系统控件 驱动器列表框 vi

9 目 录 目录列表框 文件列表框 驱动器列表框 目录列表框与文件列表框的关联 常用文件操作函数和语句 第 10 章 Visual Basic 与数据库 数据库概述 关系数据库的基本结构 数据访问对象模型 SQL 数据库的分类 ODBC 和数据源 使用数据库管理器 建立一个数据库 添加数据表 编辑数据表中的数据 使用数据窗体设计器 Data 控件 Data 控件的属性 Data 控件的方法 Data 控件的事件 Recordset 对象 Data 控件应用实例 DBGrid 控件 用 DBGrid 控件浏览数据库表 DBGrid 控件设计操作 DBGrid 控件的运行操作 DBGrid 控件的应用实例 ADO Data 控件 科学出版社职教技术出版中心 ADO Data 控件的属性 ADO Data 控件的方法 ADO Data 控件的事件 ADO Data 控件的应用实例 SQL SQL 语言的组成 数据查询语句 使用 SQL 参考文献 vii

10 程序设计与程序设计语言 1.1 程序设计与程序设计语言概述 程序与程序设计现在人们说到的程序和程序设计, 通常是和计算机联系在一起的 其实在计算机发明以前的很长时间, 我们都在和程序打交道, 都在进行程序设计 那么, 什么是程序和程序设计呢? 程序指完成一项任务或解决一个问题的方法和步骤 程序设计指思考解决问题的正确方法或步骤, 并将其用适当的工具进行表述的过程 程序具有可执行性和可重复性的特点 对同一个问题的解决方法不同可能产生不同的程序 程序设计者的思考方式不同, 也会得到不同的程序呈现形式 表述程序的工具有语言 文字和图表等 例 1.1 编写烹饪番茄炒鸡蛋的程序 1) 将番茄洗净 去蒂, 切成 1.5 厘米见方的小丁 2) 鸡蛋打入碗中, 加入少许盐, 搅打均匀 3) 将油放入锅内, 热后先炒鸡蛋, 炒后取出 4) 锅中再加入底油, 热后投入西红柿煸炒 5) 加入白糖 精盐, 炒匀, 然后放入鸡蛋同炒几下即成 例 1.2 试设计学生作息程序 可用表 1.1 表示 表 1.1 就是一个程序, 编制作息表的过程就是程序设计的过程 程序设计语言程序设计语言是对程序进行表述的工具 程序设计者采用的语言必须是程序执行者所能理解的 1

11 程序设计基础 Visual Basic 语言实现 表 1.1 学生作息程序 时 间 安 排 6:30 起床 早操 7:00 早餐 上午 下午 晚上 7:30~8:00 早读 8:00 预备铃 8:10~8:55 第一节课 9:05~9:50 第二节课 10:10~10:55 第三节课 11:05~11:50 第四节课 14:20 预备铃 14:30~15:15 第五节课 15:25~16:10 第六节课 16:20~17:05 第七节课 17:15~18:00 第八节课 19:30~20:15 第九节课 20:25~21:10 第十节课 21:20~22:05 第十一节课 语言是各对象之间互相交流 理解和沟通的工具 广义的语言包括自然语言 密码 计算机语言 图形等 自然语言是人与人之间进行交流的工具, 人们使用自然语言交流 表达感情 设计程序等 计算机语言是人与计算机沟通的工具, 人们使用计算机语言编写程序, 命令计算机按照程序的要求完成既定的任务 例 1.3 某公司有两个仓库 A 和 B, 现公司要交换这两个仓库存储的货物, 请设计出交换的程序 1) 将 A 仓库的货物搬出 2) 将 B 仓库的货物搬入 A 仓库 3) 将 A 仓库搬出的货物搬入 B 仓库 例 1.4 用计算机语言表示例 1.3 的交换程序 Let C=A Let A=B Let A=C 计算机语言 科学出版社职教技术出版中心 计算机语言是设计计算机程序过程中使用的语言 人们面对需要解决的问题时, 先思考解决问题的方法并设计解决问题的步骤, 然后 2

12 程序设计与程序设计语言 1 用计算机语言表述出来, 再交给计算机执行程序即可 要学习计算机程序, 必须学习计算机语言 计算机语言是人们根据计算机的性质和特点创造的用于设计计算机执行的程序的语言 计算机语言的发展 计算机语言是随着计算机技术的发展而不断发展的, 它经历了 3 个时期 5 个时代 计算机语言的 3 个时期是低级语言时期 中级语言时期和高级语言时期 1) 低级语言直接使用二进制代码或符号化的二进制代码, 其代表语言为机器语言和汇编语言 2) 中级语言同时具备高级语言和低级语言的特征, 其典型代表为 C 语言和 Forth 语言 3) 高级语言使用人们熟悉的形式化的语句, 其典型代表为 Ada 语言 Pascal 语言 Basic 语言 Fortran 语言和 COBOL 语言 计算机语言的五个时代是机器语言时代 汇编语言时代 面向过程的高级语言时代 面向问题的数据库语言时代和面向对象的程序设计语言时代 1) 第一代计算机语言 机器语言 例 1.5 用机器语言设计计算 A=15+10 的程序 ' 把 15 放入累加器 A 中 '10 与累加器 A 的值相加, 结果存入 A 中 ' 结束, 停机 2) 第二代计算机语言 汇编语言 例 1.6 用汇编语言设计计算 A=15+10 的程序 MOV A,15 ' 把 15 放入累加器 A 中 ADD A,10 '10 与累加器 A 的值相加, 结果存入 A 中 HLT ' 结束, 停机 3) 第三代计算机语言 面向过程的高级语言 例 1.7 用高级语言 BASIC 设计 A=15+10 的程序 B=15 ' 把 15 放入 B 中 C=10 ' 把 10 放入 C 中 A=B+C ' 把 B 与 C 相加的结果放入 A 中 PRINT A ' 输出 A END ' 程序结束 4) 第四代计算机语言 面向问题的数据库语言 例 1.8 查找教龄在 30 年以上的职工的姓名和所在部门 用数据库语言设计的程序如下 SELECT 姓名, 部门, 教龄 FROM d:\ 职工.dbf WHERE 教龄 >=30 5) 第五代计算机语言 面向对象的程序设计语言 例 1.9 用面向对象的语言 Visual Basic 设计 A=15+10 的程序 Text1.text=15 ' 把 15 放入文本框 Text1 中 3

13 程序设计基础 Visual Basic 语言实现 Text2.text=10 ' 把 10 放入文本框 Text2 中 A= Text1.text+ Text2.text ' 将两数相加的结果放入 A 中 PRINT A ' 输出 A END ' 程序结束 计算机语言的分类 计算机广泛应用于社会各领域, 针对不同的应用, 处理的对象和处理的方法具有差 异 人们使用计算机来处理各种不同类型的问题, 因此就产生了各种针对不同应用的计算机语言 有解决人工智能的 Logo 语言 Lisp 语言, 有应用于商业的 COBOL 语言, 有用于科学计算的 Alogo 语言 Fortran 语言等 计算机语言的特征 尽管计算机语言多种多样, 但它们都具备如下相同的特征 1) 任何计算机语言编写的程序最终都要转换成计算机的机器指令在计算机内存中执行 2) 计算机语言都由代码 ( 语句 ) 数据组成 计算机语言的代码( 语句 ) 有规定的格式 语法 语义和参数, 用于实现运算 输入 输出功能, 而计算机语言的数据指被程序处理的对象 3) 计算机语言的语句可分为输入类 结构类和输出类 3 种类型, 语句通常由关键字和参数组成 4) 计算机语言的数据由常量 变量 数组 指针 链表等组成 5) 计算机语言会提供若干常用的函数供程序员使用 计算机程序设计的思想 1.2 计算机程序设计概述 计算机程序设计是将我们需要计算机解决的问题, 经过思考提出正确的解决过程或步骤并用计算机语言进行表述, 然后交给计算机执行的过程 计算机程序设计的关键是解决问题的过程或步骤设计, 计算机只不过是一个一丝不苟的程序执行者 对于其有错误的过程或步骤的程序, 计算机不可能给出一个正确的结果 计算机程序设计的基本方法 1) 提出或获取要解决的问题 2) 解决问题的基本方法和步骤 3) 掌握解决问题的基本方法和步骤的描述方式 4) 掌握一种计算机程序设计语言 例 1.10 试列出计算机程序设计的基本步骤 科学出版社职教技术出版中心 4

14 程序设计与程序设计语言 1 1) 提出问题 : 判断一个数字的奇偶性 为 0 则是偶数 2) 解决的步骤 : 输入数字 数字除以 2 得到余数 判断余数 输不为 0 则是奇数出结果 3) 用流程图描述解决步骤, 如图 1.1 所示 图 1.1 用流程图描述解决步骤 4) 用 Visual Basic 编写程序 Sub dim a as Integer a=text1.text dim i as Integer i=a mod 2 if (i==0 ) then print " 这是一个偶数 " else print " 这是一个奇数 " End if End Sub ' 程序开始 ' 获取输入的数字 ' 获取数字除以 2 的余数 ' 余数的条件判断 ' 条件成立 ' 条件不成立 ' 条件判断结束 ' 程序结束 计算机程序设计的基本步骤 计算机程序设计的基本步骤如下 1) 理解问题 5

15 程序设计基础 Visual Basic 语言实现 2) 确定算法 3) 描述算法 4) 书写程序 5) 上机运行调试 例 1.11 设计计算长方形面积的程序 1) 理解问题 : 根据用户输入的长方形长和宽, 计算出长方形的面积 2) 确定算法 : 长方形的面积 = 长 宽 3) 描述算法 ( 伪码 ) BEGIN 获得长 a 获得宽 b 计算面积 s=a b 输出面积 s END 4) 用 Visual Basic 编写程序 Private Sub command1_click() dim a as Single a=text1.text dim b as Single b=text2.text dim s as Single s=a*b Print " 面积为 "+s End Sub 5) 上机运行调试 计算机程序的基本结构 1. 计算机的工作模式 计算机的工作模式可以用图 1.2 来描述 图 1.2 计算机的工作模式 计算机的工作模式为输入 (Input) 处理 (Process) 和输出 (Output) 2. 计算机程序的整体结构 任何一个程序从整体结构上是由如下 3 个部分组成的 科学出版社职教技术出版中心 6

16 程序设计与程序设计语言 1 1) 输入部分 : 将要处理的数据送入计算机 2) 数据处理部分 : 按照程序的要求进行数据的处理 3) 输出部分 : 输出程序处理的结果 例 1.12 设计计算长方形面积的程序 dim a as Single a=text1.text dim b as Single b=text2.text dim s as Single s=a*b Print " 面积为 "+s 3. 计算机程序的局部结构 ' 输入部分 ' 数据处理部分 ' 输出部分 任何一个程序的局部结构有 3 种, 即顺序结构 条件结构和循环结构 (1) 顺序结构顺序结构即程序执行过程是按照程序步骤的先后顺序执行 例 1.13 可以用肥胖指数 (BMI) 判断一个人的偏胖程度, 肥胖指数的计算公式为体重 BMI= ( 体重单位为千克, 身高单位为米 ) 2 身高试编写计算 BMI 的程序 1) 测量身高数据 2) 测量体重数据 3) 利用 BMI 公式计算肥胖指数 4) 结束 思考一下, 在顺序结构程序中, 程序中各步骤的执行次序能否改变? 为什么? (2) 条件结构条件结构即程序的执行是依据一定的条件选择执行路径 这种根据条件进行判断后再选择执行语句的结构在程序语言里被称为 选择结构 选择结构适合于带有逻辑或关系比较等条件判断的计算 例 1.14 中国人衡量身体肥胖的标准如下 :BMI 20 为偏瘦 ;20<BMI<24 为正常, BMI 24 为超重 对给定的 BMI, 试编写判断体重是否正常的程序 思路 : 将已知的 BMI 值和判断的标准逐个比较, 根据比较结果显示体重是否正常 编制程序如下 : 1) 如果 BMI 24( 即条件 1), 显示出 体重超重 ; 转步骤 4), 否则执行步骤 2) 2) 如果 20<BMI<24( 即条件 2), 显示出 体重正常 ; 转步骤 4=, 否则执行步骤 3) 3) 直接显示 偏瘦 4) 结束 7

17 程序设计基础 Visual Basic 语言实现 (3) 循环结构 循环结构即程序执行过程中, 根据一定的条件重复执行一段程序 ( 若干步骤 ) 例 1.15 试测定 10 个人的肥胖指数 思路 : 逐个进行计算, 直到最后一个人结束 1) 输入第一个人的肥胖指数 BMI 2) 如果 BMI 24( 即条件 1), 显示出 体重超重 ; 转步骤 5), 否则执行步骤 3) 3) 如果 20<BMI<24( 即条件 2), 显示出 体重正常 ; 转步骤 5), 否则执行步骤 4) 4) 直接显示 偏瘦 5) 如果不是最后一个人, 输入肥胖指数 BMI, 转步骤 2), 否则执行步骤 4) 6) 结束 例 1.16 综合实例 电影院查票员的验票过程 思路 : 电影开场前, 查票员对进场的观众依次验票, 每一次的验票过程是一个顺序结构 ; 其中需要判断票据的正确性, 这是一个选择结构 ; 并且对所有观众的验票是每一次验票的循环 1) 一场电影的验票工作开始 2) 一个观众交票 3) 判断票据是否正确, 正确则观众进场, 不正确则观众不得进场 4) 判断是否还有观众未进场, 有则转步骤 2), 没有则转步骤 5) 5) 验票结束, 电影开始 科学出版社职教技术出版中心 图 1.3 画人脸的步骤 8

18 程序设计与程序设计语言 结构化程序设计方法结构化程序设计的方法如下 1) 自顶向下 2) 将大问题分解成若干小问题 3) 逐步求精 4) 单入口, 单出口 例 1.17 自顶向下的典型案例 画一个人的脸 该程序的步骤如图 1.3 所示 9

19 计算机程序设计的基础知识 任何计算机语言都具备一些共同的特征或要素, 如数据类型 常量和变量 运算符和表达式 内部函数及语句集合 2.1 数据类型 现实世界中, 所有的信息都可以用数据表示, 数据是信息的载体 数值 文字 视频 音频等都可用来呈现信息 当这些信息被计算机处理时, 都必须转换为二进制数 但计算机自己无法识别一个二进制数究竟是文字还是数值 为了让计算机知道所处理数据的性质, 在计算机语言中必须对数据的类型进行定义 定义数据类型即在计算机语言中规定计算机要处理的数据的性质 计算机根据数据的类型对数据进行存储和处理 数据类型用来说明数据的属性, 表示数据所表示的信息的类型 任何计算机程序设计语言都定义了自己的数据类型, 但不同的计算机语言定义的数据类型和数量会有所不同 常见的数据类型有整型 实数型 字符型 数组型等 计算机程序设计语言通过用特定的标识符对数据类型加以说明, 例如,Int 表示整型数据 char 表示字符型数据 float 表示实数型数据 数据类型决定了数据在计算机内存中存储的形式和处理规则 各类型的数据在计算机中根据不同的计算机硬件和计算机程序设计语言所占的字节不同 不同类型的数据表示的数据范围也不同 例 2.1 试说明 Visual Basic 的数据类型 在 判断一个数字的奇偶性 的 Visual Basic 程序中, 数字 a 定义为整型 Integer( 可表示 16 位二进制数, 其表数范围是 ~32 767) 例如, 在程序中将 a 值设为 2, 语句形式为 a=2, 但在计算机的存储器中是以 16 位二进制数的形式存放的, 如图 2.1 所示 科学出版社职教技术出版中心 10

20 计算机程序设计的基础知识 2 图 2.1 a=2 在计算机的存储器中以 16 位二进制数的形式存放 2.2 变量与常量 根据计算机硬件的工作原理, 所有的数据都是存放在计算机内存中, 计算机根据指令从指定的内存位置取出数据, 进行规定的处理, 然后再送入指定的内存位置 计算机内存的位置是用 16 进制数进行编址, 对程序设计人员来说难以记忆和寻址, 而常量和变量的使用则能大大降低程序员的编程难度 1. 常量在程序运行中, 其值始终保持不变的量即常量 例如, 在语句 a=2 中,2 就是一个常量, 它在计算机中的存储方式如图 2.2 所示 图 2.2 常量 a=2 在计算机中的存储方式 2. 变量在程序运行中, 它的值是可以根据需要而发生变化的量即变量 程序员使用有一定规则的字符串, 来标识变量在计算机中的存储位置 例如, 在语句 a=2 中,a 就是一个变量 ( 见图 2.3), 变量名 a 说明了 2 在计算机中的存储位置 错误! a 图 2.3 变量 a 在计算机的存储方式程序员可以通过语句 a=3 ( 见图 2.4) a=5 ( 见图 2.5) 等改变 a 的值 错误 a! 图 2.4 a=3 在计算机中的存储方式 错误 a! 图 2.5 a=5 在计算机中的存储方式 11

21 程序设计基础 Visual Basic 语言实现 变量存放什么类型的数据, 就是什么类型的变量, 变量定义为什么类型, 就只能存 放什么类型的数据 例 2.2 试计算长方形的面积 1) 确定变量的数量和名字 : 程序需要 3 个变量, 即长方形的长 宽和面积, 分别用 a b s 表示 2) 确定类型 : 长方形的长 宽和面积是带有小数部分的实数, 可使用 Visual Basic 中的单精度浮点型 Single 数据类型存放, 最多可以表示 7 位有效数字 3) 变量的定义过程如下 dim a as Single dim b as Single dim s as Single 4) 变量的使用过程如下 a=text1.text b=text2.text s=a*b 5) 变量的命名规则 : 255 个字符以内, 第一个字符是字母, 其后可以是字母 数字和下划线的组合 通常使用具有一定含义的变量名 保留字不能作为变量名 2.3 运算符与表达式 计算机是通过表达式来进行数据运算和处理的 表达式就是用运算符将数字和变量连接起来的式子 ( 见图 2.6) 图 2.6 计算长方形面积的公式及程序中使用的表达式 在计算机程序设计语言中, 常用的运算符有算术类 逻辑类等 2.4 内部函数 科学出版社职教技术出版中心 计算机程序设计语言将常用的函数编程后, 直接提供给程序员使用, 这些函数称为内部函数, 每个内部函数可完成某个特定的功能 1) 内部函数由函数名和参数构成的 例如, 计算 30 角的正弦值, 可使用 12

22 计算机程序设计的基础知识 2 Sin(30 ) 错误! 函数名 : 说明函数的功能参数 : 可有一个或多个, 说明对谁使用函数 2) 计算机程序设计语言提供的函数大体分为 4 大类 : 数学函数 字符串函数 日期 时间函数, 不同的程序设计语言提供的内部函数的类别和数量会有差异 2.5 语句 语法 语义及规则 语句是组成程序的基本单位, 是人们可以理解的关键词 任何一种计算机程序设计语言都是由若干语句构成的 每一个语句都有规定的语法 格式和特定的语义 程序员用计算机程序设计语言的语句表述解决问题的过程, 也称编程 例如,Visual Basic 中的语句 print " 我在学习程序设计!" 其语法为 print " 要打印对象 " 其语义为 : 在窗体中打印出 我在学习程序设计! 2.6 计算机程序设计的结构表示 计算机程序设计用到顺序结构 条件判断结构和循环结构 3 种结构 顺序结构 顺序结构指程序按照步骤的先后顺序依次执行, 如图 2.7 所示 例 2.3 试设计打开计算机的程序 第一类 : 用自然语言表示 1) 打开显示器电源 2) 打开主机电源 第二类 : 用流程图表示, 如图 2.8 所示 第三类 : 用伪代码表示 BEGIN Step1: 打开显示器电源 Step2: 打开主机电源 END 13

23 程序设计基础 Visual Basic 语言实现 图 2.7 顺序结构的表示 图 2.8 打开计算机的程序 第四类 : 用程序设计语言表示 Private Sub Monitor.power=true Main.power=true End Sub 条件判断结构 条件判断结构指程序判断条件的情况而执行不同步骤, 有单条件判断和多条件判断两种形式, 其结构如图 2.9 所示 图 2.9 条件判断结构的表示 例 2.4 试用条件判断结构来设计打开计算机的程序 第一类 : 用语言表示 科学出版社职教技术出版中心 14

24 计算机程序设计的基础知识 2 1) 打开显示器的电源 2) 如果连接了打印机就打开打印机的电源, 否则到第 3) 步 3) 打开主机的电源 第二类 : 用流程图表示, 如图 2.10 所示 第三类 : 用伪代码表示 图 2.10 打开计算机程序的流程 BEGIN 打开显示器电源如果 ( 连接了打印机 ) 则打开打印机电源否则打开主机电源 END 第四类 : 用程序语言表示 Private Sub Monitor.power=true If (Printer.connect= = true) then Printer.power= true Else Main.power=true End Sub 15

25 程序设计基础 Visual Basic 语言实现 循环结构循环结构指程序根据判断条件的成立与否, 重复执行部分步骤, 有先判断再循环和先循环再判断两种形式, 如图 2.11 所示 例 2.5 用循环结构设计打开计算机的程序 第一类 : 用自然语言表示 1) 打开一个外设电源 2) 连接的外设未打开则转第 1) 步, 否则转第 3) 步 3) 打开主机电源 第二类 : 用流程图表示, 如图 2.12 所示 图 2.11 循环结构的表示 图 2.12 打开计算机的程序流程 第三类 : 用伪代码表示 BEGIN Step1: 执行下面操作 : 打开一个外设电源如果还有连接的外设未打开则转 Step1, 否则转 Step2 Step2: 打开主机电源 END 第四类 : 用程序设计语言表示 Private Sub i=0 Do External[i].power=true 科学出版社职教技术出版中心 16

26 计算机程序设计的基础知识 2 i++ While(External[i].connect= =true) Main.power=true End Sub 2.7 计算机执行程序的过程 除了用计算机机器语言设计的程序外, 其他的计算机程序设计语言计算机都不能直接执行, 因为计算机的原理决定了它只能处理二进制数 计算机程序设计语言编制的程序在执行过程中都必须转换为二进制数的机器语言 谁来担当这个角色, 在什么时机进行转换呢? 执行计算机程序的两种方式如下 1) 解释方式即由解释程序对设计好的程序进行解释执行 解释程序按照程序的顺序, 逐次将每一条语句转换为机器语言后执行, 直至程序执行结束 再次执行时, 重复上述过程 2) 编译方式即由编译程序将设计好的程序一次性地转换成机器语言程序, 转换后的机器语言程序即可直接反复多次执行 计算机程序设计语言源程序即用户用计算机程序设计语言编写的程序 例如, 学生用 Visual Basic 程序设计语言编写的定时器程序, 称为 Visual Basic 程序设计语言源程序 计算机程序设计语言程序即将计算机程序设计语言源程序解释或编译成计算机可执行的机器语言的程序 该程序由计算机设计语言软件开发商提供 2.8 计算机程序设计环境 1. 计算机的硬件环境计算机的硬件环境指计算机的硬件, 一个完整的计算机硬件系统包括主机 键盘 显示器 ; 程序员通过键盘将编制好的程序输入计算机, 经计算机处理后, 将处理结果按照程序的要求在显示器上显示或在打印机上打印 计算机硬件环境实质上就是程序的执行者 2. 计算机的软件集成环境计算机的软件集成环境指完成程序编制的编辑 编译 调试等过程的统一的 集成的软件, 计算机软件集成软件环境为程序员提供了方便 快捷的编程环境 3. 计算机程序设计的人计算机程序设计的人指经过学习或培训, 熟练地掌握了一门或几门计算机程序设计语言, 能够分析实际应用问题并进行程序设计或将已经分析好的问题用计算机语言编程 17

27 程序设计基础 Visual Basic 语言实现的人, 即程序员 在计算机程序设计环境中, 程序员是最重要的, 硬件环境是程序设计的物质基础, 软件集成环境是提高程序设计生产力的工具 三者构成了一个程序设计的环境 程序员只有了解和熟悉程序设计的环境, 才可能得心应手地进行程序设计 2.9 计算机的算法 在计算机程序设计中, 对计算机解决问题的步骤和过程的描述进行了形式化的定义 这种形式化的定义称为算法, 下面给出算法的定义 算法是一个有穷规则的集合, 该规则集合规定了解决特定类型问题的运算序列 通 俗地说, 算法就是解决问题的方法和有限的步骤 算法可以用自然语言 流程图 程序设计语言等进行描述或表述 例 2.6 试通过一个中间变量 t 交换两个变量 a 和 b 的值 算法可描述如下 开始 [S1] 将 a 的值赋给 t, 即 t=a [S2] 将 b 的值赋给 a, 即 a=b [S3] 将 t 的值赋给 b, 即 b=t, 结束结束 科学出版社职教技术出版中心 18

28 面向对象程序设计 3.1 可视化编程概述 可视化编程的基本概念传统的编程方法使用的是面向过程 按顺序进行的机制, 其缺点是程序员始终要关心什么时候发生什么事情, 应用程序的界面都需要程序员编写语句来实现, 对于图形界面的应用程序, 只有在程序运行时才能看到效果, 一旦不满意, 还需要修改程序, 因而使得开发工作非常繁琐 而用 Visual Basic 进行应用程序开发主要有两部分工作, 即设计界面和编写代码 在开发过程中所看到的界面与程序运行时的界面基本相同, 同时 Visual Basic 还向程序员提供了若干界面设计所需要的对象 ( 称为控件 ), 在设计界面时, 只需将所需要的控件放到窗口的指定位置即可, 整个界面设计过程不需要编写代码 在 Visual Basic 环境中涉及的窗体 控件 部件和菜单项等均为对象, 程序员不仅可以利用控件来创建对象, 还可以建立自己的控件 Visual Basic 是 Windows 环境下应用程序开发的工具, 其特点是可视化编程 事件驱动和交互式 对象对象是代码和数据的组合, 可以作为一个单位来处理 对象可以是应用程序的一部分, 比如可以是控件或窗体, 整个应用程序也可以是一个对象 对象从何而来?Visual Basic 中的每个对象都是用类定义的 用饼干模子和饼干之间的关系作比喻, 就会明白对象和它的类之间的关系 饼干模子是类, 它确定了每块饼干的特征, 比如大小和形状 用类创建对象, 对象就是饼干 下面再用两个例子进一步说明 Visual Basic 中类与对象之间的关系 19

29 程序设计基础 Visual Basic 语言实现 1. 在 Visual Basic 的 工具箱 上, 控件代表类 直到在窗体上画出这些被称作控件的对象为止, 它们实际上并不存在 创建控件也 就是在复制控件类, 或建立控件类的实例 这个类实例就是应用程序中引用的对象 2. 在设计时操作的窗体是类 在运行时,Visual Basic 建立窗体的类实例 属性 窗口显示 Visual Basic 应用程序 中的对象的类和 Name 属性 可把对象看成是类的原原本本的复制品 一旦它们以单个对象的形式存在, 属性就 可改变 例如, 如果在窗体上画了三个命令按钮, 则每个命令按钮对象都是命令按钮类的实例 每个对象都具有一组由类定义的公共的特征和功能 ( 属性 方法和事件 ) 但是, 每个对象都有自己的名字, 都能分别设置成有效或无效, 都能放在窗体的不同位置, 等等 对象是现实生活中很常见的, 可以把对象想象成日常生活中的各种物体, 例如, 一个人 一只气球 一辆汽车 一台微型计算机等都是对象 以微型计算机为例, 一台微型计算机本身是一个对象, 而微型计算机又可以拆分为主板 内存 外设等部件, 这些部件也是对象, 因此, 微型计算机对象可以说是由多个 子 对象组成的, 即一个容器 (Container) 对象 与微型计算机的概念类似, 在 Visual Basic 中, 窗体 (Form) 命令按钮(Command Button) 和列表框 (ListBox) 等都是对象 每个对象都有其特征 ( 即属性 ), 如与小孩子玩的气球相关的特征数据有 : 直径 颜色, 状态 ( 充气或未充气 ) 等, 还有一些不可见的性质, 如寿命等 当然, 所有气球都具有这些属性, 同时这些属性也会因气球的不同而不同 对象的属性 事件和方法 Visual Basic 的控件是具有自己的属性 事件和方法的对象, 可以把属性看成一个对象的性质, 把事件看成对象的响应, 把方法看成对象的动作, 由此构成了对象的三要素 1. 对象的属性 科学出版社职教技术出版中心 改变对象的属性就可改变对象的特性 例如, 收音机的一个属性是音量 用 Visual Basic 的术语来说, 就是收音机有个 Volume 属性, 改变其值就可调节音量的大小 假定收音机的音量值可设置在 0 到 10 之间 如果能够通过 Visual Basic 控制收音机, 则可在一个过程中写代码, 把 Volume 属性值从 3 提高到 5, 使声音更响一些, 如下所示 Radio.Volume = 5 在 Visual Basic 程序中, 每个对象都有用来描述和反映该对象特征的参数, 称为属性 (Property), 如 Name( 控件名称 ) Caption( 标题 ) Color( 颜色 ) 等 在 Visual Basic 中, 记录属性数据的地方叫做属性栏 属性栏中记录的属性数据叫做 20

30 面向对象程序设计 3 属性值 在可视化编程中, 每一种对象都有一组特定的属性 通过程序代码更改对象的属性, 这时可使用 Visual Basic 的赋值语句, 格式为 : 对象名. 属性名 = 属性值通过设置属性的值可以改变对象的外观或特性 例如, 通过改变 TextBox 控件的 Text 属性, 就可以改变文本框的内容 下面是设置属性的语句 : Text1.Top = 200 ' 设置 Top 属性为 200 缇 (twips) Text1.Visible = True ' 显示文本框 Text1.Text = "hello" ' 在文本框中显示 hello 2. 对象的事件 (1) 事件对于对象而言, 事件 (Event) 就是发生在该对象上的事情 例如一个吹大的气球, 用针扎它一下, 该对象就会进行放气动作, 针孔就是个事件 Visual Basic 中提供了许多对象, 让用户利用它们来设计应用程序 例如, 按钮即是一个对象 在按钮对象上最常发生的事就是 按一下, 这个 按一下 就是按钮对象的一个事件 在按钮上面用鼠标按一下, 在 Windows 环境下称为 单击, 于是说按钮会有一个单击 (Click) 事件 除了单击事件外,Visual Basic 中还有双击 (DblClick) 事件 装载(Load) 事件 鼠标移动 (Mouse Move) 事件等 不同的对象能够识别不同的事件, 这就像老师可以批评学生, 却不能批评桌椅一样, 因为桌椅不能识别 批评 这种事件的发生 (2) 事件过程当在对象上发生了某个事件后, 必须想办法处理这个事件, 而处理的步骤就是事件过程 (Event Procedure) 以气球为例, 发生了针孔事件后, 可能是进行粘补或丢弃, 不论是粘补还是丢弃, 都是 针对 事件的处理步骤, 也就是事件过程 事件过程是针对事件而来的, 而事件过程中的处理步骤在 Visual Basic 程序设计中就是所谓的程序代码 在每一个 Visual Basic 提供的对象上, 都已经说明了该对象可能发生的事件, 而每一个事件都会有一个对应的空事件过程, 在编写程序时, 并不需要把所有的事件过程填满, 只要填入需要部分就可以了 当对象发生了某一事件, 而该事件所对应的事件过程中没有程序代码 ( 也就是没有规定处理步骤 ) 时, 则表明程序对该事件 不予理会 (3) 事件驱动写完程序后开始执行时, 程序会先等待某个事件的发生, 然后再去执行处理此事件的事件过程 事件过程要经过事件的触发才会执行, 这种动作模式称为事件驱动程序模式 (Event Driven Programming Model), 也就是说, 由事件控制整个程序的执行流程 21

31 程序设计基础 Visual Basic 语言实现 3. 对象的方法 对象中除了属性之外, 还包含了一些控制对象的动作或功能 以气球为例, 假设气 球这个对象有 3 个动作, 分别是充气 ( 用氢气充满气球 ) 放气 ( 排出气球中的气体 ) 上升 ( 放手让气球飞走 ) 这 3 个动作都是气球这个对象所提供的功能, 以程序设计术语 来说, 就是对象所提供的方法 (Method) Visual Basic 的方法通常用于完成某种特定功能, 如 Print( 对象打印 ) 方法 Show ( 显示窗体 ) 方法 Move( 移动 ) 方法等 方法只能在代码中使用, 其用法依赖于方法 所需要的参数个数以及它是否具有返回值 当方法不需要参数并且也没有返回值时, 可用下面的格式调用对象方法 : 对象名. 方法名参数名表例如, 窗体 Forml 有输出方法 print, 在事件过程代码中下面语句可以输出文字内容 欢迎来到 Visual Basic 世界! : Forml print," 欢迎来到 Visual Basic 世界!" 3.2 窗体 控件与代码窗口 在 Visual Basic 中, 窗体 控件都是对象, 用户通过代码窗口编写事件驱动程序 窗体对象 窗体是设计用户界面的基本平台, 是用户与应用程序进行交互的实际窗口 窗体是 Visual Basic 中的对象, 具有自己的属性 事件和方法, 也是程序设计的基础 各种控件对象必须建立在窗体上, 一个窗体对应一个窗体模块 与 Windows 环境下的应用程序窗口一样, Visual Basic 中的窗体也具有控制菜单 标题栏 最大化复原按钮 最小化按钮 关闭按钮以及边框, 如图 3.1 所示 窗体的操作与 Windows 下的窗口操作一样, 通过按住鼠标左键拖动标题栏可以移动窗体, 鼠标对准窗体边框出现双向箭头时拖动鼠标可以改图 3.1 Visual Basic 中的窗体变窗体的大小 窗体的控制菜单用来在程序运行时显示控制菜单, 通过属性设置, 可以在程序运行时将窗体上的标题栏隐藏起来 1. 窗体的事件 窗体可以响应许多事件, 常用的事件如下 1)Click: 单击 科学出版社职教技术出版中心 22

32 面向对象程序设计 3 2)Dbclick: 双击 3)Load: 装载 4)Resize: 调整尺寸 5)Activate: 激活 6)Deactivate: 失去激活 2. 窗体的方法窗体可调用多个方法, 常用的方法如下 1)Form.Hide: 隐藏窗体 2)Form.Move: 把窗体移到某个位置 3)Form.Print: 显示文本或数据 4)Form.PrintForm: 打印窗体 5)Form.Refresh: 强制重新绘制一个窗体 6)Form.Show: 显示窗体 控件用 Visual Basic 开发程序就像盖房子, 其中控件就是盖房子用的钢筋 砖瓦等原料 程序员使用不同的控件进行组合, 并且设置内部的联系, 就可以很方便地创建出程序来 在 Visual Basic 中, 控件是预先定义好的能够直接使用的对象, 每个控件都有大量的属性 事件和方法, 可在设计时或在代码中修改 图 3.2 为工具箱 图 3.2 Visual Basic 中的工具箱 23

33 程序设计基础 Visual Basic 语言实现 1. 控件的画法 将工具箱中的控件添加到窗体中的过程称为画控件, 画控件有如下两种方法 (1) 方法一 单击工具箱中的控件按钮, 在窗体上拖动鼠标画出控件, 画出的控件大小和位置可 随意确定 下面以画文本框为例进行说明 1) 单击工具箱中的文本框图标, 该图标反相显示 2) 把鼠标光标移到窗体上, 此时鼠标光标变为 + 号 3) 把 + 号移到窗体的适当位置, 按下鼠标左按钮, 不要松开, 并向右下方拖动 鼠标, 窗体上将出现一个方框 ( + 号的中心就是控件左上角的位置 ) 4) 随着鼠标向右下方移动, 所画的方框逐渐增大 当增大到认为合适的大小时, 松 开鼠标, 就在窗体上画出一个文本框控件 (2) 方法二 双击工具箱中的控件和按钮, 在窗体的中央画出控件, 画出的控件的大小和位置是 暂时固定的 双击工具箱中某个所需要的控件图标 ( 如文本框 ), 则可在窗体中央画出该控件, 但 所画控件的大小和位置是固定的 一般情况, 工具箱的指针 ( 左上角的箭头 ) 是反相显示 单击某个控件图标后, 该 图标反相显示 ( 指针不再反相显示 ), 可在窗体上画相应的控件 完后, 图标不再反相显示, 指针恢复反相显示, 即单击一次工具箱中的某个图标, 只能在窗体上画一个相应的控件 如要画多个某种类型的控件, 须多次单击相应的控件图标 为能单击一次控件图标即可在窗体上画出多个相同类型的控件, 可按如下步骤操作 1) 按下 Ctrl 键, 不要松开 2) 单击工具箱中要画的控件的图标, 然后松开 Ctrl 键 3) 用前面介绍的方法在窗体上画出控件 ( 可以画一个或多个 ) 4) 画完控件后, 单击工具箱中的指针图标 ( 或其他图标 ) 2. 控件的缩放和移动 科学出版社职教技术出版中心 用上述方法画出控件后, 其大小和位置不一定符合设计要求, 此时可对控件进行放大 缩小或移动位置的操作 在画控件的过程中发现, 画完一个控件, 在边框上有 8 个黑色小方块, 表明该控件是 活动 的, 故称活动控件或当前控件 对控件的所有操作都是针对活动控件进行的 因此, 为了对一个控件进行指定的操作, 必须先把该控件变为活动控件 当窗体上有多个控件时, 最多只有一个控件是活动的 只要单击一个不活动的控件 ( 光标位于该控件内部 ), 就可把这个控件变为活动控件 如果单击控件的外部 ( 光标位于该控件外部 ), 则可把活动控件变为不活动的控件 对不活动的控件不能进行任何操作 当控件处于活动状态时, 用鼠标拖拉上 下 左 右 4 个小方块中的某个小方块时, 24

34 面向对象程序设计 3 可使控件在相应的方向上放大或缩小 ; 如果拖拉位于 4 个角上的某个小方块, 则可使该控件同时在两个方向上放大或缩小 画出控件后, 如果该控件是活动的, 则只要把光标移到控件内 ( 边框内的任何位置 ), 按住鼠标左钮移动鼠标, 就可把控件拖拉到窗体内的任何位置 3. 控件的复制与删除 Visual Basic 允许对画好的控件进行复制, 操作步骤如下 1) 把需要复制的控件变为活动控件 ( 假定为 Command1) 2) 选择 编辑 菜单中的 复制 命令,Visual Basic 将把活动控件复制到 Windows 的剪贴板 (Clipboard) 中 3) 选择 编辑 菜单中的 粘贴 命令, 屏幕上将显示一个对话框, 询问是否要复制控件数组, 单击 否 按钮后, 就把活动控件复制到窗体的左上角 要清除一个控件, 必须先把该控件变为活动控件, 然后按 Del 键即可 清除后, 其他某个控件自动变为活动控件 4. 控件的布局当窗体上存在多个控件时, 需要对窗体上控件的排列 对齐 是否等大等格式进行调整操作 这些操作一般可以通过 格式 菜单完成 要调整多个控件之间的位置, 需要同时选定多个控件, 常用的选定方法有如下两种 1) 在窗体的空白区域按下鼠标左键拉出一个矩形框, 将需要选中的控件圈上 2) 先按下 Shift 键, 再用鼠标单击所要选中的控件 在选定多个控件之后, 就可以利用 格式 菜单对窗体上多个控件的格式进行调整了 注意 : 当选择多个对象时, 其中必有一个并且只有一个是最后选择的对象, 在这个对象的边缘上有 8 个实心小方块 代码窗口 1. 代码窗口的操作代码窗口又称代码编辑器 ( 见图 3.3), 各种通用过程和事件过程的代码均在此窗口上编写和修改 (1) 打开代码窗口的方法有下面 4 种方法可以打开代码窗口 1) 双击窗体的任何地方 2) 右击, 在快捷菜单中选择 查看代码 命令 3) 使用工程窗口中的 查看代码 按钮 4) 选择 视图 菜单中的 代码窗口 命令 (2) 代码窗口的组成 1) 对象 下拉列表框中列出了当前窗体及所包含的全体对象名 其中, 无论窗体 25

35 程序设计基础 Visual Basic 语言实现 的名称改为什么, 作为窗体的对象名总是 Form 图 3.3 代码窗口 2) 过程 下拉列表框中列出了所选对象的所有事件名 3) 代码区 是程序代码编辑区, 在这里能够方便地进行代码的编辑和修改操作 另外, 它还具有自动列出成员特性, 能够自动列举属性值 方法或函数原型等性能, 使代码编写更加方便 (3) 代码查看视图在代码窗口的左下角有两个按钮, 即 过程查看 按钮和 全模块查看 按钮 这两个按钮可切换代码窗口的两种查看视图 1) 过程查看 按钮的功能是一次只查看一个过程 2) 全模块查看 按钮的功能是可查看程序中的所有过程 2. 自动功能在 Visual Basic 代码窗口中编写代码时, 具有以下几个特性 (1) 自动列出控件的属性和方法要输入控件的属性和方法时, 在控件名后输入数点,Visual Basic 就会自动显示出一个下拉列表框, 其中包含了该控件的所有成员 ( 属性和方法 ) 输入属性名的前几个字母, 系统会自动检索并显示出需要的属性 从列表中选中该属性名, 按 Tab 键完成这次输入 当不熟悉控件有哪些属性时, 这项功能是非常有用的 如果系统设置了禁止自动列出成员, 可使用快捷键 Ctrl+J 启用 (2) 自动显示快速信息该功能可显示语句函数的语法格式 在输入合法的 Visual Basic 语句或函数名后, 在当前行的下面自动显示该语句或函数的语法 自动快速显示信息功能可以使用快捷键 Ctrl+I 启用 科学出版社 职教技术出版中心 26

36 面向对象程序设计 3 (3) 自动语法检查在 Visual Basic 中可自动进行语法检查 当输入某行代码后按 Enter 键, 如果系统出现语法错误,Visual Basic 会显示警告提示框, 同时该语句变成红色 3.3 可视化编程的一般步骤 Visual Basic 的对象已被抽象为窗体和控件, 因而大大简化了操作 在用 Visual Basic 开发应用程序时, 一般需要 3 个步骤, 即建立用户界面 设置窗体和控件的属性 编写代码 建立用户界面用户界面由窗体和控件组成, 所有控件都放在窗体上, 程序中的所有信息都要通过窗体显示出来, 它是应用程序的最终用户界面 在应用程序中要用哪些控件, 就在窗体上建立相应的控件 程序运行后, 将在屏幕上显示由窗体控件组成的用户界面 所以, 要先建立窗体, 然后在窗体上创建各种控件 设置窗体和控件的属性建立界面后, 就可以设置窗体和每个控件的属性 在实际的应用程序设计中, 建立界面和设置该控件属性可以同时进行 即每画完一个控件, 接着就可以设置它的属性 当然, 也可以在所有对象建立完成后再回来设置每个对象的属性 编写代码由于 Visual Basic 采用事件驱动器编程机制, 因此, 大部分程序都是针对窗体中的各个控件所能支持的方法或事件编写的, 这样的程序称为事件过程 例如, 命令按钮可以接收鼠标事件, 如果单击该按钮, 鼠标事件就调用相应的事件过程来做出相应的反应 在具体的设计过程中, 也可以在创建对象时, 一边设置对象的属性, 一边编写事件的过程代码 1. 新建一个工程在 Visual Basic 中, 开发的每个应用程序都被称为工程 新建一个工程的方法有两种 1) 启动 Visual Basic 后, 系统显示 新建工程 对话框, 在 新建 选项卡中选择 标准 EXE 项, 然后单击 打开 按钮 2) 选择 文件 菜单中的 新建工程 命令, 在 新建工程 对话框中双击 标准 EXE 项进入 Visual Basic 的集成开发环境, 开始设计工程, 即应用程序 系统默认的窗体只有一个 Forml 2. 添加控件向窗体中添加控件的步骤如下 27

37 程序设计基础 Visual Basic 语言实现 1) 单击工具箱中的 控件 图标, 鼠标指针变成十字形状 2) 在窗体的工作区按住鼠标左键拖动, 即可在窗体上画出对应的控件 3. 设置属性 对象属性的设置是在属性窗口中进行的, 其操作方法如下 (1) 设置窗体 Forml 的属性 单击窗体的空白区域 ( 不要单击任何控件 ), 确认选中的是窗体, 可从右侧的对象下 拉列表框中查看 (2) 设置控件的属性 单击窗体上的控件, 确认选中该控件, 根据需要逐一设置控件的各属性 4. 编写代码 在窗体中, 双击打开代码编辑器, 其中, 事件过程的首尾两行是系统自动给出的代码, 不必重复输入 5. 运行工程 单击工具栏上的 启动 按钮, 运行工程 6. 修改工程 修改工程包括修改对象的属性和代码, 或者添加新的对象和代码, 或者调整控件的大小等, 直到满足工程设计的需要为止 7. 保存工程 界面设计和代码设计完成并调试成功后, 通常将设计好的工程保存起来 在 Visual Basic 6.0 中, 用户为工程设计的每一个窗体, 都以扩展名为.frm( 窗体文件 ) 的独立文件保存, 而所有窗体中执行的程序代码, 都保存在以.vbp( 工程文件 ) 为扩展名的同一个文件中 1) 保存窗体文件 单击 常用 工具栏中的 保存工程 按钮, 在弹出的 文件另存为 对话框 ( 见图 3.4) 中, 设置窗体文件保存的路径, 在 文件名 文本框中输入窗体文件的主名, 如果不输入则以窗体的名称为文件主名保存, 单击 保存 按钮即可完成窗体的保存工作 2) 保存工程文件 在保存完窗体文件后,Visual Basic 6.0 程序将自动打开 工程另存为 对话框 ( 见图 3.5), 一般将工程文件的保存路径和主名设置为与窗体文件的保存路径与主名相同 ( 工程中如果含有多个窗体则另当别论 ) 此处, 将工程文件命名为 工程 1.vbp, 然后单击 保存 按钮 科学出版社职教技术出版中心 28

38 面向对象程序设计 3 图 3.4 保存窗体文件 图 3.5 保存工程文件此时, 在 Visual Basic 6.0 中执行完并将工程保存后, 将自动弹出提示对话框, 询问用户是否要将保存的工程添加到工程资源库中, 在此处单击 No 按钮即可 8. 工程的编译当完成工程的全部文件这后, 可将此工程转换成可执行文件 (exe), 即编译工程 在 Visual Basic 中对工程 ( 程序 ) 的编译操作非常简单, 首先在 文件 菜单中选择 生成工程 1.exe 命令, 在打开的 生成工程 对话框中选择程序所保存的文件夹和文件名, 单击 确定 按钮即可生成 Windows 中的应用程序 应用实例要建立一个简单的 Visual Basic 应用程序, 首先建立一个自己的文件夹, 以便将练习中生成的各种文件保存在该文件夹中, 这里在 E 盘建立一个 VBSY 文件夹 1. 建立一个新的工程启动 Visual Basic 6.0, 选择新建一个新的工程, 此时进入到 Visual Basic 6.0 集成开发环境, 屏幕上出现一个默认的 Forml 窗体 29

39 程序设计基础 Visual Basic 语言实现 2. 设置窗体属性选中窗体窗口中的窗体, 在属性窗口中选中名称属性, 将其属性值改为 Frmexp, 再选中 Caption 属性, 然后在右边列中输入 窗体, 此时窗体的标题栏变为 窗体, 窗体窗口的标题栏为 工程 1-Frmexp(Form) 3. 在窗体上绘制控件 1) 单击工具箱中的标有 A 的按钮 ( 标签 ), 在窗体的合适位置画出一个矩形区域, 在窗体上出现一个标签控件, 选中该控件, 然后在属性窗口中将其名称属性设为 LblDisp,Caption 属性设为 VB 集成开发环境 2) 单击工具箱中的命令按钮, 在窗体的合适位置画出一个命令按钮, 用鼠标选中该命令按钮, 然后在属性窗口中将其名称属性设为 cmddisp, 将 Caption 属性设为 显示 3) 在窗体中再添加一个命令按钮, 然后将其名称属性设为 cmdclear, 将 Caption 属性设为 清除, 窗体如图 3.6(a) 所示 (a) 窗体设计画面 科学出版社职教技术出版中心 (b) 代码窗口 图 3.6 建立 Visual Basic 应用程序 30

40 面向对象程序设计 3 4. 编写程序代码 1) 双击 显示 按钮, 打开代码窗口, 如图 3.6(b) 所示, 然后输入如下代码 Private Sub cmddisp_click() LblDiSp.ViSible = True End Sub 2) 在代码窗口的 对象 列表框中选择对象 cmdclear, 在 过程 列表框中选择事件 Click, 然后输入如下代码 Private Sub cmdclear_click() LblDisp.Visible = False End Sub 5. 运行程序 关闭代码窗口, 单击工具栏中的启动按钮 此时, 程序开始运行, 单击 显示 按钮, 窗口上出现文字 [ 见图 3.7(a)] 单击 清除 按钮, 窗口上的文字消失 [ 见图 3.7 (b)], 单击 显示 按钮, 又使文字显示出来 (a) 单击 显示 按钮 图 3.7 运行程序 (b) 单击 清除 按钮 6. 保存文件 选择 文件 菜单中的 保存工程 命令, 或单击工具栏中的 保存工程 按钮即可保存文件 由于是第一次保存文件, 因此, 在弹出的文件另存为对话框中提示保存窗体文件, 将窗体文件保存在 E 盘的 VBSY 文件夹下并命名为 Vbsy1_1.frm, 此时, 系统会继续提示保存工程文件, 将工程文件也保存在 E 盘的 VBSY 文件夹下并命名为 Vbsyl_1.vbp 7. 生成可执行文件选择 文件 菜单中的 生成 Vbsyl_1.exe 命令, 弹出 生成工程 对话框, 此时可执行文件名已默认为 Vblsy_1.exe, 如图 3.8 所示 在该对话框中单击 选项 按钮, 打开工程属性对话框, 如图 3.9 所示, 在该对话框中可以设置版本号 版本信息 编译 31

41 程序设计基础 Visual Basic 语言实现 选项等 最后单击 确定 按钮进行编译 图 3.8 生成工程 对话框 图 3.9 工程属性 8. 运行可执行文件 在 E 盘的 VBSY 文件夹下双击 Vbsyl-1.exe 文件, 运行该可执行文件 启动该程序 后的窗口如图 3.10 所示 图 3.10 运行可执行文件 科学出版社职教技术出版中心 32

42 程序设计的基本语句与结构 4.1 顺序结构程序设计 顺序结构程序的概念 有些简单程序可以只用单向的顺序流程来编写, 有些流程可以依靠运算符的优先级来控制, 但为了处理复杂问题, 仍要通过选择和循环改变语句执行的顺序 结构化程序设计有 3 种基本结构, 即顺序结构 选择结构和循环结构 如果没有使用控制流程语句, 程序便从左至右 自顶向下地顺序执行这些语句, 即程序为顺序结构 其特点是 : 在该结构中, 各语句按照各自出现的先后顺序, 依次逐块执行 一个程序通常可分为 3 个部分, 即输入 处理和输出 赋值语句 Visual Basic 中常用的基本语句有赋值语句 Let, 它的作用是将指定的值赋给某个变量或对象的某个属性 赋值语句的语法格式为 [Let] < 名称 >=< 表达式 > 说明如下 : 1)Let 表示赋值, 通常省略 2)< 名称 > 是变量或属性的名称 3)< 表达式 > 可以是算术表达式 字符串表达式 关系型表达式或逻辑表达式, 其类型应与变量名的类型一致, 即同时为数值型或同时为字符型, 否则会出现 类型不匹配 的错误 当同时为数值型但不同的精度时, 强制转换成 = 左边的精度 4) 赋值语句是先计算 < 表达式 >, 然后再赋值 5) 格式中的赋值号不是数学上的等号 如语句 a=2 应读为 将数值 2 赋给变量 a 或是 使变量 a 的值等于 2, 可以理解为 :a 2 虽然赋值号与关系运算符的等号都 33

43 程序设计基础 Visual Basic 语言实现 用 = 表示, 但 Visual Basic 系统不会混淆, 它将根据所处的位置自动判断是何种意 义的符号 1. 给变量赋值 给变量赋值的格式为 变量名 = 表达式例如 : A="VB 程序设计 " Text1.Text=A B=Text2.Text 2. 设置或获取对象的属性 设置属性值的格式为 [ 对象名.] 属性 = 表达式获取属性值的格式为变量名 = 对象名. 属性例如 : Dim v As Integer Dim book As String*8 Dim sum As Single v=26 v=v+1 book="vb 程序设计 " sum=v* 数据输出 在 Visual Basic 中, 可以使用 Print 方法实现数据输出 用 Print 方法可以在窗体上输出文本字符串或表达式的值, 并可在其他图形对象或打印机上输出信息 其语法格式为 [< 对象名 >.] Print [< 表达式表 >][{, ;}] 说明如下 : 1) 对象可以是窗体 图形框等, 此项可以省略 2)spc(n) 函数用于在输出时插入 n 个空格 3)Tab(n) 函数用于在输出表达式列表前向右移动到第 n 列 4) 表达式表即要输出的数值或字符串表达式, 若省略, 则输出一个空行 5) 分号 (;) 表示光标定位在上一个显示的字符后 6) 逗号 (,) 表示光标定位在下一个打印区的开始位置处 例 4.1 试使用 Spc 函数与 Tab 函数输出数据, 结果如图 4.1 所示 Private Sub Form_click() Show Print 科学出版社职教技术出版中心 34

44 程序设计的基本语句与结构 4 Print Tab(15); "#"; Spc(20); "@" Print Tab(14); "###"; Spc(18); "@@@" Print Tab(13); "#####"; Spc(16); "@@@@@" Print Tab(12); "#######"; Spc(14); "@@@@@@@" Print Tab(13); "#####"; Spc(16); "@@@@@" Print Tab(14); "###"; Spc(18); "@@@" Print Tab(15); "#"; Spc(20); "@" End Sub 图 4.1 输出图 使用对话框 在图形用户界面中, 对话框 (DialogBox) 是程序与用户交互的另一种主要途径, 对话框分为如下两种 1) 输入框 (InputBox), 可以输入信息 2) 消息框 (MsgBox), 可以显示信息 1. 输入框函数 输入框函数用来显示一个能接受用户输入数据的对话框, 并返回用户在对话框中输入的信息 输入框的语法格式为 < 变量 >= InputBox(< 信息内容 >[,< 对话框标题 >][,< 默认内容 >]) 说明如下 : 1)< 信息内容 > 为在对话框中出现的文本 在 < 信息内容 > 中使用硬回车符 CHR(13) 可以使文本换行 对话框的高度和宽度随着 信息内容 的增加而增加, 最多可有 1024 个字符 2)< 对话框标题 > 用来指定对话框的标题 3)< 默认内容 > 可以指定输入框的文本框中显示的默认文本 若用户单击 确定 按钮, 文本框中的文本将返回到 < 变量 > 中 ; 若用户单击 取消 按钮, 返回的将是一个 0 长度的字符串 4) 如果省略了某些可选项, 其间的逗号分隔符不可省略 35

45 程序设计基础 Visual Basic 语言实现例 4.2 试设置一个输入框来提示用户输入查询学号, 结果如图 4.2 所示 其作用为打开一个对话框, 等待用户输入内容 单击确定, 返回输入值 ( 字符型数据 ) 格式为变量名 =InputBox(< 信息内容 >[,< 对话框标题 >][,< 默认内容 >]) 图 4.2 输入框 消息框函数 消息框函数在对话框中显示信息, 等待用户单击按钮, 并返回一个整数以表明用户 单击了哪个按钮 消息框的语法格式为 < 变量 >=MsgBox(< 消息内容 >[,< 对话框类型 >] [,< 对话框标题 >]) 说明如下 : 1)< 消息内容 > 为在对话框中出现的文本 在 < 消息内容 > 中使用回车符 CHR(13) 可使文本换行 对话框的高度和宽度随着 消息内容 的增加而增加, 最多可有 1024 个字符 2)< 对话框类型 > 用来指定对话框中出现的按钮和图标, 一般有 3 个参数 其取值和含义见图 4.3~ 图 4.5 这 3 种参数值可以相加以达到所需要的样式 Buttons 的和 = 按钮设置值 + 图标设置值 + 缺省按钮值 图 4.3 按钮设置值 3)< 对话框标题 > 用来指定对话框的标题 4)MsgBox() 返回的值指明了在对话框中选择哪一个按钮 5) 代码中的值可以是数值, 也可以是常量 6) 如果省略了某些可选项, 其间的逗号分隔符不可省略 科学出版社职教技术出版中心 图 4.4 图标设置值

46 程序设计的基本语句与结构 4 图 4.5 缺省按钮值 图 4.6 提示框 7) 若不需要返回值, 可以使用下面的 MsgBox 命令形式 MsgBox< 信息内容 >[,< 对话框类型 > [,< 对话框标题 >]] 例 4.3 设计一个如图 4.6 所示的提示框 Private Sub Form_click() A = MsgBox(" 非法数据!" + Chr(13) +Chr(10)+ " 是否继续?", vbyesno + vbcritical, " 提示信息 ") End Sub 卸载对象语句 当要结束应用程序, 或从内存中卸载窗体, 或从内存中卸载某些控件时, 可以使用 Unload 语句 Unload 语句的语法格式为 Unload < 对象名 > 1)< 对象名 > 是要卸载的窗体对象或控件的名称, 可以用 Me 来表示当前所在的窗体对象 2) 在卸载窗体前, 会发生 Query Unload( 窗体队列关闭 ) 事件, 然后是 Unload( 卸载 ) 事件 在其中任一事件过程代码中设置 Cancel 参数为 True 可防止窗体被卸载 例 4.4 关闭窗体, 程序界面如图 4.7 所示 图 4.7 关闭窗体的界面 设计步骤如下 : 在例 4.1 的窗体设计器上增加一个命令按钮 Command1, 并将其 Caption 属性改为 关闭, 编写 Command1 的 Click 事件代码如下 37

47 程序设计基础 Visual Basic 语言实现 Cls 方法 Private Sub Command1_Click() Unload Me 'Me 表示按钮所在的窗体对象 End Sub Cls 方法用于清除运行时在窗体或图形框中显示的文本或图形 其语法格式为 ( 对象.)Cls 其中 对象 为窗体或图形框, 省略时默认为窗体 例如 : Picture1.Cls Cls 注释语句 ' 清除图形框 ' 清除窗体 为了提高程序的可读性, 通常应在程序的适应位置加上一些注释 注释语句 (Rem) 用来在程序中包含注释, 语法格式为 Rem < 注释内容 > 或 ' < 注释内容 > 1)< 注释内容 > 指要包括的任何注释文本 在 Rem 关键字与注释内容之间要加一个 空格, 可以用一个英文单引号来代替 Rem 关键字 2) 如果在其他语句行后使用 Rem 关键字, 必须用冒号与前面语句隔开 若使用英 文单引号, 则在其他语句行后不必加冒号 应用实例 1) 编制一个可以使一个界面隐藏, 另一个界面显示的程序 例 4.5 Form1 为 口令 界面 Form2 为 用户 界面 ( 见图 4.8) Form3 为 个人情况 界面 Form4 为 成绩查询 界面 Form5 为 计算器 界面 试编写程序 程序代码如下 Private Sub Command1_Click() Form1.Hide Form2.Hide Form4.Hide Form5.Hide Form3.Show End Sub Private Sub Command2_Click() Form1.Hide Form2.Hide Form3.Hide Form5.Hide Form4.Show End Sub 科学出版社职教技术出版中心 38

48 程序设计的基本语句与结构 4 Private Sub Command3_Click() Form1.Hide Form2.Hide Form3.Hide Form4.Hide Form5.Show End Sub Private Sub Command4_Click() Unload Me Form1.Show End Sub 2) 编制一个输入用户名与输入口令检验的程序 图 4.8 用户 界面 图 4.9 输入口令检验程序界面 例 4.6 要求 : 请输入用户名为 VB6 ; 请输入口令为 , 密码框中不显示实际输入字符, 不正确时提示有关信息, 并清除原内容, 得到焦点, 再输入, 如图 4.9 所示 Private Sub Command1_Click() If Text1.Text = "VB6" And Text2.Text = "123456" Then yes = MsgBox(" 欢迎使用本系统!") Form1.Hide Form2.Show Else MsgBox " 对不起! 你不是本系统的用户 " Form1.Hide End If End Sub Private Sub Command2_Click() End End Sub 39

49 程序设计基础 Visual Basic 语言实现 4.2 选择结构程序设计 使用选择结构程序设计, 应根据所给定的条件为真 ( 即条件成立 ) 与否, 决定从各实际可能的不同分支中执行某一分支的相应操作, 并且任何情况下总有 无论分支多少, 必须选择其一的特性 IF 语句 1.If Then 结构 格式如下 : If 条件 Then (A 组语句 ) End If 执行规则为 : 若条件成立, 执行 A 组语句 ; 条件不成立, 跳过 A 组语句 具体如图 4.10 所示 图 4.10 If Then 结构 例 4.7 编制一个能实现判定成绩是否及格的程序 Private Sub Form_click() Show score =Text1.Text If score >= 60 Then Print " 祝贺你考试通过!" End If Print " 继续努力!" End sub 程序运行界面如图 4.11 所示 2.If Then Else 结构 格式如下 : If 条件 Then 图 4.11 程序运行界面 科学出版社职教技术出版中心 40

50 程序设计的基本语句与结构 4 A 组语句 Else B 组语句 END If 具体如图 4.12 所示 说明如下 : 1) 在块结构中,If 语句必须是第一行语句 If 块必须以一个 End If 语句结束 2) 当程序运行到 If 块时, 首先测试 < 条件 >, 如果为 True, 则执行 Then 之后的 <A 组语句 >; 如果为 False, 且有 Else 子句, 则执行 Else 部分的 <B 组语句 > 执行完 Then 或 Else 之后的语句列后, 从 End If 之后的语句继续执行 3)Else 子句是可选的 图 4.12 If Then Else 结构 图 4.13 程序运行界面 例 4.8 试编写程序, 其运行界面如图 4.13 所示 Private Sub Form_click() Show score =Text1.Text If score >= 60 Then Print " 祝贺你考试通过!" Else Print " 考试未通过." End If Print " 继续努力!" End sub 3.If Then ElseIf 结构 格式如下 : If 条件 1 Then (A 组语句 ) ElseIf 条件 2 Then (B 组语句 ) ElseIf 条件 3 Then (C 组语句 ) 41

51 程序设计基础 Visual Basic 语言实现 Else (n 组语句 ) End If 图 4.14 评定条件流程 图 4.15 程序运行界面 例 4.9 输入二级考试成绩, 要求显示对应三级制的评定 评定条件如图 4.14 所示, 程序运行界面如图 4.15 所示 优 :score 90 等级 : 通过 :60 score < 90 未通过 :<60 42 Private Sub Form_click() Show score =Text1.Text If score >= 90 Then Print " 优 " If score >= 60 Then Print " 通过 " Print " 未通过 " End If End sub 思考 : 若条件 1 与条件 2 换位, 结果会怎样? 注意 : 多分支语句中, 有多个分支同时满足, 只执行第一个与之匹配的语句块, 要注意 ElseIf 的写法 4.If 语句的嵌套 If 语句的嵌套, 指 If 或 Else 后面的语句块中又包含 If 语句 语句形式如下 : If < 表达式 1> Then 科学出版社职教技术出版中心

52 程序设计的基本语句与结构 4 If < 表达式 11> Then End If End If 注意 : 对于嵌套结构, 为了增强程序的可读性, 应该采用缩进形式书写 ;If 语句形式若不在一行上书写, 必须与 End If 配对多个 If 嵌套,End If 与它最接近的 If 配对 例 4.10 输入二级考试成绩, 要求显示对应四级制的评定 评定条件如下 : 优 :score 90 良好 :80 score < 90 等级 : 通过 :60 score < 80 未通过 :<60 Private Sub Form_click() Show score =Text1.Text If score < 60 Then Print " 未通过 " Else If score >= 90 Then Print " 优 " Else If score >= 80 Then Print " 良好 " Else If score >= 60 Then Print " 通过 " End If End If End If End If End sub 程序运行界面如图 4.16 所示 图 4.16 程序运行界面 43

53 程序设计基础 Visual Basic 语言实现 多分支条件选择语句 使用 If 语句的嵌套可以实现多分支选择, 但仍然不够便捷 为此,Visual Basic 提供 了多分支选择语句 Select Case 来实现多分支选择 这样, 当需要根据某一表达式的结果 执行多种可能性的动作时, 使用 Select Case 语句更为简洁 使用 Select Case 语句进行多分支选择的特点是 : 从多个选择分支中, 选择第一个条 件为真的路线作为执行路线 1.Select Case 测试表达式 Select Case 测试表达式如下 : Case 测试项 1 A 组语句 Case 测试项 2 B 组语句 Case Else n 组语句 End Select 说明如下 : 1)< 测试条件 > 为必要参数, 可以是任何数值表达式或字符串表达式 2)< 语句组 > 为可选参数, 是一条或多条语句, 当 < 表达式表 > 中有值与 < 测试条件 > 相匹配时执行 3)Case Else 子句用于指明其他语句组, 当 < 测试条件 > 和所有的 Case 子句的 < 表达式表 > 中的值都不匹配时, 则会执行这些语句 虽然不是必要的, 但是在 Select Case 块中, 最好还是加上 Case Else 语句来处理不可预见的测试条件值 如果没有 Case 值匹配测试条件, 而且也没有 Case Else 语句, 则程序会从 End Select 之后的语句继续执行 2.Select Case 语句中 < 表达式表 > 的使用说明 在 Select Case 语句中的 Case 子句中,< 表达式表 > 为必要参数, 用来测试其中是否有值与 < 测试条件 > 相匹配 Case 子句中的 < 表达式表 > 是一个或多个表达式的列表, 形式有以下 3 种 (1) 形式一 < 表达式 > 即表达式为数值表达式或字符串表达式, 例如 : Case3*x (2) 形式二 < 表达式 > To < 表达式 > 即用来指定一个值范围, 较小的值要放在 To 之前, 例如 : Case1 To 10 科学出版社职教技术出版中心 44

54 程序设计的基本语句与结构 4 Case "a" To "b"(a<b) (3) 形式三 Is < 关系运算表达式 > 即可以配合比较运算符来指定一个数值范围 如果没有提供, 则 Is 关键字会被插入, 例如 : Case Is<100 当使用多个表达式的列表时, 表达式与表达式之间要用逗号隔开, 例如 : Case2,4,6 Case10 To 20,100 To 200 Case Is<10, Is>30 例 4.11 输入二级考试成绩, 要求显示对应四级制的评定, 程序运行界面如图 4.17 所示 Private Sub Form_click() Show Mark = Val(Text1.Text) Select Case Mark Case Is < 60 Print " 未通过 " Case Is >= 90 Print " 优 " Case Is >= 80 Print " 良好 " Case Else Print " 通过 " End Select End Sub 条件函数 ( 可选 ) 图 4.17 程序运行界面 1.IIf 函数 ( 替代 IF 语句 ) IIf 函数的格式如下 : IIf( 表达式, 条件为真的值, 条件为假的值 ) 例 4.12 实现将 X Y 变量中的大数放入 Tmax 变量 程序运行界面如图 4.18 所示 45

55 程序设计基础 Visual Basic 语言实现 (1) 用 If 语句 图 4.18 程序运行界面 Private Sub form_click() Dim x As Single Dim y As Single x = Val(Text1.Text) y = Val(Text2.Text) If x > y Then Print " 两个数中最大的数为 :"; x Else Print " 两个数中最大的数为 :"; y End If End Sub (2) 用 IIf 函数 Tmax = IIf(X > Y, X, Y) Private Sub form_click() Dim x As Single Dim y As Single x = Val(Text1.Text) y = Val(Text2.Text) Tmax = IIf(X > Y, X, Y) Print " 两个数中最大的数为 :"; Tmax End Sub 2.Choose 函数 ( 替代 Select Case 语句 ) Choose 函数的格式如下 : Choose ( 整数表达式, 选项列表 ) 综合应用实例 编写程序, 要求实现统计个人资料功能, 个人资料包括姓名 性别 民族和爱好, 程序运行界面如图 4.19 所示 Private Sub Command1_Click() If Text1.Text = "" Then a = InputBox(" 您忘了输入姓名!"," 注意 "," 请在此输入姓名 ") If a = "" Or a = " 请在此输入姓名 " Then Exit Sub 科学出版社职教技术出版中心 46

56 程序设计的基本语句与结构 4 图 4.19 程序运行界面 Text1.Text = a End If p1 = Text1.Text + "," p2 = IIf(Option1, " 男 ", " 女 ") + "," p3 = IIf(Check5, " 汉族 ", " 少数民族 ") p4 = ", 喜欢 " If Check1.Value = 1 Then p4 = p4 + Check1.Caption + " " If Check2.Value = 1 Then p4 = p4 + Check2.Caption + " " If Check3.Value = 1 Then p4 = p4 + Check3.Caption + " " If Check4.Value = 1 Then p4 = p4 + Check4.Caption + " " aa = p1 + p2 + p3 + IIf(p4 = ", 喜欢 :", " 无爱好 ", p4) Label4.Caption = Left(aa, Len(aa) - 1) + " " Text1.SetFocus End Sub Private Sub Command2_Click() Unload Me Form2.Show End Sub 4.3 循环结构程序设计 循环结构程序设计的概念程序设计中的循环结构 ( 简称循环 ) 是指在程序中, 从某处开始有规律地反复执行某一操作块 ( 或程序块 ) 的现象 被重复执行的操作块 ( 或程序块 ) 称为循环体, 循环体的执行与否及次数多少视循环类型与条件而定 当然, 无论何种类型的循环结构, 其共同的特点是 : 必须确保循环体的重复执行能被终止 ( 即非无限循环 ) Visual Basic 中常用的循环语句有 For Next 语句和 DO Loop 语句 For Next 循 47

57 程序设计基础 Visual Basic 语言实现环用于已知循环次数的情况下, 而 Do Loop 循环主要用于不知道循环次数的情况下, 在给定的条件满足时执行循环体 For Next 语句 For Next 循环语句按指定次数执行循环体, 它在循环中使用一个循环变量 ( 计数器 ), 每重复一次循环后, 循环变量的值就会自动增加或减少 For Next 循环的流程如图 4.20 所示 1.For Next 语句的语法格式 图 4.20 For Next 循环的流程图 For< 循环变量 >=< 初值 >To< 终值 >[Step< 步长 >] [< 语句组 1>] [Exit For] [< 语句组 2>] Next [< 循环变量 >] 说明如下 : 科学出版社职教技术出版中心 1)< 循环变量 > 为必要参数, 是用来作为循环计数器的数值变量, 该变量不能是数组元素 2)< 初值 > 和 < 终值 > 都是必要参数 < 步长 > 可以是正数或负数 当步长的值为 1 时, 可以省略 3) 可以省略 Next 语句中的 < 循环变量 >, 但写上 < 循环变量 > 将提高程序的可读性 48

58 程序设计的基本语句与结构 4 2.For Next 语句的执行过程 进入 For Next 循环后, 首先把 < 初值 > 赋给 < 循环变量 >, 检查 < 循环变量 > 的值是否超过 < 终值 > 如果超过就停止执行循环体, 跳出循环, 执行 Next 后面的语句 ; 否则执行一次循环体, 然后把 < 循环变量 >+< 步长 > 的值赋给 < 循环变量 >, 重复上述过程 这里所说的 超过 有两种含义, 即大于或小于 1) 当 < 步长 > 为正值时, 检查 < 循环变量 > 的值是否大于 < 终值 > 2) 当 < 步长 > 为负值时, 检查 < 循环变量 > 的值是否小于 < 终值 > 可以在循环中的任何位置放置任意个 Exit For 语句, 以便随时退出循环 3.For Next 循环的循环次数 循环遵循 先检查, 后执行 原则, 即先检查 < 循环变量 > 是否超过 < 终值 >, 然后决定是否执行循环体 因此, 在下列两种情况下, 循环不被执行 1) 当 < 步长 > 为正数时,< 初值 > 大于 < 终值 > 2) 当 < 步长 > 为负值时,< 初值 > 小于 < 终值 > 因此, 循环的最少执行次数为 0 次 当 < 初值 > 等于 < 终值 > 时, 不管 < 步长 > 是正数还是负数, 均执行一次循环体 循环次数由 < 初值 > < 终值 > 和 < 步长 >3 个因素决定, 可以通过下式计算 : 循环次数 =INT(( 终值 - 初值 )/ 步长 +1) 如果计算的循环次数小于或者等于 0, 循环次数为 0, 这时系统将不执行循环体 例 4.13 使用 For Next 语句设计程序求 之和 分析如下 : 1) 重复过程 ( 循环体 ):s=s+i 2) 初值 终值和增量 : 程序代码如下 : Dim i%, s% For i = 1 To 10 step 1 s = s + i Next i Print i, s 该程序的循环体的执行次数是多少? 输出的 i s 的值是多少?For i = 1 To 10 执行多少次? 初值与终值可以换位吗? 4.For Next 语句的嵌套 For Next 循环语句可以嵌套使用, 嵌套层数没有具体限制, 其基本要求是 : 1) 每个循环必须有一个唯一的变量 2) 内层循环必须完全放在外循环体内, 内外循环不得互相交叉骑跨 例 4.14 计算 1~1000 的奇数和与偶数和 49

59 程序设计基础 Visual Basic 语言实现 方法一 : 用 If 语句编程 S1 =0 S2 =0 For i = 1 To 1000 If i mod 2<>0 then S1 = S1 + i Else S2 = S2 + i End If Next i Print S1,S2 方法二 : 用 For 语句编程 S1 =0 S2 =0 For i = 1 To 1000 Step 2 S1 = S1 + i Next i For i = 1 To 1000 Step 2 S2 = S2 + i Next i Print S1,S Do Loop 循环语句 For Next 循环总是按指定的次数执行循环体 如果事先不知道循环次数, 或循环的初值和终值不明了, 则需要使用 Do Loop 语句 Do Loop 语句有以下两种语法形式 1) 前测型循环结构 2) 后测型循环结构 图 4.21 前测型 Do Loop 语句结构 1. 前测型 Do Loop 循环语句 前测型 Do Loop 循环结构如图 4.21 所示, 其循环特点是 : 先判断循环条件, 根据条件决定是否执行循环体, 执行循环体的最少次数为 0 前测型 Do Loop 循环的语法格式如下 Do[{While/Until}< 条件 >] [< 语句组 1>] [Exit Do] [< 语句组 2>] Loop 科学出版社职教技术出版中心 其中 : 1)Do While Loop: 当条件为真时执行循环体, 条件为假时, 终止循环 2)Do Until Loop: 当条件为假时执行循环体, 直到条件为真时, 终止循环 50

60 程序设计的基本语句与结构 4 例 4.15 用前测型 Do Loop 语句编程计算 的值 方法一 : 用 For 语句编程 Dim i, s As Integer For i = 1 To 10 s = s + i Next i Print i, s 方法二 : 用 Do Loop 语句编程 Dim i,s As Integer i=1 Do While i<=10 s=s+i i=i+1 Loop Print i,s 思考 : 在该程序中, 循环体执行了几次? 没有 i=1 会怎样? 将 Print 语句移到 Loop 的前面结果会怎样? 如果 i 先赋值为 11, 结果会如何? 2. 后测型 Do Loop 循环语句 后测型 Do Loop 循环结构如图 4.22 所示, 其循环特点是 : 先执行循环体, 然后判断条件, 根据条件决定是否继续执行循环, 因此执行的最少次数为 1, 其结构如图 4.22 所示 后测型 Do Loop 循环结构的语法格式如下 Do [< 语句组 1>] [Exit Do] [< 语句组 2>] Loop [{While/Until}< 条件 >] 其中 : 1)Do While Loop: 当条件为真时继续执行循环体, 若条件为假, 终止循环 2)Do Until Loop: 当条件为假时继续执行循环体, 直到条件为真时, 终止循环 图 4.22 后测型 Do Loop 语句结构例 4.16 用后测型 Do Loop 语句编程计算 的值 Dim I,s As Integer I=1 Do s=s+i I=I+1 Loop While I<=10 Print I,s 51

61 程序设计基础 Visual Basic 语言实现 在该程序中, 循环体执行几次? 将 i 先赋值为 11, 执行结果如何? 其他辅助控制语句 1.GoTo 语句 GoTo 语句的作用为无条件地转移到标号或行号指定的语句, 其语法格式如下 GoTo { 标号 行号 } 例 4.17 用 GoTo 语句编程计算 的值 100 if i <= 100 Then s = s + i i = i + 2 GoTo 100 End If 2.Exit 语句 Exit 语句的作用为满足循环条件的情况下, 提前跳出循环体, 结束循环 Exit 语句有两种形式, 即 Exit For 和 Exit Do 应用实例 例 4.18 结构 设计一个循环嵌套的例子, 即在一个循环体内又包含了一个完整的循环 For I = 1 To 9 For J = 1 To I s = I & " " & J & "=" & I * J Picture1.Print Tab((J - 1) * 8 + 1); s; Next J Picture1.Print Next I 在这里要注意, 内 外循环变量不能同名 ; 外循环必须完全包含内循环, 不能出现 交叉 穷举法就是将可能出现的各种情况一一测试, 判断是否满足条件, 下面是相关实例 例 4.19 小鸡 5 角一只, 公鸡 2 元一只, 母鸡 3 元一只, 现有 100 元钱要买 100 只鸡, 编程列出所有可能的购鸡方案 设母鸡 X 只 公鸡 Y 只 小鸡 Z 只, 即 X+Y+Z=100 3*X+2*Y+0.5*Z=100 方法一 : For x = 0 To 100 For y = 0 To 100 For z = 0 To 100 科学出版社职教技术出版中心 52

62 程序设计的基本语句与结构 4 If x + y + z = 100 And _ 3 * x + 2 * y * z = 100 Then Print x, y, z End If Next z Next y Next x 方法二 : For x = 0 To 33 For y = 0 To 50 If 3 * x + 2 * y * (100 - x - y)_ = 100 Then Print x, y, z End If Next y Next x 4.4 数组 数组和数组元素数组并不是一种新的数据类型, 而是一组相同类型的有序变量的集合 在程序中使用数组的最大好处是用一个数组名代表逻辑上相关的一批数据, 用下标区分该数组中的各个元素, 和循环语句结合使用, 编写出的程序很简洁 1. 数组在 Visual Basic 中, 为了确定各数据与数组中每个元素的一一对应关系, 必须给数组中的这些数据编号, 即顺序号 ( 用下标来指出顺序号, 数组中也称下标变量 ) 因此可以说, 数组是用一个名字代表顺序排列的一组数, 顺序号就是下标变量的值 (1) 数组的命名数组的命名规则与简单变量的命名规则不一样, 即由 1~40 个字符组成, 组成的字符可以是字母 数字和小数点, 并且必须以字母开头, 例如,a x xscj 等 (2) 数组的维数数组下标的个数称为数组的维数 如果数组中的所有元素能按行 列顺序排成一个矩形, 换句话说, 必须用两个下标才能确定它们各自所处的位置, 这样的数组称为二维数组 以此类推,3 个下标的数组构成三维数组 有多少个下标的数组就构成多少维的数组, 如四维数组 五维数组等, 通常又把二维以上的数组称为多维数组, 例如,A(5) 为一维数组,A(3,4) 为二维数组, A(4,5,6) 为三维数组 数列 ( 一个学生的 6 门课成绩 ) 的示例如下 : 53

63 程序设计基础 Visual Basic 语言实现 一维数组如下 : A(0) A(1) A(2) A(3) A(4) A(5) 二维表 ( 一个学生 4 学期 5 门课成绩 ) 见表 4.1 表 4.1 二维表 课程 学期 数学 物理 化学 生物 外语 第一学期 第二学期 第三学期 第四学期 二维数组如下 : A(1.1) A(1.2) A(1.3) A(1.4) A(1.5) A(2.1) A(2.2) A(2.3) A(2.4) A(2.5) A(3.1) A(3.2) A(3.3) A(3.4) A(3.5) A(4.1) A(4.2) A(4.3) A(4.4) A(4.5) 2. 数组元素 在同一数组中, 构成该数组的元素称为数组元素 3. 数组的类型 在 Visual Basic 中, 数据有多种类型, 相应地, 数组也有多种类型 可以声明任何基本数据类型的数组, 包括用户自定义类型和对象变量, 但是一个数组中的所有元素应该具有相同的数据类型 当然, 数据类型为 variant( 变量 ) 型时, 各个元素能够包含不同类型的数据 ( 对象 字符串 数值等 ) 4. 数组的形式 科学出版社职教技术出版中心 在 Visual Basic 中, 根据数组元素的个数能否变化, 可将数组分为静态数组和动态数组, 静态数组指数组元素的个数固定不变, 动态数组指数组元素的个数在运行时可以改变 54

64 程序设计的基本语句与结构 静态数组 静态数组是在声明时就已经确定了数组元素个数的数组 1. 声明静态数组 语法格式如下 : Dim Private Public static ( 数组名 ) (< 维界定义 >) [As < 数组类型 >] 其功能为定义一个一维数组, 并初始化所有数组元素 说明如下 : 1) 数组的维界定义必须为常数或常量符号, 不能是表达式或变量 2) 下标的形式是 :[ 下界 To ] 上界 一般情况下, 当 [ 下界 To] 缺省时, 默认值为 0 下界 上界 维的大小是 : 上界 - 下界 +1 维界说明如果不是整数, 将自动进行四舍五入处理 3)As < 数组类型 >: 用来说明数组元素的类型, 如果缺省, 默认为是变量型 Dim a (12) As Single Dim x (1 To 50 ) As Integer Dim y (1 To 10 ) 2.Option Base 语句 ' 声明 a 数组为单精度型, 下标范围为 0~12 ' 声明 x 数组为整型, 下标范围为 1~50 ' 声明 y 是一个下标范围为 1 到 10 的变量型数组 如果不指定 < 下标下界 >, 则数组的下界由 Option Base 语句控制, 语法格式如下 : Option Base <n> 说明如下 : 1)n 只能为 0 或 1. 2) 如果没有使用 Option Base 语句, 则默认的下界为 0, 例如 : Dim a(4)as Integer '5 个元素, 下标范围为 0 到 4 Dim b(20)a s Double '21 个元素, 下标范围为 0 到 20 3) 使用 Option Base1 语句的例子如下 : Option Base1 ' 默认下界为 1 Dim b(2,1 To3,1To4) 'b, 大小为 3 3 4, 元素总数为二个维数的乘积, 即 数组的基本操作 在建立 ( 声明 ) 一个数组之后, 就可以使用数组了 使用数组就是对数组元素进行各种操作, 例如, 赋值 表达式运算 输入或输出等 对数组元素的操作与对简单变量的操作类似 4. 数组的初始化 给数组中的各个元素赋初值, 称为数组的初始化 除了前面介绍的数组元素的输入方法之外,Visual Basic 还提供了 Array 函数, 用于在程序中利用代码对数组进行初始化 Array 函数的语法格式如下 : 55

65 56 程序设计基础 Visual Basic 语言实现 < 数组变量名 >=Array(< 数组元素值 >) 说明如下 : 1)< 数组变量名 > 是已经声明的变量名称 作为数组使用, 该变量必须是变量型 2)< 数组元素值 > 是准备赋给数组各元素的值列表, 各值之间用逗号分开 如果不提供参数, 则创建一个长度为 0 的数组 3) 使用 Array 函数创建的数组的下界一般由 Option Base 语句指定的下界来决定 4) 没有作为数组声明的 Variant 变量也可以表示数组 除了长度固定的字符串以及用户定义类型之外,Variant 变量可以表示任何类型的数组 例如, 下面的语句创建了一个包含字符串的数组 : Dim students As Variant Students=Array(" 王大名 "," 王平 "," 李小双 "," 李丽 "," 张大强 "," 武刚 ") 注意 : 实际上,Array 函数返回一个包含数组的 Variant 变量 尽管一个包含数组的 Variant 变量和一个元素为变量型的数组在概念上有所不同, 但对数组元素的访问方式是相同的 5. 数组元素的输入 输出和复制 (1) 数组元素的输入数组元素可以在设计时通过赋值语句输入, 或是在运行时通过 InputBox 函数输入 在元素较多的情况下, 一般需要使用 For 循环语句 例 4.20 给数组元素赋值 方法一 : Private sub form_click() Dim a(5) as integer, I as integer For I=1 to 5 a(i)=int(100*rnd)+1 Print a(i); Next I End sub 方法二 : Private sub form_click() Dim a(6) as integer, I as integer For I=1 to 6 a(i)=inputbox(" 给数组元素赋值 "," 给数组 A 赋值 ") Print a(i); Next I end sub 数组的赋值也可由窗体的 Load 事件代码完成 科学出版社职教技术出版中心 Dim Name (1To 10)As String Private Sub Form_Load() a(1)= " 陈阳 ": a(2)= " 赵杰 ":a(3)= " 李维 ": a=(4)=" 马丽 ": a(5)= " 杨民 " a(6)= " 李君 ": a(7)= " 陈至 ":a(8)= " 五明 ": a(9)= " 姜伟 ": a(10)= " 吴林 "

66 程序设计的基本语句与结构 4 End sub (2) 数组元素的输出数组元素的输出可以使用 For 循环和 Print 语句来实现 用 Array 函数给数组提供初值, 然后用 For 循环将数组的值输出 例 4.21 写出输出数组元素的示例 Static Number As Variant Number = Array(1,2,3,4,5) For i%=0 To 4 Print Number(i%) Next (3) 数组元素的复制单个的数组元素可以像简单变量那样从一个数组复制到另一个数组中, 若要复制整个数组则仍要使用 For 循环语句 动态数组 在数组的使用中, 有时在程序设计阶段并不知道数组所需大小, 而无法声明正确的数组大小, 或在某个过程中需要一个特别大的数组, 如果在程序一开始就声明一个大数组, 则保存该数组的内存长期被占用, 会降低系统效率 遇到这些情况, 都可以使用动态数组, 对于前一种情况, 可以一面输入数据一面随着数据量的增加而重新声明数组的大小 ; 而对于后一种情况, 可在需要使用特别大数组的过程中重新声明数组大小, 退出该过程前取消该数组 1. 创建动态数组 创建动态数组的步骤如下 1) 用 Public 语句 ( 公用数组 ) Dim 语句 ( 模块级数组 ) Static 语句或 Dim 语句 ( 局部数组 ), 在过程中声明一个未指明大小及维数的空数组, 这样就将数组声明为动态数组了 语法格式如下 : Public Private Dim Static< 数组名 >()As< 类型 > 2) 使用 ReDim[Preserve]< 数组名 >(< 维数定义 >)[As< 类型 >] 格式 例如, 第一次声明在模块级所建立的动态数组 a: Dim a()as Integer 然后, 在过程中给数组分配空间 : Private Sub Form_Activate() ReDim a(9,19) End Sub 这里的 ReDim 语句给 a 分配一个 的整数矩阵 ( 元素总数为 200) 空间 说明如下 : 1)ReDim 语句只能出现在过程中, 与 Dim 语句 Static 语句不同,ReDim 语句是一 57

67 程序设计基础 Visual Basic 语言实现 个可执行语句, 由于这一语句的存在, 应用程序在运行时将执行一个操作 2) 每次运行程序时,ReDim 语句都会清除数组的内容, 当前存储在数组中的值将 全部丢失,Visual Basic 重新将数组元素的值置为 0( 对 Numeric 数组 ) 置为零长度字符 串 ( 对 String 数组 ) 或置为 Empty( 对 Variant 数组 ), 此时可以用 Preserve 关键字保留 原先的数据 3) 声明动态数组的时候并不指定数组的维数, 数组的维数由第一次出现的 ReDim 语句指定 4) 对于任一维数,ReDim 语句都能改变元素的数目及其上下界, 但是, 数组的维 数不能改变 2. 保留动态数组的原有数据 使用 ReDim 语句时, 将清除数组中的原有数据 但是, 有时需改变数组大小而又不 丢失数据中的数据, 这时就可以使用具有 Preserve 关键字的 ReDim 语句, 使用 Preserve 后只能改变数组最后一维的大小 用具有 Preserve 关键字的 ReDim 语句来增加数组大小, 又不丢失原数据, 代码如下 : ReDim a(2,4) ReDim Preserve a(2,5) 则原数组中数据均可保留, 且增加了 a(0,5) a(1,5) a(2,5) 等 3 个位置 如果声明 ReDim a(3,4), 将会清除原组内容 使用 Preserve 关键字, 只能改变多维数组中最后一维的上界, 而不能改变维数 例如, 如果数组就是一维的, 则可以重定义该维的大小, 因为它是最末维, 也是仅有的一维 ; 如果数组是二维或多维的, 则只能改变其最末维才可同时保留数组中的内容 如果改变了其他维或最后一维的下界, 运行时就会出错 应用实例 1. 选择排序法 ( 比较排序法 ) 基本过程 ( 以降序为例 ) 如下 : 将第一个元素顺序与其后面的元素比较, 比第一个大则进行交换, 第一轮完毕后, 最大的元素被挪到了第一个位置, 第二轮从第二个元素开始重复上面的过程, 结束后得到第二个最大的元素, 如此下去经过 N-1 轮的比较, 可将 N 个数排好 例 4.22 将数据 进行降序排列 算法表示如下 (N 为排序的维数,OP 为操作, 升序为 > ) For i=1 to N-1 ' 外层循环 N-1 次 For j=i+1 to N ' 内层依赖外层 If Sort(i) OP Sort(j) then temp=sort(i) 科学出版社职教技术出版中心 58

68 程序设计的基本语句与结构 4 Sort(i)=Sort(j) Sort(j)=temp End If Next j Next i ' 交换 2. 直接排序法 该排序方法的特点是 : 比较后不立即互换元素, 而是记下其位置并在每一轮比较完毕后和 S(i) 互换 首先, 比较的元素不同, 以降序为例, 是当前元素与上次比较后的最大元素进行比较, 因此, 在进行比较之前, 要有一个初始化最大元素的过程 其次, 确定完毕的元素的互换是在每一轮完成后进行的, 而不是在比较后进行的 再次, 互换元素的不同, 为 S(i) 和 S(pointer) 例 4.23 将数据 进行降序排列 For i=1 to N-1 pointer=i For j=i+1 to N If Sort(pointer)< Sort(j) then Next j If I<> pointer then temp=sort(i) Sort(i)=Sort(pointer) Sort(pointer)=temp End If Next i 3. 冒泡法排序 ' 初始化 pointer, 在每轮比较开始处 pointer= j ' 交换 如果按升序排序, 则方法为 : 将相邻两个数比较, 把小数对调到前边, 如此进行一轮后, 就会把最大的数互换到最后, 再进行一次, 则会把第二大数排在倒数第二的位置上, 进行 N-1 次后, 整个数列即可排好 例 4.24 编写用冒泡法排序的程序 For i=1 to N-1 for j=1 to N-i ' 比较次数逐次减少 If S(j) OP S(j+1) then t=s(j) S(j)=S(j+1) S(j+1)=t ' 立即互换 End If Next j Next i 例 4.25 编写程序来统计学生的各科成绩, 并能够计算各科的平均分, 程序运行界 59

69 程序设计基础 Visual Basic 语言实现 面如图 4.23 所示 图 4.23 程序运行界面 Dim a(1 To 10) As String Dim b(1 To 10, 1 To 4) As Integer Dim i As Integer Private Sub Form_Load() a(1) = " 陈程 ": b(1, 1) = 66: b(1, 2) = 90: b(1, 3) = 80 a(2) = " 李阳 ": b(2, 1) = 89: b(2, 2) = 90: b(2, 3) = 87 a(3) = " 张丽 ": b(3, 1) = 20: b(3, 2) = 90: b(3, 3) = 87 a(4) = " 王小红 ": b(4, 1) = 89: b(4, 2) = 90: b(4, 3) = 87 a(5) = " 姜磊 ": b(5, 1) = 85: b(5, 2) = 77: b(5, 3) = 89 a(6) = " 吴小东 ": b(6, 1) = 66: b(6, 2) = 86: b(6, 3) = 87 a(7) = " 马杰 ": b(7, 1) = 89: b(7, 2) = 84: b(7, 3) = 85 a(8) = " 成超 ": b(8, 1) = 90: b(8, 2) = 90: b(8, 3) = 88 a(9) = " 杨经国 ": b(9, 1) = 78: b(9, 2) = 80: b(9, 3) = 75 a(10) = " 赵小玲 ": b(10, 1) = 66: b(10, 2) = 56: b(10, 3) = 80 End Sub Private Sub Form_Activate() For i = 1 To 10 List1.AddItem a(i) b(i, 4) = b(i, 1) + b(i, 2) + b(i, 3) Next Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "" End Sub Private Sub List1_Click() i = List1.ListIndex + 1 Text1.Text = b(i, 1) Text2.Text = b(i, 2) Text3.Text = b(i, 3) Text4.Text = b(i, 4) End Sub Private Sub Command1_Click(Index As Integer) 科学出版社职教技术出版中心 60

70 程序设计的基本语句与结构 4 Dim sum As Double Dim ave As Double sum = 0 Select Case Index Case 0 For i = 1 To 10 sum = sum + b(i, 1) Next i ave = sum / 10 res = MsgBox(" 平均分为 :" & Str(ave), 1, " 数学 ") Case 1 For i = 1 To 10 sum = sum + b(i, 2) Next i ave = sum / 10 res = MsgBox(" 平均分为 :" & Str(ave), 1, " 语文 ") Case 2 For i = 1 To 10 sum = sum + b(i, 3) Next i ave = sum / 10 res = MsgBox(" 平均分为 :" & Str(ave), 1, " 外语 ") End Select End Sub 61