内容提要! " # $ % & ' ()*+,-./0 1 ( VisualBasic8 9 :; ' VisualBasic 1< 1< A% B CDE A F G H A I J C KL0 M3KL 2 N O 5 ( ( ) * ( '0 PQ=

Transcription

1 高等学校计算机基础课程经典实验案例集丛书 教育部高等学校计算机基础课程教学指导委员会 组织编写 VisualBasic 程序设计经典实验案例集 VisuɑlBɑsicChenɡxuShejiJinɡdiɑnShiyɑnAnliji 龚沛曾吴文虎 主编 主审

2 内容提要! " # $ % & ' ()*+,-./0 1 ( VisualBasic8 9 :; ' VisualBasic 1< =>1<?@ 1< A% B CDE A F G H A I J C KL0 M3KL 2 N O 5 ( ( ) * ( '0 PQ= 57R ()* 108R ( ' ST (UV 2(WV V XYV V ST ( 2 3RZ0 ([\]^ (KL_` ano bc JC / C : 2 VisualBasic ( : 2!C0 图书在版编目 (CIP) 数据 VisualBasic 程序设计经典实验案例集 / 龚沛曾主编. -- 北京 : 高等教育出版社, ( 高等学校计算机基础课程经典实验案例集丛书 / 陈国良, 李廉主编 ) ISBN Ⅰ.1V Ⅱ.1 龚 Ⅲ.1 BASIC 语言 - 程序设计 - 高等学校 - 教学参考资料 Ⅳ. 1TP312 中国版本图书馆 CIP 数据核字 (2012) 第 号!"# 4$ %&' mm 960mm1/16 (22.75 )*410+),-./ htp:// htp:// htp:// :; ; ; FG H I $

3 高等学校计算机基础课程经典实验案例集丛书 编委会 主 编 陈国良 ( 中国科学技术大学 深圳大学 ) 李廉 ( 合肥工业大学 ) 执行主编 冯博琴 ( 西安交通大学 ) 委员 ( 按姓氏拼音排序 ) 陈文革 ( 西安交通大学 ) 耿国华 ( 西北大学 ) 龚沛曾 ( 同济大学 ) 何钦铭 ( 浙江大学 ) 李雁翎 ( 东北师范大学 ) 杨志强 ( 同济大学 ) 郑莉 ( 清华大学 ) 邹逢兴 ( 国防科学技术大学 )

4 丛书序 教育部高等学校计算机基础课程教学指导委员会 ( 以下简称 教指委 ) 于 2009 年发布了 高等学校计算机基础教学战略研究报告暨计算机基础课程教学基本要求 ( 以下简称 基本要求 ), 其中首次提出了完整的计算机基础实验教学体系, 提高了计算机基础教学的科学性和规范性 为了更好地指导计算机基础实验教学, 为师生提供一批经典或优秀的实验项目和案例, 以系统地诠释计算机基础实验教学体系的内涵, 教指委于 2009 年启动了 计算机基础课程实验项目教学资源的建设 项目, 项目成果就是呈现在读者面前的这套 高等学校计算机基础课程经典实验案例集丛书 定位与内容本套丛书力图集中国家级精品课程和国家级计算机实验教学示范中心的优质资源, 精心打造一批科学的 权威的 具指导性的实验项目和案例 ; 希望能够借此为提升中国高校计算机基础的实验教学水平 规范课程教学奠定扎实基础 ; 通过若干年的努力和不断积累, 凝练出一批传世的经典实验项目和案例 本套丛书针对 基本要求 提出的 6 门核心课程编写,6 门核心课程分别为 : 大学计算机基础 程序设计基础 微机原理与接口技术 数据库技术及应用 多媒体技术及应用 计算机网络技术及应用 ; 分为如下 9 个分册 : 大学计算机基础 C 语言程序设计 VisualBasic 程序设计 面向对象程序设计 计算机网络技术 数据库技术 (Access) 数据库技术 (SQLServer) 微机原理与接口技术 多媒体技术

5 Ⅱ 丛书序 每一分册均力求做到涵盖该课程所有的技能点, 涵盖基础验证型 综合设计型 创新研究型 3 类实验, 涵盖理工 农林 医药类各专业所需 每一分册包括实验项目和典型实验案例两个部分 实验项目分为经典项目和现代项目两类 : 经典项目是指具有内容基础性 适用普遍性 实验平台无关性等特点的案例 ; 现代项目强调应用性 趣味性, 是一类贴近技术进步的项目 典型实验案例通过接近实际应用的案例把本领域的主要实验单元和技能点串联起来, 引导学生学习解决问题的方法, 同时展示完整和规范的实验设计过程, 包含实验目的 实验要求 / 内容 参考样张 实验指导 实验报告要求 实验思考题和建议环境等内容 质量保障教指委从以下 3 个方面来保证本套丛书的内容质量 (1) 高水平的作者队伍 教指委最大限度地集中了国内计算机基础实验教学资源和有关专家 4 位国家级教学名师奖获得者担任分册主编, 作者队伍中有 6 个国家级实验教学示范中心和 5 名国家级教学团队的成员以及 17 门国家级精品课程的主持人 各位作者以极大的热忱投入到这项工作中来, 使得丛书质量有了基本的保障 (2) 严格的审核机制 每个分册经过其他分册作者的交叉检查, 同时邀请不同领域的权威专家对书稿进行了认真审读, 几易其稿, 才最终交付出版 (3) 开放式的运行模式 每一分册计划每 2~3 年更新一次, 采用开放的方式遴选优秀实验项目和案例, 鼓励任课教师提供在教学过程中积累的优秀实验项目和案例, 参与分册的写作和更新 通过滚动 开放的工作模式, 进一步保证丛书的科学性 先进性 致谢与期望丛书的编写得到教育部高等教育司理工教育处 实验室处领导的指导和鼓励 ; 国家级实验教学示范中心计算机学科组给予了大力支持 ; 中国人民大学王珊教授 哈尔滨工业大学唐朔飞教授 清华大学吴文虎教授和杨士强教授 解放军理工大学陈鸣教授 中国传媒大学黄心渊教授认真审阅了相关分册 ; 高等教育出版社全程参与了策划 设计 组织及出版工作 在丛书出版之际, 向他们表示诚挚的谢意 本套丛书的出版是一项艰巨的工程, 教指委是在一年半的时间内完成的, 相对于我们期望成就 经典 的目标而言, 不可避免地存在一定差距 但我们认为这项工作对于提高高校计算机基础教学水平 推进教学的科学性和规范性有着

6 丛书序 Ⅲ 重要意义, 因此我们还是满怀信心地 热切地把这套丛书奉献给高校计算机基础教学第一线的教师和广大学生 同时也希望得到读者的帮助, 使这套丛书在使用中不断完善, 真正成为大家的良师益友 教育部高等学校计算机基础课程教学指导委员会主任委员 2012 年 2 月

7 前 言 本书是教育部高等学校计算机基础课程教学指导委员会组织编写的 高等学校计算机基础课程经典实验案例集丛书 之一 本书基于 VisualBasic6.0 环境平台, 根据课程教学和实验特点, 在程序设计 用户界面设计和应用设计 3 方面均进行了实验安排, 全书分为 10 章, 分别为 VisualBasic 入门和可视化编程基础 VisualBasic 语言基础和顺序结构 选择结构 循环结构 数组 过程 用户界面设计 数据文件 图形技术基础 数据库应用基础 每章内容分为知识要点 实验项目说明 实验案例分析和实验项目汇编 全书遵循基础 经典 趣味 应用和 VisualBasic 程序设计特点相结合的原则, 精选 57 个实验案例分析和 108 个实验项目汇编, 按照实验类型分为验证型 设计型 探索型和综合设计型 ; 按照实验难易程度分为易 中等 难 其中, 实验案例分析有实现方法的详细分析和解题的参考代码, 可作为教师的课堂教学实例 ; 实验项目汇编可作为学生上机实验使用 需要说明的是, 书中给出的参考代码不是案例的唯一解, 计算机解决同一问题有多种方法, 读者不要被书中的代码和思路所束缚, 关键是要抓住重点, 开拓思路, 提高分析问题 解决问题的能力 全书由龚沛曾主编, 龚沛曾 许兰兰 杨志强 袁科萍 孙丽君 朱君波 谢步瀛 陆慰民等参与完成实验项目案例和汇编的收集及整理 清华大学吴文虎教授审阅了本书, 提供了极富价值的修改意见, 在此表示感谢 由于时间仓促, 编者水平有限, 书中难免存在不足之处, 敬请广大读者指正 编者 2012 年 1 月

8 目 录 第 1 章 VisualBasic 入门和可视化编程基础 知识要点 实验项目说明 实验案例分析 实验案例 1-1:VB 集成开发环境和程序调试 实验案例 1-2: 欢迎使用 VB 界面 实验案例 1-3: 文字的选取和复制 实验案例 1-4: 人民币与美元兑换 实验案例 1-5: 浮雕文字 实验案例 1-6: 模拟图片移动和缩放 实验项目汇编 实验项目 1-1: 计数 实验项目 1-2: 制作贺卡 实验项目 1-3: 移动文字 实验项目 1-4: 文字迁移 实验项目 1-5: 显示字符图形 实验项目 1-6: 放大与缩小文字 实验项目 1-7: 简易记事本 实验项目 1-8: 模拟倒计时火箭发射 35 第 2 章 VisualBasic 语言基础和顺序结构 知识要点 38

9 Ⅱ 目录 2.2 实验项目说明 实验案例分析 实验案例 2-1: 温度转换程序 实验案例 2-2: 字符的分离和加密 实验案例 2-3: 简易计算器 实验案例 2-4: 用户登录界面 实验案例 2-5: 整理句子 实验案例 2-6: 字符串替换和标题栏字幕滚动 实验项目汇编 实验项目 2-1: 计算圆周长和圆面积 实验项目 2-2: 求均值 实验项目 2-3: 三角形判定 实验项目 2-4: 数据的分离和交换 实验项目 2-5: 大小写字母转换 实验项目 2-6: 商品销售 实验项目 2-7: 数字钟 实验项目 2-8: 喜从天降 实验项目 2-9: 查找与替换 实验项目 2-10: 房贷计算 71 第 3 章选择结构 知识要点 实验项目说明 实验案例分析 实验案例 3-1: 判断闰年 实验案例 3-2:3 个数的排序 实验案例 3-3: 一元二次方程求根 实验案例 3-4: 分类统计输入字符 实验案例 3-5: 字体格式设置 实验案例 3-6: 四则运算自测 实验项目汇编 实验项目 3-1: 计算上网费用 实验项目 3-2: 猜数游戏 实验项目 3-3: 鸡兔同笼问题 实验项目 3-4: 简单计算器四则运算 实验项目 3-5: 个人所得税计算器 实验项目 3-6: 检查表达式 99

10 目录 Ⅲ 实验项目 3-7: 统计输入的元音字母 实验项目 3-8: 票价显示 实验项目 3-9: 地区时差 实验项目 3-10: 选修课程 实验项目 3-11: 个人简历 实验项目 3-12: 单选题测试 105 第 4 章循环结构 知识要点 实验项目说明 实验案例分析 实验案例 4-1: 打印字符图 实验案例 4-2: 显示九九乘法表 实验案例 4-3: 求多项式和 实验案例 4-4: 有规律数据和 实验案例 4-5: 倒计时显示器 实验案例 4-6: 计算机协助破案程序 实验项目汇编 实验项目 4-1: 有规律字符图形显示 实验项目 4-2: 圣诞树 实验项目 4-3: 水仙花数 实验项目 4-4: 求最大公约数 实验项目 4-5: 幸运数字 实验项目 4-6: 数字之美 实验项目 4-7: 求自然对数 e 实验项目 4-8: 求圆周率 π 实验项目 4-9: 求高次方程的根 实验项目 4-10: 运动员训练 实验项目 4-11: 英文打字训练 实验项目 4-12: 三色调色板 实验项目 4-13: 图片自由缩放 实验项目 4-14: 模拟打字机效果 实验项目 4-15: 模拟龟兔赛跑 实验项目 4-16: 模拟车子在交通灯的控制下行驶 148 第 5 章数组 知识要点 实验项目说明 157

11 Ⅳ 目录 5 3 实验案例分析 实验案例 5-1: 分数转换和分数段统计 实验案例 5-2: 矩阵显示与计算 实验案例 5-3: 插入排序 实验案例 5-4: 循环报数 实验案例 5-5: 魔方阵 实验案例 5-6: 运动员成绩排名 实验案例 5-7: 计算器 实验项目汇编 实验项目 5-1: 成绩显示 实验项目 5-2: 数据移位 实验项目 5-3: 字符分类统计 实验项目 5-4: 筛选法求素数 实验项目 5-5: 数据清理 实验项目 5-6: 读心球 实验项目 5-7: 杨辉三角 实验项目 5-8: 身份证号码校验 实验项目 5-9: 求最大值和最小值 实验项目 5-10: 志愿者报名 实验项目 5-11: 自定义数据类型的使用 实验项目 5-12: 八皇后问题 190 第 6 章过程 知识要点 实验项目说明 实验案例分析 实验案例 6-1: 完数 实验案例 6-2: 字符分离 实验案例 6-3: 数制转换 实验案例 6-4: 字符加密 实验案例 6-5: 成绩合并工具 实验案例 6-6: 打印图形 实验项目汇编 实验项目 6-1: 参数传递 实验项目 6-2: 回文数 实验项目 6-3:sin(x) 实验项目 6-4: 哥德巴赫猜想 216

12 目录 Ⅴ 实验项目 6-5: 组合数 实验项目 6-6: 积分面积 实验项目 6-7: 单词统计 实验项目 6-8: 二分查找 实验项目 6-9: 二分法求根 实验项目 6-10: 最大公约数 实验项目 6-11: 上海世博园欢迎您 223 第 7 章用户界面设计 知识要点 实验项目说明 实验案例分析 实验案例 7-1: 图形浏览程序 实验案例 7-2: 简单文本编辑器 (Ⅰ) 实验案例 7-3: 多重窗体应用程序 实验案例 7-4: 显示鼠标指针位置 实验案例 7-5: 简单画图程序 实验案例 7-6: 菜单和多重窗体应用程序 (Ⅰ) 实验项目汇编 实验项目 7-1: 通用对话框的简单应用程序 实验项目 7-2: 简单文本编辑器 (Ⅱ) 实验项目 7-3: 菜单和多重窗体应用程序 (Ⅱ) 实验项目 7-4: 菜单和多重窗体应用程序 (Ⅲ) 实验项目 7-5: 弹出菜单和 关于 对话框 实验项目 7-6: 菜单计算器程序 实验项目 7-7: 键盘事件应用程序 实验项目 7-8: 实验汇总程序 247 第 8 章数据文件 知识要点 实验项目说明 实验案例分析 实验案例 8-1: 基于顺序文件的简单学生成绩管理程序 实验案例 8-2: 函数积分计算程序 实验案例 8-3: 文本文件加密程序 实验案例 8-4: 随机文件读 / 写验证程序 (Ⅰ) 实验案例 8-5: 学生信息管理程序 (Ⅰ) 实验案例 8-6: 文件合并 260

13 Ⅵ 目录 8.4 实验项目汇编 实验项目 8-1:Print# 和 Write# 语句功能验证 实验项目 8-2: 读写斐波那契数列 实验项目 8-3: 通用对话框与文件处理 实验项目 8-4: 统计英文短文中的字符数和单词数 实验项目 8-5: 计算文件中数据的标准方差 实验项目 8-6: 随机文件读 / 写验证程序 (Ⅱ) 实验项目 8-7: 基于随机文件的学生成绩管理程序 实验项目 8-8: 学生信息管理程序 (Ⅱ) 实验项目 8-9: 通讯录管理程序 实验项目 8-10: 文件复制 271 第 9 章图形技术基础 知识要点 实验项目说明 实验案例分析 实验案例 9-1: 绘制艺术图 实验案例 9-2: 绘制奥林匹克五环旗 实验案例 9-3: 绘制 Sin 曲线 实验案例 9-4: 绘制参数可调艺术图 实验案例 9-5: 绘制各类统计图 实验案例 9-6: 弹簧模拟器 实验项目汇编 实验项目 9-1: 满天星星 实验项目 9-2: 绘制阿基米德螺线 实验项目 9-3: 绘制四叶玫瑰线 实验项目 9-4: 绘制金刚石图案 实验项目 9-5: 模拟行星运动 实验项目 9-6: 模拟指针式时钟 实验项目 9-7: 模拟变速沙漏 实验项目 9-8: 模拟下雪场景 实验项目 9-9: 模拟放焰火 实验项目 9-10: 单摆模拟器 实验项目 9-11: 模拟在交通灯控制下多辆车变速运行 311 第 10 章数据库应用基础 知识要点 实验项目说明 321

14 目录 Ⅶ 10.3 实验案例分析 实验案例 10-1: 飞机航班信息查询系统 (Ⅰ) 实验案例 10-2: 飞机航班信息查询系统 (Ⅱ) 实验项目汇编 实验项目 10-1: 学生基本信息显示 实验项目 10-2: 学生基本信息浏览 实验项目 10-3: 简单数据查询 (Ⅰ) 实验项目 10-4: 简单数据查询 (Ⅱ) 实验项目 10-5: 交互式数据查询 (Ⅰ) 实验项目 10-6: 交互式数据查询 (Ⅱ) 实验项目 10-7: 数据库中数据的更新操作 实验项目 10-8: 多媒体数据的浏览与更新 实验项目 10-9: 综合应用 (Ⅰ) 实验项目 10-10: 综合应用 (Ⅱ) 341 参考文献 344

15 第 1 章 VisualBasic 入门和可视化编程基础 1.1 知识要点 1.VisualBasic 中类和对象的概念类是同类对象集合的抽象, 规定了这些对象的公共属性和方法 ; 对象是类的一个实例 对象和类相当于程序设计语言中变量和变量类型之间的关系 对象有三要素 : 属性 方法和事件 (1) 属性是用于描述对象的某些外部特征 在属性窗口或代码窗口中可对对象的属性进行设置 (2) 方法是对对象实施的一些动作 它实际上是对象本身所内含的一些特殊的函数或过程, 调用这些函数或过程即可实现对应的动作 (3) 事件是由 VisualBasic( 以下简称 VB) 预先设置好的 能被对象识别的动作 一个对象可以识别和响应多个不同的事件 VB 程序是通过事件驱动执行的, 当在该对象上触发了某个事件后, 就执行一个与事件相关的事件过程 ; 当没有事件发生时, 整个程序就处于等待状态 2. 控件在 VB 中, 窗体 控件 菜单等都是 VB 中的对象, 它们是应用程序的 积木块, 共同构成用户界面 控件以图标的形式存放在工具箱中 本节主要介绍最基本的 6 个控件 1) 窗体窗体是一块 画布, 是所有控件的容器 应用程序的建立都是从窗体开始设计界面 设置属性 编写代码的 在设计时, 窗体是程序员的 工作台, 在运行时, 每个窗体对应一个窗口 2) 标签标签用于在窗体上显示某些文字, 通过 Caption 属性来设置, 但是不能作为

16 2 第 1 章 VisualBasic 入门和可视化编程基础 输入信息的界面 3) 文本框文本框用于输入 编辑和显示信息, 通过 Text 属性来实现 实际上, 文本框本身就是一个简便的文本编辑器 4) 命令按钮命令按钮用于启动事件过程的执行, 通过 Click 事件实现 5) 图片框图片框和窗体一样, 是一个容器, 用于显示图片, 也可以通过 Print 方法显示文字 图片显示形式通过 AutoSize 属性控制, 当 AutoSize 值为 True 时, 图片框的大小将随着图片的大小而同步变化 ; 当 AutoSize 值为 False 时, 图片框的大小不变, 当装入的图片超过图片框的大小时截取显示 6) 图像框图像框只能显示图片, 通过 Stretch 属性控制图片显示形式, 当 Stretch 值为 True 时, 图片的大小随着图像框的大小同步变化, 利用这一属性, 可实现图片的缩放显示 ; 当 Stretch 值为 False 时, 图像框的大小不变, 当装入的图片超过图像框的大小时截取显示 3. 创建 VB 应用程序的过程 (1) 建立用户界面的控件对象 ( 简称控件 ) (2) 设置控件属性 (3) 控件事件过程及编程 (4) 保存应用程序 (5) 调试和运行程序 4.VB 集成开发环境作为一个集编辑 编译 运行功能于一体的集成开发环境, 初学者应主要掌握以下知识点 1) 工作状态的 3 种模式 (1) 设计模式 : 可以进行程序的界面设计 属性设置 代码编写等 单击按钮时进入运行模式 (2) 运行模式 : 可以查看程序代码, 但不能修改 当程序运行出错时或单击按钮时可暂停程序的运行, 进入中断模式 (3) 中断模式 : 此时可查看代码 修改代码 检查数据 单击按钮时停止程序的运行 ; 单击按钮时程序继续运行, 进入运行模式 2) 编辑程序时的各主要窗口主窗口 ( 菜单栏 工具栏 ) 工具箱窗口 属性窗口 代码窗口 工程资源管理

17 1.1 知识要点 3 器窗口 3) 程序运行和生成可执行文件在 VB 中, 可通过 运行 启动 命令以解释运行模式运行程序, 便于调试程序, 但速度较慢 ; 也可通过 文件 生成.exe 命令将 VB 源程序生成可执行程序, 然后在 Windows 环境中执行 ( 但这时必须在 Windows 环境中有 VB 程序所需的动态链接库 ) 5.VB 程序的错误类型在 VB 中, 常见错误可分为以下 3 种 (1) 语法错误 : 编辑程序时输入错误或编译时发生语法错误, 系统会检查出来, 显示 编译错误 并提示用户纠正 (2) 运行时错误 : 程序没有语法错误, 但运行时出错, 当单击 调试 按钮时, 程序将停留在引起错误的那一句上, 要求用户修改 (3) 逻辑错误 : 程序正常运行后得不到期望的结果 这类错误最难检测, 通过设置断点进行调试 6. 程序调试程序的调试一般采用如下方法 (1) 设置断点 程序运行到有断点的地方处于中断模式, 然后逐语句跟踪相关变量 属性和表达式的值判断其是否在预期的范围内 (2) 利用 Debug.Print 方法在 立即 窗口中显示相关变量的值 7.VB 程序的构成与管理 1)VB 程序的组成在 VB 中, 一个应用程序就是一个工程, 以.vbp 工程文件保存, 一个工程中必须包含一个 ( 有时多个 ).frm 窗体文件 一个自动产生的.frx 二进制文件 ( 如由属性窗口装入的图片等 ), 还可以有.bas 标准模块等文件 ( 见图 1.1) 图 1 1 VB 程序的组成 2) 程序的保存在完成一个应用程序的创建 编辑 调试操作后, 应将其保存在外部存储介质中 注意, 在保存一个工程时不要遗漏了某个文件, 一般先保存.frm 文件 ( 若有多个.frm 或.bas 文件, 应分别保存 ), 最后保存工程文件 窗体名称和窗体文

18 4 第 1 章 VisualBasic 入门和可视化编程基础 件名是不同的, 前者是在程序中使用的窗体对象名 ; 后者是存放在磁盘上的文件名 3) 程序装入当将一个工程装入时, 系统会自动装入该工程的所有文件 8.VB 帮助系统的安装和使用与以前的 VB 版本不同的是,VB6.0 联机帮助文件都使用 MSDN 文档的帮助方式, 与 VB6.0 系统不在同一光盘上, 而与 VisualStudio 产品的帮助集合在两张光盘上, 在安装过程中, 系统会提示插入 MSDN 盘 使用 VB 帮助最方便的方法是选中欲帮助的对象, 按 F1 键, 即可显示该对象的帮助信息 9. 常见错误分析 (1) 在 VB 集成环境中没有显示 工具箱 等窗口 只需选择 视图 工具箱 命令即可使其显示出来 ; 同样选择 视图 菜单中的有关命令也可显示对应的窗口 (2) 标点符号错误 在 VB 中只允许使用西文标点, 使用的任何中文标点符号在编译程序时都会产生 无效字符 错误, 系统在该行以红色字显示 用户在进入 VB 后不要使用中文标点符号 (3) 字母和数字形状相似 L 的小写字母 l 和数字 1 的形状几乎相同, O 的小写字母 o 与数字 0 也难以区别, 这在输入代码时要十分注意, 避免单独使用这样的字母作为变量名 (4) 对象名称 (Name) 属性写错 在窗体上创建的每个控件都有默认的名称, 用于在程序中唯一标识该控件对象 当程序中的对象名写错时, 系统显示 要求对象 的信息, 并以黄色背景显示出错的语句 用户可以在代码窗口的 对象 列表框中检查该窗体所使用的对象 (5)Name 属性和 Caption 属性混淆 Name 属性的值用于在程序中唯一标识该控件对象, 例如,Text1 Text2 Command1 Label1, 在窗体上不可见 ; 而 Caption 属性的值是在窗体上显示的内容 (6) 语句书写位置不正确 在 VB 中, 除了在 通用声明 段使用 Dim 等变量声明语句和 Option 语句外, 其他任何语句都应写在事件过程中 ; 否则运行时会显示 无效外部过程 的信息 若要对模块级变量进行初始化工作, 则一般放在 Form_Load() 事件过程中 (7) 无意形成控件数组 若要在窗体上创建多个命令按钮, 有些读者会先创建一个命令按钮控件, 然后对该控件进行复制 粘贴操作, 这时系统会显示信

19 1.2 实验项目说明 5 息 已经有一个控件为 Command1 创建一个控件数组吗? 应单击 否 按钮, 则产生 Caption 相同, 但 Name 不同的控件 ; 若单击 是 按钮, 则创建名称为 Command1 的控件数组 若要对该控件的 Click 事件过程编程, 则系统显示如下框架 : PrivateSubCommand1_Click(IndexAsInteger) 其中 Index 表示控件数组的下标 若非控件数组,Click 事件过程的框架如下 : PrivateSubCommand1_Click() 控件数组将在第 5 章介绍 (8) 打开工程时找不到对应的文件 一般地, 一个最简单的应用程序也应由一个工程.vbp 文件和一个窗体.frm 文件组成 工程文件记录该工程内的所有文件 ( 窗体.frm 文件 标准模块.bas 文件等 ) 的名称和存放在磁盘上的路径.frm 存放的是系统生成的界面代码和编写的事件过程代码 若仅保留了.vbp 文件而没有保留.frm 文件, 则下次打开工程时将显示 文件未找到 的信息 1.2 实验项目说明 表 1.1 中列出了本章的所有实验案例和实验项目的类型及其难易度, 读者可以根据表中的编号, 在 1.3 节和 1.4 节中找到相应的详细内容 建议实施方案 :6 个实验案例作为课堂案例教学使用,8 个实验项目作为机房实验使用

20 6 第 1 章 VisualBasic 入门和可视化编程基础 表 1.1 实验项目说明 编号实验名称知识点类型难易度 1-1 VB 集成开发环境和程序调试 集成开发环境和程序调试过程验证型简单 控件的建立 涉及控件 : 标签 文本框 命令按钮 1-2 欢迎使用 VB 界面 属性的设置涉及属性 :Caption Font BackStyle 验证型 简单 BorderStyle Alignment Picture Click 事件 属性的设置 实验案 1-3 文字的选取和复制 涉及属性 :SelStart SelLength SelText MultiLine ScrolBars SetFocus 方法 设计型 中等 例 1-4 人民币与美元兑换 KeyPress LostFocus 事件数据的合法性检验 设计型 中等 属性的设置 1-5 浮雕文字 涉及属性 : BackColor CurentX CurentY AutoRedraw 设计型 难 Print Cls 方法 1-6 模拟图片移动和缩放 涉及控件 Image 图像框定位控件的属性 (Left Top) 设置控件大小的属性 (Height Width) 综合设计型 难

21 1.2 实验项目说明 7 续表 编号实验名称知识点类型难易度 属性的设置 1-1 计数 涉及属性 : Caption FontSize 验证型 简单 Enabled Alignment 属性的设置 涉及属性 :AutoSize ForeColor Visible 1-2 制作贺卡 MousePointer MouseIcon 验证型 简单 用代码设置属性 装入图片 Load 事件 浮雕效果 1-3 移动文字 利用 Left Top 属性文字移动 设计型 简单 Move 方法 实验 1-4 文字迁移 Mid 函数的使用字符串的连接 设计型 中等 项目 1-5 显示字符图形 Print 方法的使用 Tab 与 Spc 函数之间的区别 设计型 中等, 与 ; 之间的区别 1-6 放大与缩小文字 随机函数的使用字号的改变 按钮有效性的控制 设计型 中等 文本框常用属性的使用和设置 1-7 简易记事本 命令按钮及其属性的使用和设置按钮有效性的控制 综合设计型 难 MouseMove 方法 控件的建立 1-8 模拟倒计时火箭发射 涉及控件 : 定时器属性的设置涉及属性 :Interval Enabled 综合设计型 难 Timer 事件

22 8 第 1 章 VisualBasic 入门和可视化编程基础 1.3 实验案例分析 实验案例 1-1:VB 集成开发环境和程序调试 1. 实验名称 VB 集成开发环境和程序调试 2. 实验目的 (1) 掌握 VB6.0 的启动与退出方法 (2) 了解 VB6.0 的集成开发环境, 熟悉各主要窗口的作用 (3) 掌握建立 编辑和运行一个 VB 应用程序的全过程 (4) 掌握常用控件 ( 文本框 标签 命令按钮 ) 的使用方法 (5) 掌握 VB 中数据的输入与输出方法 (6) 了解在开发程序的过程中会出现的错误类型和调试错误的方法 3. 实验任务设计一个简单的存款计算器, 要求如下 (1) 在文本框中输入存款金额 年数 年利率, 如图 1.2 所示 (2) 单击 计算 按钮后, 用信息框输出扣除 5% 利息税后到期的本息金额总数及利息 本息金额总数保留到小数点后两位, 如图 1.3 所示 图 1.2 输入界面 图 1.3 计算结果 4. 实验分析 1) 设计分析 (1) 通过下面的公式可求得本息总额 : 利息 = 存款金额 年数 年利率 /100 利息税 = 利息 5%

23 1.3 实验案例分析 9 本息总额 = 本金 + 利息 - 利息税 (2) 要保留小数点后两位可使用 Format 函数 (3) 对输入的数据进行合法性检查, 以确保程序运行的正确性 2) 实验指导 (1) 进入 VB 开发环境 通过 开始 菜单启动 VB6.0 应用程序, 屏幕上出现如图 1.4 所示的界面 图 1.4 VB6.0 应用程序界面 (2) 建立一个新的工程 选择 新建 选项卡, 从中选择 标准 EXE 选项 ( 默认 ), 然后单击 打开 按钮, 进入如图 1.5 所示的 VB6.0 应用程序集成开发环境 (3) 建立控件和设置控件属性 首先建立所需的控件, 然后设置控件属性 根据题目要求, 在窗体上建立 3 个标签 ( 单击工具箱中的按钮 ), 其 Caption 属性分别设置为 存款金额 年数 年利率 % ; 建立 3 个文本框 ( 单击工具箱中的按钮 ), 用来输入 3 个数据 ; 建立一个命令按钮 ( 单击工具箱中的按钮 ), 用于执行计算的过程代码

24 10 第 1 章 VisualBasic 入门和可视化编程基础 图 1.5 VB6.0 应用程序集成开发环境 1 建立控件并进行属性设置 : 单击工具箱中的控件 在窗体的合适位置画出一个矩形区域 用鼠标选中该控件 通过属性窗口设置属性 2 设置窗体的标题属性 单击窗体窗口 在属性窗口中查找 Caption 属性 在 Caption 属性栏中输入 存款计算器, 如图 1.6 所示 图 1.6 属性窗口 其他控件属性的设置见表 1.2

25 1.3 实验案例分析 11 表 1.2 实验案例 1-1 属性设置 控件名 属性 Form1 Label1 Label2 Label3 Text1 Text2 Text3 Command1 Caption=" 存款计算器 " Caption=" 存款金额 ";Font 属性 : 字号为四号, 字体为楷体 Caption=" 年数 ";Font 属性 : 字号为四号, 字体为楷体 Caption=" 年利率 %";Font 属性 : 字号为四号, 字体为楷体 Text="" Text="" Text="" Caption=" 计算 " 注意 : 当程序中对象的属性名 方法名写错时,VB 系统会给出 方法或数据成员未找到 的信息 在编写程序代码时, 尽量使用自动列出成员的功能, 即当用户输入控件对象名和句点后, 系统会自动列出该控件对象在运行模式下可用的属性和方法 ( 见图 1.7,text1 对象的成员由系统自动列出 ), 用图 1.7 自动列出成员户按空格键或双击鼠标即可, 这样既可减少输入, 也可防止此类错误出现 (4) 建立对象事件过程和输入代码 方法是打开代码窗口 创建事件的模板 在模板中输入代码 打开代码窗口并创建事件的模板, 可采用以下两种方法 1 双击要为其编写事件过程的控件, 打开代码窗口, 显示该控件默认事件的模板 若该控件的事件不是默认事件, 则应在过程列表框中选择与选中对象相关的事件, 单击所选事件后, 显示该事件的模板 2 单击工程资源管理器窗口中的按钮, 打开代码窗口, 在代码窗口的对象列表框中选择对象, 如图 1.8 所示 ; 在过程列表框中选择与选中对象相关的事件, 如图 1.9 所示, 单击所选事件后, 显示该事件的模板 设计程序时, 则在如图 1.10 所示的位置输入代码 (5) 运行程序 单击工具栏中的启动按钮运行程序 程序运行后, 在文本框中输入数据, 单击 计算 按钮, 显示结果

26 12 第 1 章 VisualBasic 入门和可视化编程基础 图 1.8 对象列表框 图 1.9 事件列表框 图 1.10 代码窗口 (6) 保存文件 选择 文件 保存工程 命令, 或单击工具栏中的 保存工程 按钮 第一次保存文件, 系统会先提示保存窗体文件, 接着提示保存工程文件, 按要求在指定位置输入窗体文件名和工程文件名即可 注意 : 在 VB 环境外, 若随便更改窗体文件名, 打开工程时会显示 文件未找到 的信息 解决此问题的方法 : 一是通过记事本应用程序打开.vbp 工程文件, 修改其中的有关文件名 ; 二是选择 工程 添加窗体 菜单中的 现存 命令, 将重命名后的窗体加入到工程中 5. 程序调试 1)VB 中的常见错误 (1) 语法错误 编辑程序时, 输入错误或编译时语言成分错误, 系统会检查出来, 显示 编译错误 并提示用户纠正 例如, 表达式未输入完毕, 按回车键, 就会弹出如图 1.11 所示的提示对话框

27 1.3 实验案例分析 13 图 1.11 语法错误 (2) 运行时错误 程序没有语法错误, 但运行时出错, 当单击 调试 按钮时, 程序将停留在引起错误的那一句上, 要求用户修改 例如, 将字符串 利息 与数值型变量 lx 用 + 运算符连接起来, 运行时就会报错, 当单击 调试 按钮时, 程序将停留在引起错误的语句上, 如图 1.12 所示, 此时, 将 + 改为 &, 单击按钮 ( 此时为 继续 按钮 ), 程序继续执行下面的语句 图 1.12 运行时错误 (3) 逻辑错误 程序正常运行后得不到预期的结果, 可通过设置断点进行调试 例如, 将 lxs=lx 0.05 语句输入成 lxs=lx 0.5, 程序正常运行后, 利息税比实际要高许多 对于逻辑错误, 通常采用设置断点的方法, 也可利用 Debug.Print 方法, 通过 立即 窗口显示相关变量的值来找出错误所在 2) 程序的调试程序的调试采用设置断点和逐语句跟踪相结合的方法, 步骤如下 (1) 设置断点 选择可能出错的语句所在的行作为断点, 通过如下方法进行设置

28 14 第 1 章 VisualBasic 入门和可视化编程基础 1 在图 1.13(a) 中的鼠标所在处单击 2 在光标所在的语句处按 F9 键 设置断点后, 单击工具栏中的启动按钮运行程序, 程序运行到该断点处停下, 进入中断模式, 将鼠标指向在此之前所关心的变量 属性 表达式处, 稍微停一下, 鼠标下方便显示该变量值, 如图 1.13(b) 所示 图 1.13 设置断点调试程序 (2) 逐语句跟踪 继续跟踪断点之后语句的执行情况, 按 F8 键或选择 调试 菜单中的 逐语句 命令执行 6. 实验代码 OptionExplicit 强制显式声明变量 PrivateSubCommand1_Click() Dim a!,b!,c!,lx!,lxs!,bl! a=val(text1.text) b=val(text2.text) c=val(text3.text) lx=a b c/100 求利息 lxs=lx 0.05 求利息税 bl=a+lx-lxs 求本息总额, 保留两位小数 MsgBox(" 利息 :"& lx& " 利息税 :"& lxs& vbcrlf& " 到期本息 :"& _ Format(bl,"0.00")) 7. 实验思考 (1) 若存款金额 年数 年利率从键盘输入, 在文本框中显示结果, 则程序应如何修改? (2) 结果是否一定要通过单击按钮才能求得? 还有其他方法吗? (3) 在设计阶段, 对窗体 标签等控件直接设置了属性, 若要通过代码设置, 应放在什么事件中? 如何实现?

29 1.3 实验案例分析 实验案例 1-2: 欢迎使用 VB 界面 1. 实验名称欢迎使用 VB 界面 2. 实验目的 (1) 掌握创建 VB 应用程序 使用 VB 集成开发环境 保存文件的操作 (2) 掌握在窗体中装入图片的方法 (3) 掌握建立标签 文本框 命令按钮以及设置属性的方法 3. 实验任务启动 VB, 创建一个 标准 EXE 类型的应用程序, 要求 : (1) 在窗体上装入一幅图片 (2) 在窗体上放置 3 个标签 1 个文本框和 1 个命令按钮 相应的属性设置见表 1.3 表 1.3 实验案例 1-2 的属性设置 控件名 属性 Form1 Label1 Label2 Text1 Picture 属性 : 校舍.jpg Caption=" 欢迎学习 VisualBasic";Font 属性 : 字号为二号, 字体为隶书 BackStyle 为 Transparent Caption=" 请输入你的姓名 ";Font 属性 : 字体为楷体, 有下划线 BackStyle 为 Transparent Text1="" Command1 Caption=" 你输入的姓名是 " Label3 Caption="",BorderStyle=1,BackStyle 为 Transparent;Font 属性 : 字号 20 粗体 ; Alignment=2(Center) (3) 在文本框 Text1 中输入一个姓名, 单击命令按钮 你输入的姓名是, 通过 Label3 标签显示在文本框 Text1 中输入的姓名 程序运行界面如图 1.14 所示 提示 : (1) 欢迎学习 VisualBasic 要在两行显示, 只需将 Label1 控件的宽度缩小一些即可

30 16 第 1 章 VisualBasic 入门和可视化编程基础 图 1.14 实验案例 1-2 的运行界面 (2) 为了使标签不遮挡背景图,Label1 和 Label2 的 BackStyle 属性应设置为 Transparent 4. 实验分析本实验没有难度, 主要掌握建立一个简单应用程序的过程, 熟悉 VB 集成开发环境, 几乎不涉及编程, 仅在命令按钮的单击事件中有如下赋值语句 : PrivateSubCommand1_Click() Label3.Caption=Text1.Text 5. 实验思考若要通过代码装入背景图 设置标签字体的大小, 则应在什么事件中通过什么语句实现? 实验案例 1-3: 文字的选取和复制 1. 实验名称文字的选取和复制 2. 实验目的 (1) 熟练掌握文本框的一些常用属性的使用和设置 (2) 掌握 SetFocus 方法的用法 3. 实验任务设计一个如图 1.15 所示的界面, 其中有两个文本框, 可以输入多行文字, 它们的有关属性见表 1.4

31 1.3 实验案例分析 17 图 1.15 实验案例 1-3 设计界面 表 1.4 文本框属性 默认控件名 多行属性 (MultiLine) 滚动条属性 (ScrolBars) Text1 True 2(vbVertical) 只有垂直滚动条 Text2 True 3(vbBoth) 同时加水平和垂直滚动条 要求 : (1) 单击 选取 按钮, 根据输入的起始位置和长度选取文本框 Text1 中的内容, 如图 1.16 所示 图 1.16 实验案例 1-3 运行界面 (2) 单击 复制 按钮, 将选取的内容复制到文本框 Text2 中 4. 实验分析标识选取的内容, 通过 SelStart SelLength 属性实现 由于单击 选取 按钮后, 焦点不在文本框中, 所以应通过 SetFocus 方法使焦点回到文本框中 ; 否则无

32 18 第 1 章 VisualBasic 入门和可视化编程基础 法实现内容的选取 5. 实验代码 PrivateSubForm_Load() Text1.FontSize=14 Text2.FontSize=14 PrivateSubCommand1_Click() 单击 选取 按钮 Text1.SetFocus 焦点回到文本框中 Text1.SelStart=Text3.Text 设置起始位置, 第一个字符的位置是 0 Text1.SelLength=Text4.Text 设置要选定的正文长度 PrivateSubCommand2_Click() Text2.Text=Text1.SelText 复制选定的内容 6. 实验思考若将 选取 按钮单击事件改为标签或窗体单击事件, 则是不是必须要有 Text1.SetFocus 语句? 实验案例 1-4: 人民币与美元兑换 1. 实验名称人民币与美元兑换 2. 实验目的 (1) 掌握 SetFocus 方法的用法 (2) 掌握 KeyPress LostFocus 事件的编写 (3) 掌握对输入的数据进行合法性检查的方法 3. 实验任务在窗体上按图 1.17 所示建立各控件, 并设置相应的属性值, 要求 : (1) 在 人民币 或 美元 文本框中输入要兑换的钱款, 在 兑换比率 文本框中输入人民币与美元的兑换比率, 单击相应的兑换按钮进行兑换, 并在文本框中显示结果 ; 单击 清屏 按钮, 清除文本框中的内图 1.17 实验案例 1-4 运行界面

33 1.3 实验案例分析 19 容 ; 单击 结束 按钮, 则停止程序运行 (2) 为了保证程序能正常计算, 要对输入的数据进行有效性检查, 若输入的是非数字数据, 清除文本框中的内容, 并使焦点重新回到该文本框 4. 实验分析 (1) 对输入的数据进行检验时, 通过 IsNumeric 函数来判断输入的是否为数字字符 (2) 命令按钮上显示的 等特殊字符, 可通过软键盘来输入, 方法是在智能 ABC 输入方式下, 指向软键盘图标, 选择快捷菜单中的 单位符号 选项, 再选择 和 字符 (3) 在文本框中输入数据, 可以通过按回车键或按 Tab 键表示输入结束, 但引发的事件不同 按回车键, 焦点没有离开, 通过 KeyPres 事件来判断 ; 按 Tab 键, 焦点离开该控件, 通过 LostFocus 事件来判断 (4)3 个 LostFocus 事件用来对输入的数据进行检验, 在文本框中输入的数据是否数字字符可以通过 IsNumeric 函数来判断, 但编写时要注意, 若 Text2 Text3 的 LostFocus 事件采用如下形式 : PrivateSubText1_LostFocus() IfNotIsNumeric(Text1)Then Text1="" Text1.SetFocus EndIf 则当在 Text1 中输入的数据错误时, 焦点会在 Text2 处不停地闪动, 程序将进入死循环 原因是当在 Text1 中输入结束按 Tab 键或要定位到 Text2 中时, 引发 Text1_ LostFocus 事件, 焦点已在 Text2 中 ; 但当判断在 Text1 文本框中输入的数据是否错误时, 则执行 Text1.SetFocus 事件, 使焦点从 Text2 回到 Text1 中, 而又激发 Text2_LostFocus 事件, 此时并没有判断在 Text2 文本框中输入的数据是否错误, 又执行 Text2.SetFocus 事件, 使焦点从 Text1 回到 Text2 中, 如此交错造成死循环 解决在 Text1 中输入的数据错误时产生死循环的问题, 需要对 Text2 Text3 的 LostFocus 事件进行修改, 如将 If 语句的表达式改为 IfText2<>""AndNot IsNumeric(Text2)Then 5. 实验代码 PrivateSubText1_LostFocus() IfNotIsNumeric(Text1)Then

34 20 第 1 章 VisualBasic 入门和可视化编程基础 Text1="" Text1.SetFocus EndIf 焦点重新回到 Text1 中 PrivateSubText2_LostFocus() IfText2<>""AndNotIsNumeric(Text2)Then Text2="" Text2.SetFocus EndIf PrivateSubText3_LostFocus() IfText3<>""AndNotIsNumeric(Text3)Then Text3="" Text2.SetFocus EndIf 4 个命令按钮的单击事件代码留给读者自行完成 6. 实验思考数据是否输入结束, 也可通过 KeyPres 事件来判断 在 KeyPres 事件中, 参数 KeyAsci 存放当前输入的字符, 当该值为 13 时表示输入结束, 试将该程序改为用 KeyPres 事件来实现 实验案例 1-5: 浮雕文字 1. 实验名称浮雕文字 2. 实验目的 (1) 掌握 Print Cls 方法的用法 (2) 掌握用 CurentX CurentY 属性设置当前坐标点 (3) 掌握变量的定义和用法 3. 实验任务要求不使用任何控件, 程序运行后在窗体上显示浮雕效果的文字, 如图 1 18 所示 4. 实验分析 (1) 在 Load 事件中使用 Print 方法将窗体的 AutoRedraw 属性设置为 True (2) 用 CurentX CurentY 属性设置当前坐标点, 在指定位置输出文字

35 1.3 实验案例分析 21 图 1.18 实验案例 1-5 运行界面 5. 实验代码 PrivateSubForm_Load() Form1.BackColor=QBColor(7) Form1.FontName=" 楷体 _gb2312" Form1.FontSize=45 Form1.CurentX=300 Form1.CurentY=300 Form1.ForeColor=QBColor(15) Form1.Print"2010 年上海世博会 " Form1.CurentX=350 Form1.CurentY=320 Form1.ForeColor=QBColor(4) Form1.Print"2010 年上海世博会 " 6. 实验思考若想通过单击窗体使浮雕文字下移, 则应在通用声明段定义一个变量, 使用该变量来控制 CurentY 属性值的变化, 试完成该事件过程 Dim yasinteger PrivateSubForm_Click() Form1.Cls y=y+30 定义变量 清除窗体上原来的内容 注意 : (1)Cls 方法只用来清除运行时在窗体 ( 或图形框 ) 上显示的文本或图形, 不清除窗体在设计时的文本和图形 (2) 使用 Cls 方法后,CurentX CurentY 属性被设置为 实验案例 1-6: 模拟图片移动和缩放 1. 实验名称模拟图片移动和缩放

36 2 第 1 章 VisualBasic 入门和可视化编程基础 2. 实验目的 (1) 掌握 Image 图像框的使用方法 (2) 掌握对控件的定位属性 (Left Top) 进行设置的方法 (3) 掌握对控件的大小属性 (Height Width) 进行设置的方法 3. 实验任务设计一个如图 1.19 所示的界面, 对图片进行 4 个方向的移动和缩小 放大操作, 要求 : (1) 利用 4 个命令按钮对图片进行 4 个方向的移动, 当图片超出窗体可移动范围 ( 如窗体的边或分隔线 ) 时, 对应的按钮为灰色, 不可操作, 如图 1.20 所示 ; 当图片在窗体可移动范围内时, 按钮设置为可操作 图 1.19 图片移动和缩放 图 1.20 按钮不可操作 (2) 利用两个命令按钮对图片进行放大和缩小操作 每次放大或缩小后都使 Image1 控件位于规定范围的中心, 每单击一次缩小 1/2 或放大 1 倍 4. 实验分析 1) 设计思想 (1) 要对图片进行缩放, 必须使用 Image 控件

37 1.3 实验案例分析 23 (2) 要向 4 个方向移动图片, 就是对 Image 控件的 Top 或 Left 属性进行改变 (3) 要对图片进行缩放, 就是对 Image 控件的 Width 或 Height 属性进行改变 (4) 图片移动 放大 缩小后是否超出规定范围要通过上述 4 个属性进行判断, 并通过对按钮的 Enabled 属性进行相应的设置来控制其是否可用 为了精确控制图片位于规定的范围内, 以相对值表示其位置, 位置值由 ScaleTop ScaleLeft ScaleHeight ScaleWidth 属性获得其位置 2) 界面设计在窗体上放置 1 个 Image 控件 6 个 Command 命令按钮和 1 个 Line 线条控件 (1)Image 控件的图片通过代码装入, 该图片文件应该与 Form 窗体的其他文件位于同一个文件夹中 (2)4 个方向的命令按钮图标通过属性窗口装入, 这些图标是扩展名为.ico 的文件 为便于阅读代码, 命令按钮的 Name 属性分别设置为对应的中文名称 (3) 放大和缩小的图片是扩展名为.bmp 的图片文件, 这些文件均位于 VB 系统的 Graphics 文件夹中 (4) 添加 1 个 Line 线条控件, 用于将图片与命令按钮分隔开 Line 线条与窗体左边界的距离可通过 Line1.X1 属性获得 5. 实验代码 (1)Image 控件的图片通过代码装入,Image 控件位于移动区域的中心 PrivateSubForm_Load() 图像位于右边中央区域 Image1.Stretch=True Image1.Picture=LoadPicture(App.Path+"\good.gif") Image1.Left=(Line1.X1-Image1.Width)\2 Image1.Top=(Form1.ScaleHeight-Image1.Height)\2 (2) 对于 4 个实现移动操作的命令按钮, 代码是很简单的, 如上移操作的代码为 Image1.Top=Image1.Top-50;, 关键是判断图片是否在移动范围内和对按钮的可操作性进行控制, 还要对相反方向的按钮进行是否在移动范围内的控制 4 个移动事件的过程代码如下 PrivateSub 上移 _Click() Image1.Top=Image1.Top-50 上移 IfImage1.Top+Image1.Height<Form1.ScaleTopThen 上移.Enabled=False IfImage1.Top<Form1.ScaleHeightThen 下移.Enabled=True 对下移按钮状态切换

38 24 第 1 章 VisualBasic 入门和可视化编程基础 PrivateSub 下移 _Click() Image1.Top=Image1.Top+50 IfImage1.Top>Form1.ScaleHeightThen 下移.Enabled=False IfImage1.Top+Image1.Height>0Then 上移.Enabled=True PrivateSub 右移 _Click() 左移.Enabled=True Image1.Left=Image1.Left+50 IfImage1.Left>Line1.X1Then 右移.Enabled=False 移出分隔线 PrivateSub 左移 _Click() Image1.Left=Image1.Left-50 IfImage1.Left+Image1.Width<0Then 左移.Enabled=False IfImage1.Left<Form1.ScaleWidthThen 右移.Enabled=True (3) 放大和缩小 主要是每次放大或缩小后都使 Image1 控件位于规定范围的中心 ; 放大时每次每边放大 1 倍, 缩小时每次每边缩小 1/2 过程代码如下 PrivateSub 放大 _Click() IfImage1.Height>Form1.ScaleHeightThen Image1.Width=Line1.X1 Image1.Height=Form1.Height Image1.Left=0 Image1.Top=0 Else Image1.Width=Image1.Width 2 Image1.Height=Image1.Height 2 Image1.Left=(Line1.X1-Image1.Width)\2 Image1.Top=(Form1.ScaleHeight-Image1.Height)\2 EndIf PrivateSub 缩小 _Click() Image1.Width=Image1.Width\2 Image1.Height=Image1.Height\2 Image1.Left=(Line1.X1-Image1.Width)\4 Image1.Top=(Form1.ScaleHeight-Image1.Height)\4 Image1.Left=(Line1.X1-Image1.Width)\2 Image1.Top=(Form1.ScaleHeight-Image1.Height)\2

39 1.4 实验项目汇编 实验思考在对图片进行缩小或放大操作时, 还要考虑若图片放大后超出显示区域, 则应使放大按钮无效 ; 缩小到很小时应使缩小按钮无效, 思考应如何修改代码? 同样还要将无效按钮在一定条件下切换成有效按钮 请参考移动按钮的对应代码 1.4 实验项目汇编 实验项目 1-1: 计数 1. 实验名称计数 2. 实验目的 (1) 掌握文本框 标签 按钮属性的设置方法 (2) 掌握在事件过程中编写简单的代码 3. 实验任务启动 VB6.0, 创建一个 标准 EXE 类型的应用程序, 要求 : (1) 在窗体上放置 1 个标签 1 个文本框和 1 个命令按钮 相应的属性设置见表 1.5 表 1.5 实验项目 1-1 属性设置 控件名属性设置 Form1 Caption " 计数 " Label1 Text1 Caption FontSize Text FontSize Enabled Alignment " 你单击按钮的次数 :" 四号 "" 四号 False 2-Center Command1 Caption " 计数 "

40 26 第 1 章 VisualBasic 入门和可视化编程基础 (2) 文本框中显示按钮被单击的次数 运行界面如图 1.21 所示 4. 实验分析本实验的主要目的是熟悉一些常用属性的设置方法 统计单击按钮的次数, 只需在 Command1_ Click 事件中添加语句 Text1=Val(Text1)+1; 即可 图 1.21 实验项目 1-1 Val 函数的功能是将字符串转换为数值 运行界面 5. 实验思考 (1) 若要用代码对各控件的属性进行设置, 应在什么事件中实现? (2) 使文本框值增 1, 使用 Text1=Text1+1 语句会产生什么问题? 实验项目 1-2: 制作贺卡 1. 实验名称制作贺卡 2. 实验目的 (1) 掌握用代码装入图片 (2) 掌握 Font 系列属性的设置方法 (3) 掌握 AutoSize ForeColor Visible 等属性的设置方法 (4) 掌握通过 MousePointer MouseIcon 属性设置自定义的鼠标图标 3. 实验任务启动 VB6.0, 创建一个 标准 EXE 类型的应用程序, 要求 : (1) 如图 1.22 所示, 在窗体上放置 3 个标签 3 个文本框和 1 个命令按钮 相应的属性设置见表 1.6 图 1.22 实验项目 1-2 设计界面

41 1.4 实验项目汇编 27 (2) 用代码装入图片 (3) 在文本框中按标签的提示输入内容, 单击 生成贺卡 按钮后, 制作一张如图 1.23 所示的贺卡 表 1.6 实验项目 1-2 属性设置 控件名属性设置 Form1 MousePointer MouseIcon 99 FACE05.ico Label1 Caption " 朋友姓名 :" Label2 Caption " 贺词 :" Label3 Caption " 祝贺人 :" Text1 Text2 Text3 Text "" Command1 Caption " 生成贺卡 " 图 1.23 实验项目 1-2 运行界面 (4) 当鼠标在窗体上时, 显示自定义的图标 4. 实验分析本实验的主要目的是熟悉用代码实现对一些常用属性的设置 (1) 通过代码装入图形时使用 LoadPicture 函数, 其中 App.Path 是一个相对路径, 它返回的是当前应用程序的工作路径 App 是一个对象, 指应用程序本身,Path 是属性 Load 事件是窗体被装入工作区时触发的事件 当应用程序启动时, 自动执行该事件

42 28 第 1 章 VisualBasic 入门和可视化编程基础 PrivateSubForm_Load() Form1.Picture=LoadPicture(App.Path+"\ 贺卡.jpg") (2)ForeColor 是十六进制常数, 设置时直接通过调色板选择黑色 白色即可分别获得该值 ForeColor 也可以通过代码利用 RGB() 或 QBColor() 函数设置 如可使用如下代码设置标签的字体和颜色 : Label2.FontName=" 楷体 _gb2312" Label2.FontBold=True Label2.ForeColor=RGB(0,0,255) 5. 实验思考模仿本实验, 为自己设计一张名片 实验项目 1-3: 移动文字 1. 实验名称移动文字 2. 实验目的 (1) 掌握通过设置属性 Left Top 使文字具有浮雕效果 (2) 掌握使用 Move 方法实现控件的移动 3. 实验任务设计一个如图 1.24 所示的界面, 要求 : (1) 任选一张图片作为窗体的背景图 图 1.24 实验项目 1-3 运行界面 (2) 在窗体上放置 2 个标签和 2 个命令按钮 相应的属性设置见表 1.7

43 1.4 实验项目汇编 29 表 1.7 实验项目 1-3 属性设置 控件名 Form1 Command1 Command2 Label1,Label2 属性 Caption =" 移动 ",Picture="So02963_.wmf" Caption ="",Style=1,Picture="Point02.ico" Caption="",Style=1,Picture="Point04.ico" Caption=" 新年快乐 " (3) 窗体上的 2 个标签要求以浮雕效果显示 新年快乐 (4) 单击左指向按钮, 浮雕文字向左移动 50 个单位 ; 单击右指向按钮, 向右移动 50 个单位 4. 实验分析 (1) 在窗体上使用两个具有相同文字的标签, 使它们的位置存在一定的位移, 并且文字的颜色不同, 即可实现浮雕效果 为了避免叠加上去的标签覆盖原来的标签显示的文字, 要将标签的 BackStyle 背景样式属性设置为 0, 即透明的 (2) 要使文字移动, 可以采用两种方法 : 一是使用 Move 方法 ; 二是改变属性 Left( 左右移动 ) Top( 上下移动 ) 的值 5. 实验思考 (1) 试通过改变控件的 Left 属性值实现浮雕文字右移 (2) 当标签左移离开窗体的左边框后, 如何使它再从窗体的右边进入? 同样, 右移离开窗体时也要进行相应的处理, 则程序应如何修改? 实验项目 1-4: 文字迁移 1. 实验名称文字迁移 2. 实验目的 (1) 掌握文本框属性的设置方法 (2) 掌握字符串的连接 (3) 掌握 Mid 函数的用法 3. 实验任务启动 VB6.0, 创建一个 标准 EXE 类型的应用程序, 要求 : (1) 在窗体上放置 2 个文本框和 2 个命令按钮 相应的属性设置见表 1.8

44 30 第 1 章 VisualBasic 入门和可视化编程基础 表 1.8 实验项目 1-4 属性设置 控件名 Command1 Command2 Text1 Text2 属性 Caption ="",Style=1,Picture="ARW06RT.ico" Caption=" 全部 " Text=" 书山有 ",MultiLine=True,ScrolBars=2 Text="",MultiLine=True,ScrolBars=2 (2) 单击一次 Command1, 则将 Text1 中的一个字符移到 Text2 中 图 1.25(a) 所示的是单击两次的运行界面 (3) 单击 Command2, 将 Text1 中的剩余内容全部移到 Text2 中, 如图 1.25(b) 所示 图 1.25 实验项目 1-4 运行界面 4. 实验分析 (1) 在字符串中取子串可通过 Mid 函数实现 Mid(Text1,1,1) 表示取 Text1 中的第 1 个字符, 从第 2 个字符开始到最后的串用 Mid(Text1,2) 表示 (2)Text2 中的内容是由 Text2 中原来的内容与从 Text1 中取出的字符或剩余的内容连接起来构成的 程序语句为 Text2=Text2+Mid(Text1,1,1) 与 Text1 中的第 1 个字符连接 5. 实验思考 将从 Text1 中任意选取的内容复制到 Text2 中, 应如何实现?

45 1.4 实验项目汇编 实验项目 1-5: 显示字符图形 1. 实验名称显示字符图形 2. 实验目的 (1) 熟悉窗体外观的设置方法和 Print 方法的用法 (2) 掌握 Print 方法中 Tab 和 Spc 函数的作用及区别 3. 实验任务在窗体上放置一个命令按钮, 单击窗体, 显示如图 1.26 所示的图形 ; 单击 清屏 按钮, 则清除图形 4. 实验分析 图 1.26 实验项目 1-5 运行界面 (1) 要将窗体的外观设置成如图 1.26 所示的形式, 只需在属性窗口中将 Form1 对话框的 BorderStyle 属性设置为 1, 这时最大化按钮和最小化按钮都不显示, 即为 False 但需要注意的是, 窗体的外观只能在属性窗口中设置, 在代码窗口中设置不起作用 (2)Print 方法中 Tab 和 Spc 函数的作用和区别 :Tab 函数是以每行最前面为起点, 而 Spc 函数是指空格个数, 即从每个字符后面开始计数, 是相对前面的字符的空格个数 (3) 由于从第 3 行起, 每行的输出有规律可循, 所以用 For 循环语句来实现, 该语句将在第 4 章介绍 5. 实验代码 PrivateSubCommand1_Click() Cls PrivateSubForm_Click() PrintTab(3);1;Tab(16);" " PrintTab(3);2;Tab(15);" " Fori=1To5 输出 5 行 PrintTab(3);2+i;Tab(15-i);" ";Spc(i-1);" ";Spc(i-1);" "; Nexti

46 32 第 1 章 VisualBasic 入门和可视化编程基础 6. 实验思考 (1) 将程序中的每个 Print 语句后加 1 个 ; 或,, 体会运行结果的区别 (2) 模仿上述程序, 编写一个运行界面如图 1.27 所示的程序 图 1.27 实验思考的运行界面 实验项目 1-6: 放大与缩小文字 1. 实验名称放大与缩小文字 2. 实验目的 (1) 掌握随机函数的用法 (2) 掌握改变字号 对按钮的有效性进行控制的方法 (3) 初步掌握变量的定义和用法 3. 实验任务 (1) 在窗体上放置 1 个标签 1 个文本框和 3 个命令按钮 (2)3 个命令按钮分别用于对文字进行放大 缩小和还原操作 放大或缩小的倍数由随机函数控制 运行界面如图 1.28 所示 图 1.28 实验项目 1-6 运行界面

47 1.4 实验项目汇编 实验分析 (1) 利用 Int(Rnd n) 可产生 0~n 之间 ( 包括 0, 不包括 n) 的整数 为了使程序每次运行后, 能够产生不同的随机数, 程序初始时应执行 Randomize 语句 (2) 根据当前放大或缩小的情况, 控制按钮的有效性, 使得字号不过大或过小 程序语句为 PrivateSubCommand1_Click() r=int(rnd 3+1) Text1.FontSize=Text1.FontSize r Command1.Enabled=False Command2.Enabled=True 单击 放大 按钮放大 1~3 倍放大一次, 放大 按钮无效 缩小 按钮有效 (3) 为了实现还原功能, 应在通用声明段定义一个变量, 用以保存文本框原来的字号, 供 还原 按钮使用 5. 实验思考编写一个对图片进行放大 缩小和还原操作的程序 实验项目 1-7: 简易记事本 1. 实验名称简易记事本 2. 实验目的 (1) 掌握文本框常用属性的使用和设置方法 (2) 掌握命令按钮及其属性的使用和设置方法 (3) 掌握对按钮的有效性进行控制的方法 (4) 掌握变量的定义和用法 3. 实验任务建立一个类似记事本的应用程序, 该程序主要提供如下两类操作 (1) 剪切 复制和粘贴的编辑操作 (2) 字体大小的设置 要求 : 建立一个文本框用于输入文本, 文本框应该有滚动条, 建立 6 个命令按钮,3 个为编辑操作按钮,2 个为格式按钮,1 个为 结束 按钮 其中实现 剪切 复制 粘贴 功能的 3 个命令按钮以图形形式显示, 其他命令按钮以标准形式显示, 运行界面如图 1.29 所示

48 34 第 1 章 VisualBasic 入门和可视化编程基础 图 1.29 实验项目 1-7 界面 (3) 程序运行后, 设置剪切 复制 粘贴按钮无效 (4) 当拖动鼠标选中要操作的文本时, 剪切 复制按钮有效, 粘贴按钮无效 ; 当拖动鼠标未选中文本时, 剪切 复制按钮无效, 粘贴按钮有效 4. 实验分析 (1) 由于命令按钮较多, 为便于区分, 重新设置 Name 属性, 与按钮的作用相同, 以增强程序的可读性 有关属性设置见表 1.9 表 1.9 实验项目 1-7 属性设置 默认控件名 设置的控件名 (Name) 标题 (Caption) 图片 (Picture) 样式 (Style) 工具提示 (ToolTipText) Command1 cmdcut 空白 cut.bmp 1 图形 剪切 Command2 cmdcopy 空白 copy.bmp 1 复制 Command3 cmdpaste 空白 paste.bmp 1 粘贴 Command4 cmdlishu 隶书 不起作用 0 标准 Command5 cmd20 字号 20 磅 不起作用 0 标准 Command6 cmdexit 结束 空白 0 空白 Text1 MultiLine=True,ScrolBars=2 垂直滚动条 (2) 由于文本框本身具有编辑功能, 所以不必编写任何程序代码, 就可以用 Windows 快捷键 Ctrl+X Ctrl+C 和 Ctrl+V 进行剪切 复制和粘贴操作 但是, 为了解释命令按钮及其属性的使用, 本实验中通过编程来实现这些功能 例如, 实现 剪切 功能的代码 : st=text1.seltext 将选中的内容存放到 st 变量中

49 1.4 实验项目汇编 35 Text1.SelText="" 将选中的内容清除, 实现剪切功能 (3) 需要在通用声明段定义一个变量, 用来存放剪切 复制的内容, 供粘贴使用 (4) 在文本框上移动鼠标时要对按钮的有效性进行控制, 应在 MouseMove 事件中编写代码 可以根据文本框中有无选中内容来控制按钮的有效性 5. 实验思考要在窗体上增加一些按钮, 如实现粗体 斜体等设置功能, 应如何实现? 实验项目 1-8: 模拟倒计时火箭发射 1. 实验名称模拟倒计时火箭发射 2. 实验目的 (1) 掌握标签 文本框 命令按钮的建立和属性的设置方法 (2) 掌握时钟控件的重要属性 (Interval Enabled) 和 Timer 事件的使用方法 3. 实验任务利用标签 按钮 定时器和图像框等控件, 编写一个模拟倒计时火箭发射程序 要求按 4 个步骤模拟火箭发射 : 准备 开始 发射 停止 (1) 在窗体上放置 1 个标签 1 个图像框 1 个命令按钮和 1 个时钟控件 相应的属性设置见表 1.10 (2) 程序运行处于 准备 状态, 当单击 准备 按钮时, 按钮上显示 开始, 标签开始从 10s 倒计时, 当到 0 时, 按钮上显示 发射, 火箭开始向窗体上方移动 (3) 当火箭移出窗体时, 在窗体上方显示 祝贺火箭发射成功! ( 与显示倒计时使用同一标签 ), 按钮上显示 停止 表 1.10 实验项目 1-8 属性设置 对象名 属性 设置 Form1 Picture 发射场.jpg Caption 火箭发射 Timer1 Interval 200 Enabled False Image1 Picture 火箭.gif Label1 Caption "" BorderStyle 1-FixedSingle Command1 Caption 准备

50 36 第 1 章 VisualBasic 入门和可视化编程基础 4. 实验分析 (1) 准备 : 通过 Load 事件装入图片, 设置控件的属性和变量的初值 (2) 开始 : 当单击 准备 按钮时, 按钮上显示 开始, 时钟开始工作, 触发 Timer1_Timer 事件 ; 倒计时变量按时钟的 Interval 属性设置值, 每隔 0.2s 调用 Timer1_Timer 事件进行减 1 操作 (3) 发射 : 当显示倒计时的标签 Label1 上显示 0 时, 按钮上显示 发射, 火箭开始发射 (4) 停止 : 当火箭飞出窗体时, 时钟停止工作, 即将 Timer1 的 Enabled 属性设置为 False, 按钮上显示 停止, 将标签 Label1 定位在窗体的上方 这 4 个步骤通过一个命令按钮 Command1 根据倒计时的秒数和火箭的位置进行转换 火箭发射过程如图 1.30 所示 图 1.30 火箭发射过程

51 1.4 实验项目汇编 实验代码 Dim i% PrivateSubTimer1_Timer() Label1.Caption=i 显示倒计时 Ifi>0Then i=i-1 倒计时变量减少 1, 实现倒计时 Else 发射时间到了 Command1.Caption=" 发射 " 按钮控件由 开始 转变为 发射 Image1.Top=Image1.Top-50 火箭向上飞 IfImage1.Top<-Image1.HeightThen 火箭飞出窗体, 时钟停止工作 Label1.AutoSize=True Label1.Top=0 标签 Label1 定位在窗体的上方 Label1.Left=100 Label1.BorderStyle=0 Label1.Caption=" 祝贺火箭发射成功!" Command1.Caption=" 停止 " Timer1.Enabled=False 时钟停止工作 EndIf EndIf 其他事件代码请读者自行完成 6. 实验思考若在窗体增加一个 复位 按钮, 单击该按钮, 使窗体又回到准备状态, 应如何实现?

52 第 2 章 VisualBasic 语言基础和顺序结构 2.1 知识要点 1.VB 程序的书写规则 (1) 程序代码不区分字母的大小写 为了提高程序的可读性, 对于输入的字母,VB 系统会自动将关键字或属性单词的首字母转换成大写, 其余为小写 (2) 程序书写较自由 在一行上可书写多条语句, 语句之间用冒号分隔 一条语句可分在若干行书写, 用续行符 ( 空格加下划线 _ ) 连接下一行 (3) 注释有利于程序的阅读和调试 注释语句以 Rem 或单引号开头 2.VB 提供的数据类型 1) 基本数据类型 VB 提供了丰富的数据类型, 每种数据类型用关键字或类型符表示, 不同的数据类型占用的存储空间不同, 用户可根据实际问题的需要使用合适的类型 基本数据类型见表 2.1 表 2.1 基本数据类型 数据类型 关键字 类型符 占字节数 范围 逻辑型 Boolean 无 2 True 与 False 整型 Integer % ~2 15-1(-32768~32767) 长整型 Long & ~ 单精度型 Single! ~ , 精度 7 位 双精度型 Double # ~ , 精度 15 位 日期型 Date(time) 无 8 01,01,100~12,31,9999 字符型 String 与字符串长度有关 0~65535 个字符

53 2.1 知识要点 39 续表 数据类型关键字类型符占字节数范围 对象型 Object 无 4 任何对象引用 变体型 Variant 无根据需要分配 VB 中的字符型数据以 Unicode 码存放, 一个西文字符和一个汉字均占两个字节 变体型数据类型可存放任何类型的数据, 由所赋值的类型决定 虽然 VB 中提供了灵活的变体型数据类型, 但增加了程序的不稳定性 2) 构造数据类型构造数据类型是以基本数据类型为基础, 根据特定的方法构造而成的比较复杂的数据类型 VB 中的构造数据类型有枚举 用户自定义类型 ( 相当于记录类型 ) 数组和文件 3. 变量和常量 1) 变量变量命名规则 : 以字母 汉字或下划线开头, 后跟字母 汉字 数字或下划线, 长度小于等于 255 个字符 ; 不能使用 VB 中的关键字 ; 不区分变量名的大小写 变量的声明 : 可以使用 Dim Static Public Private 等声明语句显式声明变量及类型 ; 也可以不声明直接使用变体类型的变量 一般使用显式声明 变量的初值 : 系统默认数值型变量为零, 字符型变量为空 (""), 对象变量为 Nothing 2) 常量在 VB 中, 常量有 3 类, 分别说明如下 (1) 直接常量, 即常数值直接反映其类型 例如, asdfg True #4/12/2010# 等 (2) 符号常量, 即用 Const 关键字定义一个常量名代表一个常数值 例如, ConstPI= (3)VB 系统提供的常量 例如,vbCrLf vbnormal 等 4. 运算符及优先级 算术运算符 ^ 或 \ / Mod + 或 - 高到低 字符运算符 + 或 & 同级高运算符及优先级 到关系运算符 = > >= < <= <> Is Like 同级 低 逻辑运算符 Not And Or 高到低

54 40 第 2 章 VisualBasic 语言基础和顺序结构 5. 常用函数 VB 中提供了丰富的函数, 包括算术 字符串 日期和时间 转换 格式等函数, 关于函数的完整形式和使用举例可参阅 VB 帮助文档 6. 赋值语句形式 : 变量名 = 表达式一条赋值语句只能为一个变量赋值 ; 不能把字符串的值赋值给数值型变量 ; 同为数值型时, 应转换为左边变量名的类型后再赋值 7. 与用户交互的函数和过程 1)InputBox 函数形式 :InputBox( 提示 [, 标题 ][, 默认值 ][,x 坐标位置 ][,y 坐标位置 ]) 提示 为对话框显示的信息, 若要分多行显示, 必须加回车换行符, 即 Chr(13)+Chr(10) 或 VB 常数 vbcrlf; 若要输入多个值, 则必须多次调用该函数 ; 函数返回值为字符类型 2)MsgBox 函数或过程函数形式 : 变量 [%]=MsgBox( 提示 [, 按钮 ][, 标题 ]) 过程形式 :MsgBox 提示 [, 按钮 ][, 标题 ] 作为函数调用, 函数返回用户在对话框中所单击的那个按钮值 ; 作为过程调用, 无返回值, 一般用于显示简单信息 8. 常见错误分析 (1) 变量命名问题 避免使用内部函数名, 如 Sin Str 等, 虽然语法上没有错误, 但将使 Sin 函数失效 ; 也避免使用希腊字母 π, 其可以使用, 但不表示圆周率值 (2) 标准函数名写错 VB 提供了很多标准函数, 如 IsNumeric() Date() Left() 等 当函数名写错时, 如将 IsNumeric 写成 IsNummeric, 系统将显示 子程序或函数未定义, 并将写错的函数名选中提醒用户修改 如何判断函数名 控件名 属性 方法等是否写错, 最方便的方法是在写完一条语句后按 Enter 键, 观察系统是否将上述名称自动转换成规定的首字母大写形式, 如果没有, 则为错误的名称 (3) 逻辑表达式书写错误, 在 VB 中不存在语法错误, 但存在逻辑错误 例如, 要将数学上表示变量 x 在一定数值范围内的表达式如 3 x<10, 以 VB 的逻辑表达式表示, 若写成如下形式 : 3<=x<10 此时在有的语言中产生语法错误, 而在 VB 中不会产生语法错误, 程序能运行, 但不管 x 的值为多少, 表达式的值永远为 True, 造成程序能正常运行的假象, 但

55 2.2 实验项目说明 41 结果是不正确的 因为在 VB 中, 当两个不同类型的变量或常量参加运算时, 有自动向精度高的类型转换的功能 例如, 逻辑常量 True 转换为数值型的值为 -1,False 为 0; 反之, 数值型非 0 转换为逻辑型的值为 True,0 为 False 同样, 数字字符与数值运算会转换为数值型 (4) 在 Form_Load 事件中,Print 方法 SetFocus 方法不起作用 因为系统在将窗体装入内存时无法同步用 Print SetFocus 方法显示或定位控件的焦点 解决 Print 方法不起作用的问题 : 在属性窗口中将窗体的 AotuRedraw 属性设置为 True( 默认为 False) 解决 SetFocus 定位问题 : 在属性窗口中将要定位焦点的控件的 TabIndex 值设置为 0 (5)Print 方法中的定位问题 定位通过 Tab Spc 函数和最后的逗号 分号和空格来控制 在 VB 中通过综合使用 Print 方法中的各个参数得到所需的结果 其中 : Tab(n) 表示从最左边的第 1 列开始算起定位于第 n 列, 若当前打印位置已超过 n 列, 则定位于下一行的第 n 列, 这通常是由于定位不好出现的问题, 在格式定位中,Tab 用得最多 ;Spc(n) 表示从前一个打印位置起空 n 个空格 紧凑格式 ;, 即输出项之间无间隔 但对于数值型, 系统会在输出项之间自动空一列, 而由于数值系统会自动加符号位, 因此, 对于大于零的数值, 实际上空两列 字符型之间无空格 2.2 实验项目说明 表 2.2 中列出了本章的所有实验案例和实验项目的类型及其难易度, 可以根据表中的编号, 在 2.3 节和 2.4 节中找到相应的详细内容 建议实施方案 :6 个实验案例作为课堂案例教学使用,10 个实验项目作为机房实验使用

56 42 第 2 章 VisualBasic 语言基础和顺序结构 表 2.2 实验项目说明 编号实验名称知识点类型难易度 变量的定义 2-1 温度转换程序 不同数据类型之间的转换 验证型 简单 Format 函数的使用 2-2 字符的分离和加密 函数的使用涉及函数 :InputBox Mid Left Right 设计型 Asc 和 Chr 字符的加密方法 简单 符号常量的定义 2-3 简易计算器 算术运算符 连接运算符的使用 验证型 中等 实 表达式的书写 验案例 2-4 用户登录界面 函数的使用涉及函数 :Left Right Chr Rnd Instr MsgBox 函数和 MsgBox 过程对输入的数据进行检验的方法 综合设计型 中等 利用随机函数产生数或字符 函数的使用 2-5 整理句子 涉及函数 :Mid UCase Instr 设计型 难 vbcrlf 的使用 函数的使用 2-6 字符串替换和标题栏字幕滚动 涉及函数 :Mid Replace Shel Instr 综合 Space 等 设计型 难 时钟控件的使用

57 2.2 实验项目说明 43 续表 编号实验名称知识点类型难易度 2-1 计算圆周长和圆面积 Format Val 函数的使用数据合法性检验 验证型 简单 2-2 求均值 表达式的书写随机函数的使用 验证型 简单 2-3 三角形判定 关系运算符 逻辑运算符的使用 If 语句的使用 设计型 中等 2-4 数据的分离和交换 运算符 \ Mod 的使用变量值的交换 设计型 简单 函数的使用 2-5 大小写字母转换 大小写字母间的转换 设计型 中等 模块级与过程级变量 Format 函数的使用 实验项目 2-6 商品销售 2-7 数字钟 Print 方法的使用设计型 Shel 函数的使用函数的使用涉及函数 :Date Time Now DateDif 设计型 Year Month Day WeekdayName Hour 中等 中等 Minute Second 2-8 喜从天降 不同类型变量的定义和使用利用随机函数产生数或字符时钟控件的使用 综合设计型 难 属性 2-9 查找与替换 涉及属性 :SelStart SelLength SelText 函数的使用涉及函数 :Len Instr 综合设计型 难 文本的查找与替换 2-10 房贷计算 控件的建立和使用涉及控件 : 文本框 标签 命令按钮 列表框 多窗体 综合设计型 难

58 4 第 2 章 VisualBasic 语言基础和顺序结构 2.3 实验案例分析 实验案例 2-1: 温度转换程序 1. 实验名称温度转换程序 2. 实验目的 (1) 掌握编写简单的程序 输入数据的方法 (2) 掌握 Format 函数的格式, 体会不同格式符的用法 (3) 掌握变量的定义和不同数据类型间的转换方法 3. 实验任务编写一个实现华氏温度与摄氏温度之间转换的程序 华氏温度与摄氏温度之间相互转换的公式为 F = 9 5 (C+32) C = 5 9 (F-32) 摄氏温度转换为华氏温度 华氏温度转换为摄氏温度 其中,F 为华氏温度,C 为摄氏温度 要求 : (1) 单击 华氏转 按钮, 则将华氏温度转换为摄氏温度 同样, 单击 摄氏转 按钮, 则将摄氏温度转换为华氏温度 (2) 保留 1 位小数 运行界面如图 2.1 所示 图 2.1 实验案例 2-1 运行界面

59 2.3 实验案例分析 实验分析 (1) 上述公式中右边的变量 F C 的值可分别通过 Text1 Text2 获得, 然后通过公式计算得到转换的结果 也可以不使用变量, 直接使用 Text1 Text2 进行计算 (2)Text 文本框存放的是 String 类型的数据, 为了使程序正常运行, 应通过 Val() 函数将字符串转换为数值类型 (3) 由于要求保留 1 位小数, 则变量应定义为实型 5. 实验代码 OptionExplicit PrivateSubCommand1_Click() Dim f!,c! f=val(text1) c=5/9 (f-32) Text2=Format(c,"0.0") 强制显式声明变量 使用变量 PrivateSubCommand2_Click() Text1=Format(9/5 Val(Text2)+32,"#.#") 不使用变量, 直接使用文本框 6. 实验思考 (1) 体会两种编写方法的不同, 使用哪种方法更好些? (2) 体会格式符 0 与 # 的区别 (3) 在程序中强制显式声明变量有什么优点? 实验案例 2-2: 字符的分离和加密 1. 实验名称字符的分离和加密 2. 实验目的 (1) 掌握 Mid Left Right Asc Chr 和 InputBox 等函数的用法 (2) 掌握不同类型变量的定义 (3) 掌握字符的加密方法 3. 实验任务对文本框中输入的 3 个字符进行分离和加密 要求 : (1) 在窗体上放置 4 个标签 1 个文本框和 2 个命令按钮 相应的属性设置见表 2.3

60 46 第 2 章 VisualBasic 语言基础和顺序结构 表 2.3 实验案例 2-2 属性设置 控件名属性设置 Form1 Caption " 字符分离和加密 " Label1 Label2 Label3 Label4 Text1 Caption Alignment Font Text MaxLength "" 2-Center 字体大小 : 四号 "" 3 Command1 Caption " 分离 " Command2 Caption " 加密 " (2) 在文本框中输入 3 个大写字母, 单击 分离 按钮, 将 3 个字母分离到 3 个标签中 (3) 单击 加密 按钮, 在输入框中输入一个整数 n( 即密钥 ), 标签 Label4 中以 加密后 :XXX 的形式显示结果 运行界面如图 2.2 所示 加密规则是将每个字母加 n 值, 例如, 若 n 为 3, 则 A D, B E,, X A, Z C 图 2.2 实验案例 2-2 运行界面 4. 实验分析 (1) 由于 4 个标签及文本框的字体大小相同, 为了避免为每个控件设置该属性值, 可以先建立 2 个命令按钮, 再设置 Form1 的 Font 属性, 将其字体大小设置为 四号

61 2.3 实验案例分析 47 (2)3 个字母的分离可通过 Mid Left Right 函数实现 (3) 字母的加密是将字母的 ASCI 码加上密钥后再转换为对应的字符, 并对超出大写字母范围的情况进行处理 5. 实验代码 PrivateSubCommand1_Click() Dim s s=text1.text Label1.Caption=Left(s,1) Label2.Caption=Mid(s,2,1) Label3.Caption=Right(s,1) PrivateSubCommand2_Click() Dim n%,s,aasstring 1,bAsString 1,cAsString 1 n=val(inputbox(" 输入密钥 "," 字符加密 ")) a=label1 b=label2 c=label3 a=chr(asc(a)+n) Ifa>"Z"Thena=Chr(Asc(a)-26) b=chr(asc(b)+n) Ifb>"Z"Thenb=Chr(Asc(b)-26) c=chr(asc(c)+n) Ifc>"Z"Thenc=Chr(Asc(c)-26) Label4=" 加密后 :"& a& b& c 6. 实验思考 (1) 将 3 个字母分离还有其他什么方法? (2) 在本案例中只能对输入的大写字母进行加密, 如何保证在文本框中只能输入大写字母? (3) 若对输入的大 小写都能按此规则加密, 则程序应如何实现? (4) 解密是加密的逆过程, 试完成该功能 实验案例 2-3: 简易计算器 1. 实验名称 简易计算器 2. 实验目的 (1) 掌握符号常量的定义

62 48 第 2 章 VisualBasic 语言基础和顺序结构 (2) 掌握算术运算符 连接运算符的正确使用方法 (3) 掌握表达式的正确书写规则 (4) 了解 MsgBox 函数和其他常用函数的用法 (5) 掌握对输入的数据进行合法性检查的方法 3. 实验任务设计一个简易计算器, 使之能进行加 减 乘 除四则运算和常用函数的运算, 要求 : (1) 设计一个如图 2.3 所示的界面, 其中两个带边框的标签分别显示四则运算的结果和函数的值 程序运行时窗体的大小不可改变 图 2.3 实验案例 2-3 设计界面 (2) 数据在文本框中输入 (3) 单击 = 按钮, 显示四则运算的结果 若除数为 0 或运算符输入错误, 应给出相应的出错提示 (4) 单击 计算函数 按钮, 展开窗体, 按钮标题改为 四则运算, 再单击该按钮, 折叠窗体, 按钮标题又改为 计算函数 ( 如图 2.4(a) 所示 ) (5) 单击某一函数按钮, 在标签中以如图 2.4(b) 所示的形式显示在文本框中输入数据的函数值 4. 实验分析 (1) 将窗体的 BorderStyle 属性值设置为 3-FixedDialog, 使窗体在运行时大小不能改变 (2) 将 4 个文本框的 Alignment 属性设置为 1-RightJustily, 使输入内容右对齐

63 2.3 实验案例分析 49 图 2.4 实验案例 2-3 运行界面 (3) 对输入数据的有效性进行控制, 可为文本框的 LostFocus 事件编写代码, 即只要焦点失去, 便判断在文本框中输入的内容是否正确 注意要防止出现死循环 (4) 要根据输入运算符的不同进行运算, 需要用到多分支结构语句 Select Case 该语句表示直观, 可读性好, 将在第 3 章中介绍 (5) 本例中的命令按钮较多, 为便于区分, 重新设置 Name 属性, 与按钮的作用相同 5. 实验代码 ConstPI#= Dim opasstring 1 Dim num1%,num2% PrivateSubForm_Load() Form1.Height=2500 cmdcal.caption=" 计算函数 " 定义符号常量 op 变量用来存放运算符 num1 num2 变量用来存放两个操作数 PrivateSubcmdAns_Click() Dim sasdouble SelectCaseop Case"+" s=num1+num2 Case"-" s=num1-num2 Case" " s=num1 num2 单击 = 按钮

64 50 第 2 章 VisualBasic 语言基础和顺序结构 Case"/" s=num1/num2 EndSelect Label1.Caption=Str(s) PrivateSubText1_LostFocus() 输入操作数 1 IfText1<>""AndNotIsNumeric(Text1.Text)Then Text1.Text="" Text1.SetFocus Else num1=val(text1) EndIf PrivateSubText2_LostFocus() 输入运算符 op=trim(text2) IfText2<>""And(op<>"+"Andop<>"-"Andop<>" "_ Andop<>"/")Then MsgBox(" 无效操作符, 请重新输入!") Text2.Text="" Text2.SetFocus EndIf PrivateSubText3_LostFocus() 输入操作数 2 IfText3<>""AndNotIsNumeric(Text3.Text)Then Text3.Text="" Text3.SetFocus Else num2=val(text3) Ifnum2=0Andop="/"Then 除数为 0 MsgBox(" 除数为 0, 重新输入!") Text3.Text="" Text3.SetFocus EndIf EndIf PrivateSubText4_LostFocus() IfText4<>""AndNotIsNumeric(Text1.Text)Then Text1.Text=""

65 2.3 实验案例分析 51 Text1.SetFocus EndIf PrivateSubcmdCal_Click() 按钮标题的切换 IfcmdForm.Caption=" 计算函数 "Then Form1.Height=4500 cmdcal.caption=" 四则运算 " Else Form1.Height=2500 cmdcal.caption=" 计算函数 " EndIf PrivateSubcmdSin_Click() 求 sin 函数的值 Label3="sin("& Text4& ")="& Sin(Val(Text4) PI/180) PrivateSubcmdExit_Click() End 6. 实验思考 (1) 假设程序要考虑被减数不能小于减数, 则程序应如何修改? (2) & 和 + 都是字符连接符, 将语句 Label3="sin("& Text4& ")="& Sin(Val(Text4) PI/180) 改为 Label3="sin("+Text4+")="+Sin(Val(Text4) PI/180) 是否可行? (3) 试通过 KeyPress 事件对输入的数据进行合法性检查 (4) 其他函数的实现留给读者自行完成 实验案例 2-4: 用户登录界面 1. 实验名称用户登录界面 2. 实验目的 (1) 掌握 Left Right Chr Rnd InStr 等函数的用法

66 52 第 2 章 VisualBasic 语言基础和顺序结构 (2) 掌握 MsgBox 函数和 MsgBox 过程的区别 (3) 掌握对输入的数据进行合法性检查的方法 (4) 掌握利用随机函数产生不同范围的数或字符的方法 3. 实验任务设计一个用户登录界面, 可以输入用户名 密码和验证码 要求 : (1) 用户名不能超过 8 个字符, 且不能含空格, 按 Tab 键则结束输入 ; 当输入不正确时, 显示如图 2.5(b) 所示的出错信息, 提示重新输入 (2) 密码为 6 位字符, 在输入文本框中以 显示, 按 Tab 键则结束输入, 当输入不正确时, 显示如图 2.5(c) 所示的出错信息, 提示重新输入 (3)4 位验证码在运行时随机产生, 要求其中有 1 位大写字符, 其余为数字字符 当输入的验证码不正确时提示重新输入 (4) 单击 登录 按钮, 显示登录成功与否的信息 ; 单击 退出 按钮, 则结束程序的运行 属性设置见表 2.4, 运行界面如图 2.5(a) 所示 表 2.4 实验案例 2-4 属性设置 控件名 属性 控件名 属性 Form1 Caption=" 用户登录 " Command1 Caption=" 登录 " Label1 Caption=" 用户登录界面 " Command2 Caption=" 退出 " Label2 Caption=" 用户名 :" Text1 Text="" Label3 Caption=" 密码 :" Text2 Text="" Label4 Caption=" 验证码 :" Text3 Text="" Label5 BackColor=H00FFC0C0& 4. 实验分析 (1) 要使用户名不超过 8 位字符, 只要将文本框 Text1 的 MaxLength 属性设置为 8 当输入结束, 按 Tab 键时, 引发 LostFocus 事件, 利用 Instr 函数检查中间有无空格 (2) 密码设置为 6 位字符, 并将 PaswordChar 属性值设置为, 使输入的字符以 显示 当输入结束时, 判断输入的密码是否正确, 出错时利用 MsgBox 函数提示 重试 和 取消, 如图 2.5(c) 所示, 按钮值取 5 或 vbretrycancel; 要显示感叹号, 按钮值取 48 或 Exclamation 密码假设为 asdfgh

67 2.3 实验案例分析 53 图 2.5 实验案例 2-4 运行界面和出错提示 (3) 含一个字符的 4 位验证码的产生 通过 3 次调用随机函数产生 1 个 4 位数 1 个大写字母 1 个 1~4 之间的数 ( 由该数来确定字符的位置 ), 最后通过字符串连接符连接成一个验证码 (4) 利用随机函数产生不同范围的数 随机生成某范围内的正整数公式为 Int(Rnd 范围 + 基数 ) 其中 范围 为数的 上限 - 下限 +1, 基数 为数的下限 例如, 表达式 Int(Rnd ) 可生成一个 4 位数,Chr(Int(Rnd 26)+ 65) 可随机产生一个大写字符 5. 实验代码 PrivateSubForm_Load() Dim k,n% Randomize Text1.MaxLength =8:Text1.Text="" Text2.MaxLength=6:Text2.Text="":Text2.PasswordChar=" " Text3.MaxLength=4:Text3.Text="" Label5.FontItalic=True 验证码斜体 Label5=Int(Rnd 9000)+1000 随机产生一个 4 位正整数 k=chr(int(rnd 26)+65) 随机产生一个大写字符 n=int(rnd 4)+1 该数用来确定字符的位置 Label5=Left(Label5,n-1)+k+Right(Label5,4-n) PrivateSubCommand1_Click()

68 54 第 2 章 VisualBasic 语言基础和顺序结构 IfText1<>""AndText2<>""AndText3<>""Then MsgBox" 成功登录!" Else MsgBox" 请将信息输入完整!" EndIf PrivateSubText1_LostFocus() IfInStr(Text1,"")>0Then MsgBox" 用户名不允许含空格 " Text1.Text="" Text1.SetFocus EndIf PrivateSubText2_LostFocus() Dim IAsInteger IfText2.Text<>""AndText2.Text<>"asdfgh"Then I=MsgBox(" 密码错误 ",5+vbExclamation," 输入密码 ") IfI<>4Then End Else Text2.Text="" Text2.SetFocus EndIf EndIf PrivateSubText3_LostFocus() 验证码输入错误, 重新输入 IfText3.Text<>""AndText3<>Label5Then Text3="" Text3.SetFocus EndIf PrivateSubCommand2_Click() End 6. 实验思考 (1) 若输入的用户名规定必须是字母, 输入的密码规定必须是数字字符, 则程序应如何修改?

69 2.3 实验案例分析 55 (2) 输入用户名 密码时, 若要以按回车键结束输入, 则程序应如何修改? (3) 当密码输入错误 3 次时, 则停止程序运行, 该如何实现? 实验案例 2-5: 整理句子 1. 实验名称整理句子 2. 实验目的 (1) 熟练掌握 Mid UCase InStr 等函数的用法 (2) 掌握变量的使用方法 (3) 掌握系统常量 vbcrlf 的使用方法 3. 实验任务 (1) 在窗体上放置 2 个多行的文本框,1 个有水平滚动条,1 个有垂直滚动条,2 个命令按钮 相应的属性设置见表 2.5 表 2.5 实验案例 2-5 属性设置 控件名 属性 Form1 Caption=" 整理句子 " Label1 Caption=" 原文 整理后 " Command1 Caption=" 整理 " Command2 Caption=" 结束 " Text1 Text="",MultiLine=True,ScrolBar=2 Text2 Text="",MultiLine=True,ScrolBar=1 (2) 在 Text1 中输入若干个句子, 句子以句点. 作为结束符 (3) 单击 整理 按钮, 整理 Text1 中的一个句子, 使之首字母大写, 存放在 Text2 中 按钮标题改为 继续... 每单击一次 继续... 按钮, 整理一个句子, 直至整理完毕, 并给出 整理完毕 的提示 (4) 单击 结束 按钮, 结束程序运行 运行界面如图 2.6 所示 4. 实验分析 (1) 利用 InStr 函数来查找. 在文本中的位置, 用 Mid 函数取出句子 (2) 下一个句子应从. 后开始查找, 应在通用声明段定义 2 个整型变量, 如 k1 k2, 假设 k1 用来存放. 的位置,k2 用来存放上一个句子. 的位置, 则下一个句子应从 k2+1 处开始取 当 k1 值为 0 时表示整理完毕

70 56 第 2 章 VisualBasic 语言基础和顺序结构 图 2.6 实验案例 2-5 运行界面 5. 实验代码 Dim k1%,k2%,str PrivateSubCommand1_Click() Command1.Caption=" 继续..." k1=instr(k1+1,text1,".") 求查找内容在文本中的位置 Ifk1>0Then str=mid(text1,k2+1,k1-k2) 取句子 str=ucase(mid(str,1,1))+mid(str,2) Text2=Text2+str+vbCrLf k2=k1 Else MsgBox(" 整理完毕!") Text1.SelStart=0 将光标定位在文本的起始处, 以便重新查找 Command1.Caption=" 整理 " EndIf 6. 实验思考本程序的句子只能以句点. 作为结束符, 若句子以句点. 或逗号, 作为结束符, 则应如何实现? 实验案例 2-6: 字符串替换和标题栏字幕滚动 1. 实验名称字符串替换和标题栏字幕滚动

71 2.3 实验案例分析 实验目的 (1) 熟练掌握 Mid Replace Shel InStr Space 等函数的用法 (2) 掌握时钟控件的使用方法 3. 实验任务设计一个如图 2.7 所示的界面 要求 : (1) 单击 替换 按钮, 替换查找到的字符串 (2) 单击 替换函数 按钮, 利用替换 (Replace) 函数实现替换 (3) 单击 调用 Word 按钮, 调用 WinWord.exe 应用程序 (4) 在窗体的标题栏上以自右向左滚动字幕的形式显示 查找与替换 运行界面如图 2.8 所示 图 2.7 实验案例 2-6 设计界面 图 2.8 实验案例 2-6 运行界面 4. 实验分析 (1) 该案例是字符串处理函数的综合应用案例 这些函数非常有用, 可以给字符串的处理带来一定便利, 应熟练掌握 前面已有许多实验案例涉及这些函数的使用 本案例的难点在于如何实现替换, 在本案例中用如下语句实现 : i=instr(text1,text2) 在 Text1 中查找出现 Text2 中内容的起始位置存放在 i 变量中 k=i+len(text2) 取右子串的起始位置 Text4=Left(Text1,i-1)+Text3+Mid(Text1,k) 取 i 前面的左子串, 连接替换内容, 再连接右子串, 实现替换 简单的 VisualBasic i 程序设计 k (2) 为了在标题栏上显示滚动的字幕, 需要用到时钟 (Timer1) 控件和 Space 空格函数, 以改变空格数达到自右向左滚动字幕的效果

72 58 第 2 章 VisualBasic 语言基础和顺序结构 5. 实验代码 Dim j% PrivateSubCommand1_Click() i=instr(text1,text2) 在 Text1 中查找出现 Text2 中内容的位置存放在 i 变量中 k=i+len(text2) 取右子串的起始位置 Text4=Left(Text1,i-1)+Text3+Mid(Text1,k) PrivateSubCommand2_Click() 利用替换函数实现替换 Text4=Replace(Text1,Text2,Text3) PrivateSubCommand3_Click() 通过 Shel 函数执行 Word 程序 i=shel("c:\program Files\MicrosoftOfice\Ofice10\winword.exe",1) PrivateSubTimer1_Timer() 字幕滚动随着 j 的增加, 空格数减少, 视觉上实现字符串向左移动 Form1.Caption=Space(100-j)& " 查找与替换 " j=j+1 Ifj>100Thenj=0 6. 实验思考 (1) 本案例的 替换 功能只能替换查找到的第一个字符串, 若有多个相同的子串都要替换, 即实现 Replace 函数的功能, 则要用循环语句实现 试在学习循环语句后, 修改本程序, 使 替换 按钮具有 Replace 函数的功能 (2) 要使窗体标题栏上的文字自左向右滚动, 程序应如何修改? 2.4 实验项目汇编 实验项目 2-1: 计算圆周长和圆面积 1. 实验名称计算圆周长和圆面积 2. 实验目的 (1) 掌握定义符号常量的方法

73 2.4 实验项目汇编 59 (2) 掌握 Format Val 函数的用法 (3) 掌握对输入的数据进行合法性检查的方法 3. 实验任务输入半径, 计算圆周长和圆面积 要求 : (1) 对输入的半径进行合法性检查 若输入错误, 则给出出错提示 (2) 保留两位小数 运行界面如图 2.9(a) 所示, 出错提示如图 2.9(b) 所示 图 2.9 实验项目 2-1 运行界面和出错提示 4. 实验分析 (1) 对输入的半径进行合法性检查 判断数据是否输入结束有以下两种方法 1 文本框失去焦点 ( 如按 Tab 键或单击其他按钮 ), 检查数据的合法性, 使用 Text1_LostFocus() 事件 2 按回车键, 当 Text1_KeyPres() 事件返回参数 KeyAsci 的值为 13 时表示输入结束 (2) 调用 IsNumeric 函数对数据进行合法性检查, 若有错误, 利用 MsgBox 显示出错信息, 通过 SetFocus 方法定位在出错的文本框处, 重新输入 (3) 利用 Format 函数保留两位小数 形式 :Format( 要显示的数值,"0.00") (4)π 值可用 Const 定义为符号常量 按回车键后, 可以利用以下代码对输入的半径进行合法性检查 : PrivateSubText1_KeyPress(KeyAsciAsInteger) IfKeyAsci=13Then IfNotIsNumeric(Text1)Then MsgBox" 输入有非法数字, 请重新输入 ",," 数据检查 " Text1=""

74 60 第 2 章 VisualBasic 语言基础和顺序结构 Text1.SetFocus EndIf EndIf 5. 实验思考计算圆周长或圆面积时, 若用 Label2=Format(2 pi Text1,"0.00") 语句, 在什么情况下会出错? 如何避免这个错误? 实验项目 2-2: 求均值 1. 实验名称求均值 2. 实验目的 (1) 掌握表达式的正确书写规则 (2) 掌握利用随机函数产生不同范围的数 3. 实验任务 (1) 单击 产生 按钮, 在 3 个文本框中分别随机产生 1 个一位数 1 个两位数 1 个三位数 (2) 单击 均值 按钮, 在标签中显示 3 个数的平均值, 保留两位小数 运行界面如图 2.10 所示 图 2.10 实验项目 2-2 运行界面 4. 实验分析 (1) 利用随机函数 Rnd 产生不同范围的数 (2) 文本框中的内容是字符型, 表达式 Text1+Text2+Text3 是将 3 个文本框中的内容连接起来, 应将文本框中的内容用 Val 函数转换为数值型再求和 5. 实验思考 (1) 在本实验项目中可以不使用变量, 直接通过控件实现 若使用变量应如何实现?

75 2.4 实验项目汇编 61 (2) 随机产生 3 个两位数, 求其中最大的数 实验项目 2-3: 三角形判定 1. 实验名称三角形判定 2. 实验目的 (1) 熟练掌握关系运算符 逻辑运算符的用法以及表达式的正确书写规则 (2) 掌握 InputBox MsgBox 函数的使用方法 3. 实验任务在文本框中输入三角形 3 条边的长度, 判断其能否构成三角形, 若能构成三角形, 则输出是何种性质的三角形 运行界面如图 2.11 所示 4. 实验分析 图 2.11 实验项目 2-3 运行界面 假设 a b c 代表三角形的 3 条边, 则等边三角形 a=b=c 等腰三角形 a=b 或 a=c 或 b=c 直角三角形 a 2 +b 2 =c 2 或 a 2 +c 2 =b 2 或 b 2 +c 2 =a 2 程序不难, 但要注意表达式的书写格式, 并对各种不同的情况进行判断 用 If 语句实现, 形式如下 : If 表达式 1Then If 表达式 2Then MsgBox(" 构成等边三角形 ") ElseIf 表达式 3Then MsgBox(" 构成等腰三角形 ")

76 62 第 2 章 VisualBasic 语言基础和顺序结构 ElseIf 表达式 4Then MsgBox(" 构成直角三角形 ") Else MsgBox(" 构成三角形 ") EndIf Else MsgBox(" 不能构成三角形 ") EndIf 5. 实验思考 (1) 完善程序, 考虑输入数据的有效性 (2) 若 3 条边从键盘输入, 则程序应如何修改? (3) 若能构成三角形, 则输出该三角形的面积, 程序应如何编写? 已知 3 条边边长 A B C, 求其面积的公式如下 : AREA = 其中,L 为三角形周长的 1/2 槡 L(L-A)(L-B)(L-C ), L= 1 2 (A+B+C) 实验项目 2-4: 数据的分离和交换 1. 实验名称 数据的分离和交换 2. 实验目的 (1) 掌握运算符 \ Mod 的用法和表达式的正确书写格式 (2) 掌握数据的分离和交换程序 3. 实验任务 程序运行后, 在标签中随机产生 1 个三位正整数, 要求 : (1) 单击 分离 按钮, 分离出该数的百位 十位 个位, 并分别用标签显示出来 (2) 单击 交换 按钮, 交换百位数与个位数 (3) 单击 逆序数 按钮, 在标签中以如图 2.12 所示的形式显示随机产生的数的逆序数 运行界面如图 2.12 所示 4. 实验分析 (1) 要交换两个数, 不能直接赋值, 而应再定义一个临时变量, 用来暂存一个数 (2) 要得到三位数 x 的百位数, 可以使用表达式 x\100, 而表达式 x/100 的值是一个实型数, 若将该数赋给一个整型变量, 则小数点后面 1 位四舍五入

77 2.4 实验项目汇编 63 图 2.12 实验项目 2-4 运行界面 (3) 运算符 \ 的优先级高于 Mod 运算符, 要注意表达式的书写规则 要得到三位数 x 的各位数, 可用如下代码实现 : a=x\100 b=(xmod10)\10 c=xmod10 整型变量 a 存放百位数字 整型变量 b 存放十位数字 整型变量 c 存放个位数字 5. 实验思考 (1) 三位数 x 的十位数除用表达式 (xmod10)\10 表示外, 还有其他什么表示方法? (2) 若将 Command2_Click() 事件过程改为 PrivateSubCommand2_Click() Dim t%,a%,c% t=a:a=c:c=t Label1=a:Label3=c 为什么无法实现百位数与个位数的交换? 若要通过变量实现交换, 程序应如何修改? 实验项目 2-5: 大小写字母转换 1. 实验名称大小写字母转换 2. 实验目的 (1) 掌握函数的用法和表达式的正确书写规则 (2) 掌握大小写字母间的转换方法 (3) 掌握模块级与过程级变量的用法

78 64 第 2 章 VisualBasic 语言基础和顺序结构 3. 实验任务 (1) 每单击一次 产生 按钮, 则随机产生一个大写字符, 在文本框中显示该字符及其对应的小写字符 (2) 单击 统计 按钮, 统计文本框中现有的字符个数 运行界面如图 2.13 所示 4. 实验分析 (1) 大写字符可通过表达式 Chr(Int(Rnd 26)+ 65) 产生 (2) 大小写字母的 ASCI 码相差 32( 大写 A 是 65, 图 2.13 实验项目小写 a 是 97), 将变量 c 中的大写字母转换为小写字母 2-5 运行界面可用表达式 Chr(Asc(c)+32) 或 Chr(Asc(c)+Asc("a")- Asc("A")) 表示 (3) 换行可以用 VB 系统常量 vbcrlf 或 Chr(13)+Chr(10) 进行控制 (4) 要定义一个变量, 用来统计 产生 按钮被单击的次数, 由于该值在 统计 按钮单击事件中要用到, 所以应将该变量定义为模块级变量 5. 实验思考 (1) 将程序改为随机产生一个小写字符, 在文本框中显示该字符及其对应的大写字符 (2) 若单击 产生 按钮, 便在文本框中显示如图 2.13 所示的结果, 则要用循环语句, 试用代码实现 实验项目 2-6: 商品销售 1. 实验名称商品销售 2. 实验目的 (1) 掌握使用 Format 函数使数据按指定格式输出 (2) 熟练掌握 Print 方法的用法 语句后有 ; 或, 和无符号的区别 各栏数据的对齐操作 (3) 掌握 Shel 函数的用法 3. 实验任务模拟商场柜台商品销售情况, 显示记录清单和合计, 要求 : (1) 界面上有 3 个文本框, 分别用来输入商品名 单价和数量, 单击 添加 按钮, 将输入的商品名 单价和数量在图片框中输出, 并计算金额

79 2.4 实验项目汇编 65 (2) 单击 合计 按钮, 计算合计金额, 并显示当天的日期 (3) 单击 计算器 按钮, 自动运行 Windows 的计算器应用程序 (4) 单击 结束 按钮, 结束程序的运行 运行界面如图 2.14 所示 图 2.14 实验项目 2-6 运行界面 4. 实验分析程序较为简单, 主要是使用格式符控制数据的输出形式 金额要以如图 2 14 所示的形式输出, 应使用格式字符串 #,###.00 VB 中, 可通过 Shel 函数调用各种应用程序 PrivateSubCommand1_Click() 单击 添加 按钮的事件过程 Picture1.PrintText1.Text, 注意语句后的逗号 Picture1.PrintFormat(Val(Text2.Text),"#.00"), Picture1.PrintVal(Text3.Text), s=val(text2) Val(Text3) sum=sum+s Picture1.PrintFormat(s," #,###.00") 5. 实验思考在 Command1_Click() 事件代码中, 若将 Picture1.PrintText1.Text, 语句后面的逗号, 去掉, 输出结果会发生什么变化? 若改为分号 ;, 结果又会发生什么样的变化?