内容简介 本书是 Visual Basic 程序设计 ( 科学出版社出版, 范通让 王学军主编 ) 的配套实训教材, 由两部分组成 第一部分是实训指导, 共 15 个实训项目, 每个实训项目均指出了本部分需掌握的重点内容, 并给出了理论知识要点 实训步骤及程序代码, 使学生能逐步了解 Visual

Transcription

1 普通高等教育 十二五 重点规划教材计算机系列中国科学院教材建设专家委员会 十二五 规划教材 Visual Basic 程序设计实训教程 王学军主编 赵涓涓副主编 杨艳主审 北京

2 内容简介 本书是 Visual Basic 程序设计 ( 科学出版社出版, 范通让 王学军主编 ) 的配套实训教材, 由两部分组成 第一部分是实训指导, 共 15 个实训项目, 每个实训项目均指出了本部分需掌握的重点内容, 并给出了理论知识要点 实训步骤及程序代码, 使学生能逐步了解 Visual Basic 的语言特点, 掌握程序设计的基本技巧和方法 第二部分由各章习题及答案组成 本书内容丰富, 例题详尽 在编排上由浅入深 循序渐进, 逐步扩展和提高学生分析问题与解决问题的能力, 是学习 Visual Basic 程序设计的得力助手 本书不仅可以作为高等院校教材使用, 还可以作为 Visual Basic 课程设计和 Visual Basic 自学者的参考书 图书在版编目 (CIP) 数据 Visual Basic 程序设计实训教程 / 王学军主编. 北京 : 科学出版社,2012 ( 普通高等教育 十二五 重点规划教材 计算机系列中国科学院教材建设专家委员会 十二五 规划教材 ) ISBN Ⅰ.1V Ⅱ.1 王 Ⅲ.1BASIC 语言 - 程序设计 - 高等学校 - 教材 Ⅳ.1TP312 中国版本图书馆 CIP 数据核字 (2012) 第 号责任编辑 : 赵丽欣 / 责任校对 : 耿耘责任印制 : 吕春珉 / 封面设计 : 东方人华平面设计部 北京东黄城根北街 16 号邮政编码 : 科学出版社发行 * 出版 印刷 各地新华书店经销 2012 年 2 月第一版开本 : / 年 2 月第一次印刷印张 :14 字数 : 定价 : 元 ( 如有印装质量问题, 我社负责调换 骏杰 ) 销售部电话 编辑部电话 版权所有, 侵权必究举报电话 : ; ;

3 前 言 Visual Basic 是 Microsoft 公司的编程语言产品, 在世界上拥有众多的用户 它功能强大 易于掌握, 在国内外各个领域的应用十分广泛 目前, 许多高校已将它作为非计算机专业学生的计算机应用能力培养的入门语言和主干课程 然而, 对于初学程序设计的学生, 常出现老师讲课时能够听得懂, 自己上机操作时却又无从下手的现象 为此, 我们编写了 Visual Basic 程序设计实训教程, 旨在更好地配合理论教学, 提高学生的实际编程能力 本书是 Visual Basic 程序设计 ( 科学出版社出版, 范通让 王学军主编 ) 的配套教材 全书以培养学生程序设计的基本方法及分析问题 解决问题的能力为切入点, 在内容编排上遵循由简到繁 由浅入深和循序渐进的原则, 并给出了大量的典型应用实例, 既符合学生的认知规律, 又兼顾了不同层次读者的需要 全书分为两部分 第一部分为实训指导, 包括 15 个项目, 分为验证性项目 综合性项目 设计性项目, 以适应不同层次的学生或课程设计使用 内容主要包括 Visual Basic 开发环境 基本控件的使用方法 程序设计的基本结构 ( 选择 循环 数组 过程等 ) 数据文件 数据库 绘图和多媒体与网络编程等 每个项目包括实训目的 相关的预备知识 知识点与难点 实训内容以及思考题 第二部分由涵盖 Visual Basic 程序设计课程知识点的各章习题及答案组成 本书对实训内容做了详细的分析和提示, 同时给出了程序代码, 便于读者能够快速地学习和掌握 Visual Basic 程序设计语言 但需要说明的是, 书中编程题给出的答案仅供参考, 学习者不要被现有的代码和思路所束缚 编程的方法很多, 关键是要抓住重点, 开拓思路, 提高分析问题 解决问题的能力 本书由郭芳 李建华 石玉晶 胡畅霞 王学军编写 沈蒙波 张玉梅 李静 刘辉 韩艳峰 杨子光 刘丹对实训内容进行了测试 本书的统稿和校对工作由王学军 郭芳完成 限于编者水平, 加之时间仓促, 不当之处敬请广大读者批评指正, 以期不断完善本书 编者 2012 年 2 月

4 目 录 前言第一部分实训指导... 1 实训一 Visual Basic 集成开发环境... 1 实训二创建简单的应用程序... 6 实训三窗体和常用控件... 9 实训四 Visual Basic 语言基础 实训五选择结构程序设计 实训六循环结构程序设计 实训七数组 实训八过程 实训九常用控件 实训十对话框程序设计 实训十一图形设计 实训十二数据文件 实训十三数据库应用 实训十四多媒体编程 实训十五网络编程 第二部分习题及答案 习题一 习题二 习题三 习题四 习题五 习题六 习题七 习题八 习题九 习题十 习题十一 习题十二 习题参考答案 参考文献

5 第一部分实训指导 实训一 Visual Basic 集成开发环境 一 实训目的 1. 掌握 Visual Basic 的启动和退出 2. 熟悉 Visual Basic 的集成开发环境 3. 了解 Visual Basic 联机帮助系统的使用方法 二 预备知识 1.Visual Basic 6.0 的启动和退出 (1) 启动 Visual Basic 的三种方法 方法一 : 单击任务栏上的 开始 按钮, 在弹出的 开始 菜单中依次选择 程序 Microsoft Visual Basic 6.0 中文版 Microsoft Visual Basic 6.0 中文版 命令 方法二 : 创建 Visual Basic 6.0 的快捷方式, 双击快捷方式图标即可 方法三 : 单击 开始 按钮, 在弹出的 开始 菜单中选择 运行 命令, 弹出 运行 对话框, 输入 Visual Basic 6.0 启动文件的名字 ( 包括路径 ), 如 c:\vb98\vb6.exe, 单击 确 定 按钮即可 用上面的任何一种方法启动 Visual Basic 6.0 后, 将显示 新建工程 对话框, 选择使用 的工程类型, 单击 打开 按钮, 即可进入 Visual Basic 的集成开发环境 (2)Visual Basic 的退出 方法一 : 在 Visual Basic 6.0 的集成开发环境中, 选择 文件 菜单中的 退出 命令 方法二 : 在 Visual Basic 6.0 的集成开发环境中, 单击主窗口的 关闭 按钮 执行 退出 命令后, 如果当前程序已修改过并且没有存盘, 系统将弹出一个对话框, 询问用户是否将其保存 2.Visual Basic 6.0 的集成开发环境 Visual Basic 6.0 的集成开发环境提供了设计 编辑 编译和调试等许多的功能 它同 Windows 环境类似, 有标题栏 菜单栏 工具栏, 另外还有完成各种特定功能的窗口, 如工 具箱窗口 属性窗口 窗体窗口等 3.Visual Basic 6.0 的联机帮助功能 Visual Basic 6.0 是 Visual Studio 6.0 套装软件中的一员, 它本身并不带有帮助功能 Microsoft 公司为 Visual Studio 6.0 提供了一套 MSDN(Microsoft Developer Network)Library 帮助系统 用户可利用菜单命令或 F1 功能键随时方便地得到所需的帮助信息

6 2 第一部分实训指导 三 实训内容 实训 1-1 练习 Visual Basic 的启动与退出 (1)Visual Basic 的启动 1 单击 Windows 桌面左下角的 开始 按钮, 弹出 开始 菜单, 依次选择 程序 Microsoft Visual Basic 6.0 中文版 Microsoft Visual Basic 6.0 中文版 命令, 屏幕出现 Visual Basic 6.0 的启动界面, 如图 所示 图 Visual Basic 6.0 启动界面 2 选择 新建 选项卡内的 标准 EXE 选项, 然后单击 打开 命令按钮, 进入如 图 所示的 Visual Basic 6.0 应用程序集成开发环境 图 Visual Basic 6.0 应用程序集成开发环境 (2)Visual Basic 的退出方法一 : 单击图 所示窗口右上角的 关闭 按钮 方法二 : 双击窗口左上角的控制菜单图标或选择 文件 菜单中的 退出 命令 如果是新建工程, 或修改了工程的内容, 系统会询问用户是否保存文件或直接退出 有关保存文件的操作详见实训 2-1

7 实训一 Visual Basic 集成开发环境 3 实训 1-2 熟悉 Visual Basic 集成开发环境中的窗口 (1) 主窗口 主窗口如图 所示, 由标题栏 菜单栏和工 具栏组成 (2) 窗体设计器窗口 窗体设计器窗口位于图 的中间部分 在创 建窗体时默认名为 Form1 对窗体设计器窗口可执行 对标准窗口的一切操作, 如移动 改变大小 最小化窗口等, 如图 所示 操作练习 : 1 拖动窗体设计器窗口, 改变其位置 2 拖动窗体设计器窗口边框, 改变其大小 图 窗体设计器窗口 3 单击窗体设计器窗口的 最小化 按钮, 将其缩成图标 ; 双击窗体设计器窗口控制菜单图标, 恢复其原来大小 (3) 属性 窗口 属性 窗口位于主窗口的右侧, 可在其中设置所有对象的属性, 如颜色 字体 大小和位置等 操作练习 : 1 单击窗口设计器窗口, 注意此时 属性 窗口中显示了当前窗体 Form1 的各种属性 2 选中 Caption 属性, 将 Form1 改为 窗体练习, 如图 所示 此时窗体的标题栏变为 窗体练习 (4) 工程资源管理器窗口工程资源管理器窗口用于管理一个应用程序所有属性以及组成这个应用程序的所有文件 窗口下面有三个按钮, 如图 所示 查看代码 按钮 : 显示和编辑代码 查看对象 按钮 : 查看窗口上的模块对象 切换文件夹 按钮 : 可以使工程中的文件按类型分层次或不分层次显示 (5) 代码窗口代码窗口是专门进行程序设计的窗口, 可在其中显示和编辑程序代码, 如图 所示 图 属性 窗口图 工程资源管理器窗口图 代码窗口 操作练习 : 练习打开代码窗口的方法 1 在工程资源管理器窗口中单击 查看代码 按钮

8 4 第一部分实训指导 2 选择 视图 菜单中的 代码窗口 命令 3 在窗口窗体中双击一个控件或窗体本身 (6) 工具箱窗口一般情况下, 工具箱位于窗体的左侧, 如图 所示 其中的工具分为两类 : 一类称为内部控件或标准控件, 另一类称为 ActiveX 控件 启动 VB 后, 工具箱中只有内部控件, 用户可以将系统提供的其他标准控件装入工具箱 操作练习 : 在工具箱内添加一个新的控件 1 选择 工程 菜单中的 部件 命令 2 在弹出的 部件 对话框中选择 控件 选项卡, 如图 所示 3 在列表框中选择任意一个选项卡, 单击 确定 按钮, 这时工具箱中出现了新的图标, 如图 所示 图 工具箱图 部件 对话框图 工具箱 (7) 立即 窗口 本地 窗口与 监视 窗口这三个窗口用于程序的调试, 可通过 视图 菜单显示, 如图 所示 (a) 立即 窗口 (b) 本地 窗口 (c) 监视 窗口图 立即 窗口 本地 窗口和 监视 窗口 (8) 工具栏除了 标准 工具栏外, 用户还可以通过 视图 菜单, 选择相应的工具栏来使用 Visual Basic 提供的编辑 窗体编辑器 调试等工具 实训 1-3 使用 Visual Basic 的帮助系统 (1) 打开帮助选择 帮助 菜单中的 内容 命令, 打开类似于 IE 浏览器的 MSDN Library Visual Studio 6.0 在线帮助窗口 (2) 利用 目录 选项卡浏览主题选择 目录 选项卡, 在左侧主题窗口中依次单击 使用 Visual Basic 程序员指

9 实训一 Visual Basic 集成开发环境 5 南 Visual Basic 基础 窗体 控件和菜单 用于显示和输入文本的控件 选项, 最后选择 用 Label 显示文本 主题, 此时右侧窗口中显示出相应内容, 如图 所示 图 利用目录浏览主题 (3) 利用 索引 选项卡查找信息选择 索引 选项卡, 在 键入要查找的关键字 文本框中输入 循环 此时光标定位在索引项列表的 循环 项目上, 单击 显示 按钮, 在打开的相关主体窗口中选择 For... Next 语句, 右侧窗口中即显示出相应内容, 如图 所示 四 思考题 图 利用索引查找信息 1. 从发展过程的角度, 程序设计语言可以分成哪几类? 它们各自的特点是什么? 2. 简述 Visual Basic 6.0 集成开发环境中各窗口的主要作用 3. 在 Visual Basic 的集成开发环境中, 如何使用帮助系统?

10 6 第一部分实训指导 实训二创建简单的应用程序 一 实训目的 1. 理解 Visual Basic 中对象的概念 2. 了解 Visual Basic 的集成开发环境 3. 掌握用 Visual Basic 开发应用程序的一般步骤 4. 学会编写简单的应用程序 二 预备知识 1. 对象的概念对象是具有特殊属性 ( 数据 ) 和行为方式 ( 方法 ) 的实体 一个对象建立以后, 其操作通过与该对象有关的属性 事件和方法来描述 2. 对象的属性属性是一个对象的特征, 不同的对象有不同的属性 常见的属性有控件名称 (Name) 标题(Caption) 颜色(Color) 及是否可见 (Visible) 等 属性的设置方法有以下两种 1 在属性窗口中直接设置 2 在程序代码中通过赋值语句来实现, 其格式如下 : 对象名. 属性名 = 属性值 3. 对象的事件能够被对象识别的动作称为事件 每个对象都有一系列预先定义好的事件 事件过程的一般编写格式如下 : Sub 对象名 _ 事件过程名 [( 参数列表 )] 程序代码 4. 对象的方法在 VB 中将一些通用的过程和函数编写好并封装起来, 作为方法供用户使用 对象方法的调用格式如下 : [ 对象名.] 方法 [ 参数名表 ] 如果省略了对象名, 则表示当前对象, 一般指窗体 三 实训内容在 D 盘上建立一个名为 Exercise 的文件夹, 用来保存生成的文件

11 实训二创建简单的应用程序 7 实训 2-1 建立一个简单的应用程序, 运行时窗体上显示 欢迎进入 Visual Basic 世界 (1) 新建一个工程启动 Visual Basic 6.0, 选择新建一个工程, 进入 Visual Basic 的集成开发环境, 屏幕上出现一个名为 Form1 的窗体 (2) 设置窗体属性在 属性 窗口中选中 名称 属性, 将其属性值改为 myform; 再选中 Caption 属性, 设置其属性值为 窗体, 此时窗体的标题变为 窗体, 主窗口的标题栏为 工程 1-myform(From) (3) 添加标签控件单击工具栏中的 标签 按钮, 这时鼠标指针会变为十字形, 将十字形鼠标指针移动到窗体的合适位置, 按下鼠标左键, 然后拖动鼠标 随着鼠标的移动, 会在窗体上绘出一个矩形区域, 当大小合适时, 松开鼠标左键 此时, 窗体上出现了一个标签控件, 控件对象上显示有文字 Labell 选中标签控件, 然后在 属性 窗口中将其 Caption 属性设为 欢迎进入 Visual Basic 世界, 如图 所示 (4) 运行程序单击工具栏中的 启动 按钮, 出现如图 所示的界面 (5) 保存文件 图 设置控件属性 图 实训 2-1 运行结果 单击工具栏上的 结束 按钮, 结束程序的运行 选择 文件 菜单中的 保存工程 命令, 由于是第一次保存文件, 会弹出 文件另存为 对话框, 要求保存窗体文件 将窗体文件保存在 D 盘的 Exercise 文件夹下, 文件名为 task1.frm 之后, 会弹出 工程另存为 对话框, 要求保存工程文件 将工程文件保存在 D 盘的 Exercise 文件夹下, 文件名为 task1.vbp (6) 生成可执行文件选择 文件 菜单中的 生成 task1.exe 命令, 弹出 生成工程 对话框, 此时可执行文件名已默认为 task1.exe, 单击 确定 按钮保存 task1.exe (7) 退出 Visual Basic 6.0 单击 Visual Basic 6.0 主窗口的 关闭 按钮, 退出 Visual Basic 6.0 (8) 运行可执行文件双击 D 盘的 Exercise 文件夹中的 task1.exe 文件, 运行程序

12 8 第一部分实训指导 实训 2-2 修改已有的 VB 程序, 在窗体文件 task1.frm 中, 将窗体 Form1 中所显示的文字设为红色 隶书 三号字 (1) 打开工程启动 Visual Basic 6.0, 在 新建工程 对话框中单击 取消 按钮, 关闭此对话框 选择 文件 菜单中的 打开工程 命令, 弹出 打开工程 对话框, 选择 D 盘的 Exercise 文件夹中的 task1.vbp 文件, 单击 打开 按钮, 打开工程 在工程资源管理器中, 双击 Form(task1.frm), 在窗体编辑器中显示出窗体 Form1 (2) 修改控件属性选中 Label1 控件, 在 属性 窗口中, 单击 Font( 字体 ) 属性右边的 按钮, 弹出 字体 对话框 将字体设为隶书, 字号设为三号, 如图 所示 ; 单击 ForeColor( 前景颜色 ) 属性右边的按钮, 在调色板中选择红色 图 修改控件属性 (3) 运行程序单击工具栏中的 启动 按钮 比较运行结果, 查看与实训 2-1 有何不同 (4) 保存文件在 文件 菜单中选择 保存工程 命令, 或单击工具栏中的 保存工程 按钮 四 思考题 1. 简述创建 Visual Basic 应用程序的一般步骤 2. 说出对象 事件 方法的区别和联系, 并举例说明 3. 试举例说明设置对象属性的几种方法

13 实训三窗体和常用控件 9 实训三窗体和常用控件 一 实训目的 1. 掌握 VB 窗体的常用属性 事件和方法 2. 掌握 VB 命令按钮的常用属性 事件和方法 3. 掌握 VB 文本框的常用属性 事件和方法 4. 掌握 VB 标签的常用属性 事件和方法 二 预备知识 1. 窗体 窗体 (Form) 是 VB 中的对象, 是程序员的 工作台, 在其上可以直观地创建应用程 序界面 (1) 窗体的属性 窗体属性既可以通过 属性 窗口设置, 也可以利用程序代码设置 只能在设计阶段设 置的属性称为只读属性 在程序代码中设置窗体属性, 一般格式如下 : [ 对象.] 属性 = 设置值 常用的窗体属性如下 1 Name( 名称 ) 属性 :Name 属性用于设置窗体的名称 Name 属性为只读属性 2 Caption( 标题 ) 属性 :Caption 属性用于设置窗体显示的标题 3 Font( 字体 ) 属性 :Font 是属性组, 用来设置窗体上正文的字体 可以在 属性 窗口中选择 字体 对话框设置字体 字形 字号和效果等 4 ForeColor( 前景色 ) 和 BackColor( 背景色 ) 属性 :ForeColor 属性用于设置窗体显示文本的前景色,BackColor 属性用于设置窗体的背景色 5 Visible( 可视性 ) 属性 :Visible 属性用来设置窗体是否可见 如果该属性值设置为 True, 运行时窗体可见 ; 如果设置为 False, 则运行时窗体隐藏 (2) 窗体的事件常用的窗体事件有 Click( 单击 ) DblClick( 双击 ) Load( 装入 ) Unload( 卸载 ) Activate( 活动 ) 等 (3) 窗体的方法窗体的方法多用于调用文本和图形, 直接在窗体上输出 还有一些方法对窗体的行为产生影响 常见的窗体方法有 Print( 输出 ) Cls( 清除 ) Show( 显示 ) Hide( 隐藏 ) 等 2. 标签对象 标签 (Label) 用于显示不需要用户修改的文本 (1) 标签的常用属性标签的部分属性与窗体和其他控件相同, 除此之外还有几个特有的属性 1 Alignment 属性 : 该属性用来设定标签中文本的对齐方式

14 10 第一部分实训指导 2 Autosize 属性 : 该属性设定标签是否根据标签内容自动调整大小 3 Caption 属性 :Caption 属性用来设定在标签上显示的文本内容, 是标签的重要属性 它的值是任意的字符串 (2) 标签的常用事件标签的事件很少使用, 其主要事件有 Click 事件和 DblClick 事件 (3) 标签的常用方法标签的常用方法有 Move 方法和 Refresh 方法 3. 文本框对象文本框 (Text) 用于接收用户输入的信息, 或显示系统提供的文本信息 (1) 文本框的常用属性 1 Text 属性 :Text 属性设置或取得文本框中显示的文本 这是文本框的重要属性 2 MaxLength 属性 :MaxLength 属性设定文本框中能输入的正文的最大长度 3 MultiLine 属性 :MultiLine 属性设定文本框是否允许显示和输入多行文本 4 PasswordChar 属性 :PasswordChar 属性用来设置如何在文本框中显示输入的字符 (2) 文本框的常用事件 1 Change 事件 : 当用户向文本框中输入新信息, 或程序改变了文本框的 Text 属性时会触发 Change 事件 2 KeyPress 事件 : 当用户按下并且释放键盘上的一个键时, 会引发焦点所在控件的 KeyPress 事件 3 GotFocus 事件 :GotFocus 事件是当文本框得到焦点时触发的 4 LostFocus 事件 : 当对象失去焦点时发生 LostFocus 事件 (3) 文本框的常用方法 SetFocus 是文本框最有用的方法 该方法可以把光标移动到指定的文本框中 4. 命令按钮对象 (1) 命令按钮的常用属性 1 Caption 属性 :Caption 属性用来设定命令按钮的标题 2 Value 属性 :Value 属性用于检查该按钮是否被按下 3 Picture 属性 :Picture 属性设定命令按钮上显示的图形 Picture 属性必须与 Style 属性联合使用才有效果, 把 Style 属性设置为 1( 图形格式 ), 命令按钮上才会显示图形 4 Style 属性 :Style 属性用于设定命令按钮显示的风格 属性值有两种选择 :0 表示按钮为标准按钮 ;1 表示按钮为图形按钮 (2) 命令按钮的常用事件命令按钮最重要的事件是 Click 事件 (3) 命令按钮的常用方法命令按钮的常用方法有 Move 方法 SetFocus 方法, 功能与其他控件类似 三 实训内容 实训 3-1 设计一个程序, 窗体上有两个命令按钮和 4 个标签 单击 显示 按钮则该按钮不可见, 并在两个标签中分别显示出当前日期和时间 ; 单击 清除 按钮则取消显示

15 实训三窗体和常用控件 11 并恢复 显示 按钮 (1) 界面设计在窗体上添加两个命令按钮 (Command1 Command2) 和 4 个标签 (Label1~Label4), 调整它们的位置及大小 界面设计如图 所示 (2) 设置对象属性在窗体中选择各个控件, 在 属性 窗口中设置它们的属性 属性设置见表 图 实训 3-1 界面设计 表 实训 3-1 程序中对象属性设置 对象名称 (Name) 属性属性值 标签 Label1 Caption 今天的日期 标签 Label2 Caption 今天的时间 标签 Label3 Caption 空 BorderStytle 1-Fixed Single 标签 Label4 Caption 空 BorderStytle 1-Fixed Single 命令按钮 Command1 Caption 显示 命令按钮 Command2 Caption 清除 (3) 编写程序代码 Command1 按钮的事件代码如下 : Private Sub Command1_Click() Command1.Visible = False Label3.Caption = Date$ Label4.Caption = Time$ Command2 按钮的事件代码如下 : Private Sub Command2_Click() Label3.Caption = "" Label4.Caption = "" Command1.Visible = True (4) 运行结果分别单击窗体中的 显示 和 清除 按钮, 运行结果如图 所示 图 实训 3-1 运行结果

16 12 第一部分实训指导 (5) 说明 Date$: 返回当前系统日期 Time$: 返回当前系统时间 实训 3-2 设计一个程序, 练习窗体的常用事件 (1) 界面设计建立应用程序界面 (2) 编写程序代码 Private Sub Form_Load() Caption = " 装入窗体 " BackColor = RGB(0, 0, 255) FontSize = 40 FontName = " 隶书 " Private Sub Form_Click() Caption = " 鼠标单击 " ForeColor = RGB(255, 255, 0) Print " 欢迎使用 VB" ' 窗体的加载事件 ' 背景为蓝色 ' ************************ ' 窗体的单击事件 ' 前景为黄色 Private Sub Form_DblClick() Caption = " 鼠标双击 " ForeColor = RGB(255, 0, 0) Print " 谢谢使用 VB" ' 窗体的双击事件 ' 前景为红色 (3) 运行程序单击工具栏上的 启动 按钮, 运行结果如图 所示 实训 3-3 利用命令按钮 文本框和标签判断口令是否正确 (1) 界面设计建立应用程序界面 在窗体上添加 2 个标签 (Label1 Label2) 1 个文本框 Text1 和 2 个命令按钮 (Command1 Command2), 注意调整各个控件的大小和位置 界面设计如图 所示 图 实训 3-2 运行结果 图 实训 3-3 界面设计

17 实训三窗体和常用控件 13 (2) 设置对象属性 在窗体中选择各个控件, 在 属性 窗口中设置它们的属性 属性设置见表 表 实训 3-3 程序中对象属性设置 对象名称 (Name) 属性属性值 窗体 Forml Caption 欢迎光临 标签 Label1 Caption 请输入口令 标签 Label2 Caption 空 文本框 Text1 Text 空 MaxLength 16 PasswordChar * 命令按钮 Command1 Caption 确定 命令按钮 Command2 Caption 取消 (3) 编写程序代码 Private Sub Command1_Click() If Text1.Text = "everyone" Then Label2.Caption = " 大家好, 欢迎使用本系统! " Else Label2.Caption = " 口令错误! 请重新输入口令! " Private Sub Command2_Click() End (4) 运行程序运行程序, 若在文本框中输入正确的口令, 单击 确定 按钮后, 会在标签中显示 大家好, 欢迎使用本系统! 若在文本框中输入错误的口令, 则会在标签中显示 口令错误! 请重新输入口令! 运行结果如图 所示 图 实训 3-3 运行结果 实训 3-4 编写分别计算圆 正方形 矩形面积和周长的程序 要求: 输入圆 正方形和矩形的相关参数, 在输入的同时计算出对应的面积和周长, 将结果显示在标签中 (1) 界面设计建立应用程序界面 在窗体上分别添加 16 个标签 (Label1~Label16) 和 4 个文本框 (Text1~Text4), 注意调整各个控件的大小 样式和位置 界面设计如图 所示

18 14 第一部分实训指导 (a) 对象属性为默认值 (b) 对象属性为给定值图 实训 3-4 界面设计 (2) 设置对象属性窗体中各控件的属性设置如表 所示 表 实训 3-4 程序中对象属性设置 对象 名称 (Name) 属性 属性值 标签 Label1 Caption 请输入圆的半径 : 标签 Label6 Caption 请输入正方形的边长 : 标签 Label11 Caption 请输入矩形的边长 a: 标签 Label12 Caption 请输入矩形的边长 b: 标签 标签 Label2 Label7 Label13 Label4 Label9 Label15 Caption 面积 : Caption 周长 : 标签 Label3 Label5 Caption 空 Label8 Label10 Label14 Label16 BorderStyle 1-Fixed Single 文本框 Text1~Text4 Text 空 (3) 编写程序代码 Private Sub Text1_Change() Dim r As Single r = Val(Text1.Text) Label3.Caption = 3.14 * r ^ 2 Label5.Caption = 3.14 * 2 * r ' 计算圆的面积 ' 计算圆的周长 Private Sub Text2_Change() Dim a As Single

19 实训三窗体和常用控件 15 a = Val(Text2.Text) Label8.Caption = a ^ 2 Label10.Caption = 4 * a Private Sub Text3_change() Dim x As Single, y As Single x = Val(Text3.Text) y = Val(Text4.Text) Label14.Caption = x * y Label16.Caption = 2 * (x + y) Private Sub Text4_Change() Dim x As Single, y As Single x = Val(Text3.Text) y = Val(Text4.Text) Label14.Caption = x * y Label16.Caption = 2 * (x + y) ' 计算正方形的面积 ' 计算正方形的周长 ' 计算矩形的面积 ' 计算矩形的周长 ' 计算矩形的面积 ' 计算矩形的周长 (4) 运行程序运行程序, 运行结果如图 所示 图 实训 3-4 运行结果 (5) 说明 Dim As 语句为声明变量类型 Val( ) 函数的作用是把一个数字字符串转换为相应的数值 四 思考题 1. 如何在窗体中添加控件, 怎样改变窗体与控件的大小和位置? 2. 要使窗体的高度为 4000, 宽度为 5000, 可以用什么方法设置? 如果使文本框的位置为左边 405, 上边 405, 可以用什么方法设置? 3. 如何在程序中使用命令设置对象的属性, 实训 3-3 对哪些对象的哪些属性进行了设置? 试在窗体的 Load 事件中设置窗体的大小和文本框的位置

20 16 第一部分实训指导 实训四 Visual Basic 语言基础 一 实训目的 1. 掌握 VB 中的基本数据类型 2. 掌握变量的命名规则及声明方法 3. 掌握常量的分类和符号常量的定义方法 4. 掌握 VB 中常用内部函数的使用 5. 学会正确使用 VB 的运算符和表达式 6. 熟悉常用的输入和输出的方法 7. 掌握 InputBox() 函数和 MsgBox() 函数的用法 二 预备知识 1. 基本数据类型 VB 的数据分为标准数据类型和自定义类型 标准数据类型主要有字符类型和数值类型, 此外还提供了字节 货币 对象 日期 布尔和变体数据类型 2. 变量 (1) 变量的命名规则变量名只能由字母 数字和下画线组成, 第一个字符必须是英文字母 ; 组成变量名的字符数最多为 255 个 ; 不能用 VB 的保留字作变量名 ; 变量名在同一范围内必须是唯一的 ; 不区分变量名的大小写 (2) 变量的定义定义格式如下 : Dim Private Static Public < 变量名 > As < 类型 >][,< 变量名 2>[As < 类型 >]]... 说明 : 把类型说明符放在变量的尾部, 可以表示不同的变量类型 其中,% 表示整型, & 表示长整型,! 表示单精度型,# 表示双精度型,@ 表示货币型,$ 表示字符串型 3. 常量常量分为直接常量 用户自定义的常量即 ( 符号常量 ) VB 系统提供的常量 4. 运算符与表达式 (1) 运算符及优先级 算术运算符 :^( 乘方 ) -( 取负 ) *( 乘 ) /( 符点除 ) \( 整除 ) Mod( 取模 ) +( 加 ) -( 减 ) 字符运算符 :+ &

21 实训四 Visual Basic 语言基础 17 关系运算符 := > < >= <= <> 或 >< Like Is 逻辑运算符 :Not( 非 ) And( 与 ) Or( 或 ) Xor( 异或 ) Eqv( 等价 ) Imp( 蕴含 ) (2) 表达式的运算规则 一般运算顺序如下 : 函数运算 算术运算和字符串运算 关系运算 逻辑运算所有同一级运算都是从左到右进行的 ; 括号内的运算优先执行, 嵌在最内层括号里的运算首先进行, 然后依次由内向外执行 5. 常用内部函数 VB 提供了大量的内部函数, 这些函数可分为转换函数 数学函数 字符串函数 时间和日期函数 随机函数 内部函数的执行比较简单, 即给出指定的自变量的值, 函数将返回相应的值 6.VB 中的基本语句 (1) 赋值语句格式 [Let] 目标操作符 = 源操作符 (2) 注释语句格式 Rem 注释内容 ' 注释内容 (3) 暂停语句格式 Stop (4) 结束语句格式 End (5)Print 语句格式 [< 对象名称 >.]Print[< 表达式表 >][, ;] (6)InputBox 函数格式 < 变量名 >=InputBox(< 提示内容 > [,< 对话框标题 >] [,< 默认内容 >]) (7)MsgBox 函数和 MsgBox 语句 MsgBox 函数格式 : < 变量名 >=MsgBox(< 消息内容 > [,< 对话框类型 >] [,< 对话框标题 >]) MsgBox 语句格式 : MsgBox < 消息内容 > [,< 对话框类型 >] [,< 对话框标题 >] 三 实训内容 实训 4-1 设计一个计算圆面积的程序 要求: 利用 InputBox 函数输入圆的半径, 利用 MsgBox 函数显示最后的计算结果 (1) 编写程序代码 Private Sub Form_Click() Dim r As Single, s As Single r = Val(InputBox(" 请输入半径 :", " 输入 "))

22 18 第一部分实训指导 s = * r * r MsgBox " 圆面积为 " & Str(s), vbinformation + vbokonly, " 计算结果 " (2) 运行程序程序运行后单击窗体, 如图 所示, 在弹出的对话框中输入半径 5, 单击 确定 按钮, 则窗体上显示如图 所示的结果 图 输入半径 图 实训 4-1 运行结果 实训 4-2 编写程序将一个 4 位整数反序, 并将结果显示在窗体上 (1) 分析该程序的算法一般可有如下两种 算法一 : 利用 Mod 和 \ 运算依次分离出该 4 位整数的千位 百位 十位和个位数字给 4 个变量, 再重新将这 4 个变量组合成反序的 4 位数即可 算法二 : 将这个 4 位数转换为字符串来处理 利用 Left() Right() 和 Mid() 函数取它的各位字符, 最后将取出的字符用字符连接符 & 重新组合成反序字符串 (2) 界面设计建立应用程序界面, 在窗体上添加一个标签 Label1 和一个文本框 Text1, 文本框用于输入一个 4 位整数, 反序后的数值利用 Print 方法直接显示在窗体上 注意标签和文本框的位置要稍微偏下, 留出窗体显示的位置 另外设计两个按钮 (Command1 Command2), 分别采用算法一和算法二来解决反序图 实训 4-2 界面设计的问题 窗体如图 所示 (3) 设置对象属性对象属性设置见表 表 实训 4-2 程序中对象属性设置 对象 名称 (Name) 属性 属性值 标签 Label1 Caption 输入一个四位数 : 文本框 Text1 Text 空 命令按钮 Command1 Caption 反序 1 命令按钮 Command2 Caption 反序 2 (4) 编写程序代码 Private Sub Command1_Click() Dim m As Integer, n As Integer Dim a As Integer, b As Integer, c As Integer, d As Integer

23 实训四 Visual Basic 语言基础 19 m = Val(Text1.Text) a = m \ 1000 b = (m - a * 1000) \ 100 c = (m - a * b * 100) \ 10 d = m Mod 10 Print d * c * b * 10 + a ' 取千位数 ' 取百位数 ' 取十位数 ' 取个位数 ' 反序输出 Private Sub Command2_Click() Dim n As String Dim a As String, b As String, c As String, d As String n = Trim(Text1.Text) a = Left(n, 1) ' 取千位数 b = Mid(n, 2, 1) ' 取百位数 c = Mid(n, 3, 1) ' 取十位数 d = Right(n, 1) ' 取个位数 Print d & c & b & a ' 反序输出 (5) 运行程序运行程序, 结果如图 所示 实训 4-3 计算下列表达式或程序的结果 提示 : 可在窗体的单击事件 (Form_Click( 中编写代码, 也可利用 立即 窗口来验证 ( 通过选择 视图 菜单中的 立即窗口 命令或按 Ctrl+G 组合键来打开 立即 窗口 在 立即 窗口中输入命令, 命令行解释程序对输图 实训 4-2 运行结果入的命令进行解释, 并立即响应 ) 1 表达式 3\3*3/3 MOD 3 的值是 2 表达式 16/4-2^5*8/4 MOD 5\2 的运算结果为 3 设 A=3,B=2,C=-1, 表达式 A>B AND C>A OR NOT C>B AND A<B 的值为 4 设 A=3.5,B=5.0,C=2.5,D=TRUE, 则表达式 A>0 AND A+C>B+3 OR NOT D 值为 5 表达式 (INT(-21.2)+ABS(-21.2)+SGN(21.2))\21 的值为 6 表达式 INT(-17.8)+SGN(17.8) 的值是 7 Print Sgn(-3 ^ 2) + Abs(-3 ^ 2) + Int(-3 ^ 2) 运行时输出的结果是 8 下面程序运行后输出的结果是 X = 9 ^ 2 Mod 4 ^ 3 \ 3 ^ 2 Print " X="; X 9 下面程序运行后输出的结果是 A$ = "12" B$ = "34"

24 20 第一部分实训指导 C$ = A$ + B$ D = Val(C$) Print D \ 10 下面程序运行后输出的结果是 A = 12.3 B = -123 M = Len(Str$(A) + Str$(B)) Print M 设 A$ = "Beijing": B$ = "Shanghai", 则语句 PRINT LEFT$(A$,7)+STRING$(3, "-") +LEFT$(B$,8) 的输出结果为 四 思考题 1. 实训 4-1 的实现可以采用多种方法, 既可以利用文本框 标签等控件, 也可以采用各种输出函数, 或者使用 Print 方法等 在做完该实训后, 尝试采用其他方法来实现 2. 实训 4-2 中第一种实现反序输出方法的局限性是什么? 3. 编写程序实现利用文本框输入三角形的三边长度, 并对三角形的面积进行计算

25 实训五选择结构程序设计 21 实训五选择结构程序设计 一 实训目的 1. 掌握块 If 结构的程序设计方法 2. 掌握多分支结构的程序设计方法 3. 掌握 Select Case 语句的使用方法 4. 掌握选择结构的嵌套 二 预备知识 1.If Then 语句 ( 单分支结构 ) 格式一 : If < 表达式 > Then < 语句块 > 格式二 : If < 表达式 > Then < 语句 > 2. 块 If 语句 格式一 : If < 表达式 > Then < 语句块 1> Else < 语句块 2> 格式二 : If < 表达式 > Then < 语句 1> Else < 语句 2> 3.If Then ElseIf 语句 ( 多分支结构 ) 格式 : If < 表达式 1> Then < 语句块 1> ElseIf < 表达式 2> Then

26 22 第一部分实训指导 < 语句块 2 > [ElseIf < 表达式 3> Then < 语句块 3>] [Else < 语句块 n>] 说明 : 1 执行顺序是 : 当 表达式 1 为 True 时, 执行 语句块 1 ; 否则测试 表达式 2, 若为 True, 执行 语句块 2, 依此类推 2 ElseIf 语句没有数量限制 3 当有多个表达式为 True 时, 只执行第一个为 True 的表达式后面的语句块 4.If 语句的嵌套 If 语句的嵌套是指 If 或 Else 后面的语句块中又完整地包含一个或多个 If 语句 格式 : If < 表达式 1> Then If < 表达式 11> Then 说明 : 嵌套时必须用 If 完全 包住 内嵌的 If 结构, 不能相互 交叉 5.Select Case 语句格式 : Select Case 变量或表达式 Case 值列表 1 < 语句块 1> [Case 值列表 2 < 语句块 2>] [Case 值列表 n < 语句块 n>] [Case Else [< 语句块 n+1>] End Select 三 实训内容 实训 5-1 任意输入一个整数, 判断该整数是否为 3 的倍数 要求用 If 结构实现

27 实训五选择结构程序设计 23 (1) 界面设计建立应用程序界面 在窗体中添加 2 个标签 (Label1 Label2) 1 个文本框 (Text1) 和 3 个命令按钮 (Command1~ Command3) 调整它们的位置及大小, 界面设计如图 所示 (2) 设置对象属性对象属性如表 所示 图 实训 5-1 界面设计 表 实训 5-1 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 判定 3 的倍数 标签 Label1 Caption 请输入一个整数 标签 Label2 Caption 空 文本框 Text1 Text 空 命令按钮 Command1 Caption 判断 命令按钮 Command2 Caption 清空 命令按钮 Command3 Caption 退出 (3) 编写程序代码 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) Label2.FontName = " 黑体 " Label2.FontSize = 16 If x Mod 3 = 0 Then ' 判断 x 是否为 3 的倍数 Label2.ForeColor = vbred Label2.Caption = "3 的倍数 " Else Label2.ForeColor = vbblue Label2.Caption = " 非 3 倍数 " Private Sub Command2_Click() Text1.Text = "" ' 清空文本框 Label2.Caption = "" Text1.SetFocus Private Sub Command3_Click() End (4) 运行程序运行程序, 结果如图 所示 实训 5-2 编写程序, 计算以下分段函数的值 图 实训 5-1 运行结果

28 24 第一部分实训指导 0 x<0 x 0 x<10 y= x+0.1x 10 x<100 x+ 0.2 ( x 50) 100 x<500 x+90 x 500 (1) 分析 1 分段函数是一个多分支判断, 可采用 If...Then...ElseIf 语句, 函数的不同区间就是语句的条件判断表达式 2 利用 InputBox 函数产生一个对话框作为输入数据 x 的界面, 接收用户数据值 (2) 编写程序代码 Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox(" 请输入 x 的值 ")) If x < 0 Then y = 0 ElseIf x < 10 Then ' 还可以写成 ElseIf (x = 0 Or x > 0) And x < 10 Then y = x ' ** 在以下画线部分写上正确代码 ** ElseIf 1 Then 2 ElseIf 3 Then y= x+0.2*(x-50) Else 4 Print "x=";x,"y=";y 图 实训 5-3 界面设计 实训 5-3 已知 x y z 3 个变量中存放了 3 个不同的整数, 比较它们的大小并进行调整, 使得 x<y<z 编程实现上述功能 (1) 界面设计建立应用程序界面 在窗体设计器中添加 2 个标签 (Label1 Label2) 6 个文本框 (Text1~Text6) 和 1 个命令按钮 (Command1) 调整它们的位置及大小, 如图 所示 (2) 设置对象属性对象属性设置如表 所示 表 实训 5-3 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 排序 标签 Label1 Caption 请输入 3 个整数 (x y z): 标签 Label2 Caption 排序后的 x y z: 文本框 Text1~Text6 Text 空 命令按钮 Command1 Caption 排序

29 实训五选择结构程序设计 25 (3) 编写程序代码 Private Sub Command1_Click() Dim x%, y%, z% x = Val(Text1.Text) y = Val(Text2.Text) z = Val(Text3.Text) ' ** 在以下画线部分写上正确代码 ** If x > y Then 1 ' x 与 y 交换 ' 使得 x<y If 2 Then t = y: y = z: z = t ' y 与 z 交换使得 y<z If x > y Then ' 此时的 x,y 已不是原 x,y 的值 t = y: y = x: x = t 3 Text4.Text = Str(x) Text5.Text = Str(y) Text6.Text = Str(z) Private Sub Form_Load() Text1.Text = "": Text2.Text = "": Text3.Text = "" Text4.Text = "": Text5.Text = "": Text6.Text = "" (4) 运行程序运行程序, 结果如图 所示 实训 5-4 编写一个小学生四则运算的程序 程序已经给出了加法和减法部分, 需要添加乘法和除法部分的程序代码 (1) 界面设计 建立应用程序界面 在窗体设计器中添加 1 个标签 1 个文本框 1 个图片框和 2 个命 令按钮 调整它们的位置及大小, 界面设计如图 所示 图 实训 5-3 运行结果 图 实训 5-4 界面设计

30 26 第一部分实训指导 (2) 设置对象属性对象属性设置如表 所示 表 实训 5-4 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 四则运算 标签 lblexp Caption 空 文本框 txtinput Text 空 图片框 Picture1 命令按钮 cmdok Caption 确定 命令按钮 cmdmark Caption 计分 (3) 编写程序代码 ' 下列变量定义在 " 通用声明 " 区 Dim num1 As Integer, num2 As Integer ' 存放两个操作数 Dim SExp As String, Result As Integer ' 运算表达式字符串与正确答案 Dim NOk As Integer, NError As Integer ' 计算正确与错误的题目个数 Private Sub cmdmark_click() lblexp.caption = "" txtinput.visible = False Picture1.Print " " Picture1.Print " 一共计算 " & (NOk + NError) & " 道题 "; Picture1.Print " 得分 " & Int(NOk / (NOk + NError) * 100) Private Sub cmdok_click() If Val(txtInput.Text) = Result Then Picture1.Print SExp; txtinput; " " NOk = NOk + 1 Else Picture1.Print SExp; txtinput; " " NError = NError + 1 txtinput = "" txtinput.setfocus Form_Load ' 用户的输入与正确答案比较 Private Sub Form_Load() Dim tempnum As Integer Dim Nop As Integer, Op As String * 1 'Op 用于存放运算符 txtinput.fontsize = 18 num1 = Int(40 * Rnd + 1) num2 = Int(30 * Rnd + 1) ' 保证第一个数大于第二个数, 做减法时需考虑 If num1 < num2 Then tempnum = num1: num1 = num2: num2 = tempnum '*********************************

31 实训五选择结构程序设计 27 Nop = Int(2 * Rnd + 1) ' 将产生的随机数 1~2 转换成运算符 + -, 并进行运算 Select Case Nop Case 1 Op = "+" Result = num1 + num2 ' 计算加法运算的正确答案 Case 2 Op = "-" Result = num1 - num2 ' 计算减法运算的正确答案 End Select '******************************** SExp = num1 & Op & num2 & "=" ' 生成运算表达式字符串 lblexp.fontsize = 18 lblexp = SExp ' 在窗体的 lblexp 标签内显示运算表达式 (4) 运行程序运行程序, 结果如图 所示 (5) 问题 1 程序的 3 个过程分别实现什么功能? 2 如何修改程序中两行 * 号之间的代码, 以实现加 减 乘 除运算? 3 如何避免除数为零的问题? 4 运行上述程序, 结束后再运行该程序, 观察随机函数 Rnd(), 有何发现? 实训 5-5 编写程序, 计算某个学生奖学金的等级, 以三门功课成绩 score1 score2 score3 为评奖依据 奖学金评奖标准如表 所示, 符合条件者就高不就低, 只能获得高的那一项奖学金 要求显示获奖的等级 要求 : 使用 If Then ElseIf 语句 ( 多分支结构 ) 编写 表 奖学金评选条件 奖学金等级一等奖二等奖三等奖没有奖学金 评奖条件平均成绩 90 分 85 平均成绩 <90 80 平均成绩 <85 平均成绩 <80, 或者三门成绩中有一门在 80 分以下 (1) 界面设计 建立应用程序界面 在窗体设计器中添加 5 个标签 (Label1~Label5) 3 个文本框 (Text1~ Text3) 和 1 个命令按钮 (Command1) 调整它们的位置及大小, 界面设计如图 所示 图 实训 5-4 运行结果 图 实训 5-5 界面设计

32 28 第一部分实训指导 (2) 设置对象属性对象属性设置如表 所示 表 实训 5-5 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 标签 Label1 Caption 第一门课成绩 标签 Label2 Caption 第二门课成绩 标签 Label3 Caption 第三门课成绩 标签 标签 Label4 Label5 Caption 奖学金等级 FontSize 12 Caption 空 FontSize 12 文本框 Text1 Text 空 文本框 Text2 Text 空 文本框 Text3 Text 空 命令按钮 Command1 Caption 计算 (3) 编写程序代码 Private Sub Command1_Click() Dim score1 As Single, score2 As Single, score3 As Single Dim score_avg As Single score1 = Val(Text1.Text) score2 = Val(Text2.Text) score3 = Val(Text3.Text) score_avg = (score1 + score2 + score3) / 3 ' 计算平均分 If score_avg < 80 Or score1 < 80 Or score2 < 80 Or score3 < 80 Then Label5.Caption = " 没有奖学金 " ElseIf score_avg >= 90 Then Label5.Caption = " 一等奖学金 " ElseIf score_avg >= 85 Then Label5.Caption = " 二等奖学金 " Else Label5.Caption = " 三等奖学金 " (4) 运行结果运行程序, 结果如图 所示 四 思考题 图 实训 5-5 运行结果 1.If 语句后面的条件表达式可以是哪些类型的表达式? 2. 比较 If... Else... 结构与 Select Case... End Select 结构的异同点 3. 多种选择结构嵌套使用时应当注意哪些事项?

33 实训六循环结构程序设计 29 实训六循环结构程序设计 一 实训目的 1. 掌握 For 循环语句的程序设计方法 2. 掌握当型循环和直到型循环的程序设计方法 3. 掌握循环嵌套程序设计方法 4. 了解几种循环结构相互转换的方法 二 预备知识 1.For 循环格式 : For 循环变量 = 初值 To 终值 [Step 步长 ] < 语句块 > [Exit For] < 语句块 > Next 循环变量 2.While 循环格式 : While 条件 < 语句块 > Wend 3.Do 循环格式一 : Do [{While Until}< 条件 >] < 语句块 > [Exit Do] < 语句块 > Loop 格式二 : Do < 语句块 > [Exit Do] < 语句块 > Loop [{While Until}< 条件 >]

34 30 第一部分实训指导 三 实训内容 实训 6-1 求 Fibonacci 数列中的前 40 个数 Fibonacci 数列特点 : 第 1 个数和第 2 个 数都是 1, 从第 3 个数开始, 该数是前两数之和, 即 F 1 =1 (n=1) F 2 =1 (n=2) F n =F n-1 + F n-2 (n 3) (1) 编写程序代码 Private Sub Form_Click() Dim f1 As Long, f2 As Long, f3 As Long Dim i As Integer, j As Integer f1 = 1 f2 = 1 j = 3 Print Print "==== 输出 Fibonacci 数列 40 个数 ====" Print Print f1, f2, For i= 3 To 40 f3 = f1 + f2 If j < 5 Then Print f3, Else j = 0 Print f3 f1 = f2 f2 = f3 j = j + 1 Next i (2) 运行程序运行程序, 结果如图 所示 图 实训 6-1 运行结果 (3) 问题 1 循环变量 i 的初值是什么? 如果改为 1 是否可以? 2 程序代码中 If... Else... 部分, 用来完成什么功能?

35 实训六循环结构程序设计 31 3 变量 j 的作用是什么 4 将变量 f1 f2 f3 的数据类型改为 Integer, 再运行程序, 系统会出现什么提示? 实训 6-2 编写程序, 使用 InputBox 函数输入 10 个数, 求出它们的最大值 最小值和平均值并显示 (1) 界面设计建立应用程序界面 在窗体设计器中添加 2 个命令按钮 (Command1 Command2) 调整它们的位置及大小, 如图 所示 (2) 设置对象属性对象属性设置如表 所示 图 实训 6-2 界面设计 表 实训 6-2 程序中对象属性设置 对象名称 (Name) 属性属性值 命令按钮 Command1 Caption 输入数据 命令按钮 Command2 Caption 显示结果 (3) 编写程序代码 Dim max As Integer, min As Integer, avg As Single Private Sub Command1_Click() Dim i As Integer, num As Integer, sum As Long, str1 As String Form1.FontSize = 12 Print " 输入的 10 个数据是 :" num = Val(InputBox(" 请输入第 1 个数 ")) max = num: min = num sum = num str1 = " " & num For i = 2 To 10 num = Val(InputBox(" 请输入第 " & i & " 个数 ")) If num > max Then max = num '** 在以下画线部分写上正确代码 ** If 1 Then min = num sum = 2 ' 求输入的数据的和 str1 = str1 & " " & num ' 五个数据显示在一行 If i Mod 5 = 0 Then Print str1: str1 = "" Next i avg = 3 ' 求平均值 Private Sub Command2_Click() Form1.ForeColor = vbred Form1.FontSize = 14 Print Print " 最大值是 :" & max & " 最小值是 :" & min Print " 平均值是 :" & avg

36 32 第一部分实训指导 图 实训 6-2 运行结果 实训 6-3 求 (1) 分析 100 n= 1 (4) 运行程序 运行程序, 结果如图 所示 (5) 问题 1 程序代码中, 变量 max min sum avg 中存放的数 据分别表示什么含义? 2 程序代码中, 变量 str1 的作用是什么? 哪些语句是用 来显示用户输入的数据的? 数据的显示格式是什么? 3 求几个数据中的最大值 最小值 平均值的算法分别 是什么? 请用自己的语言描述其算法 n!, 补充并完成如下程序设计 100 n= 1 n! =1!+2!+3!+ +n! 1 其中,n!=1 2 3 n 在程序设计中, 可以用 t=t*n 语句在循环中反复运算, 最终达到计算阶乘的目的 乘和 2 用 sum=sum+t 语句在循环中反复计算, 即可求出阶 (2) 界面设计 建立应用程序界面 在窗体设计器中添加 2 个标签 (Label1 Label2) 1 个文本框 (Text1) 2 个图片框 (Picture1 Picture2) 和 2 个命令按钮 (Command1 Command2) 调整 它们的位置及大小, 如图 所示 (3) 设置对象属性 对象属性设置如表 所示 表 实训 6-3 程序中对象属性设置 对象名称 (Name) 属性属性值 标签 Label1 Caption 输入 n: 标签 Label2 Caption = 文本框 Text1 Text 空 命令按钮 Command1 Caption 计算 命令按钮 Command2 Caption 退出 图片框 图片框 (4) 编写程序代码 Picture1 Picture2 图 实训 6-3 界面设计 Private Sub Command1_Click() Dim a As Integer, t As Double, n As Integer, sum As Double a = Val(Text1.Text) t = 1 n = 1 sum = 0 Do ' ** 在以下画线部分写上正确代码 **

37 实训六循环结构程序设计 Loop Until n > a ' 将计算结果在 Picture2 中输出 Picture2.Print sum; Spc(2); "n="; a Private Sub Command2_Click() End 图 实训 6-3 程序运行结果 (5) 运行结果运行程序, 结果如图 所示 (6) 问题 1 变量 a 作用是保存用户输入的 n 值 ; 变量 t 的作用是 ; 变量 sum 的作用是 2 在变量定义部分, 如将 t As Double, sum As Double 改为 t As Integer, sum As Integer, 再运行程序, 系统会出现什么提示? 3 若将语句 Loop Until n > a 中的条件改为 n>= a 是否可以? 4 用 For... Next 循环结构替换程序中的 Do... Loop Until 结构, 应如何修改程序? 5 用当型循环替换程序中的直到型循环, 应如何修改程序? 实训 6-4 用 这三个数字可以组成一个三位数 打印所有可能的三位数组合, 计算没有重复数字的三位数的个数 ( 如 111 属于重复数字的三位数 ) (1) 分析 1 需要采用三重循环嵌套实现 2 循环变量的初值为 1, 终值为 3 (2) 编写程序代码 Private Sub Form_Load() Dim sum As Integer, i%, j%, k%, p%, x$ Show Print sum = 0 ' ** 在以下画线部分写上正确代码 ** For i = 1 To 3 For j = 1 To 1 For k = 1 To 2 x = i & j & k & " " Print x; p = p + 1 If p Mod 9 = 0 Then Print ' 当三个数不相同时, 求和 If 3 Then sum = sum + 1 Next k Next j Next i

38 34 第一部分实训指导 Print For i = 1 To 90 Print "-"; Next i Print Print " 组合个数为 :"; sum (3) 运行程序运行程序, 结果如图 所示 实训 6-5 一个数如果恰好等于它的因子之和, 则称这个数为 完数 或 完全数 例如,6 的因子为 1 2 3, 而 6=1+2+3, 因此 6 是 完数 ; 又如,28 的因子为 , 而 28= , 因此 28 也是一个 完数 找出 1000 之内的所有完数 (1) 界面设计建立应用程序界面 在窗体设计器中添加 1 个标签 (Label1) 1 个文本框 (Text1) 和 2 个命令按钮 (Command1 Command2), 调整它们的位置及大小, 如图 所示 图 实训 6-4 运行结果 图 实训 6-5 界面设计 (2) 设置对象属性属性设计如表 所示 表 实训 6-5 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 完数查找 (1000 以内 ) 标签 Label1 Caption 结果显示 文本框 Text1 Text 空 命令按钮 Command1 Caption 开始 命令按钮 Command2 Caption 退出 (3) 编写程序代码 Private Sub Command1_Click() Dim a%, b%, c%, p%, q% a = 2 While a <= 1000 b = 2: q = 1 If a Mod 2 = 0 Then c = a / 2 Else c = Int(a / 3)

39 实训六循环结构程序设计 35 Do While b <= c p = Int(a / b) If p = a / b Then q = q + b b = b + 1 Loop If q = a Then Text1.Text = Text1.Text + Str(a) + Space$(5) a = a + 1 Wend Private Sub Command2_Click() End (4) 运行程序运行程序, 结果如图 所示 (5) 问题图 实训 6-5 程序运行结果 1 程序中语句 c=int(a / 3) 的含义是什么? 2 将语句 Text1.BackColor... 和 Text1. ForeColor... 前面的注释去掉, 运行程序, 观察文本框的变化 3 是否可以用 For... Next 循环结构替换程序中的当型循环结构? 实训 6-6 编写程序, 求 e= 的值, 要求误差小于 ! 2! 3! n! 编写程序代码如下 : 四 思考题 Private Sub Form_Click() Dim i%, n&, t!, e! e = 0 n = 1 'e 存放累加和 n 存放阶乘 i = 0 t = 1 'i 计数器 t 第 i 项的值 Do While t > e = e + t i = i + 1 ' 累加 连乘 n = n * i t = 1 / n Loop Print " 计算了 "; i; " 项的和是 "; e 1. 如何计算 For 循环中的循环次数? 2. 如何避免死循环问题? 3. 使用循环嵌套时应当注意哪些事项?

40 36 第一部分实训指导 实训七数 组 一 实训目的 1. 掌握数组的定义方法 2. 掌握数组整体引用及数组元素的基本操作 3. 学会控件数组的使用 4. 理解静态数组与动态数组在使用过程中的区别 5. 了解自定义数据类型在程序设计中的使用 6. 了解 For Each... Next 语句的用法 二 预备知识 1. 一维数组格式 :Dim 数组名 ( 下标 ) [As 数组类型 ] 2. 多维数组格式 :Dim 数组名 ( 下标 1[, 下标 2 ])[As 数组类型 ] 3. 动态数组格式 :Redim 数组名 ( 下标 1 [, 下标 2 ])[As 数组类型 ] 4. 数组的基本操作 (1) 数组元素的引用格式 : 数组名 ( 下标, ) (2) 数组元素的输入输出单个元素的输入 / 输出方法与变量相同, 区别只在于数组元素是带下标的变量 ; 多个数组元素输入 / 输出一般利用循环结构实现 (3) 数组的复制单个数组元素可以像简单变量一样从一个数组复制到另一个数组, 也可以通过 For 循环完成两个数组元素的整体复制 (4) 数组的清除格式 :Erase 数组名 [, 数组名 ] 5. 控件数组控件数组是由一组相同类型的控件组成 它们共用一个控件名, 具有相同的属性, 通过 Index 属性来区分 程序中通过参数 Index 确定用户单击了哪个按钮 6. 自定义数据类型自定义数据类型由若干个标准数据类型组成, 它一般在标准模块 (.bas) 中定义

41 实训七数组 37 (1) 定义形式 Type 自定义类型名元素名 [( 下标 )] As 类型名 [ 元素名 [( 下标 )] As 类型名 ] End Type (2) 自定义类型变量声明形式 Dim 变量名 As 自定义类型名 (3) 自定义类型变量引用形式 变量名. 元素名 三 实训内容 实训 7-1 编一程序, 随机产生 10 个一位数, 放入数组 A 中, 分别计算前 5 个数和后 5 个数的平 均值, 比较两个平均值的大小, 并显示比较结果 (1) 界面设计 建立应用程序界面 在窗体设计器中添加 1 个命令按钮和 5 个标签, 调整它们的位置及大小, 如图 所示 (2) 设置对象属性 对象属性设置如表 所示 表 实训 7-1 程序中对象属性设置 对象名称 (Name) 属性属性值 窗体 Form1 Caption 比较大小 标签 Label1 Caption 随机产生 10 个一位数 : 标签 datalist Caption BorderStytle datalist 1-Fixed Single 标签 q5label Caption 前 5 个数的平均值 : 标签 h5label Caption 后 5 个数的平均值 : 标签 result_label Caption BorderStytle result_label 1-Fixed Single 命令按钮 Command1 Caption 开始 (3) 编写程序代码 图 实训 7-1 界面设计 Private Sub Command1_Click() Dim a(1 To 10) As Integer, datastr As String Dim q5_sum%, h5_sum%, q5_avg!, h5_avg! For i = 1 To 10 a(i) = Int(Rnd * 10) ' 将产生的随机数存放在下标为 i 的数组元素中 If i <= 5 Then q5_sum = q5_sum + a(i) Else h5_sum = h5_sum + a(i)

42 38 第一部分实训指导 datastr = datastr & " " & Str(a(i)) ' 将数据作为字符串连接起来 Next i datalist.caption = datastr: q5_avg = q5_sum / 5: h5_avg = h5_sum / 5 q5label.caption = q5label.caption & q5_avg h5label.caption = h5label.caption & h5_avg If q5_avg > h5_avg Then result_label.caption = " 数组前 5 个数的平均值大于后 5 个数的平均值 " ElseIf q5_avg = h5_avg Then result_label.caption = " 数组前 5 个数的平均值等于后 5 个数的平均值 " Else result_label.caption = " 数组前 5 个数的平均值小于后 5 个数的平均值 " (4) 运行程序运行程序, 结果如图 所示 (5) 问题 1 如果要求数组下标的下界从 0 开始, 应如何修改程序? 2 为提高程序的通用性, 可以使用符号常量来定义一维数组的长度, 应如何修改程序? 实训 7-2 编一程序, 随机产生 20 个元素图 实训 7-1 运行结果的一维数组 A, 将前 10 个元素与后 10 个元素交换, 要求第 1 个元素与第 20 个元素交换, 第 2 个元素与第 19 个元素交换, 依此类推 输出交换后的数组 A (1) 分析 1 为了便于控制数组元素的下标运算, 本程序采用下标的下界从 1 开始 2 按照交换要求, 只需要将循环执行 10 次, 每次将 a(i) 与 a(20-i+1) 交换即可 (2) 界面设计建立应用程序界面 在窗体设计器中添加 2 个标签 (Label1 Label2) 和 2 个图片框 (Picture1 Picture2), 调整它们的位置及大小, 如图 所示 (3) 设置对象属性图 实训 7-2 界面设计设置对象属性如表 所示 表 实训 7-2 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 数组元素的交换 标签 Label1 Caption 随机产生的 20 个数值的数组 : 标签 Label2 Caption 交换后的数组 : 图片框 Picture1 BorderStyle 1-Fixed Single 图片框 Picture2 BorderStyle 1-Fixed Single

43 实训七数组 39 (4) 编写程序代码 Option Base 1 Dim a(20) As Integer Private Sub Form_Click() For i = 1 ' 赋初值, 并显示 a(i) = Int(100 * Rnd + 1) Picture1.Print a(i); Spc(1); If i = 10 Then Picture1.Print Next i ' ** 在以下画线部分写上正确代码 ** For i = 1 To 10 ' 进行交换 t = a(i) a(i) = 2 a(20 - i + 1) = t Next i For i = 1 To 20 ' 输出逆序的数组 Picture2.Print a(i); Spc(1); If i = 10 Then Picture2.Print 3 (5) 运行程序图 实训 7-2 运行结果程序结果如图 所示 实训 7-3 编一程序, 将一个 3 4 阶的矩阵转置后存到另一个矩阵中, 并输出转置后的矩阵 例如 : 矩阵 A= , 转置后的矩阵 A T = (1) 界面设计 图 实训 7-3 界面设计 建立应用程序界面 在窗体设计器中添加 3 个标签 (Label1~Label) 和 2 个图片框 (Picture1~Picture2), 调整 它们的位置及大小, 如图 所示 (2) 设置对象属性 设置属性, 如表 所示 表 实训 7-3 程序中对象属性设置 对象名称 (Name) 属性属性值窗体 Form1 Caption 矩阵转置 标签 Label1 Caption 3*4 矩阵 标签 Label2 Caption 4*3 矩阵 标签 Label3 Caption => 图片框 Picture1 BorderStyle 1-Fixed Single 图片框 Picture2 BorderStyle 1-Fixed Single

44 40 第一部分实训指导 (3) 编写程序代码 Private Sub Form_Click() Dim a(1 To 3, 1 To 4) As Integer, b(1 To 4, 1 To 3) As Integer Dim i%, j% For i = 1 To 3 ' ** 在以下画线部分写上正确代码 ** For j = 1 a(i, j) = i + j Picture1.Print a(i, j); Spc(1); Next j Picture1.Print Next i ' **** 第一部分 **** For i = 1 To 4 For j = 2 3 Picture2.Print b(i, j); Spc(1); Next j Picture2.Print Next i (4) 运行程序 运行程序, 结果如图 所示 (5) 问题 1 为了增强程序的灵活性, 可以在通用声明段中定义 n 和 m 两个符号常量来分别表示矩阵的行 列值, 请修改 程序, 使得程序可以对任意矩阵进行转置 图 实训 7-3 运行结果 2 程序中标有 **** 第一部分 **** 下面的循环结构实现的功能是什么? 实训 7-4 打印 杨辉三角形 (1) 分析 1 杨辉三角形的一般形式如下 : 分析上面的形式, 可以找出其规律 : 对角线和每行的第一列均为 1, 其余各项是它 的上一行中前一列元素和上一行的同一列元素之和 例如, 第 4 行第 3 列的值为 3, 它是第 3 行第 2 列与第 3 行第 3 列元素值的和 一般公式可以表示如下 :

45 实训七数组 41 a(i,j)=a(i-1,j-1)+ a(i-1,j) (2) 编写程序代码 Option Base 1 Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer '****** 使对角线和每行的第一列均为 1***** For i = 1 To n ' ** 在以下画线部分写上正确代码 ** arr(i, i) = 1 2 = 1 Next i '****** 从第三行开始, 计算非第一列和对角线的各项的值 ***** For i = 3 To n For j = 2 To i - 1 arr(i, j) = 3 Next j Next i '****** 数组的输出 ***** For i = 1 To n For j = 1 To 4 Print arr(i, j); Next j Print Next i (3) 运行程序图 实训 7-4 运行结果运行程序, 结果如图 所示 实训 7-5 编一程序, 利用随机数生成一个 5 5 阶的矩阵 A, 对该矩阵对角线上的数值进行从大到小的排序后, 再输出该矩阵 (1) 分析 1 常用的排序方法有比较法 冒泡法和选择法, 本题采用选择法排序, 其具体算法参考配套主教材 2 对角线上数组元素的行下标和列下标相等, 在进行对角线上数值的比较时, 只需行下标做循环变量即可, 不需考虑列下标 3 程序中标有 **** 第一部分 **** 下面的循环结构中, 变量 i 用来表示行下标, 变量 j 用来表示处于 i 行之下的行下标, 变量 p 用来表示当前最大数的行下标 (2) 编写程序代码 Option Base 1 Private Sub Form_Click() Dim a(5, 5) As Integer Dim p%, i%, j% For i = 1 To 5 ' 产生随机数

46 42 第一部分实训指导 For j = 1 To 5 a(i, j) = Int(Rnd * 100) Next j Next i Print " 生成的 5*5 矩阵为 :" For i = 1 To 5 For j = 1 To 5 Print Tab(6 * j); a(i, j); Next j Print Next i '*********** 第一部分 ************ For i = 1 To 4 p = i For j = i + 1 To 5 ' ** 在以下画线部分写上正确代码 ** If 1 Then ' a(j,j) 比其元素值大 p = j Next j '*********** 第二部分 ************ k = a(i, i) 2 a(p, p) = k '******************************* Next i Print Print " 排序后的 5*5 矩阵为 :" For i = 1 To 5 For j = 1 To 5 Print Tab(6 * j); a(i, j); Next j Print Next i 图 实训 7-5 运行结果 (3) 运行程序运行程序, 运行结果如图 所示 (4) 问题 1 程序中标有 **** 第一部分 **** 下面的循环结构实现的功能是什么? 为什么其下的循环变量 i 的终值是 4 而不是 5? 2 程序中标有 **** 第二部分 **** 下面的语句实现的功能是什么? 3 当对角线上存在相同的数值时, 是否也能排序? 4 如果本程序使用冒泡排序法来实现, 应该如何修改程序?

47 实训七数组 43 实训 7-6 编一程序, 在一个数列中, 查找并删除第一个与用户输入的数值相同的数 (1) 分析 1 将数列定义为一维动态数组 A, 当数组 A 中删除了某个数据后, 则该数据后的数组元素要逐一向前移动一位 2 从数组中删除数据后, 使用 ReDim Preserve 语句动态配置实际的数组元素个数 3 查找数据时可以采用顺序查找法来实现 其基本思想是 : 待查找的数放入变量 x 中, 将 x 与 a(i) 进行比较,i=1,2,3,,n, 一旦 x 等于某个 a(i) 值, 则退出循环 ; 循环结束后, 进行判断, 如果 i n 则找到该数据, 其在数组中的位置下标为 i, 否则没有找到 (2) 界面设计建立应用程序界面, 在窗体设计器中添加 2 个文本框 (Text1 Text2) 2 个标签 (Label1 Label2) 和 1 个命令按钮 :Command1, 调整它们的位置及大小, 如图 所示 (3) 设置对象属性图 实训 7-6 界面设计对象属性设置如表 所示 表 实训 7-6 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 查找并删除数组元素 标签 Label1 Caption 数据列表 : 标签 Label2 Caption 查找数据 : 文本框 Text1 Text Text1 文本框 Text2 Text Text2 命令按钮 Command1 Caption 查找 (4) 编写程序代码 Option Base 1 Dim a() ' 查找 Private Sub Command1_Click() Dim i%, j%, x% x = Val(Text2.Text) For i = 1 To UBound(a) ' 把 x 与 a 数组中的元素从头到尾一一进行比较 ' ** 在以下画线部分写上正确代码 ** If x = a(i) Then 1 ' 跳出循环 Next i If i > 2 Then MsgBox " 没有找到 ",, " 顺序查找法 " Else MsgBox x & " 在数组中的下标为 :" & i,, " 顺序查找法 " For j = i To UBound(a) - 1 a(j) = 3 ' 后面的数组元素逐一向前移动一位 Next j ReDim Preserve a(ubound(a) - 1) Text1.Text = ""

48 44 第一部分实训指导 For i = 1 To UBound(a) Text1.Text = Text1.Text & " " & a(i) Next Private Sub Form_Load() Dim i% Text1.Text = "" a = Array(15, 12, 52, 34, 102, 56, 2, 3, 5, 121) ' 生成数组 For i = 1 To UBound(a) Text1.Text = Text1.Text & " " & a(i) Next i Text2.Text = "" (5) 运行程序运行程序, 结果如图 所示 实训 7-7 输入学生的学号 姓名以及各自的数学 英语 计算机分数并显示出来; 求出每名学生的三门课程平均分, 分别统计高于平均分 低于 60 分 大于等于 90 分的人数并输出 (1) 界面设计建立应用程序界面, 在窗体设计器中添加 14 个标签 (Label1~Label14) 1 个文本框控件数组 (Text1(0)~Text1(4)) 3 个文本框 (Text2~Text4) 1 个列表框 (List1) 和两个命令按钮 (Command1 Command2), 调整它们的位置及大小, 如图 所示 图 实训 7-6 运行结果 图 实训 7-7 界面设计 (2) 设置对象属性部分对象属性设置如表 所示, 其余标签对象的属性设置如图 所示 表 实训 7-7 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 学生信息 列表框 List1 文本框 Text1(0)~Text1(4) Text Text1 文本框 2 Text2~Text4 Text Text2~Text4 命令按钮 1 Command1 Caption 输入 命令按钮 2 Command2 Caption 统计

49 实训七数组 45 (3) 编写程序代码 Option Base 1 ' 使用自定义数据类型定义学生记录 Private Type stud Num As String * 4 Name As String * 8 math As Single english As Single computer As Single avg As Single End Type Dim st() As stud ' 定义 st() 为学生记录型数组 Dim n As Integer Dim count_90%, count_60%, count_avg%, sum! Private Sub Command1_Click() Dim sc As String Dim sp As String sp = " " n = n + 1 ReDim Preserve st(n) With st(n) ' 为数组元素赋值.Num = Text1(0).Text.Name = Text1(1).Text.math = Val(Text1(2).Text).english = Val(Text1(3).Text).computer = Val(Text1(4).Text).avg = (.math +.english +.computer) / 3 ' 求平均分 If.avg >= 90 Then ' 累加 90 人数 count_90 = count_ ElseIf.avg < 60 Then ' 累加 <60 人数 count_60 = count_ sum = sum +.avg ' 在列表框中显示输入的学生信息 sc = Format(.math, "####") & sp & Format(.english, "####") & sp _ & Format(.computer, "####") & sp & Format(.avg, "##.#") List1.AddItem.Num & " " &.Name & sc End With Form_Load Private Sub Command2_Click() Dim i%, all_avg! count_avg = 0 If n <> 0 Then all_avg = sum / n For i = 1 To n If st(i).avg > all_avg Then count_avg = count_avg + 1

50 46 第一部分实训指导 Next i Text2.Text = Str(count_avg) Text3.Text = Str(count_90) Text4.Text = Str(count_60) Text5.Text = all_avg Private Sub Form_Load() Text1(0).Text = "" Text1(1).Text = "" Text1(2).Text = "" Text1(3).Text = "" Text1(4).Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" (4) 运行程序运行程序, 结果如图 所示 实训 7-8 找出二维数组 n m 中的 鞍点 所谓 鞍点 是指它在本行中值最大, 在本列中值最小, 也可能在一个数组中找不到鞍点 若数组中存在鞍点, 输出它所在的行 列号, 若无鞍点则输出 无 (1) 分析 1 首先定义一个动态二维数组 a(n,m), 其中 n m 从键盘输入 图 实训 7-7 运行结果 2 数组 a(n,m) 中的数据通过键盘录入 3 对二维数组的操作要用双重循环实现, 即数组的行用一个循环变量, 其终值为 n; 数组的列用一个循环变量, 其终值为 m (2) 编写程序代码 Option Base 1 Dim a() As Integer Private Sub Form_Load() Show n = InputBox(" 输入数组行数 n:") m = InputBox(" 输入数组列数 m:") ReDim a(n, m) Print " 输入二维数组 "; n; " "; m; " 各元素的值 " For i = 1 To n For j = 1 To m a(i, j) = InputBox("a(" & Str(i) & "," & Str(j) & ")") Print a(i, j); Next j

51 实训七数组 47 四 思考题 Print Next i '************************************************** For i = 1 To n big = a(i, 1) For j = 1 To m ' ** 在以下画线部分写上正确代码 ** If 1 Then big = a(i, j) col = j Next j flag = 1 ' 有鞍点的标志 For k = 1 To n If 2 Then flag = 0 Exit For Next k If flag = 1 Then Exit For Next i '************************************************** If flag = 0 Then Print " 无鞍点 " Else Print Print " 找到鞍点, 其位置与值分别是 :" Print " 行号 ", " 列号 ", " 值 " Print i, col, big 1.Visual Basic 中数组的类型有几种, 如何使用? 2. 数组的赋值方法有几种, 如何使用? 3. 冒泡排序法和选择排序法的区别是什么? 当数组元素较多时, 哪种排序法的效率更高些? 请说明原因

52 48 第一部分实训指导 实训八过 程 一 实训目的 1. 掌握 Sub 过程和 Function 过程的基本使用方法 2. 掌握形参与实参的概念 3. 掌握值传递和地址传递的传递特点和方式 4. 掌握函数过程和过程的作用域 5. 掌握递归概念和使用方法 6. 了解可选参数与可变参数的使用方法 7. 熟悉程序设计中的常用算法 二 预备知识 1.Sub 过程的定义格式 [Static][Private][Public] Sub 过程名 [( 参数列表 )] 语句块 [Exit Sub] [ 语句块 ] 2.Sub 过程的调用 方法一 :Call 过程名 [( 实际参数 1, 实际参数 2, )] 方法二 : 过程名实际参数 1, 实际参数 2, 说明 : 要执行一个过程必须调用该过程 实际参数 用来给 Sub 过程传递变量或常数, 是调用模块与 Sub 过程相互联系的通道 3. 通用过程与事件过程 [Private][Public] Sub 控件名 窗体名 _ 事件名 ( 参数列表 ) 语句块 4.Function 过程的定义格式 [Static][Private][Public] Function 过程名 [( 参数列表 )][As 类型 ] 语句块 [ 过程名 = 表达式 ] [Exit Function] [ 语句块 ] End Function 5. 参数传递 1 按位置传送 : 实际参数的位置与形式参数的位置必须一致

53 实训八过程 49 2 指名传送 : 显式地指出与形参结合的实参, 把形参用 := 与实参连接起来 这种 方式不受位置次序的限制 3 传址 : 关键字为 ByRef( 通常省略 ), 形参与实参利用同一地址实现数据交换 4 传值 : 关键字为 ByVal, 这种方式传送的是实参值而不是它的地址 5 可选参数 : 关键字为 Optional, 可选参数必须放在参数表的最后, 且必须是 Variant 类型 6 可变参数 : 关键字为 ParamArray 数组名 ( ), 数组的类型默认为 Variant 6. 递归 如果通过一个对象自身的结构来描述或部分描述该对象就称为递归 VB 程序设计语言 允许在一个过程中有调用自身的语句 ( 在过程中自己调用自己 ), 称为递归调用 VB 也允许 在一个过程中调用另外一个过程, 而该过程又反过来调用本过程, 称为间接递归调用 构成递归有两个条件 : 1 递归结束条件及结束时的值 2 能用递归形式表示, 并且递归向结束条件发展 三 实训内容 实训 8-1 编写求 S=A!+B!+C! 的程序, 阶乘的计算分别用 Sub 过程和 Function 过程两种方法来实现 (1) 界面设计建立应用程序界面 界面设计如图 所示 (2) 设置对象属性设置对象属性, 如表 所示 表 实训 8-1 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 文本框 Text1~ Text3 Text 空 文本框 Text4~ Text5 Text 空 Enabled False 标签 Label1 Caption 输入 A 标签 Label2 Caption 输入 B 标签 Label3 Caption 输入 C 命令按钮 Command1 Caption Sub 过程 命令按钮 Command2 Caption Function 过程 (3) 编写程序代码 Private a%, b%, c% Private Sub subjc(n%, t&) t = 1 For i = 1 To n t = t * i Next i ' 在以下画线部分写上正确代码 Private Function funjc(n%) t = 1 图 实训 8-1 界面设计

54 50 第一部分实训指导 For i = 1 To n t = t * i Next i 1 End Function Private Sub Command1_Click() Dim j1&, j2&, j3&, s& a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) Call subjc(a, j1) Call subjc(b, j2) Call subjc(c, j3) s = j1 + j2 + j3 Text4.Text = s Private Sub Command2_Click() Dim s As Long a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) 2 Text5.Text = s 图 实训 8-1 运行结果 (4) 运行程序运行程序, 结果如图 所示 实训 8-2 编写计算求下列公式前 n 项和的子过程 在单击窗体事件过程中, 调用子过程 公式如下 : 2 4 2n x x x Progression= ! 4! (2n)! 2i x 当 (2i)! < 时, 结束计算 (1) 分析 1 这个公式中含有幂 阶乘 除和累加的运算 类似这样一类的计算公式, 注意找出公式中的后一项和前一项的差别, 可简化计算 本例中, 后一项只要在前一项上乘以 2 x 即可 公式中的第一项 1 另行处理 (2i 1)*2i 2i x 2 当第 i 项 < 时, 结束求和运算 实际上, 用户对计算的精度要求各不相 (2i)! 同, 因此, 将精度用一个变量 eps 来表示, 并将其作为一个形参, 用户可以根据自己的要求给出不同的值 (2) 编写程序代码 Public Sub progression(sum#,x!,eps#)

55 实训八过程 51 Dim n%,t# n=2 sum=1 t=1 ' 在以下画线部分写上正确代码 Do While(abs(t)>=eps) t= 1 sum=sum+t n= 2 Loop Private Sub Form_click() Dim p1# Call progression(p1,4, ) Print p1= ;p1 (3) 问题本例中, 用子过程的方式处理了求前 n 项和的问题 在子过程定义中, 用形参 sum 存放结果 对于求前 n 项和的问题, 同样可以用函数过程来定义和调用 请用函数过程实现本题 实训 8-3 利用下列程序测试参数传送的两种方式: 传值调用和传地址调用, 从而理解传值参数和传地址参数的区别 (1) 编写程序代码 Private Sub p(byref a%, ByVal b%) a = a + 1: b = b + 1 Print a, b Private Sub p1(byref x%, ByVal y%) x = x + 1: y = y + 1 Print x, y Private Sub Command1_Click() Dim x%, y% x = 1: y = 2 Call p(x, y): Print x, y Call p(x, x): Print x, y Call p(y, y): Print x, y Call p(y, x): Print x, y Private Sub Command2_Click() Dim x%, y% x = 1: y = 2 Call p1(x, y): Print x, y Call p1(x, x): Print x, y

56 52 第一部分实训指导 Call p1(y, y): Print x, y Call p1(y, x): Print x, y (2) 问题 1 传值和传地址有什么区别? 2 单击 Command1 和 Command2 命令按钮, 程序的运行结果分别是什么? 实训 8-4 通过下列程序理解变量作用域的概念 (1) 编写程序代码 Dim a As Integer, b As Integer Private Sub p1() a = a + 1 b = b + 1 Print Tab(12); " 调用 p1:"; "a="; a; "b="; b Private Sub p2() Dim a As Integer, b As Integer a = a + 1 b = b + 1 Print Tab(12); " 调用 p2:"; "a="; a; "b="; b Private Sub Command1_Click() a = 3: b = 5 Print Print Tab(12); " 调用 p1 前 :"; "a="; a; "b="; b Call p1 Print Tab(12); " 调用 p1 后 :"; "a="; a; "b="; b Print Print Tab(12); " 调用 p2 前 :"; "a="; a; "b="; b Call p2 Print Tab(12); " 调用 p2 后 :"; "a="; a; "b="; b Private Sub Command2_Click() End 图 实训 8-5 界面设计 (2) 问题 1 p2 过程中定义的变量 a 和通用声明部分中声明的变量 a 有什么区别? 2 该段程序的运行结果是什么? 实训 8-5 Fibonacci 数列的第一项是 1, 第二项是 1, 以后各项都是前两项之和 试用递归算法编写一个程序, 求 Fibonacci 数列前 N 项之和 (1) 界面设计建立应用程序界面 界面设计如图 所示

57 实训八过程 53 (2) 对象属性设置 对象属性设置如表 所示 表 实训 8-5 程序中对象属性设置 对象名称 (Name) 属性属性值 命令按钮 Command1 Caption 计算 Fibonacci 数列 命令按钮 Command2 Caption 结束 (3) 编写程序代码 ' 在以下画线部分写上正确代码 Public Function fib(byval k As Integer) If k <= 2 Then fib = 1 Exit Function Else 1 End Function Private Sub Command1_Click() k = Val(InputBox(" 输出 Fibonacci 的前几项 ", " 输入框 ")) Print " 数列的前 "; k; " 项是 :" For i = 1 To k n = 2 Print n, If i Mod 4 = 0 Then Print Next i Private Sub Command2_Click() End 图 实训 8-5 运行结果 (4) 运行程序在输入框内输入数字 20, 运行结果如图 所示 实训 8-6 编写程序实现如下功能: 在文本框中输入一个数, 按 Enter 键后, 生成 n 个 210~330 之间的整数, 在图形框 (Picture1) 中输出这些数 ; 单击 排序 按钮, 在图形框 (Picture2) 中按降序输出这些数 ; 单击 清除 按钮清除图形框 文本框, 并使文本框获得焦点 ; 排序用过程实现, 排序输出由主调用过程实现 (1) 分析 1 由题意可知, 需用一维数组, 且未知数组元素个数时要用动态数组 2 数组元素的个数由文本框输入的数决定, 该数组既要用于文本框的 KeyPress 事件又要用于命令按钮的单击事件, 因此, 将该数组声明成窗体模块级数组 3 动态数组也要用于上述两个事件过程之中, 需要声明为窗体模块级数组 4 排序过程可使用 选择法 排序

58 54 第一部分实训指导 (2) 界面设计 建立应用程序界面 界面设计如图 所示 (3) 设置对象属性, 如表 所示 表 实训 8-6 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 命令按钮 Command1 Caption 排序 命令按钮 Command2 Caption 清除 图形框 Picture1 图形框 Picture2 标签 Label1 Caption 输入个数 文本框 Text1 Text 空 (4) 编写程序代码 Private a%(), n% ' 定义窗体模块级的动态数组 A 和变量 N Sub porder(b%(), ByVal m%) Dim i%, j%, t%, k% For i = 1 To m - 1 k = i For j = i + 1 To m If b(k) < b(j) Then k = j Next j If k <> i Then Next i 图 实训 8-6 界面设计 Private Sub Command1_Click() Call porder( 4, n) For k = 1 To n Picture2.Print a(k), If k Mod 5 = 0 Then Picture2.Print Next k Private Sub Command2_Click() Text1.Text = "" Picture1.Cls Picture2.Cls 5 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

59 实训八过程 55 n = Val(Text1) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * ) Picture1.Print a(i), If i Mod 5 = 0 Then Picture1.Print Next i (5) 运行程序运行程序, 结果如图 所示 图 实训 8-6 运行结果 (6) 问题 1 在子程序中, 数组采用什么方法进行数据传递? 2 将排序过程改用 冒泡法 排序 3 比较 选择法 和 冒泡法 的不同之处 实训 8-7 变量的作用域练习: 在代码中建立各种类型的变量, 触发不同窗体 ( 即模块 ) 中的不同事件 在事件中, 通过使用输出语句先计算 后输出的功能, 将各个过程中的变量的值显示在窗体上 (1) 界面设计在工程中, 添加如下模块 1 添加窗体 Form1, 设置该窗体为启动窗体 界面如图 所示 三个按钮从上往下的名称属性依次为 Command1 Command2 和 Command3 三个图 Form1 界面设计按钮的 Caption 属性如图 进行设置 2 添加窗体 Form2, 窗体上有一个按钮, 名称属性为 Command1,Caption 属性为 Command1 3 添加模块 Module1 (2) 编写程序代码 1 Form1 代码窗口中的代码如下 : ' 通用声明处声明 a,b 两个变量 Public a As String Private b As String Private Sub Command1_Click() Dim c As String Static d As String a = a + "A" b = b + "B" c = c + "C" d = d + "D" e = e + "E" f = f + "F"

60 56 第一部分实训指导 Print a, b, c, d, e, f Private Sub Command2_Click() Form2.Show Private Sub Command3_Click() Print a, b, c, d, e, f Private Sub Form_Activate() Cls 2 Form2 代码窗口中的代码如下 : Private Sub Command1_Click() c = c + "C" Print a, b, c, d, e, f 3 Module1 中声明变量 c, 通用声明处代码如下 : Public c As String (3) 运行程序请按如下步骤运行程序, 观察各变量的值 1 单击 Form1 的 赋值 按钮, 然后单击 Form1 的 显示变量的值 按钮, 再单击 Form1 的 打开 Form2 按钮, 接下来单击 Form2 的 Command1 按钮 2 单击 Form1 的 赋值 按钮, 然后单击 Form1 的 赋值 按钮, 再单击 Form1 的 显示变量的值 按钮, 接下来单击 Form1 的 打开 Form2 按钮, 最后单击 Form2 的 Command1 按钮 3 单击 Form1 的 赋值 按钮, 然后单击 Form1 的 显示变量的值 按钮, 再单击 Form1 的 打开 Form2 按钮, 接下来单击 Form2 的 Command1 按钮, 最后单击 Form1 的 显示变量的值 按钮 实训 8-8 编写程序, 实现如下功能 单击 添加记录 按钮将用户名和密码存放到一个记录数组中 图 实训 8-8 界面设计 单击 上一记录 或 下一记录 按钮, 显示前一次或后一次输入的用户名和密码 用户名和密码的显示用子过程实现 输入用户名时直接按 Enter 键结束 (1) 界面设计在窗体上添加 2 个标签 Label1 和 Label2,2 个文本框 (Text1 Text2) 和 3 个命令按钮 (Command1~

61 实训八过程 57 Command3) 界面设计如图 所示 (2) 设置对象属性设置对象属性, 如表 所示 表 实训 8-8 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 命令按钮 Cmdadd Caption 添加记录 命令按钮 Cmdprevious Caption 上一记录 命令按钮 Cmdnext Caption 下一记录 标签 Label1 Caption 用户名 标签 Label2 Caption 密码 文本框 Text1 Text 空 文本框 Text2 Text 空 (3) 编写程序代码 Option Explicit Private Type rec Name As String Password As String End Type Dim namelist() As rec Dim lastindex As Integer Dim currentindex As Integer Private Sub showrecord() Text1 = namelist(currentindex).name Text2 = namelist(currentindex).password Form1.Caption = Str(currentindex) & "/" & Str(lastindex) Private Sub cmdadd_click() Do lastindex = lastindex + 1 ReDim Preserve namelist(lastindex) currentindex = lastindex namelist(currentindex).name = InputBox("please input name") If namelist(currentindex).name = "" Then Exit Do namelist(currentindex).password = InputBox("please input password") Loop If namelist(currentindex).name = "" Then lastindex = lastindex - 1 currentindex = lastindex showrecord Private Sub cmdnext_click()

62 58 第一部分实训指导 If currentindex = lastindex Then MsgBox (" 这是最后记录 ") Exit Sub Else currentindex = currentindex + 1 showrecord Private Sub cmdprevious_click() If currentindex = 1 Then MsgBox (" 这是第一个记录 ") Exit Sub Else currentindex = currentindex - 1 showrecord Private Sub Form_load() Text1.Text = "" Text2.Text = "" currentindex = 0 lastindex = 0 ReDim namelist(lastindex) Form1.Caption = Str(currentindex) & "/" & Str(lastindex) 四 思考题 1. 比较 Sub 过程与 Function 过程的异同点 2. 如何调用一个自定义的 Sub 过程? 3. 在过程调用中, 静态变量与动态变量有何区别?

63 实训九常用控件 59 实训九常用控件 一 实训目的 1. 掌握常用标准控件的基本属性 事件和方法 2. 掌握通过标准控件进行文本 图形的输入 / 输出操作 3. 了解焦点的概念, 掌握 Tab 键序的设置方法 二 预备知识 1. 单选按钮和复选框 单选按钮用于建立一系列的选项供用户选择, 用户只能且必须选择其中的一个选项 复 选框则可以同时选择多个 单选按钮和复选框的主要属性是 Value, 用来检查单选按钮或复 选框是否被选中 它们的主要事件是 Click 2. 框架 框架的主要作用是将其他控件组合在一起, 对一个窗体中的各种功能进行分类 3. 列表框 列表框可以提供多个项目供用户选择 如果项目太多, 超出了设计时的长度, 则自动添 加垂直滚动条 (1) 常用属性 1 List 属性 : 是一个字符型数组, 用于存放列表框的项目 2 ListCount 属性 : 表示列表框中项目的数量 3 ListIndex 属性 : 表示执行时选中的列表项序号 4 Selected 属性 : 是一个逻辑型数组, 每个元素与列表框中的一项对应 该属性只能在 程序中设置或引用 5 Sorted 属性 : 决定列表框中的项目在程序运行期间是否按字母顺序排列显示 6 Text 属性 : 表示被选中列表项的文本内容 该属性是默认属性, 只能在程序中设置 或引用 注意 :List1.List(List1.ListIndex) 等于 List1.Text (2) 常用方法 1 AddItem 方法 格式 : 列表框.AddItem 项目字符串 [, 索引值 ] 2 RemoveItem 方法 格式 : 列表框. RemoveItem 3 Clear 方法 格式 : 列表框. Clear 索引值 4. 组合框 组合框是组合了文本框和列表框的特性而形成的一种控件, 组合框既可以像列表框一样

64 60 第一部分实训指导 让用户选择其中的选项, 又能像文本框一样, 由用户输入自己指定的内容 组合框的类型由 Style 属性来设置 下拉式组合框 (Style 为 0) 和简单组合框 (Style 为 1) 允许用户在文本框中输入不属于列表内的选项 下拉式列表框 (Style 为 2) 只允许选择不允许输入 5. 滚动条滚动条通常用来附在窗体上帮助观察数据或确定位置, 也可以用来作为数据输入的工具 它有两种类型, 即水平滚动条和垂直滚动条 在设计阶段主要设置滚动条的 LargeChange SmallChange Max 和 Min 属性 ; 在运行阶段, 通过在其 Scroll 和 Change 事件中取得的 Value 属性值来监控用户对滚动条的操作 6. 图形框和图像框图形框主要作用是为用户显示图片, 也可以作为其他控件的容器 图形框不能伸展图像以适应控件大小, 但可以用 Autosize 属性调整图形框大小以适应图像 图像框与图形框相似, 但比图形框占用更少的内存, 显示得更快 图像框内不能保存其他控件, 它也没有 Autosize 属性, 但它可以自动改变大小以适应其中的图形 装入图片命令的格式为 :[ 对象.]Picture=LoadPicture(" 文件名 ") 7. 计时器计时器是按一定时间间隔周期性地自动引发事件的控件 属性 Interval 用来设置计时器事件之间的间隔, 以 ms 为单位, 其取值范围为 0~65535ms 计时器只支持 Timer 事件, 每经过一段由属性 Interval 指定的时间间隔, 就产生一个 Timer 事件 Timer 控件必须依附在窗体上, 但它在程序运行时是不可见的 三 实训内容 实训 9-1 编写程序, 要求在文本框中输入一段文字, 用单选按钮设置文字的字体和颜色, 用复选框设置文字的字形 (1) 界面设计建立应用程序界面 在窗体中添加 1 个标签 (Label1) 1 个文本框 (Text1) 6 个单选按钮 (Option1~Option6) 和 2 个复选框 (Check1 Check2), 调整它们的位置及大图 实训 9-1 界面设计小, 界面设计如图 所示 (2) 设置对象属性设置对象属性, 如表 所示 表 实训 9-1 程序中对象属性设置对象名称 (Name) 属性属性值窗体 Form1 Caption 单选按钮和复选框的使用标签 Label1 Caption 请输入一段文字文本框 Text1 Text 空单选按钮 Option1 Caption 楷体单选按钮 Option2 Caption 黑体单选按钮 Option3 Caption 仿宋

65 实训九常用控件 61 对 象 名称 (Name) 属 性 属性值 单选按钮 Option4 Caption 隶书 单选按钮 Option5 Caption 红色 单选按钮 Option6 Caption 蓝色 复选框 Check1 Caption 斜体 复选框 Check2 Caption 粗体 续表 (3) 编写程序代码 Private Sub Check1_Click() Text1.FontItalic = 1 Private Sub Check2_Click() Text1.FontBold = 2 Private Sub Option1_Click() Text1.FontName = " 楷体 _GB2312" Private Sub Option2_Click() Text1.FontName = " 黑体 " Private Sub Option3_Click() Text1.FontName = 3 Private Sub Option4_Click() Text1.FontName = " 隶书 " Private Sub Option5_Click() Text1. 4 = QBColor(12) Private Sub Option6_Click() Text1. 5 = QBColor(9) (4) 运行结果运行程序, 结果如图 所示 实训 9-2 将实训 9-1 中的字体 颜色设置和字形设置改为框架结构实现, 其窗体界面设计如图 所示 图 实训 9-2 界面设计 (1) 界面设计修改实训 9-1 应用程序界面, 将 Form1 的标题改为 框架的应用 在 Form1 中添加 3 个框架 (Frame1~Frame3), 框架的属性设置如表 所示, 其余对象的属性设置同实训 9-1 操作方法 : 同时选择 Option1~Option4, 单击工具栏上的 剪切 按钮, 再选中 Frame1,

66 62 第一部分实训指导 单击 粘贴 按钮, 这样就可以把已有的控件放到 Frame1 中 按照同样的方法, 将 Option5 Option6 放到 Frame2 中, 将 Check1 Check2 放到 Frame3 中 表 实训 9-2 程序中框架对象属性设置 对象名称 (Name) 属性属性值 框架 Frame1 Caption 字体 框架 Frame2 Caption 颜色 框架 Frame3 Caption 字形 图 实训 9-3 界面设计 设置对象属性, 如表 所示 (2) 运行结果 运行程序, 结果如图 所示 实训 9-3 编写程序, 对列表框中的项目进行添加 和删除操作 (1) 界面设计 建立应用程序界面, 在窗体中添加 2 个标签 (Label1 Label2) 2 个命令按钮 (Command1 Command2) 和 2 个列表框 (List1 List2), 界面设计如图 所示 (2) 设置对象属性 表 实训 9-3 程序中对象属性设置 对象名称 (Name) 属性属性值 窗体 Form1 Caption 列表框的应用 列表框 列表框 List1 List2 标签 Label1 Caption 请选择 标签 Label2 Caption 欲购物品 命令按钮 CmdAdd Caption 添加 命令按钮 CmdDelete Caption 删除 (3) 编写程序代码 Private Sub Form_load() List1.AddItem " 彩电 " List1.AddItem " 电冰箱 " List1.AddItem " 洗衣机 " List1.AddItem " 微波炉 " Private Sub CmdAdd_Click() If List1.ListIndex <> -1 Then ' 只有列表框 1 中选定项目后, 才能执行添加操作 List2.AddItem List1.Text Private Sub CmdDelete_Click() If List2.ListIndex <> -1 Then ' 只有列表框 2 中选定项目后, 才能执行删除操作 List2.RemoveItem List2.ListIndex

67 实训九常用控件 63 (4) 运行程序 运行程序, 结果如图 所示 在左边的列表框中 选择物品名称, 单击 添加 按钮, 将其追加到右边的列表框中 ; 在右边的列表框中选定项目后, 单击 删除 按钮将其从列表框中删除 列表框中没有项目被选中时, 添加和删除操作不能执行 图 实训 9-3 运行结果 (5) 问题 1 如果要将每次添加的项目放在列表框中的第一位, 程序应如何修改? 2 如果要在 List1 中增加一项 消毒柜 并放在第三项, 程序应如何修改? 实训 9-4 编写代码, 实现以下功能 : 用户通过鼠标在组合框中选取类别, 在右边显示的简单组合框中选择喜欢的书, 下方即可显示出用户的性格 (1) 界面设计建立应用程序界面, 在窗体中添加 1 个标签 (Label1) 2 个框架 (Frame1 Frame2) 2 个组合框 (Combo1 Combo2) 和 1 个命令按钮 (Command1), 界面设计如图 1-9-5(a) 所示 (a) 选择喜欢的书 (b) 显示用户具有的性格特征图 实训 9-4 界面设计及运行结果 (2) 设置对象属性设置对象属性, 如表 所示 表 实训 9-4 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 测试你的性格 框架 Frame1 Caption 选择你喜欢的书 框架 Frame2 Caption 性格特征 组合框 Combo1 Text 空 Style 0 组合框 Combo2 Text 空 Style 1 标签 Label1 Caption 请输入一段文字 命令按钮 Command1 Caption 退出 注意 : 添加组合框 Combo2 并设置其属性后, 拖动鼠标修改 Combo2 的高度, 如图 1-9-5(a) 所示

68 64 第一部分实训指导 (3) 编写程序代码 Private Sub Form_Load() Combo1.AddItem " 小说 " Combo1.AddItem " 诗歌 " Private Sub Combo1_Click() Select Case Combo1.Text Case " 小说 " Combo2.Clear Combo2.AddItem " 平凡的世界 " Combo2.AddItem " 金粉世家 " Combo2.AddItem " 红楼梦 " Combo2.AddItem " 笑傲江湖 " Case " 诗歌 " Combo2.Clear Combo2.AddItem " 致橡树 " Combo2.AddItem " 年轻的思绪 " Combo2.AddItem " 再别康桥 " End Select ' 此为多分支选择结构 Private Sub Combo2_Click() If Combo1.Text = " 小说 " Then Label1.Caption = " 你是一个具有丰富内涵的人 " If Combo1.Text = " 诗歌 " Then Label1.Caption = " 你是一个具有丰富想象力 崇尚浪漫的人 " Private Sub Command1_Click() End (4) 运行程序运行程序, 结果如图 1-9-5(b) 所示 实训 9-5 设计一个通过滚动条调整颜色的程序 要求: 当单击三个滚动条两端的箭头 拖动滚动条上的滑块或单击滚动条上的滑杆时, 可以调整 RGB( ) 函数中对应的颜色值, 从而在 预览 框中显示不同的颜色 ; 而单击两个命令按钮可设置文字的颜色和背景色 (1) 界面设计建立应用程序界面, 在窗体中添加 3 个标签 Label1~ Label3,3 个水平滚动条 Hscroll1~Hscroll3,2 个框架 Frame1 Frame2,2 个文本框 Text1 Text2 和 2 个命令按钮 Command1 Command2 界面设计如图 所示 (2) 设置对象属性图 实训 9-5 界面设计设置对象属性, 如表 所示

69 实训九常用控件 65 表 实训 9-5 程序中对象属性设置 对象名称 (Name) 属性属性值 标签 Label1 Caption 红色值 标签 Label2 Caption 绿色值 标签 Label3 Caption 蓝色值 框架 Frame1 Caption 设置 框架 Frame2 Caption 预览 文本框 Text1 Text 颜色测试 文本框 Text2 Text 空 HScroll1 Max 255 滚动条 Hscroll2 SmallChange 8 Hscroll3 LargeChange 32 命令按钮 Command1 Caption 设置前景色 命令按钮 Command2 Caption 设置背景色 (3) 编写程序代码 ' 在通用声明区中输入 Dim red As Integer, green As Integer, blue As Integer Private Sub Command1_Click() ' 设置前景色 Text1.ForeColor = Text2.BackColor Private Sub Command2_Click() Text1.BackColor = Text2.BackColor ' 设置背景色 Private Sub HScroll1_Change() red = HScroll1.Value green = HScroll2.Value blue = HScroll3.Value Text2.BackColor = RGB(red, green, blue) Private Sub HScroll2_Change() red = HScroll1.Value green = HScroll2.Value blue = HScroll3.Value Text2.BackColor = RGB(red, green, blue) Private Sub HScroll3_Change() red = HScroll1.Value green = HScroll2.Value blue = HScroll3.Value Text2.BackColor = RGB(red, green, blue) (4) 运行程序运行程序, 结果如图 所示 图 实训 9-6 界面设计

70 66 第一部分实训指导 实训 9-6 设计一个电子滚动屏幕 要求 : 单击 滚动显示文本 按钮, Visual Basic 程序设计 的文字在窗体内自右向左反复滚动显示, 同时按钮上的标题改为 停止滚动 ; 单击 停止滚动 按钮, 文字将停止移动, 此时按钮上的标题改为 滚动显示文本 界面设计如图 所示 (1) 界面设计建立应用程序界面, 在窗体中添加 1 个标签 (Label1) 1 个命令按钮 (Command1) 和 1 个定时器 (Timer1) (2) 设置对象属性设置对象属性, 如表 所示 表 实训 9-6 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 Caption Visual Basic 程序设计 标签 Label1 AutoSize True Font 宋体 加粗 二号 命令按钮 Command1 Caption 滚动显示文本 计时器 Timer1 Interval 10 Enabled False (3) 编写程序代码 Private Sub Command1_Click() Timer1.Enabled = Not Timer1.Enabled If Command1.Caption = " 滚动显示文本 " Then Command1.Caption = " 停止滚动 " Else Command1.Caption = " 滚动显示文本 " Private Sub Timer1_Timer() Label1.Left = Label1.Left - 10 If Label1.Left <= -Label1.Width Then Label1.Left = Form1.Width 图 实训 9-6 运行结果 (4) 运行程序运行程序, 结果如图 所示 四 思考题 1. 组合框有几种风格? 各有什么特点? 通过什么属性来设置? 2. 时钟控件最重要的属性是什么? 起什么作用? 3. 图形框和图像框有何异同? 如何实现图片的自动放大或缩小? 4. 如何在控件工具箱中添加新的控件?

71 实训十对话框程序设计 67 实训十对话框程序设计 一 实训目的 1. 掌握通用对话框的概念与分类, 通用对话框控件的加载方法 2. 学会使用通用对话框控件的属性与方法 3. 熟悉通用对话框的使用 二 预备知识 1. 通用对话框控件的加载 选择 工程 菜单中的 部件 命令, 打开 部件 对话框, 在 控件 选项卡中选中 Microsoft Common Dialog Control 6.0 复选框, 然后单击 确定 按钮, 通用对话框控件 即被加载到控件工具箱中 2. 通用对话框控件的使用 (1) 调用方法格式 通用对话框名称.ShowOpen 通用对话框名称.ShowSave 通用对话框名称.ShowColor 通用对话框名称.ShowFont 通用对话框名称.ShowPrinter 通用对话框名称.ShowHelp (2) 设置 Action 属性值 通用对话框名称.Action=1 通用对话框名称.Action=2 通用对话框名称.Action=3 通用对话框名称.Action=4 通用对话框名称.Action=5 通用对话框名称.Action=6 3. 通用对话框控件的使用步骤 1) 在窗体中添加 通用对话框 控件 显示 打开 对话框 显示 保存 对话框 显示 颜色 对话框 显示 字体 对话框 显示 打印 对话框 显示 帮助 对话框 显示 打开 对话框 显示 保存 对话框 显示 颜色 对话框 显示 字体 对话框 显示 打印 对话框 显示 帮助 对话框 2) 在 属性页 对话框中设置通用对话框的属性值, 或在程序代码中使用赋值语句直 接给相应的属性赋值 3) 调用对话框控件的方法来显示相应的对话框, 或通过设置对话框控件的 Action 属性 值来实现显示相应的对话框

72 68 第一部分实训指导 4. 通用对话框控件的 Flags 属性值的设置方法格式 : 对象名称.Flags= 值三 实训内容 实训 10-1 编写应用程序, 利用通用对话框控件打开文件 要求 : 单击 浏览图片 命令按钮时, 弹出 打开 对话框, 从中选择一个 *.bmp 文件, 单击 确定 按钮, 选定图片显示在图片框中 (1) 界面设计建立应用程序界面, 在窗体设计器中添加 1 个通用对话框控件 (CommonDialog1) 3 个命令按钮 (Command1~ Command3) 和 1 个图片框控件 (Picture1) 调整它们在窗体中的位置和大小, 界面设计如图 所示 (2) 设置对象属性图 实训 10-1 界面设计设置对象属性, 如表 所示 表 实训 10-1 程序中对象属性设置 对象名称 (Name) 属性属性值 图形框 Picture1 命令按钮 Command1 Caption 浏览图片 命令按钮 Command2 Caption 清除 命令按钮 Command3 Caption 退出 通用对话框控件 CommonDialog1 (3) 编写程序代码 Private Sub Command1_Click() CommonDialog1.FileName = "" CommonDialog1.Filter = "All Files *.* (*.bmp) *.bmp" CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "Open File(*.bmp)" CommonDialog1.Flags = 1 CommonDialog1.Action = 1 Picture1.Picture = LoadPicture(CommonDialog1.FileName) Private Sub Command3_Click() End Private Sub Command2_Click() Picture1.Picture = LoadPicture() ' 清除图形框 (4) 运行程序运行程序, 单击 浏览图片 按钮, 选择图片浏览

73 实训十对话框程序设计 69 (5) 问题 该程序通过将通用对话框控件的 Action 属性设置为 1 来弹出 打开 对话框, 还可以 使用通用对话框控件的 方法弹出 打开 对话框 实训 10-2 编写一个应用程序, 使用通用对话框控件实现保存文件功能 程序界面如 图 所示 要求 : 单击 保存文件 按钮, 弹出 保存 对话框, 在 保存 对话框中指 定文件的保存位置, 填入文件的名称, 单击 确定 按钮, 将文本框中的内容保存到指定的文件中去 ; 单击 清除 按 钮, 清除文本框中的内容 ; 单击 退出 按钮, 退出该应用 程序 (1) 界面设计 建立应用程序界面, 在窗体设计器中添加 1 个通用对 话框控件 (CommonDialog1) 3 个命令按钮 (Command1~ Command3) 和 1 个文本框 (Text1) 调整它们在窗体中的 位置和大小, 界面设计如图 所示 图 实训 10-2 界面设计 (2) 设置对象属性 设置对象属性, 如表 所示 表 实训 10-2 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 保存对话框练习 文本框 Text1 Text 空 命令按钮 Command1 Caption 保存文件 命令按钮 Command2 Caption 清除 命令按钮 Command3 Caption 退出 通用对话框控件 CommonDialog1 (3) 编写程序代码 Private Sub Command1_Click() CommonDialog1.FileName = " 默认.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Filter = " 文本文件.txt 所有文件 *.*" CommonDialog1.FilterIndex = 1 CommonDialog1.Flags = CommonDialog1.Action = 2 fname$ = CommonDialog1.FileName Open fname$ For Output As #1 Print #1, Text1.Text Close #1 Private Sub Command2_Click() Text1.Text = ""

74 70 第一部分实训指导 Private Sub Command3_Click() End (4) 运行程序运行程序, 实现文件的保存 文本框的清除及程序退出 实训 10-3 编写使用通用对话框控件来修改文本框中文字 背景颜色的应用程序 应用程序界面如图 所示 要求 : 在文本框中显示 欢迎使用 Visual Basic 字符串, 单击 文字颜色 按钮, 弹出 颜色 对话框, 使用 颜色 对话框改变文本框中文字的颜色 ; 单击 文本框背景 按钮, 弹出 颜色 对话框, 使用 颜色 对话框改变文本框背景颜色 ; 单击 窗体背景 按钮, 来改变窗体背景颜色 (1) 界面设计建立应用程序界面 在窗体设计器中添加 1 个通用对话框控件 (CommonDialog1 ) 3 个命令按钮 (Command1~Command3) 和 1 个文本框 (Text1) 调整它们在窗体中的位置和大小, 界面设计如图 图 实训 10-3 界面设计所示 (2) 设置对象属性设置对象属性, 如表 所示 表 实训 10-3 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 文本框 Text1 Text 欢迎使用 Visual Basic 命令按钮 Command1 Caption 文字颜色 命令按钮 Command2 Caption 文本框背景 命令按钮 Command3 Caption 窗体背景 通用对话框控件 CommonDialog1 (3) 编写程序代码 Private Sub Command1_Click() CommonDialog1.Color = Text1.ForeColor CommonDialog1.Flags = 1 CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color Private Sub Command2_Click() CommonDialog1.Color = Text1.BackColor CommonDialog1.Flags = CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color ' 设置初始颜色 ' 设置初始颜色 Private Sub Command3_Click()

75 实训十对话框程序设计 71 CommonDialog1.Color = Me.BackColor CommonDialog1.Flags = CommonDialog1.ShowColor Me.BackColor = CommonDialog1.Color ' 设置初始颜色 Private Sub Form_Load() Text1.Text = " 欢迎使用 Visual Basic" (4) 运行程序运行程序, 利用 文字颜色 按钮, 改变文本框中文字的颜色 ; 利用 文本框背景 按钮, 改变文本框背景颜色 ; 利用 窗体背景 按钮, 改变窗体背景颜色 实训 10-4 编写如图 所示界面的应用程序 要求 : 在文本框中显示 字体设置练习 字符串, 单击 设置字体 按钮, 弹出 字体 对话框, 使用 字体 对话框的设置改变文本框中文字字体 字形 字号等 ; 单击 设置效果 按钮, 弹出 字体 对话框, 使用 字体 对话框改变文本框中文字的效果 ( 删除线 下画线 颜色 ) (1) 界面设计建立应用程序界面, 在窗体设计器中添加 1 个通用对话框控件 (Commondialog1),2 个命令按钮 (Command1 Command2) 和 1 个文本框控件 (Text1) 调整它们在窗体中的位置和大小, 如图 所示 图 实训 10-4 界面设计 (2) 设置对象属性设置对象属性, 如表 所示 表 实训 10-4 程序中对象属性设置 对 象 名称 (Name) 属 性 属性值 窗体 Form1 Caption 字体对话框练习 Multiline True 文本框 Text1 Text 空 命令按钮 Command1 Caption 设置字体 命令按钮 Command2 Caption 设置效果 通用对话框 CommonDialog1 (3) 编写程序代码 Private Sub Command1_Click() CommonDialog1.Flags = cdlcfboth CommonDialog1.FontName = Text1.FontName CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic

76 72 第一部分实训指导 Private Sub Command2_Click() CommonDialog1.Flags = cdlcfboth Or cdlcfeffects CommonDialog1.FontName = Text1.FontName CommonDialog1.Action = 4 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color Private Sub Form_Load() Text1.Text = " 字体设置练习 " (4) 运行程序运行程序, 利用相应的按钮, 可以设置字体及字体的效果 实训 10-5 编写一应用程序, 把文本框中的文本通过打印机打印出来 界面设计如图 所示 (1) 界面设计建立应用程序界面, 在窗体设计器中添加 2 个通用对话框控件 (Commondialog1 Commondialog2) 3 个命令按钮 (Command1~Command3) 和 1 个文本框控件 (Text1) 调图 实训 10-5 界面设计整它们在窗体中的位置和大小, 界面设计如图 所示 (2) 设置对象属性设置对象属性, 如表 所示 表 实训 10-5 程序中对象属性设置 对象名称 (Name) 属性属性值窗体 Form1 Caption 打印对话框练习 文本框 Text1 Multiline Text True 空 命令按钮 Command1 Caption 打印 1 命令按钮 Command2 Caption 打印 2 命令按钮 Command3 Caption 退出 通用对话框通用对话框 CommonDialog1 CommonDialog2 (3) 编写程序代码 Private Sub Command1_Click()