Transcription

1 普通高等教育 十二五 规划教材中国科学院教材建设专家委员会 十二五 规划教材 Visual Basic 程序设计实践教程 刘必雄 编著 北 京 科学出版社职教技术出版中心

2

3 内容简介 本书是 Visual Basic 程序设计 ( 刘必雄编著, 科学出版社出版 ) 的配套教学用书, 是作者多年教学实践经验的总结 全书分为 3 篇 : 第一篇为上机实验, 根据教学要求安排了 10 个实验, 每个实验由 实验目的 实验示例 和 实验内容 3 个部分组成, 每道实验题都提供了 评分程序 和 测试数据 ; 第二篇为学习指导, 按 Visual Basic 程序设计 章节的顺序给出各章的 知识要点 典型例题精解 和 习题与解答, 以巩固所学知识点, 提高综合应用能力, 有利于读者参加非计算机专业计算机等级考试 ; 第三篇为模拟试卷, 给出了两套模拟试题及其参考答案, 供学生自测使用 本书结构清晰 实验安排恰当 习题解析详细, 可作为高等院校各专业 Visual Basic 程序设计 课程的实验与学习指导教材, 也可作为计算机等级考试的辅导用书, 还可作为程序设计爱好者的自学参考用书 图书在版编目 (CIP) 数据 Visual Basic 程序设计实践教程 / 刘必雄编著. 北京 : 科学出版社, ( 普通高等教育 十二五 规划教材 中国科学院教材建设专家委员会 十二五 规划教材 ) ISBN I. 1V Ⅱ. 1 刘 III. 1BASIC 语言 - 程序设计 - 高等学校 - 教材 IV. 1TP312 中国版本图书馆 CIP 数据核字 (2012) 第 号责任编辑 : 戴薇郭丽娜 / 责任校对 : 刘玉靖责任印制 : 吕春珉 / 封面设计 : 东方人华平面设计部 出版 北京东黄城根北街 16 号邮政编码 : 印刷 科学出版社发行各地新华书店经销 * 2012 年 11 月第一版开本 : / 年 11 月第一次印刷印张 :15 1/2 字数 : 定价 :27.00 元 ( 如有印装质量问题, 我社负责调换 < >) 销售部电话 编辑部电话 版权所有, 侵权必究举报电话 : ; ; 科学出版社职教技术出版中心

4

5 Visual Basic 程序设计 是一门实践性很强的课程, 学生不仅需要掌握程序设计的理论知识, 还必须经过大量的实践训练, 以培养其程序设计的思维能力和运用编程解决相关专业领域问题的能力 本书是 Visual Basic 程序设计 ( 刘必雄编著, 科学出版社出版, 以下简称主教材 ) 配套的实验和学习指导教材, 以 提高学生的实践能力, 培养学生的编程能力 为宗旨, 结合作者的多年教学实践经验编写而成 为了更好地帮助学生系统地学习 理解和掌握 Visual Basic 程序设计的基本知识, 增强操作应用技能, 提高程序设计能力, 本书根据主教材中的相关内容和最新的计算机等级考试大纲的要求, 设置了 上机实验 学习指导 和 模拟试卷 3 篇内容 第一篇为上机实验 该篇根据教学要求安排了丰富 实用的 10 个实验, 每个实验由 实验目的 实验示例 和 实验内容 3 个部分组成 实验示例 中每道实验例题都给出了详细的实验步骤 实验调试和结果分析 ; 实验内容 中每道实验题都提供了 评分程序 和 测试数据, 上机完成程序的编写和调试后, 可以通过 实验评测系统 进行评测, 并在每次实验课中对学生的程序代码进行现场收集和自动评分, 不仅将教师从低层次的批改实验报告的繁杂工作中解脱出来, 而且还大大提高了学生的学习主动性和积极性 第二篇为学习指导 该篇按主教材章节的顺序给出各章的 知识要点 典型例题精解 和 习题与解答 知识要点 归纳总结主教材各章节中应掌握的知识点 ; 典型例题精解 结合知识要点给出典型例题的详细解析 ; 习题与解答 则是针对各章的内容按照计算机等级考试的要求, 设置了选择 填空 编程等类型的练习题, 以进一步强化和巩固各章的知识 各章习题答案中涉及的程序都已在 Visual Basic 6.0 环境下调试通过 第三篇为模拟试卷 为了帮助学生加深对考试题型 考试内容和考试知识点的熟悉 理解和掌握, 以便学生能在考试中取得较好的成绩, 本书在对当前全国和福建省计算机等级考试 ( 二级 Visual Basic 语言 ) 中经常出现的知识点进行逐一分析的基础上, 设计了两 套模拟试卷 每套模拟试卷包含 3 种题型, 即选择题 设计题和编程题, 通过完成模拟试 题可以检测对 Visual Basic 程序设计 的掌握程度 本书还提供配套的程序源代码 实验评测系统 评分程序和测试数据等相关的教学资源 使用本书的学校可通过作者邮箱 bxliu@163.com 与作者联系获取 在组织和编写本书的过程中, 得到同行以及科学出版社相关同志的热情鼓励和大力支 持, 在此谨向他们以及关心和支持本书编写工作的各方面人士表示衷心的感谢! 此外, 本 书参考了大量文献资料, 在此向有关作者深表感谢 由于作者水平有限, 书中难免有错误和不妥之处, 恳请广大读者批评指正, 以便在今 后再版时进一步完善 科学出版社职教技术出版中心 刘必雄 2012 年 6 月

6 Visual Basic 程序设计 是一门实践性很强的课程, 学生不仅需要掌握程序设计的理论知识, 还必须经过大量的实践训练, 以培养其程序设计的思维能力和运用编程解决相关专业领域问题的能力 本书是 Visual Basic 程序设计 ( 刘必雄编著, 科学出版社出版, 以下简称主教材 ) 配套的实验和学习指导教材, 以 提高学生的实践能力, 培养学生的编程能力 为宗旨, 结合作者的多年教学实践经验编写而成 为了更好地帮助学生系统地学习 理解和掌握 Visual Basic 程序设计的基本知识, 增强操作应用技能, 提高程序设计能力, 本书根据主教材中的相关内容和最新的计算机等级考试大纲的要求, 设置了 上机实验 学习指导 和 模拟试卷 3 篇内容 第一篇为上机实验 该篇根据教学要求安排了丰富 实用的 10 个实验, 每个实验由 实验目的 实验示例 和 实验内容 3 个部分组成 实验示例 中每道实验例题都给出了详细的实验步骤 实验调试和结果分析 ; 实验内容 中每道实验题都提供了 评分程序 和 测试数据, 上机完成程序的编写和调试后, 可以通过 实验评测系统 进行评测, 并在每次实验课中对学生的程序代码进行现场收集和自动评分, 不仅将教师从低层次的批改实验报告的繁杂工作中解脱出来, 而且还大大提高了学生的学习主动性和积极性 第二篇为学习指导 该篇按主教材章节的顺序给出各章的 知识要点 典型例题精解 和 习题与解答 知识要点 归纳总结主教材各章节中应掌握的知识点 ; 典型例题精解 结合知识要点给出典型例题的详细解析 ; 习题与解答 则是针对各章的内容按照计算机等级考试的要求, 设置了选择 填空 编程等类型的练习题, 以进一步强化和巩固各章的知识 各章习题答案中涉及的程序都已在 Visual Basic 6.0 环境下调试通过 第三篇为模拟试卷 为了帮助学生加深对考试题型 考试内容和考试知识点的熟悉 理解和掌握, 以便学生能在考试中取得较好的成绩, 本书在对当前全国和福建省计算机等级考试 ( 二级 Visual Basic 语言 ) 中经常出现的知识点进行逐一分析的基础上, 设计了两套模拟试卷 每套模拟试卷包含 3 种题型, 即选择题 设计题和编程题, 通过完成模拟试题可以检测对 Visual Basic 程序设计 的掌握程度 本书还提供配套的程序源代码 实验评测系统 评分程序和测试数据等相关的教学资源 使用本书的学校可通过作者邮箱 bxliu@163.com 与作者联系获取 在组织和编写本书的过程中, 得到同行以及科学出版社相关同志的热情鼓励和大力支持, 在此谨向他们以及关心和支持本书编写工作的各方面人士表示衷心的感谢! 此外, 本书参考了大量文献资料, 在此向有关作者深表感谢 由于作者水平有限, 书中难免有错误和不妥之处, 恳请广大读者批评指正, 以便在今后再版时进一步完善 刘必雄 2012 年 6 月

7 目 录 第一篇上机实验 实验一 Visual Basic 程序设计基础... 3 实验二 顺序结构程序设计... 9 实验三 选择结构程序设计 实验四 循环结构程序设计 实验五 数组 实验六 常用控件的应用 实验七 过程 实验八 图形操作 实验九 文件 实验十 界面设计 第二篇学习指导 第 1 章 Visual Basic 程序设计概述 知识要点 典型例题精解 习题与解答 第 2 章 Visual Basic 程序设计基础 知识要点 典型例题精解 习题与解答 第 3 章顺序结构程序设计 知识要点 典型例题精解 习题与解答 第 4 章选择结构程序设计 知识要点 科学出版社职教技术出版中心 典型例题精解 习题与解答 第 5 章循环结构程序设计 知识要点 典型例题精解

8 iv Visual Basic 程序设计实践教程 5.3 习题与解答 第 6 章数组 知识要点 典型例题精解 习题与解答 第 7 章过程 知识要点 典型例题精解 习题与解答 第 8 章图形操作 知识要点 典型例题精解 习题与解答 第 9 章文件 知识要点 典型例题精解 习题与解答 第 10 章界面设计 知识要点 典型例题精解 习题与解答 第三篇模拟试卷 模拟试卷 模拟试卷 模拟试卷参考答案 模拟试卷 1 参考答案 模拟试卷 2 参考答案 参考文献

9 第一篇 上机实验 科学出版社职教技术出版中心

10

11 1. 了解 Visual Basic 的集成开发环境 (IDE), 熟悉主要窗口的作用 2. 掌握简单的 Visual Basic 应用程序的建立 编辑 调试 运行和保存 3. 掌握 Visual Basic 窗体的常用属性 方法和事件 4. 掌握 Visual Basic 的基本数据类型和运算符 5. 掌握 Visual Basic 的常量 变量的定义和使用 6. 掌握表达式和常用内部函数的使用 1. 启动 Visual Basic 6.0, 熟悉其集成开发环境 操作步骤 (1) 启动 Visual Basic. 6.0 后, 在 新建工程 对话框中选中 标准 EXE 图标, 单击 打开 按钮, 就可以打开 Visual Basic 集成开发环境 (IDE) (2) 观察其标题栏 菜单栏 工具栏与其他 Microsoft 应用程序的不同之处 (3) 将鼠标指针指向工具箱上的各个标准控件, 了解它们各自的默认名称 (4) 分别单击 工程 属性 窗体布局 窗口及 工具箱 窗口右上角的 关闭 按钮, 将其全部关闭 (5) 分别选择 视图 菜单中的 工程资源管理器 属性窗口 窗体布局窗口 及 工具箱 命令, 打开相应的窗口 2. 在标题为 复制操作 的窗体 Form1 上, 添加一个文本内容为空的文本框 Text1; 然后再添加一个标题为 复制 的命令按钮 Command1; 最后添加一个标题为 粘贴处 的标签 Label1 程序运行时, 在 Text1 中输入若干个字符, 然后单击 复制 按钮, 在 Label1 中显示 Text1 中的内容 要求以 Copy.frm 为窗体文件名 Copy.vbp 为工程文件名保存在文件夹 D:\01\ 中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个文本框 一个命令按钮和一个标签, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-1-1(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明 窗体 Form1 Caption 复制操作窗体的标题 文本框 Text1 Text ( 空白 ) 文本框内没有文字 科学出版社职教技术出版中心

12 4 4 Visual Basic 程序设计实践教程 续表 对 象 对象名称 属 性 属性值 说 明 命令按钮 Command1 Caption 复制 命令按钮的标题 标签 Label1 Caption 粘贴处 标签内文字内容 (a) 控件布局 (b) 属性设置 (3) 编写程序代码 图 复制操作的设计界面 在 复制 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Label1.Caption = Text1.Text End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏中的 保存工程 按钮, 将窗体以 Copy.frm 为文件名, 将工程以 Copy.vbp 为文件名保存在文件夹 D:\01\ 中 实验调试与结果分析 (1) 实验调试 在编写 复制 按钮的 Click 事件过程中, 将 Label1 写成 Labell, 即最后一个字符 数字 1 写成了 字母 l, 程序运行时出现如图 所示的实时错误 将 字母 l 改为 数字 1, 程序运行正确 在代码编写中, 小写字母 o 与数字 0 形状相似, 小写字母 l 和数字 1 形状相似, 在编写代码过程中要注意区分 图 复制操作的调试界面 (2) 结果分析 运行时, 在文本框 Text1 中输入 程序设计基础教程, 如图 1-1-3(a) 所示, 然后单击 复制 按钮, 则标签 Label1 中显示的内容为 程序设计基础教程, 如图 1-1-3(b) 所示

13 5 第一篇上机实验 5 (a) 输入 (b) 复制 图 复制操作的运行界面 3. 在标题为 提问回答 的窗体 Form1 上, 添加一个文本内容为空的文本框 Text1; 然后再添加两个标题分别为 提问 和 回答 的命令按钮 Command1 和 Command2 程 序运行时, 单击 提问 按钮, 在 Text1 中显示 您的家乡在哪里?, 同时窗体的标题内 容随之改为 提问 ; 单击 回答 按钮, 在 Text1 中显示 我的家乡在福建!, 同时窗体 的标题内容随之改为 回答 要求以 Question.frm 为窗体文件名 Question.vbp 为 工程文件名保存在文件夹 D:\01\ 中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个文本框和两个命令按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-1-4(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明 窗体 Form1 Caption 提问回答窗体的标题 文本框 Text1 Text ( 空白 ) 文本框内没有文字 命令按钮 Command1 Caption 提问命令按钮的标题 命令按钮 Command2 Caption 回答命令按钮的标题 (a) 控件布局 图 提问回答的设计界面 (3) 编写程序代码 1 在 提问 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Text1.Text = " 您的家乡在哪里?" Form1.Caption = " 提问 " End Sub (b) 属性设置 科学出版社职教技术出版中心

14 6 6 Visual Basic 程序设计实践教程 2 在 回答 按钮的 Click 事件过程中编写代码 Private Sub Command2_Click() Text1.Text = " 我的家乡在福建!" Form1.Caption = " 回答 " End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏中的 保存工程 按钮, 将窗体以 Question.frm 为文件名, 将工程以 Question.vbp 为文件名保存在文件夹 D:\01\ 中 实验调试与结果分析 (1) 实验调试 在编写 提问 按钮的 Click 事件过程中, 字符串 您的家乡在哪里? 和 提问 的双引号使用的是中文双引号, 结果产生 无效字符 的编译错误, 系统以红色字显示错误的命令行, 如图 所示 由于 Visual Basic 只允许使用西文标点符号 ( 字符串表达式中的中文标点符号除外 ), 因此将这两个字符串改为 " 您的家乡在哪里?" 和 " 提问 " 后, 消除编译错误 在编写 Visual Basic 代码时, 要特别注意中英文切换以及全角和半角的切换 图 提问回答的调试界面 (2) 结果分析 运行时, 单击 提问 按钮, 文本框 Text1 显示 您的家乡在哪里?, 窗体标题显示 提问, 如图 1-1-6(a) 所示 ; 单击 回答 按钮, 文本框 Text1 显示 我的家乡在福建!, 窗体标题显示 回答, 如图 1-1-6(b) 所示 (a) 提问 (b) 回答 图 提问回答的运行界面 1. 打开工程文件 Dsg0101.vbp, 创建一个标题为 输出文本 的窗体 Form1, 其宽度为 3000 高度为 1500; 设置相应属性使窗体的标题栏中无 最小化 按钮和 最大化 按钮, 窗体上输出的文字为宋体 粗体 四号 程序运行时, 单击窗体, 在窗体上显示 程序设计基础教程, 如图 1-1-7(a) 所示 ; 双击窗体, 清除窗体上的文本, 如图 1-1-7(b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0101.frm) 和工程 (Dsg0101.vbp)

15 7 第一篇上机实验 7 (a) 单击窗体 (b) 双击窗体 图 输出文本的运行界面 2. 打开工程文件 Dsg0102.vbp, 在标题为 乘法运算 的窗体 Form1 上, 添加两个标 题分别为 被乘数 和 乘数 的标签 Label1 和 Label2; 然后再添加 3 个文本内容为空的 文本框 Text1 Text2 和 Text3; 最后添加一个标题为 乘积 的命令按钮 Command1 程序 运行时, 在 Text1 和 Text2 中输入两个整数, 单击 乘积 按钮, 计算这两个整数的积, 并在 Text3 中显示, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0102.frm) 和工程 (Dsg0102.vbp) 3. 打开工程文件 Dsg0103.vbp, 在标题为 数值运算 的窗体 Form1 上, 添加一个标 题为 请输入整数 n 的标签 Label1; 然后再添加两个文本内容为空的文本框 Text1 和 Text2; 最后添加一个标题为 立方根 的命令按钮 Command1 程序运行时, 在 Text1 中输入一个正整数 n, 单击 立方根 按钮, 在 Text2 中显示 n 的立方根, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0103.frm) 和工程 (Dsg0103.vbp) 图 乘法运算的运行界面 图 数值运算的运行界面 提 示 整数 n 的立方根可以使用乘方 (^) 运算符来实现, 可用表达式 n^(1/3) 来实现 4. 打开工程文件 Dsg0104.vbp, 在标题为 显示文本 的窗体 Form1 上, 添加一个文 本内容为空的文本框 Text1; 然后再添加两个标题分别为 显示 和 清空 的命令按钮 Command1 和 Command2 程序运行时, 单击 显示 按钮, 在 Text1 中显示 Visual Basic 程序设计, 如图 (a) 所示 ; 单击 清空 按钮, 则 Text1 中内容为空, 如图 (b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0104.frm) 和工程 (Dsg0104.vbp) (a) 显示 图 文本显示的运行界面 科学出版社职教技术出版中心 (b) 清空

16 8 8 Visual Basic 程序设计实践教程 5. 打开工程文件 Dsg0105.vbp, 在标题为 字符串运算 的窗体 Form1 上, 添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3; 然后再添加两个标题分别为 左子串 和 长度 的命令按钮 Command1 和 Command2 程序运行时, 在 Text1 中输入字符个数不少于 5 的字符串, 单击 左子串 按钮, 从输入的字符串中取左边 5 个字符显示在 Text2 中, 如图 (a) 所示 ; 单击 长度 按钮, 在 Text3 中显示输入的字符串的长度, 如图 (b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0105.frm) 和工程 (Dsg0105.vbp) (a) 左子串 (b) 长度 图 字符串运算的运行界面 提 示 使用 Left() 函数获取字符串左边 n 个字符 ; 使用 Len() 函数求字符串的长度

17 1. 掌握顺序结构程序设计方法 2. 掌握赋值语句的使用方法 3. 掌握 Visual Basic 中数据的输入 / 输出方法 4. 掌握命令按钮 标签和文本框的常用属性 方法和事件 1. 在标题为 打印图形 的窗体 Form1 上, 添加一个标题为 打印 的命令按钮 Command1 程序运行时, 单击 打印 按钮, 在窗体上输出如下图形 要求以 Pstar.frm 为窗体文件名 Pstar.vbp 为工程文件名保存在文件夹 D:\01\ 中 操作步骤 (1) 创建用户界面 新建一个 标准.EXE 类型的工程, 在窗体 Form1 上添加一个命令按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-2-1(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明窗体 Form1 Caption 打印图形窗体的标题命令按钮 Command1 Caption 打印命令按钮的标题科学出版社 (a) 控件布局 (b) 属性设置图 打印图形的设计界面 职教技术出版中心

18 10 10 Visual Basic 程序设计实践教程 (3) 编写程序代码 在 打印 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Form1.Cls Form1.Print Tab(16); " " Form1.Print Tab(16); " "; Spc(0); " " Form1.Print Tab(16); " "; Spc(2); " " Form1.Print Tab(16); " "; Spc(4); " " Form1.Print Tab(16); " "; Spc(6); " " Form1.Print Tab(16); " "; Spc(8); " " Form1.Print Tab(16); " " End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Pstar.frm 为文件名, 将工程以 Pstar.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在编写 打印 按钮的 Click 事件过程中, 如果在 Print 方法输出的表达式之间用逗号 (,) 分隔, 则运行结果如图 所示, 不符合题目要求 用 Print 方法输出多个表达式时, 各个表达式之间使用逗号 (,) 或分号 (;) 分隔是有区别的, 使用 逗号 分隔表达式, 则按分区格式显示数据项, 即以 14 个字符为单位把一个数据行分成若干区段, 每个区段输出一个表达式 ; 使用 分号 分隔表达式, 则按紧凑格式输出数据, 后一项紧跟前一项输出 因此, 将表达式中的 逗号 全部改为 分号, 运行结果符合题目要求 此外, 是中文全角符号, 占两个西文符号位置 图 所示的代码中, 没有考虑到中文符号和西文符号所占的位置不同的问题, 因此不符合题目要求 将 之间的空格数改为 , 运行结果符号题目要求 (2) 结果分析 运行时, 单击 打印 按钮, 在窗体上输出如图 所示的图形 图 打印图形的调试界面 图 打印图形的运行界面 2. 在标题为 周长与面积 的窗体 Form1 上, 添加两个标题分别为 输入半径 和 输出结果 的命令按钮 Command1 和 Command2 程序运行时, 单击 输入半径 按钮, 通过 InputBox 对话框输入圆半径 ; 单击 输出结果 按钮, 计算圆的周长和面积, 并通过 MsgBox 对话框输出计算结果 ( 计算结果保留两位小数 ) 要求以 Cza.frm 为窗体文件名 Cza.vbp 为工程文件名保存在文件夹 D:\01\ 中 操作步骤 (1) 创建用户界面 新建一个 标准.EXE 类型的工程, 在窗体 Form1 上添加两个命令按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-2-4(a) 所示

19 (2) 设置对象属性 11 第一篇上机实验 11 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明 窗体 Form1 Caption 周长与面积窗体的标题 命令按钮 Command1 Caption 输入半径命令按钮的标题 命令按钮 Command2 Caption 输出结果命令按钮的标题 (a) 控件布局 (b) 属性设置 (3) 编写程序代码 图 周长与面积的设计界面 1 在窗体模块的通用声明段声明模块级变量 r, 用于存储输入的半径 Dim r As Single 2 在 输入半径 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() r = Val(InputBox(" 请输入圆的半径!", " 圆半径 ")) End Sub 3 在 输出结果 按钮的 Click 事件过程中编写代码 Private Sub Command2_Click() Const PI As Single = Dim l As Single, s As Single l = 2 * PI * r s = PI * r * r MsgBox " 圆的周长为 :" & Format(l, "0.00") & vbcrlf & " 圆的面积为 :" & Format(s, "0.00"), 64, " 计算结果 " End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Cza.frm 为文件名, 将工程以 Cza.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在编写代码时, 如果在事件过程 Command1_Click() 中声明用来存放 半径 的变量 r, 则程序运行后, 不管输入的半径为何值, 输出结果均为 0, 如图 所示 职教技术出版中心 图 周长与面积的调试界面科学出版社

20 12 12 Visual Basic 程序设计实践教程 由于变量有作用域, 在某个事件过程中声明的变量, 只能在该事件过程中发生作用 变量 r 必须声明为模块级变量, 这样其才能在 Command1_Click() 和 Command2_Click() 过程中均有效 (2) 结果分析 运行时, 单击 输入半径 按钮, 打开 圆半径 对话框, 在文本框中输入 3.5, 然后单击 确定 按钮, 如图 1-2-6(a) 所示 ; 然后单击 输出结果 按钮, 显示如图 (b) 所示的 计算结果 对话框, 输出计算结果 (a) 输入半径 (b) 输出结果 图 周长与面积的运行界面 1. 打开工程文件 Dsg0201.vbp, 在标题为 圆球体积 的窗体 Form1 上, 添加一个 圆 球半径 的标签 Label1; 然后再添加一个标题为 体积 的命令按钮 Command1; 接着再添加一个文本内容为空的文本框 Text1; 最后添加一个标题为空 有边框的标签 Label2 程序运 行时, 在 Text1 中输入圆球半径, 单击 体积 按钮, 计算该圆球的体积, 并将计算结果 ( 保留 3 位小数 ) 显示在 Label2 中, 运行界面如图 所示 完成上述功能后, 以原文件名保存 窗体 (Dsg0201.frm) 和工程 (Dsg0201.vbp) 提示 求圆球体积的公式为 v= π r 3 图 圆球体积的运行界面 2 可以通过 Format() 函数实现将数值型数据转换为字符串, 并控制小数位数 2. 打开工程文件 Dsg0202.vbp, 在标题为 平均成绩 的窗体 Form1 上, 添加 3 个标题分别为 语文成绩 数学成绩 和 英语成绩 的标签 Label1 Label2 和 Label3; 然后再添加一个标题为 平均分 的命令按钮 Command1; 最后添加 4 个文本内容为空的文本框 Text1 Text2 Text3 和 Text4, 其中 Text4 的文本不可编辑 程序运行时, 在 Text1 Text2 和 Text3 中分别输入 3 门课的成绩, 单击 平均分 按钮, 计算它们的平均成绩, 并在 Text4 中输出计算结果 ( 保留两位小数 ), 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0202.frm) 和工程 (Dsg0202.vbp) 3. 打开工程文件 Dsg0203.vbp, 在标题为 文本编辑 图 平均成绩的运行界面的窗体 Form1 上, 添加一个文本内容为 Visual Basic 程序设计基础 文本框 Text1, 其带有垂

21 13 第一篇上机实验 13 直滚动条, 且文本处于不可编辑状态 ; 然后再添加两个标题分别为 编辑 和 保存 的命 令按钮 Command1 和 Command2, 其中 编辑 按钮的初始状态可用, 而 保存 按钮的初始状态不可用 程序运行时, 按 Alt+E 组合键或单击 编辑 按钮, 则 Text1 中的文本 可编辑, 如图 1-2-9(a) 所示 ; 如果修改 Text1 中的文本内容, 则 保存 按钮变为可用, 如图 1-2-9(b) 所示 ; 按 Alt+S 组合键或单击 保存 按钮, 则 Text1 中文本不可编辑, 且 保存 按钮变成不可用, 如图 1-2-9(c) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0203.frm) 和工程 (Dsg0203.vbp) (a) 编辑 (b) 修改文本内容 (c) 保存 图 文本编辑的运行界面 提 示 1 设置文本框的 Locked 属性, 可以控制在程序运行时能否对文本框中的文本进行编辑 2 设置命令按钮的 Enabled 属性, 可以控制在程序运行时命令按钮是否可用 4. 打开工程文件 Dsg0204.vbp, 在标题为 登录界面 的窗体 Form1 上, 添加一个文本内容为空文本框 Text1, 其文字为粗体 四号 居中 ; 然后再添加两个标题分别为 登录 和 退出 的命令按钮 Command1 和 Command2 程序运行时, 焦点在 Text1 中, 单击 登录 按钮或按 Enter 键, 则 Text1 显示 欢迎光临, 如图 (a) 所示 ; 单击 退出 按钮或按 Esc 键, 则 Text1 显示 谢谢再见, 如图 (b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0204.frm) 和工程 (Dsg0204.vbp) 提 示 (a) 登录 (b) 退出 图 登录界面的运行界面 科学出版社职教技术出版中心 1 设置文本框的 TabIndex 属性为 0, 可使运行时焦点在该文本框中 2 设置命令按钮的 Default 属性为 True, 用户按 Enter 键会触发该命令按钮的 Click 事件 3 设置命令按钮的 Cancel 属性为 True, 用户按 Esc 键会触发该命令按钮的 Click 事件

22 14 14 Visual Basic 程序设计实践教程 5. 打开工程文件 Dsg0205.vbp, 在标题为 文本复制 的窗体 Form1 上, 添加一个文本内容为空 带有垂直滚动条的文本框 Text1; 然后再添加两个标题分别为 选择 和 复制 的命令按钮 Command1 和 Command2; 最后添加一个标题为空 有边框的标签 Label1 程序运行时, 在 Text1 中输入不少于 20 个字符的文本, 接着单击 选择 按钮, 在 Text1 中自动从第 8 个字符开始选定 9 个字符, 并在 Text1 中标识选中的内容, 如图 (a) 所示 ; 然后单击 复制 按钮, 将选定的字符串显示在 Label1 中, 如图 (b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0205.frm) 和工程 (Dsg0205.vbp) (a) 选择 (b) 复制 图 文本复制的运行界面 提 示 1 通过设置文本框的 SelStart 和 SelLength 属性可以实现自动选择字符的功能 2 通过引用文本框的 SelText 属性可以获取选定的文本内容

23 1. 掌握选择结构程序设计方法 2. 掌握逻辑表达式的正确书写形式 3. 掌握 If 语句和 Select Case 语句的使用方法 4. 理解选择结构的嵌套 5. 掌握单选按钮 复选框和框架的常用属性 方法和事件 1. 在标题为 闰年判断 的窗体 Form1 上, 添加一个标题为 请输入年份 的标签 Label1; 然后再添加一个标题为 判断 的命令按钮 Command1; 最后添加两个文本内容 为空的文本框 Text1 和 Text2 程序运行时, 在 Text1 中输入一个年份, 然后单击 判断 按钮, 判断该年份是否为闰年, 并在 Label2 中显示判断结果 要求以 Leap.frm 为窗体文件名 Leap.vbp 为工程文件名保存在文件夹 D:\01\ 中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个标签 一个命令按钮和两个文本框, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-3-1(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明窗体 Form1 Caption 闰年判断窗体的标题标签 Label1 Caption 请输入年份标签内文字内容命令按钮 Command1 Caption 判断命令按钮的标题文本框 Text1 Text ( 空白 ) 文本框内没有文字文本框 Text2 Text ( 空白 ) 文本框内没有文字科学出版社 (a) 控件布局 (b) 属性设置图 闰年判断的设计界面 职教技术出版中心

24 16 16 Visual Basic 程序设计实践教程 (3) 编写程序代码 在 判断 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim y As Integer, r As String y = Val(Text1.Text) If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Text2.Text = y & " 是闰年 " Else Text2.Text = y & " 不是闰年 " End If End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Leap.frm 为文件名, 将工程以 Leap.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在文本框中显示判断结果时, 变量和字符串中间用字符连接符 & 连接, 如果 & 直接跟在变量后面, 二者之间没有空格, 系统将 & 视为类型符, 如图 所示, 将出现 缺少 : 语句结束 的编译错误 在 & 前后输入空格, 程序运行正确 图 闰年判断的调试界面 (2) 结果分析 运行时, 在文本框 Text1 中输入整数 2012, 单击 判断 按钮, 运行结果如图 1-3-3(a) 所示 ; 在文本框 Text1 中输入整数 2010, 单击 判断 按钮, 运行结果如图 1-3-3(b) 所示 (a) 输入 2012 (b) 输入 2010 图 闰年判断的运行界面 2. 在标题为 字符类型 的窗体 Form1 上, 添加一个标题为 请输入 1 个字符 的标签 Label1; 然后再添加一个标题为 类型判断 的命令按钮 Command1; 接着再添加一个文本内容为空的文本框 Text1; 最后添加一个标题为空 有边框的标签 Label2 程序运行时, 在 Text1 中输入一个字符, 单击 类型判断 按钮, 判断该字符是字母字符 数字字符还是其他字符, 并将判断结果显示在 Label2 中 要求以 Letter.frm 为窗体文件名

25 Letter.vbp 为工程文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 17 第一篇上机实验 17 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加两个标签 一个命令按钮和一个文本框, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-3-4(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明 窗体 Form1 Caption 字符类型窗体的标题 标签 Label1 Caption 请输入 1 个字符标签内文字内容 标签 Label2 Caption ( 空白 ) 标签内没有文字 BorderStyle 1-Fixed Single 设置标签的边框样式 命令按钮 Command1 Caption 类型判断命令按钮的标题 文本框 Text1 Text ( 空白 ) 文本框内没有文字 (a) 控件布局 (b) 属性设置 (3) 编写程序代码 图 字符类型的设计界面 在 类型判断 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim c As String * 1, r As String c = Text1.Text If UCase(c) >= "A" And UCase(c) <= "Z" Then r = c & " 是字母字符 " ElseIf c >= "0" And c <= "9" Then r = c & " 是数字字符 " Else r = c & " 是其他字符 " End If Label2.Caption = r End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Letter.frm 为文件名, 将工程以 Letter.vbp 为文件名保存在 D:\01\ 文件夹中 科学出版社职教技术出版中心

26 18 18 Visual Basic 程序设计实践教程 实验调试与结果分析 (1) 实验调试 在编写多分支选择结构时, 将关键字 ElseIf 写成 Else If, 结果产生 必须为该行的第一条语句 的编译错误, 如图 所示 由于多分支结构的关键字 ElseIf 之间不能有空格, 调试过程将空格去掉, 程序运行正确 图 字符类型的调试界面 (2) 结果分析 运行时, 在文本框 Text1 中输入字符 A, 单击 类型判断 按钮, 运行结果如图 (a) 所示 ; 在文本框 Text1 中输入数字 9, 单击 类型判断 按钮, 运行结果如图 (b) 所示 ; 在文本框 Text1 中输入字符?, 单击 类型判断 按钮, 运行结果如图 (c) 所示 (a) 输入 A (b) 输入 9 (c) 输入? 图 字符类型的运行界面 1. 打开工程文件 Dsg0301.vbp, 在标题为 整除运算 的窗体 Form1 上, 添加一个标题为 请输入整数 n 的标签 Label1; 然后再添加一个标题为 判断 的命令按钮 Command1; 接着再添加一个文本内容为空的文本框 Text1; 最后添加一个标题为空 有边框的标签 Label2 程序运行时, 在 Text1 中输入一个整数 n, 单击 判断 按钮, 判断整数 n 能否既被 3 整除也被 7 整除 如果能被 3 和 7 整除, 则在 Label2 中输出 Yes, 否则输出 No, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0301.frm) 和工程 (Dsg0301.vbp) (a) 输入 21 (b) 输入 18 图 整除运算的运行界面

27 19 第一篇上机实验 19 提 示 整数 n 能被 3 和 7 整除的条件表达式可表示为 (n Mod 3 = 0) And (n Mod 7 = 0) 2. 打开工程文件 Dsg0302.vbp, 在标题为 坐标象限 的窗体 Form1 上, 添加两个标题分别为 坐标 x 和 坐标 y 的标签 Label1 和 Label2; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3; 最后添加一个标题为 判断 的命令按钮 Command1 程序运行时, 在 Text1 和 Text2 中分别输入某点的坐标值 x 和 y( 不等于 0), 单击 判断 按钮, 根据 x 和 y 的值判断该坐标点在哪个象限, 并在 Text3 中显示判断结果, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0302.frm) 和工程 (Dsg0302.vbp) (a) 输入 7.5 和 8 (b) 输入 -5.8 和 -6.6 图 坐标象限的运行界面 提 示 若 x>0 且 y>0, 则坐标点位于第一象限 ; 若 x<0 且 y>0, 则坐标点位于第二象限 ; 若 x<0 且 y<0, 则坐标点位于第三象限 ; 若 x>0 且 y<0, 则坐标点位于第四象限 3. 打开工程文件 Dsg0303.vbp, 在标题为 竞赛获奖 的窗体 Form1 上, 添加一个标题为 输入笔试 机试和面试的成绩 : 的标签 Label1; 然后添加一个标题为 获奖 的命令按钮 Command1; 最后添加 4 个文本内容为空的文本框 Text1 Text2 Text3 和 Text4 程序运行时, 在 3 个文本框中分别输入某学生 3 科竞赛成绩, 单击 获奖 按钮, 如果总成绩为 285~300, 则在 Text4 中输出 Gold Medal ; 如果总成绩为 270~284, 则在 Text4 中输出 Silver Medal ; 如果总成绩为 240~269, 则在 Text4 中输出 Bronze Medal ; 如果总分低于 240, 但其中某科成绩特别优秀 ( 单科不低于 95), 则在 Text4 中输出 Honor Medal ; 其他情况, 则在 Text4 中输出 No Medal, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0303.frm) 和工程 (Dsg0303.vbp) (a) 输入 (b) 输入 (c) 输入 图 竞赛获奖的运行界面 科学出版社职教技术出版中心 4. 打开工程文件 Dsg0304.vbp, 在标题为 学历认证 的窗体 Form1 上, 添加一个文

28 20 20 Visual Basic 程序设计实践教程 本框 Text1, 其文字为粗体 四号 居中 ; 然后再添加一个标题为 学历 的框架 Frame1, 并在 Frame1 中添加 3 个标题分别为 博士 硕士 和 本科 的单选按钮 Option1 Option2 和 Option3 程序运行时, 单击 博士 单选按钮, 在 Text1 中显示 我是博士生 ; 选中 硕士 单选按钮, 在 Text1 中显示 我是硕士生 ; 单击 本科 单选按钮, 在 Text1 中 显示 我是本科生, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0304.frm) 和工程 (Dsg0304.vbp) (a) 博士 (b) 硕士 (c) 本科 图 学历认证的运行界面 5. 打开工程文件 Dsg0305.vbp, 在标题为 效果设置 的窗体 Form1 上, 添加一个标题为 程序设计基础 的标签 Label1, 其文字为黑体 三号 居中 ; 然后再添加两个标题分别为 下画线 和 删除线 的复选框 Check1 和 Check2 程序运行时, 当选中某复选框时,Label1 的文字具有相应的效果, 而当取消选中某复选框时, 则取消相应的效果, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0305.frm) 和工程 (Dsg0305.vbp) (a) 无效果 (b) 设置效果 图 效果设置的运行界面 提 示 1 以复选框的 Value 值为条件, 用 If 语句实现 2 设置标签的 FontUnderline 和 FontStrikethru 属性来实现下画线和删除线的效果

29 1. 掌握循环结构程序设计方法 2. 掌握 For 循环语句 Do 循环语句以及 While 循环语句的使用方法 3. 掌握循环多重循环的条件设置及其使用方法 4. 掌握如何控制循环条件, 防止死循环或不循环 5. 掌握计时器和滚动条的常用属性 方法和事件 1. 在标题为 乘式求和 的窗体 Form1 上, 添加一个 请输入 n 的值 的标签 Label1; 然后再添加一个标题为 求和 的命令按钮 Command1; 接着再添加一个文本内容为空的 文本框 Text1; 最后添加一个标题为空 有边框的标签 Label2 程序运行时, 在 Text1 中输 入一个正整数 n, 单击 计算 按钮, 求 n+ (n+1) (n+2) 的值, 并将求和结果显示在 Label2 中 要求以 Msum.frm 为窗体文件名 Msum.vbp 为工程 文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加两个标签 一个命令按钮和一个文本框, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-4-1(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明 窗体 Form1 Caption 乘式求和窗体的标题 标签 Label1 Caption 请输入 n 的值标签内文字内容 标签 Label2 Caption ( 空白 ) 标签内没有文字 BorderStyle 1-Fixed Single 设置标签的边框样式 命令按钮 Command1 Caption 求和命令按钮的标题 文本框 Text1 Text ( 空白 ) 文本框内没有文字 科学出版社职教技术出版中心

30 22 22 Visual Basic 程序设计实践教程 (a) 控件布局 (b) 属性设置 (3) 编写程序代码 图 乘式求和的设计界面 在 求和 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim sum As Double, i As Integer, n As Integer n = Val(Text1.Text) sum = 0 For i = 1 To n sum = sum + i * (i + 1) * (i + 2) Next i Label2.Caption = Str(sum) End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Msum.frm 为文件名, 将工程以 Msum.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在编写代码时, 将事件过程 Command1_Click() 中用来存放求和结果的变量 sum 声明为 Integer 类型, 运行程序时, 在文本框 Text1 中输入整数 18, 出现 溢出 的实时错误, 如图 所示 由于 Integer 的最大值是 32767, 所以将变量 sum 类型改为 Double, 解决溢出错误 (2) 结果分析 运行时, 在文本框 Text1 中输入整数 20, 单击 求和 按钮, 运行结果如图 所示 图 乘式求和的调试界面 图 乘式求和的运行界面 2. 在标题为 显示完数 的窗体 Form1 上, 添加两个标题分别为 整数 m 和 整数 n 的标签 Label1 和 Label2; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3, 其中 Text3 带有水平滚动条 ; 最后添加一个标题为 显示 的命令按钮 Command1 程序运行时, 在 Text1 和 Text2 中分别输入正整数 m 和 n( 其中 n>m 1), 单击 显示 按钮, 找出 m~n 之间所有完数, 按从小到大顺序显示在 Text3 中, 每个完数之间用空格隔开 完数是指它所有的真因子 ( 即除了自身以外的正因子 ) 的和恰好等于它本身 例如,6 是完数, 因为 6=1+2+3 要求以 Perfect.frm 为窗体文件名 Perfect.vbp 为工程文件

31 名保存在 D:\01\ 文件夹中 操作步骤 23 第一篇上机实验 23 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加两个标签 3 个文本框和一个 命令按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-4-4(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明 窗体 Form1 Caption 显示完数窗体的标题 标签 Label1 Caption 整数 m 标签内文字内容 标签 Label2 Caption 整数 n 标签内文字内容 文本框 Text1 Text ( 空白 ) 文本框内没有文字 文本框 Text2 Text ( 空白 ) 文本框内没有文字 Text ( 空白 ) 文本框内没有文字 文本框 Text3 MultiLine True 设置多行显示 ScrollBars 1-Horizontal 设置水平滚动条 命令按钮 Command1 Caption 显示命令按钮的标题 (a) 控件布局 (b) 属性设置 (3) 编写程序代码 图 显示完数的设计界面 在 显示 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim m As Integer, n As Integer Dim i As Integer, j As Integer, sum As Integer m = Val(Text1.Text) n = Val(Text2.Text) Text3.Text = "" For i = m To n sum = 0 For j = 1 To i / 2 If (i Mod j = 0) Then sum = sum + j Next j If sum = i Then Text3.Text = Text3.Text & i & " " Next i End Sub 科学出版社职教技术出版中心

32 24 24 Visual Basic 程序设计实践教程 (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Perfect.frm 为文件名, 将工程以 Perfect.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在编写循环嵌套结构时, 循环 i 和循环 j 交叉, 程序运行时出现 无效的 Next 控制变量引用 的编译错误, 如图 所示 由于外循环必须完全包含内循环, 不得交叉, 因此将图中所示的程序 Next i 改为 Next j, Next j 改为 Next i, 程序运行正确 (2) 结果分析 运行时, 在文本框 Text1 中输入整数 5, 在文本框 Text2 中输入整数 1000, 单击 显示 按钮, 运行结果如图 所示 图 显示完数的调试界面 图 显示完数的运行界面 1. 打开工程文件 Dsg0401.vbp, 在标题为 整除求和 的窗体 Form1 上, 添加一个标题为 请输入整数 n 的标签 Label1; 然后再添加一个标题为 求和 的命令按钮 Command1; 接着再添加一个文本内容为空的文本框 Text1; 最后添加一个标题为空 有边框的标签 Label2 程序运行时, 在 Text1 中输入一个整数 n, 单击 求和 按钮, 求 1~n 之间能被 3 整除, 但不能被 7 整除的所有整数之和, 并将求和结果显示在 Label2 中, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0401.frm) 和工程 (Dsg0401.vbp) 2. 打开工程文件 Dsg0402.vbp, 在标题为 最大公约数 的窗体 Form1 上, 添加两个标题分别为 整数 m 和 整数 n 的标签 Label1 和 Label2; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3; 最后添加一个标题为 求解 的命令按钮 Command1 程序运行时, 在 Text1 和 Text2 中分别输入正整数 m 和 n, 单击 求解 按钮, 求 m 和 n 的最大公约数, 并在 Text3 中显示求解结果, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0402.frm) 和工程 (Dsg0402.vbp) 图 整除求和的运行界面 图 最大公约数的运行界面

33 25 第一篇上机实验 打开工程文件 Dsg0403.vbp, 在标题为 素数累加 的窗体 Form1 上添加两个标题分 别为 整数 m 和 整数 n 的标签 Label1 和 Label2; 然后再添加 3 个文本内容为空的文本 框 Text1 Text2 和 Text3; 最后添加一个标题为 求和 的命 令按钮 Command1 程序运行时, 在 Text1 和 Text2 中分别输 入正整数 m 和 n( 其中 n>m 2), 单击 求和 按钮, 求 m~ n 之间全部素数之和, 并将求和结果显示在 Text3 中, 运行界 面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0403.frm) 和工程 (Dsg0403.vbp) 4. 打开工程文件 Dsg0404.vbp, 在标题为 动画设置 的窗体 Form1 上, 添加一个标题为空 带有边框的标签 Label1, 其高度为 400 宽度为 400 左边距为 100; 然后再添加两个标题分别为 移动 和 停止 的命令按钮 Command1 和 Command2; 最后添加一个计时器控件 Timer1, 其事件间隔时间为 1 秒, 计时器处于非激 活状态 程序运行时, 单击 移动 按钮,Label1 每隔 1 秒向右移动 100; 单击 停止 按钮,Label1 停止移动并退回到左边距为 100 的位置, 运行界面如图 所示 完成上 述功能后, 以原文件名保存窗体 (Dsg0404.frm) 和工程 (Dsg0404.vbp) 图 素数累加的运行界面 (a) 移动 (b) 停止 图 动画设置的运行界面 5. 打开工程文件 Dsg0405.vbp, 在标题为 求和运算 的窗体 Form1 上, 添加一个标题为 10 带有边框的标签 Label1; 接着再添加一个水平滚动条 HScroll1, 其最大值为 100, 最小值为 1, 当前值为 10; 然后再添加一个标题为 求和 的命令按钮 Command1; 最后添加一个文本内容为空的文本框 Text1 程序运行时, 当拖动 HScroll1 滑块时, 滑块的当前值显示在 Label1 中, 如图 (a) 所示 ; 单击 求和 按钮, 以 Label1 中的 值为 n, 计算表达式 1+(1+2)+(1+2+3)+ +( n) 之和, 并在 Text1 显示计算结果, 如图 (b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0405.frm) 和工程 (Dsg0405.vbp) (a) 拖动滑块 (b) 求和 图 求和运算的运行界面 科学出版社职教技术出版中心

34 1. 了解数组的概念 2. 掌握一维数组和二维数组的声明 3. 掌握数组元素的引用方法 4. 掌握动态数组的声明及其使用方法 5. 掌握与数组有关的常用算法 1. 在标题为 删除重复元素 的窗体 Form1 上, 添加一个文本内容为空的文本框 Text1; 然后再添加两个标题分别为 生成数组 和 删除元素 的命令按钮 Command1 和 Command2; 最后添加一个标题为空 有边框的标签 Label1 程序运行时, 单击 生成数组 按钮, 随机生成 10 个 20~30 之间的正整数, 存放在数组 a 中, 并将数组元素显示在 Text1 中 ; 单击 删除元素 按钮, 将数组 a 中的数据重复元素删除, 并在 Label1 中显示没有重复数的数据 要求以 Delete.frm 为窗体文件名 Delete.vbp 为工程文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加两个命令按钮 一个文本框和一个标签, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-5-1(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对 象 对象名称 属 性 属 性 值 说 明 窗体 Form1 Caption 删除重复元素 窗体的标题 文本框 Text1 Text ( 空白 ) 文本框内没有文字 命令按钮 Command1 Caption 生成数组 命令按钮的标题 命令按钮 Command2 Caption 删除元素 命令按钮的标题 标签 Label1 Caption ( 空白 ) 标签内没有文字 BorderStyle 1-Fixed Single 设置标签的边框样式

35 27 第一篇上机实验 27 (a) 控件布局 (b) 属性设置 (3) 编写程序代码 图 删除重复元素的设计界面 1 在窗体模块的通用声明段中声明模块级数组 Dim a(1 To 10) As Integer 2 在 生成数组 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim i As Integer Text1.Text = "" Label1.Caption = "" For i = 1 To 10 a(i) = Int(Rnd * 11) + 20 Text1.Text = Text1.Text & a(i) & Space(2) Next i End Sub 3 在 删除元素 按钮的 Click 事件过程中编写代码 Private Sub Command2_Click() Dim i As Integer, j As Integer For i = 1 To 9 For j = i To 9 If a(i) = a(j + 1) Then a(j + 1) = 0 Next j Next i For i = 1 To 10 If a(i) <> 0 Then Label1.Caption = Label1.Caption & a(i) & Space(2) End If Next i End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Delete.frm 为文件名, 将工程以 Delete.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 程序运行时, 如果引用的下标超过数组声明的下标范围, 会产生 下标越界 的实时错误, 如图 所示 在图 所示的程序中, 当 j=10 时, 执行 If a(i) = a(j + 1) Then a(j + 1) = 0, 数组下标 j+1 的值为 11, 超过数组下界, 因此出现 下标越界 的实时错误 将 For j = i To 10 改为 For j = i To 9, 程序运行正确 科学出版社职教技术出版中心

36 28 28 Visual Basic 程序设计实践教程 图 删除重复元素的调试界面 (2) 结果分析 运行时, 单击 生成数组 按钮, 运行结果如图 1-5-3(a) 所示 ; 然后单击 删除元素 按钮, 运行结果如图 1-5-3(b) 所示 (a) 生成数组 (b) 删除元素 图 删除重复元素的运行界面 2. 在标题为 评分统计 的窗体 Form1 上, 添加一个标题为 评委人数 的标签 Label1; 然后再添加一个标题为 平均得分 的命令按钮 Command1; 最后添加两个文本内容为空 的文本框 Text1 和 Text2 程序运行时, 在 Text1 中输入评委的人数 n, 单击 平均得分 按钮, 通过输入对话框输入 n 个评委的评分, 然后计算平均得分并显示在 Text1 中 ( 平均 得分计算方法 : 去掉 1 个最高分, 去掉 1 个最低分, 计算剩下评分的平均分, 保留 3 位小 数 ) 要求以 Ascore.frm 为窗体文件名 Ascore.vbp 为工程文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个标签 一个命令按钮和两 个文本框, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-5-4(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 (a) 控件布局 (b) 属性设置 图 评分统计的设计界面

37 29 第一篇上机实验 对 象 对象名称 属 性 属 性 值 说 明 窗体 Form1 Caption 评分统计 窗体的标题 标签 Label1 Caption 评委人数 标签内文字 命令按钮 Command1 Caption 平均得分 命令按钮的标题 文本框 Text1 Text ( 空白 ) 文本框内没有文字 文本框 Text1 Text ( 空白 ) 文本框内没有文字 (3) 编写程序代码 在 平均得分 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim n As Integer, i As Integer Dim max As Integer, min As Integer, avg As Single Dim a() As Single n = Val(Text1.Text) ReDim a(n) For i = 1 To n a(i) = InputBox(" 请输入第 " & i & " 个评委评分 :", " 评委评分 ") Next i avg = a(1) max = a(1) min = a(1) For i = 2 To n avg = avg + a(i) If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) Next i avg = (avg - max - min) / (n - 2) Text2.Text = Format(avg, "0.000") End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏中的 保存工程 按钮, 将窗体以 Ascore.frm 为文件名, 将工程以 Ascore.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 本例中由于评委人数是由用户通过文本框输入确定的, 因此在声明数组时无法确定数组的上下界 如果声明数组的下标用变量来表示, 将出现 要求常量表达式 的编译错误, 如图 所示, 并将错误内容选中以提醒修改 为了有效解决该问题, 可以使用动态数组来实现 科学出版社图 评分统计的调试界面 职教技术出版中心

38 30 30 Visual Basic 程序设计实践教程 (2) 结果分析 运行时, 在文本框 Text1 中输入评委人数 5, 然后单击 平均得分 按钮, 在图 1-5-6(a) 所示的 评委得分 对话框的文本框中输入整数 95, 然后单击 确定 按钮, 接着在打开的对话框中继续输入整数 , 运行结果如图 1-5-6(b) 所示 (a) 输入界面 (b) 平均得分 图 评分统计的运行界面 1. 打开工程文件 Dsg0501.vbp, 在标题为 筛选元素 的窗体 Form1 上, 添加两个文本内容为空的文本框 Text1 和 Text2, 其中 Text2 中的文本不可编辑 ; 然后再添加两个标题分别为 生成数组 和 整除元素 的命令按钮 Command1 和 Command2 程序运行时, 单击 生成数组 按钮, 随机生成 10 个 10~90 之间的整数存于数组 a 中, 并显示在 Text1 中, 元素之间用空格隔开, 如图 1-5-7(a) 所示 ; 单击 整除元素 按钮, 找出数组中所有能被 3 整除的元素, 并按下标从小到大的顺序显示在 Text2 中, 元素之间用空格隔开, 如图 1-5-7(b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0501.frm) 和工程 (Dsg0501.vbp) (a) 生成数组 (b) 整除元素 图 筛选元素的运行界面 2. 打开工程文件 Dsg0502.vbp, 在标题为 最大值查找 的窗体 Form1 上, 添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3, 其中 Text3 带有水平滚动条 ; 然后再添加两个标题分别为 生成数组 和 最大值 的命令按钮 Command1 和 Command2; 最后添加一个标题为 对应英文字符 的标签 Label1 程序运行时, 单击 生成数组 按钮, 随机生成 10 个 65~90 之间的整数存于数组 a 中, 并显示在 Text1 中, 元素之间用空格隔开, 如图 1-5-8(a) 所示 ; 单击 最大值 按钮, 将这 10 个数中最大值显示在 Text2 中, 并以此作为 ASCII 码, 将其对应的字符显示在 Text3 中, 如图 1-5-8(b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0502.frm) 和工程 (Dsg0502.vbp) 3. 打开工程文件 Dsg0503.vbp, 在标题为 字母统计 的窗体 Form1 上, 添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3, 其中 Text3 带有水平滚动条 ; 然后再添加两个标题分别为 生成字母 和 统计 的命令按钮 Command1 和 Command2; 最后添加一

39 31 第一篇上机实验 31 (a) 生成数组 (b) 最大值 图 最大值查找的运行界面个标题为 统计的字母 的标签 Label1 程序运行时, 单击 生成字母 按钮, 随机生成 100 个大写英文字母存于数组 a 中, 并显示在 Text1 中, 字母之间用空格隔开, 如图 (a) 所示 ; 在 Text2 中输入一个大写英文字母 ; 单击 统计 按钮, 在 Text3 中显示该字母在数组 a 中出现的次数, 如图 1-5-9(b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0503.frm) 和工程 (Dsg0503.vbp) (a) 生成字母 (b) 统计 图 字母统计的运行界面 4. 打开工程文件 Dsg0504.vbp, 在标题为 次对角线求和 的窗体 Form1 上, 添加一个文本内容为空的文本框 Text1, 其有水平和垂直滚动条 ; 然后再添加两个标题分别为 生成方阵 和 求和 的命令按钮 Command1 和 Command2; 最后添加一个标题为空 有边框的标签 Label1 程序运行时, 单击 生成方阵 按钮, 随机生成一个 5 5 方阵 ( 方阵中每个元素都是两位正整数 ), 并在 Text1 中显示, 如图 (a) 所示 ; 单击 求和 按钮, 求该方阵次对角线上的所有元素之和, 并在 Label1 中显示求和结果, 如图 (b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0504.frm) 和 工程 (Dsg0504.vbp) (a) 生成方阵 (b) 求和 图 次对角线求和的运行界面 科学出版社职教技术出版中心 5. 打开工程文件 Dsg0505.vbp, 在标题为 Fibonacci 数列 的窗体 Form1 上, 添 加一个标题为 请输入 n 的值 的标签 Label1; 然后再添加两个文本内容为空的文本框 Text1 和 Text2; 最后添加一个标题分别为 第 n 项 命令按钮 Command1 程序运行时,

40 32 32 Visual Basic 程序设计实践教程 在 Text1 中输入一个大于 2 的自然数 n, 单击 第 n 项 按钮, 将前 n 项 Fibonacci 数列 ( ) 存储于动态数组 Fib() 中, 并将数列的第 n 项显示在 Text2 中, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0505.frm) 和工程 (Dsg0505.vbp) 图 Fibonacci 数列的运行界面

41 1. 掌握控件数组的创建及使用 2. 列表框和组合框的常用属性 方法和事件 3. 掌握选择控件 计时器控件以及滚动条的应用 4. 掌握自定义类型及其数组的使用 1. 在标题为 业余爱好 的窗体 Form1 上, 添加一个文本内容为空的简单组合框 Combo1; 然后再添加两个标题分别为 添加 和 删除 的命令按钮 Command1 和 Command2 程序运行时, 在 Combo1 的文本框中输入项目内容, 单击 添加 按钮, 将其添加到 Combo1 中 ; 在 Combo1 中选定一个项目, 单击 删除 按钮, 则删除该项目 要求以 Insdel.frm 为窗体文件名 Insdel.vbp 为工程文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个组合框和两个命令按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-6-1(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明窗体 Form1 Caption 业余爱好窗体的标题 Text ( 空白 ) 文本框内没有内容组合框 Combo1 Style 1-SimpleCombo 组合框样式设置命令按钮 Command1 Caption 添加命令按钮的标题命令按钮 Command2 Caption 删除命令按钮的标题科学出版社 (a) 控件布局 (b) 属性设置图 业余爱好的设计界面 职教技术出版中心

42 34 34 Visual Basic 程序设计实践教程 (3) 编写程序代码 1 在 添加 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Combo1.AddItem Combo1.Text End Sub 2 在 删除 按钮的 Click 事件过程中编写代码 Private Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndex End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏中的 保存工程 按钮, 将窗体以 Insdel.frm 为文件名, 将工程以 Insdel.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在编写 删除 按钮的 Click 事件过程中, 书写语句 Combo1.RemoveItem Combo1.Text 将 Combo1 中选定的项目删除, 结果出现 类型不匹配 的实时错误, 如图 所示 由于 RemoveItem 方法的语法格式为 对象名.RemoveItem 索引, 因此将删除语句改为 Combo1.RemoveItem Combo1.ListIndex, 程序运行正确 图 业余爱好的调试界面 (2) 结果分析 运行时, 在 Combo1 的文本框中输入 音乐, 单击 添加 按钮, 运行结果如图 (a) 所示, 接着再添加 体育 美术 舞蹈 等项目 ; 在 Combo1 中选定 音乐, 然后单击 删除 按钮, 运行结果如图 1-6-3(b) 所示 (a) 添加 (b) 删除 图 业余爱好的运行界面 2. 在标题为 成绩排名 窗体 Form1 上, 添加一个标题为 请输入学号 姓名和成绩 : 的标签 Label1; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3, 分别用于

43 35 第一篇上机实验 35 输入学号 姓名和成绩 ; 接着再添加一个标题为 成绩总表 的框架 Frame1, 并在框架内 添加一个列表框 List1; 最后添加两个标题分别为 输入 和 排序 的命令按钮 Command1 和 Command2 程序运行时, 在 Text1 Text2 和 Text3 输入相应的数据, 然后单击 输入 按钮, 将数据存储到学生成绩数组中, 并在 List1 中显示 ; 单击 排序 按钮, 对数组按 成绩进行降序排序, 并将排序后的结果显示在 List1 中 要求以 Stuscore.frm 为窗体文 件名 Stuscore.vbp 为工程文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个标签 3 个文本框 一 个框架和两个命令按钮, 并在框架中添加一个列表框, 然后用鼠标调整各个控件的大小和 位置, 调整后的控件布局如图 1-6-4(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明 窗体 Form1 Caption 成绩排名窗体的标题 标签 Label1 Caption 请输入学号 姓名和成绩 : 标签内文字内容 文本框 Text1 Text ( 空白 ) 文本框内没有文字 文本框 Text2 Text ( 空白 ) 文本框内没有文字 文本框 Text3 Text ( 空白 ) 文本框内没有文字 框架 Frame1 Caption 成绩总表框架的标题 命令按钮 Command1 Caption 输入命令按钮的标题 命令按钮 Command2 Caption 排序命令按钮的标题 (a) 控件布局 (3) 编写程序代码 图 删除重复元素的设计界面 (b) 属性设置 1 在窗体模块的通用声明段中声明学生信息类型及模块级数组和变量 Private Type StuInfo Num As Integer Name As String * 6 科学出版社职教技术出版中心

44 36 36 Visual Basic 程序设计实践教程 Score As Integer End Type Dim stu(1 To 5) As StuInfo Dim c As Integer 2 在 输入 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() If c >= 5 Then MsgBox " 已经添加 5 条学生记录!", 64, " 提示信息 " Exit Sub End If c = c + 1 stu(c).num = Val(Text1.Text) stu(c).name = Text2.Text stu(c).score = Val(Text3.Text) List1.AddItem stu(c).num & " " & stu(c).name & " " & stu(c).score Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub 3 在 排序 按钮的 Click 事件过程中编写代码 Private Sub Command2_Click() Dim t As StuInfo Dim i As Integer, j As Integer, k As Integer For i = 1 To 4 k = i For j = i + 1 To 5 If stu(k).score < stu(j).score Then k = j Next j If i <> k Then t = stu(i) stu(i) = stu(k) stu(k) = t End If Next i List1.Clear For i = 1 To 5 List1.AddItem stu(i).num & " " & stu(i).name & " " & stu(i).score Next i End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏中的 保存工程 按钮, 将窗体以 Stuscore.frm 为文件名, 将工程以 Stuscore.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在编写 输入 按钮的 Click 事件过程中, 对自定义类型变量的数据成员进行直接访问, 程序运行时出现 变量未定义 的编译错误 访问自定义类型变量的数据成员的一般格式为 自定义类型变量名. 成员名, 因此图 中代码 Num = Val(Text1.Text) 改为 stu(c).num = Val(Text1.Text), 程序运行正确

45 37 第一篇上机实验 37 图 成绩排名的调试界面 (2) 结果分析 运行时, 分别在文本框 Text1 Text2 和 Text3 中输入学号 姓名和成绩, 单击 输入 按钮, 接着按同样方法进行输入操作 4 次, 运行结果如图 1-6-6(a) 所示 ; 然后单击 排序 按钮, 运行结果如图 1-6-6(b) 所示 (a) 输入 (b) 排序 图 成绩排名的运行界面 1. 打开工程文件 Dsg0601.vbp, 在标题为 四则运算 的窗体 Form1 上, 添加 3 个标题分别 操作数 1 操作数 2 和 计算结果 的标签 Label1 Label2 和 Label3; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3; 最后添加一个标题为 运算符 的框架 Frame1, 并在框架内设置一组单选按钮控件数组 Op, 该控件数组包含 4 个标题分别为 加 减 乘 和 除 的单选按钮 程序运行时, 在 Text1 和 Text2 中输入两个操作数, 单击相应的单选按钮, 则对操作数 1 和操作数 2 进行加 减 乘和除 4 种运算, 并将计算结果显示在 Text3 中, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0601.frm) 和工程 (Dsg0601.vbp) 科学出版社 (a) 加 (b) 乘图 四则运算的运行界面 职教技术出版中心

46 38 38 Visual Basic 程序设计实践教程 2. 打开工程文件 Dsg0602.vbp, 在标题为 排序算法 的窗体 Form1 上, 添加两个列表框 List1 和 List2; 然后再添加两个标题分别为 序列生成 和 冒泡排序 的命令按钮 Command1 和 Command2 程序运行时, 单击 序列生成 按钮, 自动生成 10 个 10~90 之间的随机整数, 存于数组 a 中并在 List1 中显示, 如图 1-6-8(a) 所示 ; 单击 升序排序 按钮, 对数组 a 中的 10 个整数按从小到大进行排序, 并将排序后的结果显示在 List2 中, 如图 1-6-8(b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0602.frm) 和工程 (Dsg0602.vbp) (a) 序列生成 (b) 升序排序 图 排序算法的运行界面 3. 打开工程文件 Dsg0603.vbp, 在标题为 随机序列 的窗体 Form1 上, 添加一个列 表框 List1; 然后再添加 3 个标题分别为 暂停 继续 和 删除 命令按钮 Command1 Command2 和 Command3, 其中 继续 按钮处于非活动状态 ; 最后添加一个计时器控件 Timer1, 其初始状态为活动状态 程序运行时, 每隔 1 秒产生一个 5 位随机整数, 并添加 在 List1 中 ; 单击 暂停 按钮, 暂停产生随机序列, 且 继续 按钮变成活动状态, 而 暂停 按钮变成非活动状态, 如图 1-6-9(a) 所示 ; 单击 继续 按钮, 继续产生随机序 列, 且 暂停 按钮变成活动状态, 而 继续 按钮变成非活动状态, 如图 1-6-9(b) 所 示 ; 选定 List1 中的一个选项, 然后单击 删除 按钮, 则删除该选项 完成上述功能后, 以原文件名保存窗体 (Dsg0603.frm) 和工程 (Dsg0603.vbp) (a) 暂停 (b) 继续 图 随机序列的运行界面 4. 打开工程文件 Dsg0604.vbp, 在标题为 选课统计 的窗体 Form1 上, 添加一个列表框 List1, 并在 List1 中依次添加 音乐欣赏 影视鉴赏 网站设计 网络基础 和 多媒体技术 5 项, 且在 List1 中显示复选标记 ; 然后再添加一个标题为 统计 的命令按钮 Command1; 最后添加一个文本内容为空的文本框 Text1 程序运行时, 在 List1 选中若干项目, 单击 统计 按钮, 在 Text1 中显示选定的项目数, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0604.frm) 和工程 (Dsg0604.vbp) 5. 打开工程文件 Dsg0605.vbp, 在标题为 球类项目 的窗体 Form1 上, 添加一个下

47 39 第一篇上机实验 39 拉列表框 Combo1, 并在 Combo1 中依次添加 篮球 排球 足球 乒乓球 和 网 球 ; 然后再添加一个列表框 List1; 最后添加一个标题为 选定 的命令按钮 Command1 程序运行时, 选中 Combo1 中的某一项, 单击 选定 按钮, 将 Combo1 中选定项添加到 List1 末尾 ; 双击 List1 中某一项, 则将该项从 List1 中删除, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0605.frm) 和工程 (Dsg0605.vbp) 图 选课统计的运行界面 图 球类项目的运行界面 科学出版社职教技术出版中心

48 1. 掌握 Function 过程和 Sub 过程的定义和调用方法 2. 掌握形参和实参的对应关系 3. 掌握值传递和地址传递的传递方式 4. 掌握递归的概念和使用方法 5. 掌握过程和变量的作用域 1. 在标题为 表达式求解 的窗体 Form1 上, 添加 3 个标题分别为 整数 m 整数 n 和 整数 p 的标签 Label1 Label2 和 Label3; 然后再添加 4 个文本内容为空的文本框 Text1 Text2 Text3 和 Text4; 最后添加一个标题为 求值 的命令按钮 Command1 编写一个 Sub 过程 Add(ByVal k%, ByRef sum&), 用于求 k 的值 程序运行时, 在 Text1 Text2 和 Text3 中分别输入 m n 和 p 的值, 单击 求值 按钮, 则调用 Add 过程计算以下 y 的值, 并在 Text4 中显示运算结果 ( 结果保留 3 位小数 ) 要求以 Expression.frm 为窗体文件名 Expression.vbp 为工程文件名保存在 D:\01\ 文件夹中 (1+2+ +m)+(1+2+ +n) y= p 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加 3 个标签 4 个文本框和一个命令按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-7-1(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对 象 对象名称 属 性 属 性 值 说 明 窗体 Form1 Caption 表达式求解 窗体的标题 标签 Label1 Caption 整数 m 标签内文字内容 标签 Label2 Caption 整数 n 标签内文字内容 标签 Label3 Caption 整数 p 标签内文字内容 文本框 Text1 Text ( 空白 ) 文本框内没有文字 文本框 Text2 Text ( 空白 ) 文本框内没有文字

49 41 第一篇上机实验 41 对象对象名称属性属性值说明 文本框 Text3 Text ( 空白 ) 文本框内没有文字 文本框 Text4 Text ( 空白 ) 文本框内没有文字 命令按钮 Command1 Caption 求值命令按钮的标题 续表 (a) 控件布局 (b) 属性设置 (3) 编写程序代码 图 表达式求解的设计界面 1 在窗体的代码窗口中编写 Sub 过程代码 Private Sub Add(ByVal k%, ByRef sum&) Dim i As Integer sum = 0 For i = 1 To k sum = sum + i Next i End Sub 2 在 求值 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim n As Integer, m As Integer, p As Integer Dim a As Long, b As Long, c As Long Dim y As Double m = Val(Text1.Text) n = Val(Text2.Text) p = Val(Text3.Text) Call Add(m, a) Call Add(n, b) Call Add(p, c) y = (a + b) / c Text4.Text = Format(y, "0.000") End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Expression.frm 为文件名, 将工程以 Expression.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在调用过程时, 形参表与实参表中的对应变量名可以不同, 但个数要相同, 并且对应位置的参数类型要一致 在编写 求值 按钮的 Click 事件过程中, 将实参变量 a 类型定 科学出版社职教技术出版中心

50 42 42 Visual Basic 程序设计实践教程 义为 Integer, 而对应形参变量 sum 的类型为 Long, 因此程序运行时产生 ByRef 参数类型不符 的编译错误, 如图 所示 将实参变量 a 的类型改为 Long, 程序运行正确 (2) 结果分析 运行时, 在文本框 Text1 Text2 和 Text3 中分别输入整数 6 7 8, 然后单击 求值 按钮, 运行结果如图 所示 图 表达式求解的调试界面 图 表达式求解的运行界面 2. 在标题为 统计字符 的窗体 Form1 上, 添加两个标题为 字符串 和 统计目标 的标签 Label1 和 Label2; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3; 最后添加一个标题为 统计 的命令按钮 Command1 编写一个 Function 过程 CharNum(s As String, t As String) As Integer, 用于统计字符串 s 中字符 t 的数量 程序运行时, 在 Text1 中输入一个字符串, 接着在 Text2 中输入一个字符, 然后单击 统计 按钮, 调用函数 CharNum() 统计输入的字符个数, 并将统计结果显示在 Text3 中 要求以 Statistics.frm 为窗体文件名 Statistics.vbp 为工程文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加两个标签 3 个文本框和一个命令按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-7-4(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对 象 对象名称 属 性 属 性 值 说 明 窗体 Form1 Caption 统计字符 窗体的标题 标签 Label1 Caption 字符串 标签内文字内容 标签 Label2 Caption 统计目标 标签内文字内容 文本框 Text1 Text ( 空白 ) 文本框内没有文字 文本框 Text2 Text ( 空白 ) 文本框内没有文字 文本框 Text3 Text ( 空白 ) 文本框内没有文字 命令按钮 Command1 Caption 统计 命令按钮的标题

51 43 第一篇上机实验 43 (a) 控件布局 (b) 属性设置 图 统计字符的设计界面 (3) 编写程序代码 1 在窗体的代码窗口中编写 Function 过程代码 Private Function CharNum(s As String, t As String) As Integer Dim i As Integer CharNum = 0 For i = 1 To Len(s) If Mid(s, i, 1) = t Then CharNum = CharNum + 1 End If Next i End Function 2 在 统计 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim a As String, b As String a = Text1.Text b = Text2.Text Text3.Text = CharNum(a, b) End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Statistics.frm 为文件名, 将工程以 Statistics.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在调用过程时, 形参表与实参表中参数个数要相同 在 统计 按钮的 Click 事件过程中, 调用函数 CharNum(a) 的实参的个数 (1 个 ) 少于形参的个数 (2 个 ), 系统运行时产生 参数 不可选 的编译错误, 如图 所示 将调用函数改为 CharNum(a, b), 程序运行正确 (2) 结果分析 运行时, 在文本框 Text1 中输入字符串 Visual Basic Program Design, 接着在文本框 Text2 中输入字符 a, 然后单击 统计 按钮, 运行结果如图 所示 图 统计字符的调试界面 科学出版社职教技术出版中心 图 统计字符的运行界面

52 44 44 Visual Basic 程序设计实践教程 1. 打开工程文件 Dsg0701.vbp, 在标题为 阶乘累加 的窗体 Form1 上, 添加一个标题为 请输入 n 的值 的标签 Label1; 然后再添加一个标题为 计算 的命令按钮 Command1; 最后添加两个文本内容为空的文本框 Text1 和 Text2 要求编写一个求 n! 的 Function 过程 fact(byval n As Integer) As Double 程序运行时, 在 Text1 中输入一个正整数 n, 单击 计算 按钮, 调用函数 fact 求 1!+2!+ +n! 的值, 并将计算结果显示在 Text2 中, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0701.frm) 和工程 (Dsg0701.vbp) 2. 打开工程文件 Dsg0702.vbp, 在标题为 降序排序 的窗体 Form1 上, 添加一个标题为 排序 的命令按钮 Command1; 然后再添加 4 个文本内容为空的文本框 Text1 Text2 Text3 和 Text4 要求编写一个 Sub 过程 Swap(ByRef x%, ByRef y%), 用于交换 x 和 y 的值 程序运行时, 在 Text1 Text2 和 Text3 中输入 3 个整数, 单击 排序 按钮, 调用过程 Swap 实现对它们按从大到小的顺序进行排序, 并在 Text4 中输出排序结果, 整数之间用空格隔开, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0702.frm) 和工程 (Dsg0702.vbp) 3. 打开工程文件 Dsg0703.vbp, 在标题为 最小公倍数 的窗体 Form1 上, 添加两个标题分别为 整数 m 和 整数 n 的标签 Label1 和 Label2; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3; 最后添加一个标题为 最小公倍数 的命令按钮 Command1 要求编写一个 Function 过程 Gcd(ByVal m%, ByVal n%) As Integer, 用于求整数 m 和 n 的最大公约数 程序运行时, 在 Text1 和 Text2 中分别输入整数 m 和 n, 单击 最小公倍数 按钮, 调用函数 Gcd() 求出这两个整数的最小公倍数, 并在 Text3 中显示求解结果, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0703.frm) 和工程 (Dsg0703.vbp) 图 阶乘累加的运行界面图 降序排序的运行界面图 最小公倍数的运行界面 4. 打开工程文件 Dsg0704.vbp, 在标题为 数列累加 的窗体 Form1 上, 添加两个标题分别为 参数 x 和 参数 n 的标签 Label1 和 Label2; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3; 最后添加一个标题为 求值 的命令按钮 Command1 编写一个 Function 过程 Square(ByVal x%, ByVal n%) As Double, 用于求 x n 的值 程序运行时, 在 Text1 和 Text2 中分别输入 x 和 n 的值, 单击 求值 按钮, 则调用 Square 函数计算表达式 1+x+x 2 + +x n 的值, 并在 Text3 中显示计算结果, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0704.frm) 和工程 (Dsg0704.vbp) 5. 打开工程文件 Dsg0705.vbp, 在标题为 显示素数 的窗体 Form1 上, 添加两个标题分别为 整数 m 和 整数 n 的标签 Label1 和 Label2; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3, 其中 Text3 带有水平滚动条 ; 最后添加一个标题为 显示

53 45 第一篇上机实验 45 的命令按钮 Command1; 要求编写一个 Function 过程 Isprime (n As Integer) As Boolean, 用 于判断整数 n 是否为素数, 如果是素数函数返回 True, 否则函数返回 False 程序运行时, 在 Text1 和 Text2 分别输入正整数 m 和 n(n>m 2), 单击 显示 按钮, 调用 Isprime 函数过程, 找出 m~n 之间全部素数, 按从小到大顺序显示在 Text3 中, 素数之间用空格 隔开, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0705.frm) 和工程 (Dsg0705.vbp) 图 数列累加的运行界面 图 显示素数的运行界面 科学出版社职教技术出版中心

54 1. 了解 Visual Basic 的图形设计功能 2. 掌握建立图形坐标系统的方法 3. 掌握图形控件的常用属性 事件和方法 4. 掌握简单动画设计的基本方法及图形缩放的简单方法 5. 掌握常用的绘图方法 6. 掌握键盘和鼠标事件 1. 在标题为 图片自动放大 的窗体 Form1 上, 添加一个的图像框 Image1, 能自动改变大小以适应图片, 并在其中加载图片 (Wys.bmp); 然后再添加两个标题分别为 放大 和 还原 的命令按钮 Command1 和 Command2; 最后添加一个计时器 Timer1, 事件间隔时间为 1 秒, 计时器处于非激活状态 程序运行时, 单击 放大 按钮, 每隔 1 秒图片放大一倍 ; 单击 还原 按钮, 图片恢复到原始尺寸, 并停止放大 要求以 AutoStretch.frm 为窗体文件名 AutoStretch.vbp 为工程文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个图像框 两个命令按钮和一个计时器, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-8-1(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对 象 对象名称 属 性 属 性 值 说 明 窗体 Form1 Caption 图片自动放大 窗体的标题 图像框 Image1 Picture 加载的图片 命令按钮 Command1 Caption 放大 命令按钮的标题 命令按钮 Command2 Caption 还原 命令按钮的标题 计时器 Timer1 Enabled False 运行时计时器不工作 Interval 1000 事件间隔时间为 1 秒

55 47 第一篇上机实验 47 Timer1 Image1 (a) 控件布局 (b) 属性设置 (3) 编写程序代码 图 自动放大图片的设计界面 1 在 放大 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Timer1.Enabled = True Image1.Stretch = True End Sub 2 在 还原 按钮的 Click 事件过程中编写代码 Private Sub Command2_Click() Timer1.Enabled = False Image1.Stretch = False End Sub 3 在计时器的 Timer 事件过程中编写代码 Private Sub Timer1_Timer() Image1.Width = Image1.Width * Sqr(2) Image1.Height = Image1.Height * Sqr(2) End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏中的 保存工程 按钮, 将窗体以 AutoStretch.frm 为文件名, 将工程以 AutoStretch.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在计时器的 Timer 事件过程中, 编写 Image1.Width = Image1.Width * 2 语句实现每秒将图片放大一倍, 程序运行后, 发现图片只在水平方向放大, 垂直方向没有放大, 不符合题目要求 然后再添加一条代码 Image1.Height = Image1.Height * 2, 此时图片可以在垂直方向放大, 但每次放大图片的面积是原来的 4 倍 因此将图像框的宽度乘以 2, 图片框的高度乘以 2, 这样图片可以在水平方向和垂直方向同时放大, 而且每次放大为原来的一倍, 符号题目要求 (2) 结果分析 运行时, 单击 放大 按钮, 运行结果如图 1-8-2(a) 所示 ; 单击 还原 按钮, 运行结果如图 1-8-2(b) 所示 2. 在标题为 Line 方法示例 的窗体 Form1 上, 添加一个高为 1215 宽为 1695 的图片框 Picture1; 然后再添加两个标题分别为 直线 和 矩形 的单选按钮 Option1 和 Option2 程序运行时, 单击 直线 单选按钮,Picture1 清空并画一条由左上向右下的对角线 ; 单击 矩形 单选按钮,Picture1 清空并画一个左上顶点为 (400, 300) 右下顶点为(1200, 900) 的 科学出版社职教技术出版中心

56 48 48 Visual Basic 程序设计实践教程 矩形 要求以 Draw.frm 为窗体文件名 Draw.vbp 为工程文件名保存在 D:\01\ 文 件夹中 (a) 放大 (b) 还原 图 自动放大图片的运行界面 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个图片框和两个单选按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-8-3(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 对象对象名称属性属性值说明窗体 Form1 Caption Line 方法示例窗体的标题 图片框 Picture1 Height 1215 图片框的高 Width 1695 图片框的宽 命令按钮 Option1 Caption 直线命令按钮的标题 命令按钮 Option2 Caption 矩形命令按钮的标题 Picture 1 (a) 控件布局 (b) 属性设置 图 Line 方法示例的设计界面 (3) 编写程序代码 1 在 直线 单选按钮的 Click 事件过程中编写代码 Private Sub Option1_Click() Picture1.Cls Picture1.Line (0, 0)-(1695, 1215) End Sub 2 在 矩形 单选按钮的 Click 事件过程中编写代码

57 49 第一篇上机实验 49 Private Sub Option2_Click() Picture1.Cls Picture1.Line (400, 300)-(1200, 900),, B End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏中的 保存工程 按钮, 将窗体以 Draw.frm 为文件名, 将工程以 Draw.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在编写 矩形 单选按钮的 Click 事件过程中, 编写语句 Picture1.Line (400, 300)-(1200, 900), B 来画矩形图形, 结果运行时出现如图 所示的错误 由于使用 Line 方法时, 如果想省略中间的参数, 分隔的逗号不能省略, 因此在画矩形时省略了颜色这个参数, 则必须加上两个连续的逗号, 它表明颜色参数采用默认值 图 Line 方法示例的调试界面 (2) 结果分析 运行时, 单击 直线 单选按钮, 运行结果如图 1-8-5(a) 所示 ; 单击 矩形 单选按钮, 运行结果如图 1-8-5(b) 所示 (a) 直线 (b) 矩形图 Line 方法示例的运行界面 1. 打开工程文件 Dsg0801.vbp, 在标题为 图片加载 的窗体 Form1 上, 添加一个图 片框 Picture1, 其能自动调整大小与显示的图片匹配 ; 然后再添加两个标题分别为 加载 和 清除 的命令按钮 Command1 和 Command2 程序运行时, 单击 加载 按钮, 在 Picture1 中加载图片 (Wys.bmp), 如图 1-8-6(a) 所示 ; 单击 清除 按钮, 清除 Picture1 中的图 片, 如图 1-8-6(b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0801.frm) 和工程 (Dsg0801.vbp) 科学出版社职教技术出版中心

58 50 50 Visual Basic 程序设计实践教程 (a) 加载 (b) 清除 图 图片加载的运行界面 2. 打开工程文件 Dsg0802.vbp, 在标题为 图片显示 的窗体 Form1 上, 添加一个有边框的图像框 Image1, 其高度为 1200, 宽度为 2400, 设置相应属性使其加载的图片能够自动改变大小以适应图像框的大小 ; 然后再添加两个标题分别为 显示边框 和 显示图片 的复选框 Check1 和 Check2, 其中 Check1 处于选中状态 程序运行时, 是否选中 Check1, 控制 Image1 是否有边框, 如图 1-8-7(a) 所示 ; 是否选中 Check2, 控制 Image1 是否显示图片 (Pic.jpg), 如图 1-8-7(b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0802.frm) 和工程 (Dsg0802.vbp) (a) 显示边框 (b) 显示图片 图 图片显示的运行界面 3. 打开工程文件 Dsg0803.vbp, 在标题为 改变形状 的窗体 Form1 上, 添加一个高度为 1000 宽度为 1500 的形状控件 Shape1; 接着再添加一个水平滚动条 HScroll1 和一个垂直滚动条 VScroll1, 其中 HScroll1 的最大值为 5 最小值为 0,VScroll1 的最大值为 7 最小值为 0 程序运行时,Shape1 的形状会随着 HScroll1 中滑块的位置变化而变化 ;Shape1 的填充样式会随着 VScroll1 中滑块的位置变化而变化, 如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0803.frm) 和工程 (Dsg0803.vbp) 图 改变形状的运行界面 4. 打开工程文件 Dsg0804.vbp, 在标题为 图形绘制 的窗体 Form1 上, 添加一个高为 1200 宽为 1600 的图片框 Picture1; 然后再添加两个标题分别为 直线 和 椭圆 的命令按钮 Command1 和 Command2 程序运行时, 在 Picture1 中采用默认坐标系, 单击 直

59 51 第一篇上机实验 51 线 按钮,Picture1 清空并画一个起点为 (0, 600) 终点为 (1600, 600) 的直线, 如图 1-8-9(a) 所示 ; 单击 椭圆 按钮,Picture1 清空并画一个中心为 (800, 600) 半径为 500 长短轴 比例为 2 的椭圆, 如图 1-8-9(b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0804.frm) 和工程 (Dsg0804.vbp) (a) 直线 (b) 椭圆 图 图形绘制的运行界面 5. 打开工程文件 Dsg0805.vbp, 在标题为 输入控制 的窗体 Form1 上, 添加一个文本内容为空的文本框 Text1; 然后再添加一个标题为空 有边框的标签 Label1 程序运行时, 只允许在 Text1 中输入数字字符, 当在 Text1 中输入非数字字符时, 则 Label1 中显示 非法输入, 并撤销该字符输入, 如图 (a) 所示 ; 当在 Text1 中输入数字字符时, 则 Label1 中显示 合法输入, 如图 (b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0805.frm) 和工程 (Dsg0805.vbp) (a) 输入非数字字符 (b) 输入数字字符 图 输入控制的运行界面 科学出版社职教技术出版中心

60 1. 了解顺序文件 随机文件及二进制文件的特点和区别 2. 掌握顺序文件的打开 关闭和读 / 写操作 3. 了解随机文件的打开 关闭和读 / 写操作 4. 了解二进制文件的打开 关闭和读 / 写操作 5. 掌握文件系统控件的常用属性 事件和方法 1. 在标题为 文件加密 的窗体 Form1 上, 添加一个文本内容为空 有垂直滚动条的文本框 Text1; 然后再添加 3 个标题分别为 读入 加密 和 保存 的命令按钮 Command1 Command2 和 Command3 程序运行时, 单击 读入 按钮, 将当前目录下的 PlainFile.txt 文件 ( 如图 所示 ) 中的文本读入 Text1 中 ; 单击 加密 按钮, 对 Text1 中的文本内容进行加密, 并将加密结果显示在 Text1 中 ; 单击 保存 按钮, 将加密后的 Text1 中的内容保存到当前目录下的文件 CipherFile.txt( 如图 所示 ) 中 要求以 Encryption.frm 为窗体文件名 Encryption.vbp 为工程文件名保存在 D:\01\ 文件夹中 加密方法 : 把明文中的所有英文字母都转换为其后的第二个字母, 当超出最后一个字母 Z 或 z 时, 循环转换 ; 非英文字母不转换 例如,A 转换为 C Y 转换为 A Z 转换为 B a 转换为 c y 转换为 a z 转换为 b 图 PlainFile.txt 文件 图 CipherFile.txt 文件 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个文本框和 3 个命令按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-9-3(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示

61 53 第一篇上机实验 对 象 对象名称 属 性 属 性 值 说 明 窗体 Form1 Caption 文件加密 窗体的标题 Text ( 空白 ) 文本框内没有文字 文本框 Text1 MultiLine True 设置多行显示 ScrollBars 2-Vertical 设置垂直滚动条 命令按钮 Command1 Caption 读入命令按钮的标题 命令按钮 Command2 Caption 加密命令按钮的标题 命令按钮 Command3 Caption 保存命令按钮的标题 (a) 控件布局 (b) 属性设置 (3) 编写程序代码 图 文本加密的设计界面 1 在 读入 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim s As String Text1.Text = "" Open App.Path & "\PlainFile.txt" For Input As #1 Do While Not EOF(1) Line Input #1, s Text1.Text = Text1.Text & s & vbcrlf Loop Close #1 End Sub 2 在 加密 按钮的 Click 事件过程中编写代码 Private Sub Command2_Click() Dim s As String, t As String, m As String Dim i As Integer s = Trim(Text1.Text) m = "" For i = 1 To Len(s) t = Mid(s, i, 1) If UCase(t) >= "A" And UCase(t) <= "X" Then t = Chr(Asc(t) + 2) End If If UCase(t) = "Y" Or UCase(t) = "Z" Then t = Chr(Asc(t) - 24) End If m = m & t 科学出版社职教技术出版中心

62 54 54 Visual Basic 程序设计实践教程 Next i Text1.Text = m End Sub 3 在 保存 按钮的 Click 事件过程中编写代码 Private Sub Command3_Click() Open App.Path & "\CipherFile.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏中的 保存工程 按钮, 将窗体以 Encryption.frm 为文件名, 将工程以 Encryption.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在调试程序时, 没有在当前目录下创建一个名为 PlainFile.txt 的文本文件, 结果程序运行时出现 文件未找到 的实时错误, 如图 所示 以读入方式打开文件时, 指明的文件必须存在, 如果要打开的文件不存在或文件名写错, 系统将产生错误 在当前目录下建立一个名为 PlainFile.txt 的文本文件, 并输入相应文本, 程序运行正确 图 文件加密的调试界面 (2) 结果分析 运行时, 单击 读入 按钮, 运行结果如图 1-9-5(a) 所示 ; 接着单击 加密 按钮, 运行结果如图 1-9-5(b) 所示 ; 然后单击 保存 按钮, 在当前目录下生成如图 所示的文件 CipherFile.txt (a) 读入 (b) 加密 图 文本加密的运行界面 2. 在标题为 文件数据求和 的窗体 Form1 上, 添加两个文本内容为空的文本框 Text1 和 Text2, 其中 Text1 有水平滚动条 ; 然后再添加两个标题分别为 读入数据 和 奇数和

63 55 第一篇上机实验 55 的命令按钮 Command1 和 Command2 程序运行时, 单击 读入数据 按钮, 将当前目录下 Num.txt 文件 ( 如图 所示 ) 中的 20 个正整数依次 读入数组 a, 并显示在 Text1 中 ; 单击 奇数和 按钮, 将数组 a 中所有奇数和显示在 Text2 中 要求以 OddSum.frm 为窗体文件名 OddSum.vbp 为工程 文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加两个文本框和两个命令按钮, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 1-9-7(a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如图 (b) 所示 - - 图 Num.txt 文件 对象对象名称属性属性值说明 窗体 Form1 Caption 文件数据求和窗体的标题 Text ( 空白 ) 文本框内没有文字 文本框 Text1 MultiLine True 设置多行显示 ScrollBars 1-Horizontal 设置水平滚动条 文本框 Text2 Text ( 空白 ) 文本框内没有文字 命令按钮 Command1 Caption 读入数据命令按钮的标题 命令按钮 Command2 Caption 奇数和命令按钮的标题 (3) 编写程序代码 (a) 控件布局 图 文本数据求和的设计界面 1 在窗体模块的通用声明段中声明模块级数组 Dim a(1 To 20) As Integer 2 在 读入数据 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() Dim i As Integer Text1.Text = "" Open App.Path & "\Num.txt" For Input As #1 For i = 1 To 20 Input #1, a(i) (b) 属性设置 科学出版社职教技术出版中心

64 56 56 Visual Basic 程序设计实践教程 Text1.Text = Text1.Text & a(i) & Space(2) Next i Close #1 End Sub 3 在 奇数和 按钮的 Click 事件过程中编写代码 Private Sub Command2_Click() Dim sum As Long, i As Integer sum = 0 For i = 1 To 20 If a(i) Mod 2 <> 0 Then sum = sum + a(i) End If Next i Text2.Text = sum End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 OddSum.frm 为文件名, 将工程以 OddSum.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 在编写读操作语句时, 将文件号写错了, 结果运行时出现 错误的文件号或号码 的实数错误, 如图 所示 在进行读 / 写操作时, 使用的文件号必须与 Open 语句中的文件号相同 将程序中 Input 语句的文件号改为 #1, 程序运行正确 图 文件数据求和的调试界面 (2) 结果分析 运行时, 单击 读入数据 按钮, 运行结果如图 1-9-9(a) 所示 ; 单击 奇数和 按钮, 运行结果如图 1-9-9(b) 所示 (a) 读入数据 (b) 奇数和 图 文本数据求和的运行界面

65 57 第一篇上机实验 打开工程文件 Dsg0901.vbp, 在标题为 满分统计 的窗体 Form1 上, 添加两个文本内容为空的文本框 Text1 和 Text2, 其中 Text1 带有水平滚动条 ; 然后再添加两个标题分别为 读入成绩 和 统计人数 的命令按钮 Command1 和 Command2 程序运行时, 单击 读入成绩 按钮, 将当前目录下 Grade.txt 文件 ( 如图 所示 ) 中的 30 个学生成绩顺序读入数组 a, 并显示在 Text1 中, 数据之间用空格隔开 ; 单击 统计人数 按钮, 在 Text2 中显示数组 a 中成绩为 100 的人数, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0901.frm) 和工程 (Dsg0901.vbp) 图 Grade.txt 文件 图 满分统计的运行界面 2. 打开工程文件 Dsg0902.vbp, 在标题为 字符转换 的窗体 Form1 上, 添加一个文本内容为空 有垂直滚动条的文本框 Text1; 然后再添加两个标题分别为 打开 和 保存 的命令按钮 Command1 和 Command2 程序运行时, 单击 打开 按钮, 则将当前目录下的文件 Infile.txt( 文件中只有字母和空格 ) 读入 Text1 中, 如图 (a) 所示 ; 单击 保存 按钮, 则将 Text1 中的所有小写字母都转换为大写字母, 显示在 Text1 中, 如图 (b) 所示, 然后将转换后 Text1 中的内容存入当前目录下 Outfile.txt 文件中 完成上述功能后, 以原文件名保存窗体 (Dsg0902.frm) 和工程 (Dsg0902.vbp) (a) 打开 (b) 保存 图 字符转换的运行界面 3. 打开工程文件 Dsg0903.vbp, 在标题为 数据选择 的窗体 Form1 上, 添加两个文 本内容为空 有水平滚动条的文本框 Text1 和 Text2; 然后再添加两个标题分别为 读入整 数 和 选择整数 的命令按钮 Command1 和 Command2 程序运行时, 单击 读入整数 按钮, 将当前目录下 Datain.txt 文件 ( 如图 所示 ) 中的 20 个正整数依次读入数组 a, 并显示在 Text1 中 ; 单击 选择整数 按钮, 在 Text2 中顺序显示数组 a 中能被 3 整除的整 数, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0903.frm) 和 工程 (Dsg0903.vbp) 科学出版社职教技术出版中心

66 58 58 Visual Basic 程序设计实践教程 图 Datain.txt 文件 图 数据选择的运行界面 4. 打开工程文件 Dsg0904.vbp, 在标题为 字母统计 的窗体 Form1 上, 添加 3 个标题分别为 读入数据 大写字母 和 小写字母 的命令按钮 Command1 Command2 和 Command3; 然后再添加 3 个文本内容为空的文本框 Text1 Text2 和 Text3, 其中 Text3 带有垂直滚动条 程序运行时, 单击 读入数据 按钮, 将当前目录下 Dialog.txt 文件 ( 如图 所示 ) 中的内容读入到 Text1 中 ; 单击 大写字母 按钮, 将 Text1 中大写字母的个数显示在 Text2 中 ; 单击 小写字母 按钮, 将 Text1 中小写字母的个数显示在 Text3 中, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0904.frm) 和工程 (Dsg0904.vbp) 图 Datain.txt 文件 图 数据选择的运行界面 5. 打开工程文件 Dsg0905.vbp, 在标题为 文件选择 的窗体 Form1 上, 添加一个驱动器列表框 Drive1 一个目录列表框 Dir1 和一个文件列表框 File1,File1 显示的文件类型是文本文件 ; 然后再添加一个文本内容为空 有水平滚动条的文本框 Text1 程序运行时, 驱动器 目录和文件列表框能够同步显示, 单击文件列表框中的文件时, 在 Text1 中显示选中文件带路径的完整文件名, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg0905.frm) 和工程 (Dsg0905.vbp) 图 文件选择的运行界面

67 1. 掌握下拉式菜单和弹出式菜单的设计方法 2. 熟悉菜单编辑器的使用方法 3. 掌握 打开 另存为 颜色 和 字体 对话框的设计方法 4. 了解多文档界面应用程序的设计方法 5. 综合运用常用控件和程序控制结构完成应用程序的设计 1. 在标题为 加减运算 的窗体 Form1 上, 添加两个文本内容为空的文本框 Text1 和 Text2; 然后再添加一个标题为空 有边框的标签 Label1; 接着建立两个标题分别为 计算 和 清除 的菜单 MnuCal 和 MnuClean, 其中 计算 菜单有两个标题分别为 加法 和 减法 的菜单项 MnuAdd 和 MnuSub 程序运行时, 在 Text1 和 Text2 中输入运算数, 选 择 加法 菜单项, 在 Label1 显示加法计算结果 ; 选择 减法 菜单项, 在 Label1 显示 减法计算结果 ; 选择 清除 菜单命令, 清除 Text1 Text2 和 Label1 中的内容 要求以 Dmenu.frm 为窗体文件名 Dmenu.vbp 为工程文件名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加两个文本框和一个标签, 然 后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 (a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性和创建菜单, 设置后的 界面如图 (b) 所示 - - 对象对象名称属性属性值说明 窗体 Form1 Caption 加减运算窗体的标题 文本框 Text1 Text ( 空白 ) 文本框内没有文字 文本框 Text2 Text ( 空白 ) 文本框内没有文字 标签 Label1 Caption ( 空白 ) 标签内没有文字 BorderStyle 1-Fixed Single 设置标签的边框样式 顶级菜单 MnuCal Caption 计算菜单的标题 一级菜单 MnuAdd Caption 加法菜单的标题 一级菜单 MnuSub Caption 减法菜单的标题 顶级菜单 MnuClean Caption 清除菜单的标题 科学出版社职教技术出版中心

68 60 60 Visual Basic 程序设计实践教程 (a) 控件布局 (b) 属性设置 图 加减运算的设计界面 (3) 编写程序代码 1 在 加法 菜单项的 Click 事件过程中编写代码 Private Sub MnuAdd_Click() Label1.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub 2 在 减法 菜单项的 Click 事件过程中编写代码 Private Sub MnuSub_Click() Label1.Caption = Val(Text1.Text) - Val(Text2.Text) End Sub 3 在 清除 菜单项的 Click 事件过程中编写代码 Private Sub MnuClean_Click() Text1.Text = "" Text2.Text = "" Label1.Caption = "" End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏中的 保存工程 按钮, 将窗体以 Dmenu.frm 为文件名, 将工程以 Dmenu.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 使用菜单编辑器创建菜单后, 单击 确定 按钮, 弹出如图 所示的错误信息 由于在建立菜单时没有设置菜单的名称, 因此出现该错误 设置各个菜单的菜单名后, 程序运行正确 图 加减运算的调试界面

69 (2) 结果分析 61 第一篇上机实验 61 运行时, 在文本框 Text1 和 Text2 中分别输入整数 200 和 100, 然后选择 加法 菜单项, 运行结果如图 (a) 所示 ; 选择 减法 菜单项, 运行结果如图 (b) 所 示 ; 选择 清除 菜单项, 运行结果如图 (c) 所示 (a) 加法 (b) 减法 (c) 清除 图 加减运算的运行界面 2. 在标题为 通用对话框示例 的窗体 Form1 上, 添加一个文本内容为空 带有垂直 滚动条的文本框 Text1; 然后再添加两个标题分别为 打开 和 字体 的命令按钮 Command1 和 Command2; 最后添加一个通用对话框 CommonDialog1 程序运行时, 单击 打开 按 钮, 打开标准的 打开 对话框, 对话框默认路径为 C:\WINDOWS, 默认列出的文件 扩展名为.txt 的文件, 选定路径及文件名后, 单击 打开 按钮, 该路径及文件名显示在 Text1 中 ; 单击 字体 按钮, 打开标准的 字体 对话框, 利用该对话框设置 Text1 中文 本的字体 样式和字号 要求以 Cdialog.frm 为窗体文件名 Cdialog.vbp 为工程文件 名保存在 D:\01\ 文件夹中 操作步骤 (1) 创建用户界面 新建一个 标准 EXE 类型的工程, 在窗体 Form1 上添加一个文本框 两个命令按钮和 一个通用对话框, 然后用鼠标调整各个控件的大小和位置, 调整后的控件布局如图 (a) 所示 (2) 设置对象属性 根据设计要求, 按表 所示的值设置各个控件对象的属性, 设置后的界面如 图 (b) 所示 CommonDialog1 (a) 控件布局 (b) 属性设置 图 通用对话框示例的设计界面 - - 对象对象名称属性属性值说明 窗体 Form1 Caption 通用对话框示例窗体的标题 文本框 Text1 Text ( 空白 ) 文本框内没有文字 科学出版社职教技术出版中心

70 62 62 Visual Basic 程序设计实践教程 对象对象名称属性属性值说明 续表 文本框 Text1 MultiLine True 设置多行显示 ScrollBars 2-Vertical 设置垂直滚动条 命令按钮 Command1 Caption 打开命令按钮的标题 命令按钮 Command2 Caption 字体命令按钮的标题 (3) 编写程序代码 1 在 打开 按钮的 Click 事件过程中编写代码 Private Sub Command1_Click() CommonDialog1.InitDir = "C:\WINDOWS" CommonDialog1.Filter = " 文本文件 *.txt 所有文件 *.*" CommonDialog1.FilterIndex = 1 CommonDialog1.Action = 1 If Trim(CommonDialog1.FileName) <> "" Then Text1.Text = CommonDialog1.FileName Else Text1.Text = "" End If End Sub 2 在 字体 按钮的 Click 事件过程中编写代码 Private Sub Command2_Click() CommonDialog1.Flags = 3 CommonDialog1.ShowFont If CommonDialog1.FontName <> "" Then Text1.FontName = CommonDialog1.FontName End If Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic End Sub (4) 保存工程 选择 文件 保存工程 命令, 或者单击常用工具栏的 保存工程 按钮, 将窗体以 Cdialog.frm 为文件名, 将工程以 Cdialog.vbp 为文件名保存在 D:\01\ 文件夹中 实验调试与结果分析 (1) 实验调试 程序运行时, 单击 字体 按钮, 弹出如图 所示的错误信息 这是由于没有设置 CommonDialog 控件的 Flags 属性 通常设置该值为 3, 表示屏幕字体 打印机字体两者皆有 在语句 CommonDialog1.ShowFont 前添加语句 CommonDialog1.Flags = 3 之后, 程序运行正确 (2) 结果分析 运行时, 单击 打开 按钮, 打开标准的 打开 对话框, 在 C:\WINDOWS 目录下选择文件 SchedLgU.Txt, 单击 打开 按钮, 运行结果如图 (a) 所示 ; 单击 字体 按钮, 打开标准的 字体 对话框, 在对话框中选择 楷体 _GB2312 粗体 小三, 单击 确定 按钮, 运行结果如图 (b) 所示

71 63 第一篇上机实验 63 图 通用对话框示例的调试界面 (a) 打开 (b) 字体 图 通用对话框示例的运行界面 1. 打开工程文件 Dsg1001.vbp, 在标题为 菜单设计 的窗体上, 添加一个文本内容 为 程序设计基础 的文本框 Text1,Text1 的文字为粗体 小三号 居中, 且处于不可编 辑状态 ; 然后建立两个标题分别为 文件 和 编辑 的菜单 MnuFile 和 MnuEdit, 文件 菜单有 3 个标题分别为 打开 保存 退出 的菜单项 FOpen FSave 和 FExit, 在 退 出 菜单项之前有一个分隔条 Sep, 其中, 保存 菜单项在运行时处于非激活状态, 退 出 菜单项的快捷键为 Ctrl+Q 程序运行时, 选择 编 辑 菜单项, 则 Text1 中的内容可编辑, 且 保存 菜单 项处于激活状态 ; 选择 保存 菜单项, 则 Text1 中的内 容不可编辑, 且 保存 菜单项处于非激活状态, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg1001.frm) 和工程 (Dsg1001.vbp) 图 菜单设计的运行界面 2. 打开工程文件 Dsg1002.vbp, 在标题为 数据显示 的窗体 Form1 上, 添加一个文本内容为空的文本框 Text1; 然后建立一个标题为 操作 的主菜单 Op, 操作 菜单有两个标题分别为 显示 和 清除 的菜单项 Dis 和 Clea 程序运行时, 选择 显示 菜单项, 在 Text1 中显示 计算机等级考试, 如图 (a) 所示 ; 选择 清除 菜单项, 清除 Text1 中显示的内容, 如图 (b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg1002.frm) 和工程 (Dsg1002.vbp) (a) 显示 (b) 清除 图 数据显示的运行界面 科学出版社职教技术出版中心 3. 打开工程文件 Dsg1003.vbp, 在标题为 算术运算 的窗体 Form1 上, 添加两个文

72 64 64 Visual Basic 程序设计实践教程 本内容为空的文本框 Text1 和 Text2; 然后再添加一个标题为空 有边框的标签 Label1; 接着建立两个标题分别为 计算 和 清除 的菜单 MnuCal 和 MnuClean; 计算 菜单有两个标题分别为 平方和 和 平方差 的菜单项 SqAdd 和 SqSub 程序运行时, 在 Text1 和 Text2 中输入运算数, 选择 平方和 菜单项, 在 Label1 中显示计算结果, 如图 (a) 所示 ; 选择 平方差 菜单项, 在 Label1 中显示计算结果, 如图 (b) 所示 ; 选择 清除 菜单项, 清除 Text1 Text2 和 Label1 中的内容, 如图 (c) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg1003.frm) 和工程 (Dsg1003.vbp) (a) 平方和 (b) 平方差 (c) 清除 图 算术运算的运行界面 4. 打开工程文件 Dsg1004.vbp, 在标题为 颜色设置 的窗体 Form1 上, 添加一个形状控件 Shape1, 其填充方式为 0-Solid ; 然后建立一个 颜色 菜单 MnuColor, 颜 色 菜单有两个标题分别为 蓝色 和 红色 的菜单项 MnuBlue 和 MnuRed 程序运 行时, 选择 蓝色 或 红色 菜单项, 形状控件的填充颜色变为蓝色或红色, 运行界面如图 所示 完成上述功能后, 以原文件名保存窗体 (Dsg1004.frm) 和工程 (Dsg1004.vbp) 5. 打开工程文件 Dsg1005.vbp, 在标题为 查找算法 的窗体 Form1 上, 添加一个文本内容为空的文本框 Text1 和一个列表框 List1; 然后建立一个标题为 操作 的主菜单 MnuOp, 操作 菜单有两个标题分别为 查找 和 清除 的菜单项 Find 和 Clea 程序运行时, 在 Text1 中输入一个正整数 n, 选择 查找 菜单项, 在 List1 中按从小到大顺序显示 1~n 之间所有平方根为整数的数, 如图 (a) 所示 ; 选择 清除 菜单项, 清除 Text1 和 List1 中显示的内容, 如图 (b) 所示 完成上述功能后, 以原文件名保存窗体 (Dsg1005.frm) 和工程 (Dsg1005.vbp) (a) 查找 (b) 清除 图 颜色设置的运行界面 图 查找算法的运行界面 提 示 整数 x 的平方根为整数的条件表达式可描述为 Sqr(x) = Int(Sqr(x))