Transcription

1 普通高等教育 十二五 规划教材公共课系列 高级语言程序设计 Visual Basic 实训 刘立群刘冰周颖 主编 刘哲邹丽娜杨林姣宋倬 副主编 杨林姣宋倬参 周进钱进参 编 编 科学出版社职教技术出版中心 北 京

2

3 内容简介本书是 高级语言程序设计 Visual Basic ( 刘立群等主编, 科学出版社出版 ) 的配套教材, 全书包括实验篇和习题篇 实验篇是根据教程中知识点精心设计的上机实验内容, 并设有综合实验部分, 要求学生通过完善程序代码后, 经过调试运行实现程序功能 ; 习题篇中的知识要点对主教材知识点进行概括, 实战测试给出主教材中相应章节的测试题, 并在答案与解析中给出参考答案 本书中所有教学资源, 包括教材中实例的源程序及各章节电子讲义, 可从科学出版社网站 ( 下载 本书结构清晰 内容丰富 通俗易学 实例充足, 既可以作为高等学校 Visual Basic 程序设计课程的配套教材使用, 也可以作为参加全国计算机等级考试人员备考的复习材料 图书在版编目 CIP 数据高级语言程序设计 Visual Basic 实训 / 刘立群, 刘冰, 周颖主编. 北京 : 科学出版社,2012 ( 普通高等教育 十二五 规划教材 公共课系列 ) ISBN Ⅰ. 1 高 Ⅱ. 1 刘 2 刘 3 周 Ⅲ. 1BASIC 语言 - 程序设计 - 高等学校 - 教材 Ⅳ. 1TP312 中国版本图书馆 CIP 数据核字 (2011) 第 号责任编辑 : 陈晓萍宋丽 / 责任校对 : 马英菊责任印制 : 吕春珉 / 封面设计 : 东方人华平面设计部 科学出版社发行 各地新华书店经销 * 2012 年 1 月第一版开本 : / 年 1 月第一次印刷印张 :11 1/2 字数 : 定价 :21.00 元 ( 如有印装质量问题, 我社负责调换 ) 销售部电话 编辑部电话 版权所有, 侵权必究举报电话 : ; ; 科学出版社职教技术出版中心

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

5 目 言 ii 录 第 1 篇实验篇 第 1 章认识 Visual Basic 3 实验 VB 集成开发环境 3 第 2 章设计简单的 Visual Basic 应用程序 5 实验一设计具有清除和结束功能的简单加法器 5 实验二标签的使用 9 实验三文本框的使用 10 实验四设计单词测试器 11 实验五窗体的属性事件方法 12 第 3 章 Visual Basic 程序设计基础 14 实验常用标准函数和表达式 14 第 4 章数据输出与输入 16 实验 Print 方法 InputBox 函数和 MsgBox 函数的使用 16 第 5 章程序设计的基本控制结构 20 实验一赋值语句 20 实验二分支结构 20 实验三单循环控制结构 23 实验四双循环控制结构及算法 27 第 6 章常用标准控件 31 实验一单选钮 复选框和框架 31 实验二滚动条的使用方法 34 实验三列表框的使用方法 35 科学出版社职教技术出版中心 实验四组合框的使用方法 36 实验五计时器的使用方法 37 第 7 章数组 39 实验一一维数组 39 实验二二维数组与控件数组 42 实验三综合设计 46 第 8 章过程 48 实验一过程和自定义函数 48 实验二多窗体及变量作用范围 52 第 9 章图形操作 56 实验一形状控件的使用 56 实验二图片框及图像框的应用 58

6 iv 高级语言程序设计 Visual Basic 实训 实验三 图形控件的使用 59 第 10 章键盘与鼠标事件 62 实验一 控件的键盘事件 62 实验二 控件的鼠标事件 63 第 11 章菜单程序设计 66 实验一 下拉式菜单的建立 66 实验二 利用数组建立弹出式菜单 68 实验三 菜单设计综合实验 70 第 12 章文件 73 实验一 顺序文件的读写操作 73 实验二 随机文件的读写操作 75 实验三 文件系统控件的使用 77 第 13 章通用对话框设计 79 实验 通用对话框综合设计 79 第 2 篇习题篇 第 1 章认识 Visual Basic 知识要点 实战测试 83 第 2 章设计简单的 Visual Basic 应用程序 知识要点 实战测试 85 第 3 章 Visual Basic 程序设计基础 知识要点 实战测试 90 第 4 章数据输出与输入 知识要点 实战测试 92 第 5 章程序设计的基本控制结构 知识要点 实战测试 95 第 6 章常用标准控件 知识要点 实战测试 103 第 7 章数组 知识要点 实战测试 109 第 8 章过程 知识要点 115

7 目录 v 8.2 实战测试 115 第 9 章图形操作 知识要点 实战测试 120 第 10 章键盘与鼠标事件 知识要点 实战测试 123 第 11 章菜单程序设计 知识要点 实战测试 127 第 12 章文件 知识要点 实战测试 133 第 13 章通用对话框设计 知识要点 实战测试 140 答案与解析 144 参考文献 174 科学出版社职教技术出版中心

8 第 1 篇实验篇

9 科学出版社职教技术出版中心

10 第 1 章认识 Visual Basic 实验 VB 集成开发环境 1. 实验目的熟悉 VB 的启动和退出 熟悉 VB 的集成开发环境 2. 实验内容 (1) 尝试用多种方法启动 VB 1 利用 资源管理器 或 我的电脑, 找到可执行文件 VB6.exe, 双击文件名启动 2 在桌面上建立启动 VB 的快捷方式 提示 启动 Windows 后, 通过 资源管理器 或 我的电脑 在 VB 的安装目录下找到 VB6.exe 鼠标移到 VB6.exe 图标上, 右击鼠标, 在弹出的快捷菜单中选择 发送到 桌面快捷方式 3 利用 开始 菜单中 程序 命令, 在程序组中找到可执行文件 VB6.exe 并启动 (2) 用以下几种方法退出 VB 1 选择 文件 退出 命令 2 单击主窗口右上角的 关闭 按钮 3 按下 Alt+Q 键 提示 退出 VB 时, 如果对工程窗体及事件过程进行过修改, 则系统弹出如图 1.1 所示的对话框 此时, 选择 是 (Y) 表示要对所作修改进行保存 ; 选择 否 (N) 表示不保存所作的修改, 直接退出 VB 环境 图 1.1 文件保存对话框

11 4 高级语言程序设计 Visual Basic 实训 (3) 观察 VB 环境中的各窗口组成 1 打开 VB 6.0 后, 参见主教材 1.3 节图 1.2, 熟悉 VB 集成开发环境的各窗口组成 2 用适当方法调整各窗口在主窗口中位置 提示 找到主窗口中 工程资源管理器 属性窗口 窗体窗口 和 工具箱 各窗口都是浮动窗口, 拖动窗口的标题栏, 可以调整窗口的位置 (4) 打开和关闭 工程资源管理器 窗口 1 观察 工程资源管理器 窗口中列出的文件 工程文件 (.vbp) 窗体文件 (.frm) 提示 还可以有其他类型的文件, 如标准模块文件 (.bas) 类模块文件 (.cls) 等 2 关闭 工程资源管理器 窗口 单击 工程资源管理器 窗口右上角的 关闭 按钮 用鼠标右击窗口的标题栏, 在弹出菜单中选择 关闭 命令 3 再次打开 工程资源管理器 窗口 单击工具栏上的 工程资源管理器 按钮 选择 视图 工程资源管理器 命令 按下 Ctrl+R 键 提示 工程资源管理器 窗口也称为 工程窗口 (5) 打开和关闭 窗体设计器 窗口 单击 窗体设计器 窗口的 关闭 按钮, 可以关闭窗体 再次打开窗体的方法 如下 1 在 工程资源管理器 窗口中双击要打开的窗体 2 在 工程资源管理器 窗口中选择要打开的窗体, 单击 查看对象 按钮 3 按下 Shift+F7 键 提示 还可以选择 视图 对象窗口 命令打开 窗体设计器 窗口 (6) 打开和关闭 属性 窗口 单击 属性 窗口的 关闭 按钮, 可以关闭窗口 重新打开窗口的方法如下 1 单击工具栏上的 属性窗口 按钮 2 选择 视图 属性窗口 命令 3 按下 F4 键 (7) 打开和关闭 工具箱 窗口 单击 工具箱 窗口的 关闭 按钮, 可以关闭该窗口 重新打开窗口的方法如下 1 单击工具栏上的 工具箱 按钮 2 选择 视图 工具箱 命令 科学出版社职教技术出版中心

12 第 2 章设计简单的 Visual Basic 应用程序 实验一设计具有清除和结束功能的简单加法器 1. 实验目的了解控件的建立方法 了解属性的设置方法 了解代码的编写方法 2. 实验内容项目分析 : 程序运行结果如图 2.1 所示 程序运行后, 分别在用户界面中的 数 1 和 数 2 两个文本框中输入一个任意的数, 单击 相加 命令按钮, 将会在 和 文本框中显示两个数相加的结果 单击 清除 命令按钮, 将清除三个文本框中显示的内容 ; 单击 退出 命令按钮, 则结束程序 图 2.1 运行结果项目设计 : (1) 启动 VB (2) 新建一个 标准 EXE 的工程 提示 选择 文件 新建工程 命令, 在 新建工程 对话框中选择 标准.EXE, 然后单击 确定 按钮 (3) 设计用户界面 1 在窗体上添加三个标签 Label1 Label2 Label3, 三个文本框 Text1 Text2 Text3, 三个命令按钮 Command1 Command2 Command3 提示 单击工具箱中的控件图标, 然后将鼠标指针移到窗体上, 当鼠标指针变成十字形时, 按住鼠标左键向右下角拖拽成适合大小的长方形时, 松开鼠标左键

13 6 高级语言程序设计 Visual Basic 实训 2 移动和缩放窗体上的控件, 使用户界面看起来更整齐 技巧 大小和位置大致调整好后, 同时选定多个控件, 然后选择 格式 统一尺寸 两者都相同 格式 水平间距 相同间距 格式 垂直间距 相同间距, 使选定的多个控件的尺寸统一, 水平 垂直间距相等 (4) 设置对象属性 按表 2.1 在属性窗口中分别设置控件的属性 提示 单击窗体上的某一控件, 则属性窗口显示的就是该控件的属性列表 双击属性窗口左列栏中的 Caption 属性, 将其属性的当前值改为指定值 表 2.1 属性设置 对 象 属 性 属性值 Label1 Caption 数 1 Font Arial 常规四号 Label2 Caption 数 2 Font Arial 常规四号 Label3 Caption 和 Font Arial 常规四号 Text1 Text 空 Font Arial 常规四号 Text2 Text 空 Font Arial 常规四号 Text3 Text 空 Font Arial 常规四号 Command1 Caption 相加 Font Arial 常规四号 Caption 清除 Command2 Font Arial 常规四号 Command3 Caption 退出 Font Arial 常规四号 技巧 单击选中一个控件, 按住 Shift 键, 单击剩余的所有控件, 双击属性窗口左 列栏中的 Font 属性, 在打开的 字体 对话框中将字体设置为 Arial, 字形设置为 常 规, 字号设置为 四号 这种方法可以为一组控件设置相同属性 (5) 编写事件驱动代码 1 打开代码窗口 科学出版社职教技术出版中心 提示 命令按钮的事件是鼠标单击, 鼠标单击触发的事件过程实现的功能分别是 相加 清除和结束运行 技巧 双击命令按钮, 即可打开代码窗口 思考 还有其他打开代码窗口的方法吗? 参见主教材 节 2 添加代码 分别选择对象 Command1 Command2 和 Command3 及其 Click 事件 在代码窗口输入下面的程序语句 Private Sub Command1_Click() Text3.Text = Val(Text1.Text)+ Val(Text2.Text)

14 第 1 篇实验篇 7 Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Private Sub Command3_Click() End 提示 系统启动了 自动列出成员 功能, 则在代码中输入一个控件名并跟有一个句点时, 将自动列出下拉列表显示这个控件的属性及方法 此时键入属性名的前几个字母, 就可以从下拉列表中选中该属性名, 按 Tab 键即可完成输入 语句 Text1.Text = "", 用来清除文本框中内容, 此处的 "" 为空字符 ( 引号中无空格 ) End 语句是关键词, 功能是结束程序运行返回 VB 环境 代码中的字母及标点都应为英文状态下输入 思考 输入代码的过程中注意观察语句颜色的变化, 如果故意将 Text 写成 Ttxt, 结果如何? 3 查看代码 提示 在代码窗口的左下角有两个按钮, 如果选择左边的 过程查看 按钮, 则代码窗口中只显示当前过程代码 ; 如果选择右边的 全模块查看 按钮, 则代码窗口中显示当前模块中所有过程的代码 4 关闭代码窗口 (6) 保存文件 单击工具栏中 保存工程 按钮, 或选择菜单 文件 保存工程 命令, 将先后弹出两个保存对话框, 第一个为 文件另存为 对话框, 用来保存窗体文件, 如图 2.2 所示 在文件名位置输入 简单加法器, 然后单击 保存 按钮 图 2.2 文件另存为 对话框第二个对话框为 工程另存为 对话框, 用来保存工程文件, 如图 2.3 所示 在文件名位置输入 简单加法器, 然后单击 保存 按钮 提示 通过上面的保存过程可以看出这个程序保存需要两个文件, 分别是窗体文件 ( 简单加法器.frm) 和工程文件 ( 简单加法器.vbp) 下一次打开程序时, 可以直接双击该程序的工程文件 ( 简单加法器.vbp) 即可

15 8 高级语言程序设计 Visual Basic 实训 图 2.3 工程另存为 对话框 说明 如果对已保存的程序再次进行了修改 ( 包括界面和代码 ), 需要保存程序, 可以单击工具栏中 保存工程 按钮 直接在原有文件上进行更新 思考 如何将工程和窗体分别保存副本 ( 另存为 )? (7) 运行程序 提示 单击工具栏上的启动按钮, 运行程序, 此时不会弹出保存对话框, 系统会将所作修改 选择 运行 启动 命令 或按下 F5 键都可以运行程序 运行过程中发生错误, 则需要程序调试, 参见主教材 节 (8) 打开工程 程序调试运行后, 关闭 VB 窗口 如果要对程序进行再次修改, 则要打开工程文件 尝试用下述三种方法打开工程文件 1 单击工具栏上的 打开工程 按钮 2 从 文件 菜单中选择 打开工程 命令 3 按下 Ctrl+O 键 此三种方法均可打开 打开工程 对话框, 如图 2.4 所示 图 2.4 打开工程 对话框 提示 在打开工程对话框中的 现存 选项卡中, 选择查找范围, 找到刚刚保存 的工程文件 ( 简单加法器.vbp), 单击 打开 按钮 (9) 生成可执行文件 要使程序能在 Windows 环境下直接运行, 就必须创建可执行文件 提示 选择 文件 生成简单加法器.exe 命令 科学出版社职教技术出版中心 在 Windows 环境下运行时, 只需在 资源管理器 中找到该文件, 双击该文件名即可

16 第 1 篇实验篇 9 (10) 退出 VB 提示 选择 文件 退出 命令, 即可退出 VB 环境 如果程序未做保存, 系统会提示保存 (11) 查找刚刚存盘的程序 提示 通过 资源管理器 或 我的电脑, 可以看到如图 2.5 所示的图标 图 2.5 程序文件图标 实验二标签的使用 1. 实验目的掌握标签属性的使用 2. 实验内容项目说明 : 设计一个程序, 在窗体上添加一个标签 Label1 通过设置窗体和标签的属性 ( 在属性窗口中设置, 不编写代码 ), 实现如下功能 窗体的标题为 设置标签属性 ; 标签的位置距窗体左边界 500, 距窗体顶边界 300; 标签的标题为 上机实验 ; 标签可以根据标题的内容自动调整大小 ; 标签带有边框 程序运行界面如图 2.6 所示 项目分析 : 窗体和标签的标题属性都是 Caption 属性, 标签的位置由 Top 和 Left 属性决定 标签自动调整大小需要设置 AutoSize 属性, 边框需设置 BorderStyle 属性 项目设计 : 图 2.6 运行界面 (1) 创建界面 在窗体 Form1 上添加一个标签 Label1 (2) 设置属性 在属性窗口中设置属性, 如表 2.2 所示 表 2.2 属性设置 对象属性属性值 Form1 Caption 设置标签属性 Label1 Caption 上机实验 Left 500 Top 300 AutoSize True BorderStyle 1

17 10 高级语言程序设计 Visual Basic 实训 实验三文本框的使用 1. 实验目的 掌握文本框的属性 事件和方法 2. 实验内容 项目说明 : 设计一个程序, 程序设计界面如图 2.7 所示 程序运行时, 在第一个文本框 Text1 中输入每一个字符时, 立即在第二个文本框 Text2 中显示相同的内容 文本框的字体均为 隶书 项目分析 : 文本框的字体属性可以在属性窗口设置 当在 Text1 中输入字符时发生 Text1 的 Change 事件, 在此事件过程中使 Text2 的 Text 属性与 Text1 相同 项目设计 : (1) 创建界面 在窗体上添加两个文本框 (2) 设置属性 将 Text1 和 Text2 的 Font 属性中选择字体为 隶书 将两个文本框的 Text 属性设置为空 提示 可以通过属性窗口对其进行设置 (3) 编写代码 Private Sub Text1_Change() Text2.Text = Text1.Text (4) 运行程序 程序运行后在 Text1 中输入 程序设计, 结果如图 2.8 所示 思考 将本例中的事件代码改为窗体的单击事件时( 代码如下 ), 程序执行结果有什么不同? Text2.Text = Text1.Text 科学出版社职教技术出版中心 图 2.7 创建界面 图 2.8 运行界面

18 第 1 篇实验篇 11 实验四设计单词测试器 1. 实验目的 掌握标签 文本框 命令按钮和窗体的属性 2. 实验内容 项目说明 : 编写单词测试器程序 当程序运行时, 在文本框中输入英文单词, 然后单击 确认 按钮或按 Enter 键, 程序会判断输入单词是不是 apple 如果输入正确则将显示 Good!, 错误则显示 Try again! 当单击 退出 按钮或按 Esc 键时, 退出程序 程序运行结果如图 2.9 所示 图 2.9 单词测试器界面设计及运行结果 项目设计 : (1) 创建界面 在窗体上添加三个标签 (Label1~Label3) 一个文本框 (Text1) 两个命令按钮 (Command1 Command2) (2) 设置属性 属性设置如表 2.3 所示 表 2.3 属性设置 对 象 属 性 属性值 Label1 Caption 这是一个测试 Font 楷体 粗体 二号 Label2 Caption 请输入苹果的英文单词 : Label3 Visible False Font 楷体 粗体 小初 Caption 确定 (&Y) Command1 Default True BackColor &H00FF80FF& Font 小三 Caption 退出 (&Q) Command2 Cancel True BackColor &H00FF80FF& Font 小三 Text1 Text 空 Form1 Caption 单词测试器 BackColor &H00FFC0C0&

19 12 高级语言程序设计 Visual Basic 实训 (3) 编写代码 Private Sub Command1_Click() If Text1.Text = "apple" Then Label3.Caption = "Good!" Else Label3.Caption = "Try again!" End If Label3.Visible = True Private Sub Command2_Click() End (4) 运行程序 尝试用下面三种方式分别运行程序 1 运行程序后输入单词, 单击 确定 按钮测试单词, 单击 退出 结束程序 2 运行程序后输入单词, 按 Enter 键测试单词 3 运行程序后输入单词, 按 Alt+Y 键测试单词, 按 Alt+Q 键结束程序 实验五窗体的属性事件方法 1. 实验目的 掌握窗体的属性 事件和方法 2. 实验内容 项目说明 : 设计一个程序, 程序设计界面如图 2.10 所示 程序运行时, 会自动在窗体中加载一幅图片 ; 单击 移动 按钮, 会将窗体移动到屏幕的左上角 ; 单击 变大 按钮, 可以将窗体的宽度和高度各增大到原来的三倍 项目分析 :Move 方法可以移动对象, 同时改变对象的大小尺寸 本例中实现的是窗体的移动和增大,Move 方法同样可以用于其他对象 要在窗体中自动加载图片应在窗体的 Load 事件修改 Picture 属性 科学出版社职教技术出版中心 图 2.10 界面设计及运行结果

20 第 1 篇实验篇 13 项目设计 : (1) 创建界面 在窗体上添加两个命令按钮 (2) 设置属性 按表 2.4 设置对象属性 表 2.4 属性设置对象属性属性值 Command1 Caption 移动 (&M) Command2 Caption 变大 (&L) Form1 Caption 窗体的事件和方法 (3) 编写代码 Private Sub Form_Load() ' 为窗体自动加载图片, 图片文件在工程文件所在文件夹 Form1.Picture = LoadPicture("lovely.jpg") Private Sub Command1_Click() ' 将窗体移动到屏幕左上角, 大小不变, 后面的两个参数可省略 Form1.Move 0, 0 Private Sub Command2_Click() ' 窗体位置不变, 高度宽度增大, 前面的参数不可省略 Form1.Move Form1.Left, Form1.Top, Form1.Width * 3, Form1.Height * 3 (4) 运行程序

21 第 3 章 Visual Basic 程序设计基础 实验 常用标准函数和表达式 1. 实验目的 掌握 VB 数据类型的概念 掌握常量的概念 掌握变量的概念 掌握常用标准函数的形式 功能和用法 掌握各种运算符的功能 表达式的构成以及表达式中运算符的运算顺序 2. 实验内容 (1) 利用下列函数测试常用标准函数的功能 Abs(-25) Round(5.1256,3), Round (0.55),Round(0.46) Int(1.9), Int (1.3),Int(-2.5) Fix(3.125), Fix (2.98), Fix (-2.6) LTrim(" good "),RTrim(" good "),Trim(" good ") Left("abcdefg",4),Right("abcdefg",4), Mid("abcdefg",2,3) Len("I am a student"),len(" 中国 ") String(3, "a"),string(3,"abc"),string(3,97) "a"+space(3)+ "b" InStr("Basic Database", "Bas"), InStr(3," Basic Database ", "Bas",1) Val("123ab4"),Val("56.83*4"),Val("26.4e7"),Str(825.6) Date,Time,Now Year(Date), Month(Date), Day(Date) 科学出版社职教技术出版中心 提示 以上函数均可直接在 立即窗口 中测试, 方法如下 1 选择 视图 立即窗口 命令, 打开 立即 窗口 一般在打开 VB 时, 立即 窗口会随之在屏幕下方打开 2 输入 Print 或?, 并输入函数表达式, 按 Enter 键即可在下一行输出运算结果, 如图 3.1 所示 3 立即 窗口中的语句可以被复制 剪切 粘贴和删除

22 第 1 篇实验篇 15 图 3.1 立即 窗口 (2) 按下列要求编写表达式, 并在 立即 窗口中用 Print 方法测试表达式的值 从字符串 "Visual Basic 6.0" 中截取子字符串 "Basic" 'Mid("Visual Basic 6.0",8,5) 将 四舍五入为整数 'Round( ) 产生由 3 个 "$" 组成的字符串 'String(3,"$") 产生 1~100 之间的随机整数 'Int((100*Rnd)+1) (3) 将下列数学表达式改写为 VB 合法的表达式 2a(7+b) 8e 3 ln2 5+(a+b) 2 3yx 2 '2*a*(7+b) '8*exp(3)*log(2) '5+(a+b)^2 'Abs(3*y*x^2) (4) 在 立即 窗口中用 Print 方法测试下列表达式的运算顺序及表达式的值 4 ^ 3 Mod 3 ^ 3 \ 2 ^ 2 "Visual"+"Basic" "Visual"&"Basic" Not "abc"<"abd" 3<5 And "a"="a" "abc"<>"abc" Or 2>1 Not "Abc"="abc" Or 2+3<>5 And "23"<"3" # # - # # Int( * ) / 100 (5) 将下列条件表示为关系表达式或逻辑表达式 10 可以被 2 整除 '10 Mod 2 = 0 x 大于等于 1 并且小于 10 'x>=1 And x<10 n 是小于 20 的偶数 'n<20 And n Mod 2 = 0 x,y 其中至少有一个小于 z 'x<z Or y<z

23 第 4 章数据输出与输入 实验 Print 方法 InputBox 函数和 MsgBox 函数的使用 1. 实验目的掌握 Print 方法的使用 掌握与 Print 方法相关的函数的使用 掌握 InputBox 函数的使用 掌握 MsgBox 函数和 MsgBox 语句的使用 2. 实验内容 (1) 利用 Print 方法输出下列内容 1 在窗体 Form1 上添加一个命令按钮 Command1, 用于显示数值型表达式的值, 程序代码如下 Private Sub Command1_Click() x =10 : y =20 Print x + y Print "x+y=" ; x + y 运行结果如图 4.1 所示 2 在窗体 Form1 上添加一个命令按钮 Command2, 用于显示字符型表达式的值, 程序代码如下 Private Sub Command2_Click() Print "Hello" ; "China" Print "Hello", "China" 科学出版社职教技术出版中心 运行结果如图 4.2 所示 图 4.1 运行结果 思考 观察输出的分隔符不同, 输出格式的变化 3 在窗体 Form1 上添加一个命令按钮 Command3, 编写如下程序代码 Private Sub Command3_Click() Print 3 / 2 * 4, "Visual" & "Basic", Not 2 < 3 Print 5 / 3, Left("Visual Basic", 6), "abc" > "acd"

24 第 1 篇实验篇 17 运行结果如图 4.3 所示 图 4.2 运行结果 图 4.3 运行结果 (2) 利用下面程序测试与 Print 方法相关的函数的作用 Print " 学号 "; Tab(10); " 姓名 "; Tab(19); " 成绩 " Print "0001"; Spc(5); " 张力 "; Spc(5); "100" Print "0002" + Space(5) + " 李明 " + Space(5) + "98" Print "0003"; Tab(10); " 刘丹 "; Spc(5); "95" 运行结果如图 4.4 所示 提示 Tab 函数与 Spc 函数的参数意义不同,Tab(n) 表示在第 n 列输出内容,Spc(n) 表示跳过 n 列输出内容 Space(n) 可以产生 n 个空格, 与前两个函数的调用格式不同 (3) 有如下事件过程, 但程序代码不完整, 请将程序代码中的?? 改写为正确内容, 使得运行程序后, 单击窗体, 在第一行输出字符串 作为参考位置, 在后面三行的第一列 第五列 第九列输出 *, 运行结果如图 4.5 所示 要求第二行使用 Tab 函数, 第三行使用 Spc 函数, 第四行使用 Space 函数控制输出 * 的位置 Print " " ' 输出一行参考位置 Print?? ' 使用 Tab 函数控制输出第一 五 九列 "*" 的位置 Print?? ' 使用 Spc 函数控制输出第一 五 九列 "*" 的位置 Print?? ' 使用 Space 函数控制输出第一 五 九列 "*" 的位置 图 4.4 运行结果 图 4.5 运行结果 (4) 利用下面程序测试 Format 函数的功能 a = Sqr(8)

25 18 高级语言程序设计 Visual Basic 实训 Print Format(a, "00.000") Print Format(a, "##.###") Print Format(a, "00.###") Print Format(a, "#,#.###") Print Format(a, "$00.###") Print Format(a, " ") Print Format(a, "##.##%") Print Format(a, "#.##E+##") 图 4.6 运行结果运行结果如图 4.6 所示 举一反三 : 将 a=sqr(8) 改为 a=sqr(4), 观察程序运行结果 (5) 有如下事件过程, 但程序代码不完整, 请将程序代码中的?? 改写为正确内容, 使得运行程序后, 单击窗体, 首先声明三个整型变量 x y z, 然后依次显示两个输入框, 如图 4.7 所示, 分别输入 x 和 y 的值, 再计算 z 的值 (z 为 x 与 y 的和 ), 最后输出 x y z 的值, 输出格式如图 4.8 所示 Dim x%, y%, z% x= InputBox(" 输入 x ") ' 利用输入框输入 x 的值 y=?? ' 利用输入框输入 y 的值 z = x + y Print "x=" ; x ' 输出 x 的值?? ' 输出 y 的值?? ' 输出 z 的值 图 4.7 显示的两个输入框 图 4.8 输出结果 举一反三 : 为什么要将三个变量定义为整型? 如果不定义数据类型会得到什么输出结果? (6) 有如下事件过程, 利用 InputBox 函数输入圆的半径, 计算圆的面积并输出 要求输入框的标题为 计算圆面积, 提示信息为 请输入圆的半径 : 程序代码并不完整, 请将程序代码中的?? 改写为正确内容 Dim r, s 科学出版社职教技术出版中心

26 第 1 篇实验篇 19 r=?? s = * r * r Print " 圆的半径 :", r Print " 圆面积为 :", s ' 利用输入框输入半径 r 的值 's 存放圆的面积 (7) 有如下事件过程, 但程序代码不完整, 请将程序代码中的?? 改写为正确内容, 使得运行程序后, 单击窗体, 显示一个消息框, 如图 4.9 所示, 在消息框上选择某个按钮后, 输出消息框的返回值, 输出格式如图 4.10 所示 x =?? ' 显示消息框 Print?? ' 输出消息框的返回值 图 4.9 消息框 图 4.10 输出结果 提示 显示消息框的 MsgBox 函数格式为 MsgBox( 提示信息, 按钮类型, 标题 ) 按钮类型 参考主教材 4.3 节 程序运行时, 多次单击窗体, 选择消息框上的不同按钮, 观察返回值的变化 举一反三 : 将上题中 MsgBox 函数的参数修改为下面的形式, 并观察消息框的变化 MsgBox(" 这是一个消息框 ", , " 测试 ") MsgBox(" 这是一个消息框 ", , " 测试 ") (8) 有如下事件过程, 但程序代码不完整, 请将程序代码中的?? 改写为正确内容, 使得运行程序后, 单击窗体, 显示如图 4.11 所示的消息框 x =?? ' 显示消息框 图 4.11 消息框

27 第 5 章程序设计的基本控制结构 实验一赋值语句 1. 实验目的 掌握赋值语句的一般格式 功能及使用 掌握顺序结构程序的概念 2. 实验内容 输入 a b 的值, 然后将两个变量的值交换, 并输出交换后的值 提示 交换两个变量的值, 需要借助一个中间变量完成 该程序可以在 Form_Click 事件中编写, 需要定义三个变量 a b t, 利用 InputBox 函数输入 a b 两个变量的值 将 a 赋值给 t,b 赋值给 a,t 赋值给 b, 即可完成交换, 然后输出 a b 的值 程序代码如下 Dim a, b, t a = InputBox(" 请输入 a 的值 ") b = InputBox(" 请输入 b 的值 ") t = a a = b b = t Print "a="; a, "b="; b 1. 实验目的 实验二分支结构 掌握选择结构程序的设计方法 掌握 If 语句 Select Case 语句的功能及用法 2. 实验内容 科学出版社职教技术出版中心 (1) 输入系数 A B C 的值, 并求一元二次方程 AX 2 +BX+C=0 的根 注意 : 程序

28 中?? 部分需要改写为正确的程序代码 第 1 篇实验篇 21 提示 输入系数 A B C 的值后, 判断 B2-4AC 的值如果大于或等于零, 则求根, 否则没有实根 例如 : 输入 A=1 B=4 C=4, 则 X1=-2,X2=-2 程序代码如下 Dim a As Integer, b As Integer, c As Integer a = InputBox(" 输入系数 a") b = InputBox(" 输入系数 b") c = InputBox(" 输入系数 c") d = b * b - 4 * a * c If d >= 0 Then X1 =?? X2 =?? Print X1, X2 End If (2) 输入三个数 x y z, 如果它们能作为三角形的三个边 ( 任意两边之和大于第三边 ), 则求该三角形的面积, 否则输出错误信息 求面积公式为 s= p(p x)(p y)(p z), 其中 p 为周长的一半 Dim x!, y!, z! Dim p!, s! x = InputBox("please input x :") y = InputBox("please input y :") z = InputBox("please input z :") If?? Then p = (x + y + z) / 2 s =?? Print " 三角形的面积为 :"; s Else Print x; y; z; " 不能构成三角形 " End If (3) 利用输入框输入一个 0~6 的整数, 然后根据输入的数值输出对应的是星期几, 例如, 输入为 0, 则输出星期日 ; 输入为 3, 则输出星期三 提示 本题适合使用 Select Case 语句设计分支结构 程序代码如下 Dim num As Integer

29 22 高级语言程序设计 Visual Basic 实训 num = InputBox(" 输入一个 0~6 的整数 ") Select Case?? Case 0 Print " 星期日 " '----- 请将程序编写完整 -----?? ' Case Else Print " 输入错误!" End Select (4) 设某单位收取水费的规定是 : 每月用水量 <=10 吨时, 每吨按 0.32 元计费 ; 用水量 <=20 吨时, 超过 10 吨的部分每吨按 0.64 元计费 ; 用水量超过 20 吨时, 超过 20 吨部分每吨按 0.96 元计费, 编写求水费的程序 Dim w As Single, x As Integer w = InputBox(" 请输入用水量 ") Select Case w Case??<= 10 x = w * 0.32 Case?? <= 20 x = 0.32 * 10 + (w - 10) * 0.64 Case?? x = 0.32 * * 10 + (w - 20) * 0.96 End Select Print " 应付水费为 :", x (5) 设计一个程序, 在文本框每输入一个字符, 则立即判断 : 若为大写字母, 则将它的小写字母形式显示在 Label1 中 ; 若为小写字母, 则将它的大写字母形式显示在 Label1 中 ; 若为其他字符, 则把该字符直接显示在 Label1 中 输入字母总数显示在 Label2 中, 运行结果如图 5.1 所示 请将程序代码中的?? 修改为正确的语句, 并运行 科学出版社职教技术出版中心 图 5.1 运行结果 1 界面设计, 向窗体 Form1 中添加一个文本框 Text1, 两个标签 Label1 和 Label2,

30 第 1 篇实验篇 23 将文本框的 Text 属性设置为空, 两个标签的 Appearance 属性设置成 1-3D 效果, 如图 5.1 所示 2 程序代码如下 提示 判断字母是大写还是小写, 可以通过其 ASCII 码的范围确定, 也可以直接利用字符串的比较判断 UCase() 函数可将小写字母转换成大写字母,LCase() 函数可将大写字母转换成小写字母 Dim n ' 定义 n 为模块变量, 用来统计字母总数 Private Sub Text1_Change() Dim ch As String ch = Right(?? ) ' 截取文本框中右侧入的一个字符 If ch >= "A" And ch <= "Z" Then n = n + 1 Label1.Caption = LCase(ch) ElseIf ch >= "a" And ch <= "z" Then n = n + 1 Label1.Caption =?? ' 将小写字母转换成大写字母 Else Label1.Caption = Right(Text1, 1) ' 直接显示该字符 End If Label2.Caption =?? ' 显示字母总数 实验三单循环控制结构 1. 实验目的掌握单循环结构程序的程序设计方法 掌握 For 语句 Do 语句和 While 语句的功能及用法 2. 实验内容 (1) 求 8 的阶乘 (8! = ) 提示 求阶乘与求和的设计思想是一致的, 一个变量控制循环, 另一个变量存储乘积 程序代码如下 Dim i As Integer, t As Long?? ' 为 t 赋初始值 For i = 1 To 8?? Next

31 24 高级语言程序设计 Visual Basic 实训 Print "T="; t 举一反三 : 编写求 n! 的程序 (2) 求 0~100 之间的所有奇数的和 Dim i As Integer, s As Integer s = 0 For i = 1 To 100?? ' 循环步长为 2?? Next Print s 另一种方法如下 Dim i As Integer, s As Integer s = 0 i = 0 Do While i <= 100 If i Mod 2 <> 0 Then s = s + i End If i = i + 1 Loop Print s 举一反三 : 用 Do Until Loop 语句改写该程序 (3) 输入一系列数, 直到输入 0 为止, 统计其中正数和负数的个数 Dim i%, num1%, num2% num1 = 0 num2 = 0 Do i = InputBox(" 请输入一个正数或负数, 输入 0 时结束统计 ") If i > 0 Then?? ' 统计正数个数放入 num1 中 ElseIf i < 0 Then?? ' 统计负数个数放入 num2 中 End If Loop Until?? 科学出版社职教技术出版中心

32 第 1 篇实验篇 25 Print " 正数的个数为 :"; num1 Print " 负数的个数为 :"; num2 (4) 求 1~100 之间既能被 2 整除又能被 7 整除的数的和及其个数 Dim s%, k%, i% For i = 1 To 100 If?? Then s =?? k =?? End If Next i Print " 满足条件的个数为 "; k Print " 和为 "; s ' 求和 ' 统计个数 (5) 编写程序求 S= 使用 Do While...Loop 语句, 程序代码如下 Dim n As Integer, s As Long n = 1: s = 0 ' 两个语句写到一行, 中间用冒号隔开 Do While n <= 100 s = s +?? ' 求平方和?? ' 改变 n 的值 Loop Print "s="; s 程序运行结果 :s= (6) 编写程序求 S=1!+ 2!+ + 8! 提示 1!=1 2!=1*2 3!=1*2*3 4!=1*2*3*4 求这些阶乘的和, 可以在每次循环时边求阶乘边累加 t=1 s=0 For i = 1 To 8

33 26 高级语言程序设计 Visual Basic 实训 t =?? s =?? Next i Print "s="; s 't 用于求每个数的阶乘 's 用于求和 (7) 设计一个程序, 向文本框中输入任意一串英文字母, 统计文本框中字母 A H M 的个数 单击 统计 命令按钮, 则统计文本框中字母 A H M 各自出现的次数, 并依次放入变量 x,y,z 中, 单击 显示 按钮则将其显示在标签中, 运行结果如图 5.2 所示 下列程序已给出部分代码, 请将程序代码中的?? 修改为正确的语句, 并运行 图 5.2 运行结果 1 设计界面 : 向窗体 Form1 中添加一个标签 Label1, 一个文本框 Text1 和两个命令按钮 Command1 及 Command2 2 设置属性 : 将 Text1 的 Multiline 属性设置为 True,Label1 的 AutoSize 属性设置为 True,Command1 的 Caption 属性设置为 统计,Command2 的 Caption 属性设置为 显示 3 程序代码 科学出版社职教技术出版中心 Dim x%, y%, z% Private Sub Command1_Click() For i = 1 To Len(Text1.Text) c = UCase(Mid(??)) Select Case?? Case "A" x = x + 1 Case?? ' 判断是否为字母 H?? ' 统计字母 H 的个数 Case "M" z = z + 1 End Select

34 第 1 篇实验篇 27 Next Private Sub Command2_Click() Label1.caption=" 文中有 "+str(x)+ " 个 A" + str(y)+ " 个 H" + str(z)+ " 个 M" 实验四双循环控制结构及算法 1. 实验目的掌握双循环结构程序的程序设计方法 掌握 For 语句 Do 语句和 While 语句的功能及用法 2. 实验内容 (1) 输入下面的程序, 观察双重循环的循环控制变量的变化过程 Dim i%, j% For i = 1 To 3 For j = 1 To 3 Print i, j Next Next (2) 利用双重循环输出如图 5.3 所示的三角形 第一行的星号前面有九个空格 图 5.3 运行结果 Dim i As Integer, j As Integer For i = 1 To 6 Print Spc(?? ); For j = 1 To?? Print "*";

35 28 高级语言程序设计 Visual Basic 实训 Next j Print Next i 举一反三 : 如何输出倒三角形? (3) 输出斐波那契数列的前 20 项 斐波那契数列是这样定义的, 数列的前两项是 0 和 1, 以后每项均为其前两项的和, 即依次为 0,1,1,2,3,5,8,13,21, Dim a%, b%, i% a = 0 b = 1 Print a Print b For i = 3 To 20 c = a + b Print c a = b b = c Next i (4) 勾股定理中三个数的关系是 a ^ 2 + b ^ 2 = c ^ 2 例如,3 4 5 就是一个满足条件的整数组合 ( 注意 :a,b,c 分别为 4,3,5 与分别为 3,4,5 被视为同一个组合, 不应重复计算 ) 编写程序, 统计三个数均在 20 以内满足上述关系的整数组合 提示 此题需要采用 穷举法 求解, 即对所有可能解, 逐个进行试验, 若满足条件, 就得到一组解 ; 否则, 继续测试, 直到循环结束为止 其算法如下 : 利用三重循环列举出 a,b,c 所有可能的解, 每次循环都测试条件 a ^ 2 + b ^ 2 = c ^ 2 是否成立, 条件成立, 则找到一组合适的解 程序代码如下 For a = 1 To 20 For b = 1 To 20 For c = 1 To 20 If a ^ 2 + b ^ 2 = c ^ 2 and b>a Then Print a;b;c End If Next Next Next 科学出版社职教技术出版中心

36 第 1 篇实验篇 29 程序运行结果如下 举一反三 : 用穷举法输出 1~1000 之间的 水仙花数 提示 水仙花数 是一个三位数, 其各位数的立方和等于该数本身, 如 153= (5) 用 100 元买 100 只鸡, 母鸡 3 元 1 只, 小鸡 1 元 3 只, 问各应买多少只? 提示 下面采用 穷举法 来解此题 设母鸡为 x 只, 小鸡为 y 只, 根据题意可知 :y = 100 x 开始先让 x 初值为 1, 则 y 为 99, 测试条件 3x+y/3=100 是否成立, 以后 x 逐次加 1, 依次测试 程序代码如下 Private Sub Form_ Click() Dim x As Integer, y As Integer For x = 1 To 30 ' 请完成以下程序的编写 ?? ' Next x 程序运行结果 : 母鸡数为 :25 小鸡数为 :75 (6) 判断整数 m 是否为素数 下列程序给出部分代码, 请将程序代码中的?? 修改为正确的语句, 并运行 提示 一个合数总有一个小于等于 sqr(m) 的因子, 因此判断 m 是否能被 2 到 sqr(m) 或 m/2 间的整数整除即可 程序代码如下 Dim i As Integer, m As Integer m = InputBox(" 请输入一个数 ") For i =?? To Sqr(m) If?? Then Exit For

37 30 高级语言程序设计 Visual Basic 实训 End If Next If i > m/2 Then Print m; " 是素数 " Else Print m; " 不是素数 " End If (7) 找出 100 以内所有的素数 提示 设计双重循环, 外循环变量从 2~100, 内循环测试每一个数是否为素数 程序代码如下 Dim i As Integer, m As Integer For m = 2 To 100 ' 请完成以下程序的编写 ?? ' If i = m Then Print m End If Next 科学出版社职教技术出版中心

38 第 6 章常用标准控件 实验一单选钮 复选框和框架 1. 实验目的掌握单选钮 复选框 框架的使用方法 2. 实验内容编写可以格式化字体的程序 项目分析 : 程序运行时, 在 字体外观 框架中选择一个或多个复选框, 在 字体名称 框架中选择一种字体, 在 字体颜色 框架中选择一种前景颜色, 可以使文本框中的文本格式按所选择的参数进行设置 项目设计 : (1) 创建界面 在窗体中添加一个文本框 两个命令按钮和三个框架, 在第一个框架中有四个复选框, 在另外两个框架中各添加四个单选钮, 界面设计如图 6.1 所示 在框架中添加控件的方法参见主教材 节中的例 6.2 图 6.1 界面设计 (2) 设置属性 在属性窗口中将 Text1 的 MultiLine 属性值设为 True, 其他各控件的属性设置通过 Form_Load 事件过程中的语句来实现, 包括在文本框中显示一首诗 ( 部分 ), 两个命令按钮的标题分别设置为 清除 和 退出, 三个框架的标题分别设置为 字体外观 字体名称 和 字体颜色, 并为每个复选框和单选钮设置相应的标题

39 32 高级语言程序设计 Visual Basic 实训 (3) 编写代码 下面给出的程序代码不完整, 请将程序中带?? 的地方改为正确 内容, 使其实现注释语句中所述的功能 不必修改程序中的其他部分和其他属性 Private Sub Form_Load() c1 = Chr(13) + Chr(10) 'c1 赋值为回车换行符 Caption = " 文本框格式化 " ' 在文本框中写 4 行诗句 Text1.Text = " 好雨知时节 " & c1 & " 当春乃发生 " & c1 & " 随风潜入夜 " & c1_ & " 润物细无声 " ' 设置各框架中单选钮和复选框的标题 Frame1.Caption = " 字体外观 " Check1.Caption = " 粗体 " Check2.Caption = " 斜体 " Check3.Caption = " 下划线 " Check4.Caption = " 中划线 " Frame2.Caption = " 字体名称 " Option1.Caption = " 宋体 " Option2.Caption = " 黑体 " Option3.Caption = " 隶书 " Option4.Caption = " 幼圆 " Frame3.Caption = " 字体颜色 " Option5.Caption = " 红色 " Option6.Caption = " 蓝色 " Option7.Caption = " 绿色 " Option8.Caption = " 黑色 " ' 设置命令按钮的标题 Command1.Caption = " 清除 " Command2.Caption = " 退出 " Private Sub Check1_click()?? = Check1.Value ' 设置是否为粗体 Private Sub Check2_click()?? = Check2.Value ' 设置是否斜体 Private Sub Check3_click()?? = Check3.Value ' 设置是否有下划线 Private Sub Check4_click()?? = Check4.Value ' 设置是否有删除线 Private Sub Command1_Click() Text1.Text = "" ' 清空文本框 科学出版社职教技术出版中心

40 第 1 篇实验篇 33 Private Sub Command2_Click() End Private Sub Option1_Click() Text1.FontName =?? Private Sub Option2_Click() Text1.FontName =?? Private Sub Option3_Click() Text1.FontName =?? Private Sub Option4_Click() Text1.FontName =?? Private Sub Option5_Click() Text1.ForeColor = vbred Private Sub Option6_Click() Text1.ForeColor =?? Private Sub Option7_Click() Text1.ForeColor =?? Private Sub Option8_Click() Text1.ForeColor =?? ' 结束程序运行 ' 设置宋体 ' 设置黑体 ' 设置文本为隶书 ' 设置文本为幼圆 ' 设置文本为红色 ' 设置文本为蓝色 ' 设置文本为绿色 ' 设置文本为黑色 (4) 运行程序, 结果如图 6.2 所示 (5) 调试运行后保存程序 图 6.2 运行结果

41 34 高级语言程序设计 Visual Basic 实训 实验二滚动条的使用方法 1. 实验目的掌握框架的使用方法 掌握滚动条的使用方法 掌握滚动条的 Change 事件 2. 实验内容编写一个可以设置文本颜色和字号的程序 项目分析 : 程序运行时, 用户单击 背景色 后调节水平滚动条, 可以改变文本框的背景颜色 ; 单击 前景色 后调节水平滚动条, 可以改变文本框的前景色 ; 调节垂直滚动条, 可以改变文本框的字号 本程序中使用了颜色函数 QBColor( 参数 ), 参数值由 0~15, 分别代表 16 种颜色, 如 QBColor(2) 将返回绿色的颜色值 项目设计 : (1) 创建界面 在窗体中添加一个文本框 两个框架, 在其中的一个框架中添加两个单选钮和一个水平滚动条, 在另一个框架中添加一个标签和一个垂直滚动条, 如图 6.3 所示 图 6.3 界面设计 (2) 设置属性 各对象的属性设置如表 6.1 所示 表 6.1 属性设置 控件名称 属性名称 属性设置值 Text1 Text 设置背景色 前景色 字号 Frame1 Caption 颜色 Frame2 Caption 字号 Option1 Caption 背景色 Option2 Caption 前景色 HScroll1 Min 0 Max 15 VScroll1 Min 5 Max 15 科学出版社职教技术出版中心

42 第 1 篇实验篇 35 (3) 编写代码 下面给出的程序代码不完整, 请将带?? 的地方改为正确的语句, 使其能够完成实验所述的功能 不必修改程序中的其他部分和其他属性 ' 当调节水平滚动条时, 触发该滚动条的 Change 事件代码如下 Private Sub HScroll1_Change() If?? = True Then Text1.BackColor = QBColor(??) Else Text1.ForeColor = QBColor(??) End If ' 当调节垂直滚动条时, 触发该滚动条的 Change 事件代码如下 Private Sub VScroll1_Change() Label1.Caption = Str(VScroll1.Value) & " 号 " Text1.FontSize =?? (4) 运行程序, 结果如图 6.4 所示 图 6.4 运行结果 实验三列表框的使用方法 1. 实验目的掌握列表框的使用方法 2. 实验内容项目分析 : 窗体上有两个列表框, 名称为 List1 List2, 通过属性窗口在 List2 中已经添加了列表项 有两个命令按钮, 名称分别为 C1 C2, 标题分别为 添加 清除, 如图 6.5 所示 程序的功能是在运行时, 如果选中右边列表框中的一个列表项, 单击 添加 按钮, 则把选中的列表项移到左边的列表框中 ; 若选中左边列表框中的一个列表项, 单击 清除 按钮, 则把该项移回右边的列表框中 项目设计 : (1) 创建界面 在窗体中添加两个列表框 两个命令按钮 (2) 设置属性 各对象的属性设置如表 6.2 所示

43 36 高级语言程序设计 Visual Basic 实训 表 6.2 属性设置 控件名称 属性名称 属性设置值 List2 List 如图 6.5 所示添加列表框 Command1 Name C1 Caption 添加 Command2 Name C2 Caption 清除 (3) 编写代码 下面给出的程序代码不完整, 请将带?? 的地方改为正确语句, 使其能够完成实验所述功能 不必修改程序的其他部分和其他属性 Private Sub C1_Click() Dim k As Integer k = 0 While(k < List2.??) If??.Selected(k) = True Then List1.AddItem List2.Text List2.RemoveItem?? End If k = k + 1 Wend Private Sub C2_Click() List2.AddItem List1.Text List1.RemoveItem List1.?? (4) 运行程序, 结果如图 6.6 所示 (5) 调试运行后保存程序 图 6.5 界面设计 科学出版社职教技术出版中心 图 6.6 运行结果 实验四组合框的使用方法 1. 实验目的 掌握组合框的使用方法

44 第 1 篇实验篇 实验内容项目分析 : 窗体上有一个组合框和一个命令按钮, 如图 6.7 所示 程序的功能是在运行时, 如果在组合框中输入一个项目并单击命令按钮, 则搜索组合框中的项目, 如无此项, 则将此项添加到组合框中 ; 如已有此项, 则弹出提示 : 已有此项, 然后清除输入的内容 项目设计 : (1) 创建界面 在窗体中添加一个命令按钮 一个组合框 (2) 设置属性 将命令按钮标题属性设置为 添加, 清空组合框的 Text 属性 (3) 编写代码 下面给出的程序代码不完整, 请将带?? 的地方改为正确语句, 使其实现注释语句所述的功能 不必修改程序的其他部分和其他属性 Private Sub c1_click() Dim flag As Boolean For i =?? To Cb1.ListCount - 1 If Cb1.List(i) = Cb1.?? Then flag = True Else flag = False End If Next If flag Then MsgBox " 已有此项 " Cb1.Text = "" Else Cb1.?? Cb1.Text End If (4) 运行程序, 结果如图 6.8 所示 (5) 调试运行后保存程序 图 6.7 窗体界面设计 图 6.8 运行结果 实验五计时器的使用方法 1. 实验目的 掌握计时器控件的使用方法

45 38 高级语言程序设计 Visual Basic 实训 2. 实验内容 设计在窗体上显示变色板的程序 项目分析 : 程序运行时, 色板的颜色每隔一定时间改变一次颜色, 单击 停止 按 钮停止改变颜色, 单击 开始 按钮又重新开始改变颜色 项目设计 : (1) 创建界面 在窗体上添加一个标签 一个计时器 两个命令按钮 如图 6.9 所示 (2) 设置属性 计时器的 Interval 属性设置为 400, 两个按钮的名称属性值分别为 Command1 Command2,Caption 属性值分别为 开始 停止 (3) 编写代码 下面给出的程序代码不完整, 请将带?? 的地方改为正确语句, 使其实现注释语句所述的功能 不必修改程序的其他部分和其他属性 ' 模块变量, 用于保存颜色参数 Dim i As Integer ' 启动计时器的程序代码如下 Private Sub Command1_Click()?? ' 开始变色 ' 关闭计时器的程序代码如下 Private Sub Command2_Click()?? ' 停止变色 ' 改变颜色的程序代码如下 Private Sub?? i = i + 1 ' 颜色参数值加 1 If i = 16 Then i = 0 ' 如果颜色参数超过了 15 要恢复到 0 Label1.BackColor = QBColor(i) ' 把标签的背景色设置为新的颜色 (4) 运行程序, 结果如图 6.10 所示 (5) 调试运行后保存程序 技巧 因为 QBColor() 函数的参数只能取 0~15 之间的整数, 所以本程序中的颜色参数 i 每次加 1 后都到要测试一下是否超过了 15, 如果超过了 15 就要返回到 0, 语句 If i = 16 Then i = 0 就起到此作用 另外, 语句 i=i+1 和 If i = 16 Then i = 0 可以一起被替换为 i=(i+1) mod 16 科学出版社职教技术出版中心 图 6.9 界面设置 图 6.10 运行结果

46 第 7 章数 组 实验一一维数组 1. 实验目的掌握数组的定义方法 掌握利用循环对数组的操作 2. 实验内容 (1) 定义一个含有五个元素的数组 A, 用 InputBox 函数为数组元素输入下列值 : , 然后将数组元素值输出到窗体上 提示 数组定义时若使用默认下标则定义为 Dim A(4) 即可, 也可以自定义数组起始下标, 如 Dim(1 to 5), 只要保证数组元素个数正确就可以, 但也要考虑使用数组时是否方便 程序代码如下 Dim A(4) Dim i As Integer For i = 0 To 4 A(i)=?? Next i For i = 0 To 4 Print A(i); Next i (2) 定义一个含有五个元素的数组 A, 并从 A(1) 开始分别赋值为数列 {1,2,3,4,5} 的相应元素, 即 A(1)=1,A(2)=2,, 然后将数组元素值输出到窗体上 提示 因数组的下标默认从 0 开始, 所以定义数组 A(5), 为了对应数组下标与数列元素的关系, 所以从 A(1) 开始操作, 或者直接定义为 Dim A(1 to 5) 程序代码如下 Dim A(1 to 5) Dim i As Integer

47 40 高级语言程序设计 Visual Basic 实训 For i = 1 To 5?? ' 为数组元素赋值 Next i For i=1 To 5?? ' 输出数组元素 Next i 举一反三 : 用同样的方法完成下列任务 (B C D 均需要先定义为数组 ) 为数组 B 赋值为数列 {1,3,5,7,9}; 为数组 C 赋值为数列 {2,4,6,8,10}; 为数组 D 赋值为数列 {1,4,9,16,25} (3) 输入某小组五个同学的成绩, 计算总分和平均分 ( 保留一位小数 ) 提示 利用 InputBox 函数来输入成绩, 然后计算总分和平均分, 再用 Print 直接在窗体上输出结果 程序代码如下 Dim d(5) As Integer Dim i As Integer, total As Single, average As Single For i = 1 To 5 d(i)=val(inputbox(" 请输入第 "&Str(i)&" 个学生的成绩 ", " 输入成绩 ")) Next i total = 0 For i = 1 To 5?? ' 求和 Next i average = total / 5 Print " 总分 :" & total Print " 平均分 :" & Format(average, "##.0") 科学出版社职教技术出版中心 (4) 从 10 个数中挑出最大数 下列程序给出部分代码, 请将程序代码中的?? 修改为正确的语句, 并运行 程序代码如下 Option Base 1 Private Sub Command1_Click() Dim a(10), Start as integer, Finish as Integer, j as Integer Start=LBound(a) Finish=UBound(a) For j = Start To Finish a(j) = Val(InputBox(" 请输入一个数 ", " 数组输入 ")) Print a(j);

48 第 1 篇实验篇 41 Next j Print m =?? For j = Start To Finish If a(j) > m Then?? Next j Print "max = ";?? (5) 将含有 10 个元素的一维数组转置, 即将数组首尾元素交换,a(1) 与 a(10) 交换, a(2) 与 a(9) 交换 a(5) 与 a(6) 交换 Option Base 1 Private Sub Command1_Click() Dim a a = Array(10, 1, 2, 4, 14, 5, 6, 9, 15, 17) For i = 1 To 10 ' 输出原始数组 Print a(i); Next For i = 1 To?? ' 元素前后对应交换 '----- 请完成以下程序 ?? ' Next Print For i = 1 To 10 ' 输出转置后数组 Print a(i); Next (6) 两个数组求和 数组 A 中包含元素 {1,2,3,4,5}, 数组 B 中包含元素 {2,4,5,1,3}, 求两个数组对应元素的和, 并存储在数组 C 中 下面只给出算法描述, 请编写程序 算法如下 Option Base 1 Private Sub Command1_Click() Dim a,b Dim c(5) A=array(1,2,3,4,5) B=array(2,4,5,1,3) '----- 请完成以下程序 ?? ' 提示 : 循环求数组 c 元素值为 a b 数组对应元素的和 ' 输出数组 c

49 42 高级语言程序设计 Visual Basic 实训 ' (7) 下面程序能够实现将五个数由小到大排序 程序已给出部分代码, 请将程序代码中的?? 修改为正确的语句, 并运行 Option Base 1 Dim a, t As Integer a=array(1,5,9,3,2) For i = 1 To?? For j =?? To 5 If a(i)?? a(j) Then t = a(i)?? a(j) = t End If Next j Next i For j = 1 To 5 Print a(j); Next j 1. 实验目的 掌握二维数组的定义方法 掌握利用循环对二维数组的操作 掌握控件数组的定义及操作 2. 实验内容 实验二二维数组与控件数组 (1) 将下面的矩阵用二维数组保存起来, 在窗体上添加四个按钮, 如图 7.1 所示, 按钮功能如表 7.1 所示 原始矩阵如下 科学出版社职教技术出版中心

50 第 1 篇实验篇 43 图 7.1 运行结果 表 7.1 按钮属性及其功能描述 名 称 Caption 功 能 Command1 原始矩阵 在窗体上显示原始矩阵 Command2 交换第二行和第四行 交换第二行和第四行后并输出到窗体 Command3 对角线的和 计算对角线的和并输出到窗体 Command4 次对角线的和 计算次对角线的和并输出到窗体 Command5 第四行的和 求矩阵第四行所有元素之和并输出到窗体 Command6 每行最大值 求矩阵每行元素的最大值并输出到窗体 提示 本题需要实现二维数组的输入和输出 定义一个四行四列的数组, 并为数 组每个元素赋值, 所有元素输入完毕后, 再将数组元素以行列的形式输出 对于二维数组的操作一般采用双重循环 程序代码如下 Option Base 1 Const N = 4 Const M = 4 Dim a(m, N) ' 为二维数组赋初始值 Private Sub Command1_Click() Dim i%, j%, t% For i = 1 To N For j = 1 To M a(i, j) =?? ' 利用一个通用表达式计算每个元素的值 Next j Next i Print " 原始矩阵为 :"

51 44 高级语言程序设计 Visual Basic 实训 Print For i = 1 To N For j = 1 To M Print Tab(5 * j); a(i, j); Next j Print Next i ' 交换第二行和第四行 Private Sub Command2_Click() For j = 1 To M '----- 请完成以下程序 ?? ' Next j Print Print " 交换第二行和第四行后的矩阵为 :" Print For i = 1 To N For j = 1 To M Print Tab(5 * j); a(i, j); Next j Print Next i ' 求对角线和 Private Sub Command3_Click() Dim s% Print For i = 1 To N?? Next i Print Print " 对角线和为 :"; s ' 求次对角线的元素和 Private Sub Command4_Click() Dim s% For i = 1 To N?? Next i Print Print " 对角线和为 :"; s 科学出版社职教技术出版中心

52 第 1 篇实验篇 45 ' 求第四行元素和 Private Sub Command4_Click() Dim s% For j = 1 To M?? Next j Print Print " 第四行元素和为 :"; s ' 求每行元素的最大值 Private Sub Command6_Click() Dim max% Print For i = 1 To N ' 外循环表示行数 max = a(i,1) ' 每行开始 max 初值为第一个元素 For j = 2 To M ' 内循环表示每行有几个元素 If a(i,j)>max then?? Next j Print " 第 " + Str(i) + " 行元素最大值为 :"; max Next i (2) 设计显示单选钮控件数组标题的程序 项目分析 : 程序运行界面如图 7.2 所示 程序在运行时, 如果选中一个单选钮后, 单击显示命令按钮, 则根据单选钮选中的情况在窗体上显示 我的出生地是北京 我的出生地是上海 或 我的出生地是广州 设计界面 : 向窗体 Form1 中添加一个命令和三个单选钮组成的控件数组, 该数组的名称为 Op1, 三个单选钮的 Index 属性值分别为 0 1 2, 各控件的 Caption 属性设置如图 7.3 所示 图 7.2 程序运行界面 图 7.3 程序运行界面 编写代码如下 Private Sub Command1_Click() For i = 0 To 2 If Op1(i).Value = True Then Print " 我的出生地是 " +??

53 46 高级语言程序设计 Visual Basic 实训 End If Next (3) 计算由文本框组成的控件数组的和 项目分析 : 程序运行界面如图 7.3 所示 程序运行时, 五个文本框中自动产生随机数, 单击 计算 按钮, 则求五个文本框中数值的和, 显示在 Text2 中 设计界面 : 向窗体添加名称为 Text1 的控件数组, 包含五个文本框 ; 再添加 Text2 和 Command1 编写代码如下 Private Sub Form_Load() Randomize For i = 0 To 4 Text1(i) = Int(Rnd * 10) Next Private Sub Command1_Click() Sum = 0 For i = 0 To 4 Sum = Sum +?? Next?? = Sum 1. 实验目的 实验三综合设计 利用按钮 文本框 标签等常用控件编写应用程序 运用数组存储较多的数据 将求最值 求平均数等算法应用到实用程序中 2. 实验内容 ' 为控件数组赋初始值 ' 求控件数组元素的和 科学出版社职教技术出版中心 (1) 问题的提出 : 在比赛过程中, 由 10 名裁判进行打分, 选手的最终得分将由这 10 个分数中去掉一个最高分, 再去掉一个最低分后的平均分来决定 所以要设计一个裁判打分系统, 可以根据各个裁判的打分, 计算出选手最终的得分 程序运行界面如图 7.4 所示 (2) 功能要求 : 界面设计美观, 字体 颜色协调, 窗体不能改变大小 最后得分字体要足够大, 方便远处观看

54 第 1 篇实验篇 47 图 7.4 运行结果程序界面需要有 最后结果 清除 退出 等功能 程序运行时, 由用户在文本框中输入每个裁判的分数, 单击 最后结果 按钮时显示最高分 最低分及最后得分, 显示结果要求保留两位小数, 如计算结果为 6, 则显示 6.00 当文本框中有一个以上没输入数字, 单击按钮时会提示有裁判没有打分 清除 按钮可以将所有裁判分数 最高分 最低分及最后得分清除, 清除之前先弹出消息框提示, 确认后再清除 清除内容后把光标转移到第一个文本框中 退出 按钮可以退出程序 文本框限制最多输入五个字符 每一个裁判分数限制在 0~10 之间, 如果输入超出范围, 用消息框提示, 并将该文本框清空 提示 最高分 最低分及最后得分均使用标签, 先设置隐藏, 单击按钮时再显示 将各个文本框中的数字赋给一个数组, 或者将 10 个文本框定义为控件数组, 利用数组求和 求平均数等 在含有 10 个数值的数组中求最大值和最小值, 参考主教材例 7.1 保留小数位数, 参考主教材 Format() 函数 清除时出现提示, 询问是否要清除, 根据用户的不同选择执行任务, 需要使用 MsgBox() 函数

55 第 8 章过 程 实验一过程和自定义函数 1. 实验目的 掌握 Sub 过程的定义及调用方法 掌握 Function 函数的定义及调用方法 2. 实验内容 (1) 利用 Sub 过程求圆的面积 Private Sub circlearea(r!) Dim area As Single area = * r ^ 2 MsgBox " 圆的面积是 :" & area Dim x As Single x = Val(InputBox(" 请输入圆半径 :")) circlearea x (2) 利用 Sub 过程将任意字符串逆序输出 Private Sub reverse(ch As String) s = "" For k = Len(ch) To 1 Step -1 s = s & Mid(ch, k, 1) Next k ch = s ch$ = InputBox(" 请输入任意一个字符串 ") Print " 任意字符串 :"; ch reverse ch Print " 逆序字符串 :"; ch 科学出版社职教技术出版中心 (3) 向窗体上添加一个文本框, 编写自定义函数, 使其具有计算 1~100 范围内所

56 第 1 篇实验篇 49 有偶数平方和的功能, 单击窗体则在文本框内显示运算结果 Function Fun() Sum = 0 For i = 0 To 100 Step 2 Sum = Sum + i * i Next i Fun = Sum End Function Text1.text=Fun() 程序运行结果为 : (4) 利用函数过程求三个整数的最大值 Private Function max(x As Integer, y As Integer) As Integer If x >= y Then max = x Else max = y End If End Function Dim a As Integer, b As Integer, c As Integer, m As Integer a = Val(InputBox(" 输入整数 A", " 求最大值 ")) b = Val(InputBox(" 输入整数 B", " 求最大值 ")) c = Val(InputBox(" 输入整数 C", " 求最大值 ")) Print a; b; c m = max(max(a, b), c) Print " MAX = "; m 程序运行结果如图 8.1 所示 图 8.1 运行结果 (5) 利用自定义函数 fac() 求 1!+2!+ +n! Private Function fac(n As Integer) As Integer Dim i As Integer, f As Integer f = 1 For i = 2 To n f = f * i

57 50 高级语言程序设计 Visual Basic 实训 Next i fac = f End Function Dim n As Integer, s As Integer, j As Integer n = InputBox(" 请输入 n 的值 :") For j = 1 To n s = s + fac(j) Next j Print " 运算结果 :", s (6) 设计一个程序, 运行结果如图 8.2 所示 选定一个单选钮 ( 控件数组 ), 单击 计算 命令按钮后, 可以计算出相应的阶乘值, 并在文本框中显示该阶乘值 1 设计界面 : 向窗体 Form1 中添加一个命令按钮 Command1, 一个文本框 Text1 和三个单选钮组成的控件数组 该数组的名称为 Op1, 三个单选钮的 Index 属性值分别为 0 1 2, 文本框 Text 属性为空, 各控件的 Caption 属性设置如图 8.2 所示 2 编写代码 Function fac(n As Integer) Dim k As Integer, t As Long t = 1 For k = 2 To n t = t * k Next k fac = t End Function Private Sub Command1_Click() If Op1(0).Value = True Then Text1.Text = fac(10) ElseIf Op1(1).Value = True Then Text1.Text = fac(11) ElseIf Op1(2).Value = True Then Text1.Text = fac(12) End If (7) 运行下面的程序, 观察运行结果, 并总结按地址传递参数和按值传递参数的区别及用处 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 5 b = 10 c = 20 Print " 过程调用前 a="; a; " b = "; b; " c = "; c Call test(3, b, c) 科学出版社职教技术出版中心

58 第 1 篇实验篇 51 Print " 过程调用后 a ="; a; " b ="; b; " c = "; c Private Sub test(byval x As Integer, ByRef y As Integer, z As Integer) Print " 传递的参数值 x ="; x; " y ="; y; " z = "; z y = 6 z = x * y Print " 过程执行时 x ="; x; " y ="; y; " z = "; z (8) 设计程序调用 FindMin 求数组的最小值 程序运行后在四个文本框中输入数值, 单击按钮即可求出最小值 窗体文件及部分代码已给出, 但程序不完整, 请将程序代码中的?? 改成正确的内容 程序界面如图 8.3 所示 图 8.2 程序运行界面 图 8.3 运行结果 程序代码如下 Option Base 1 Private Function FindMin(a() As Integer) Dim Start As Integer Dim Finish As Integer, i As Integer Start =?? (a) Finish =?? (a) Min =?? (Start) For i = Start To Finish If a(i)?? Min Then Min =?? Next i FindMin = Min End Function Private Sub Command1_Click() Dim arr1 Dim arr2(4) As Integer arr1=array(val(text1.text),val(text2.text),val(text3.text),val(text4.text)) For i = 1 To 4 arr2(i) = CInt(arr1(i)) Next i M = FindMin(??) Print " 最小值是 : "; M

59 52 高级语言程序设计 Visual Basic 实训 (9) 设计程序, 能完成如下计算 Z=(x-2)!+ (x-3)!+ (x-4)!+ +(x-n)! 程序界面如图 8.4 所示, 程序运行时, 输入 N 的值为 5,X 的值为 12, 计算 Z 的值 的语句 图 8.4 运行结果 窗体文件及部分代码已给出, 但程序不完整, 请将程序代码中的?? 修改为正确 程序代码如下 Private Function xn(m As Integer) As Long Dim i As Integer Dim tmp As Long tmp =?? For i = 1 To m tmp =?? Next?? = tmp End Function Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Integer Dim z As Long, x As Single n = Val(Text1.Text) x = Val(Text2.Text) z = 0 For i = 2 To n t = x - i z = z +?? Next Label1.Caption = z 科学出版社职教技术出版中心 实验二多窗体及变量作用范围 1. 实验目的 掌握多窗体的编程方法 掌握变量的作用范围

60 第 1 篇实验篇 实验内容 (1) 制作一个学习系统的注册及登录界面 项目说明 : 这是一个学习系统的注册及登录界面, 利用已经学习的内容完成登录界面的部分设计 该工程包含三个窗体, 分别为 欢迎 注册 和 登录 窗体 三个窗体界面如图 8.5~ 图 8.7 所示 图 8.5 Form1 界面 图 8.6 Form2 界面 图 8.7 Form3 界面项目分析 : 这是一个需要添加多个窗体的程序 首先向工程添加三个窗体, 然后分别在每个窗体上添加控件, 并设置控件属性 项目设计 : 1 新建工程, 系统自动创建 Form1, 再向工程添加两个窗体 :Form2 和 Form3 提示 选择 工程 添加窗体 命令, 在弹出的对话框中选择 窗体, 然后单击 打开 按钮, 此时 工程管理器 窗口添加了一个新窗体 Form2 2 创建界面 在窗体 Form1 中, 添加一个标签 三个命令按钮 在窗体 Form2 中, 添加三个标签 三个文本框和三个命令按钮 在窗体 Form3 中, 添加两个标签 两个文本框和两个命令按钮 3 设置属性 所有窗体 标签和命令按钮的 Caption 属性如图 8.5~ 图 8.7 所示 文本框的 Text 属性全部为空

61 54 高级语言程序设计 Visual Basic 实训 其他属性设置如表 8.1 所示 表 8.1 属性设置 所属窗体对象属性属性值说明 Form1 Label1 BorderStyle 1 Fixed 标签有边框 Form2 Form3 Text2 PasswordChar * 以 * 显示密码 Text3 Text2 MultiLine ScrollBars PasswordChar * True 2 Vertical MaxLength 8 文本框设置滚动条必须与 MultiLine 属性配合使用 最多允许输入八个字符 4 编写代码 请将程序中带?? 的部分替换为正确的语句命令, 使程序完整 Form1 中的事件代码如下 Private Sub Command1_Click() Form3.?? ' 显示 Form3?? Form1 ' 卸载 Form1 Private Sub Command2_Click() Form2.?? ' 显示 Form2?? Form1 ' 卸载 Form1 Private Sub Command3_Click() End Form2 中的事件代码如下 Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.?? ' 将焦点设置到 Text1 中 Private Sub Command3_Click() End Form3 中的事件代码如下 Private Sub Command2_Click() End 科学出版社职教技术出版中心 其中,Form2 及 Form3 的 确认 按钮未编写程序代码 5 保存工程 将三个窗体文件和一个工程文件保存在同一路径下 提示 单击工具栏中 保存 按钮, 系统会首先弹出 Form3 保存对话框, 修改

62 第 1 篇实验篇 55 保存路径以后, 单击对话框中 保存 按钮, 然后会依次自动弹出 Form2 Form1 和工程 1 保存对话框 注意 打开多窗体程序时, 一定要从工程文件打开, 否则其他窗体无法加载到工程中 (2) 按图 8.8 所示的方法练习常量的声明并测试其作用域 图 8.8 常量的声明 提示 1 新建一个工程, 在 Form1 窗体中加入两个命令按钮 Command1 和 Command2 2 按图 8.8 中代码窗口所示, 输入相应代码 注意常量的声明位置, 常量 a 在模块的声明段中声明, 常量 b 在 Command2_Click() 事件过程中声明 3 运行程序 先后单击窗体上的命令按钮 Command1 和 Command2, 可以看到四行输出, 观察输出内容 其中第二行没有内容, 是因为常量 b 仅在 Command2_Click() 事件过程中有效 (3) 按图 8.9 所示的方法练习变量的声明, 并测试 Dim 和 Static 的区别 提示 1 新建一个工程, 在 Form1 窗体中加入命令按钮 Command1 2 按图 8.9 中代码窗口所示, 输入相应代码 3 运行程序 多次单击窗体上的命令按钮 Command1, 观察输出内容的变化, 并总结两种不同定义方式的区别 图 8.9 Dim 和 Static 的区别