内容简介本书是与 Visual Basic 程序设计教程 相配套的实践教程 本书包括了与主教材各章节内容对应的上机实践及自测习题 上机实践部分内容丰富, 步骤清晰, 注重基本知识与实际案例相结合, 可操作性强 自测习题部分知识涵盖范围广, 有助于学生对知识理解和掌握 本书可作为高等院校非计算机专业学

Transcription

1 普通高等教育 十二五 重点规划教材计算机基础教育系列 中国科学院教材建设专家委员会 十二五 规划教材 Visual Basic 程序设计实践教程 肖峰季晓玉主编 科学出版社职教技术出版中心 北 京

2 内容简介本书是与 Visual Basic 程序设计教程 相配套的实践教程 本书包括了与主教材各章节内容对应的上机实践及自测习题 上机实践部分内容丰富, 步骤清晰, 注重基本知识与实际案例相结合, 可操作性强 自测习题部分知识涵盖范围广, 有助于学生对知识理解和掌握 本书可作为高等院校非计算机专业学习 VB 程序设计的教材, 也可作为计算机等级考试二级 VB 程序设计考试人员的培训教材, 还可作为其他各类学校及自学者学习 VB 程序设计的参考书 图书在版编目 (CIP) 数据 Visual Basic 程序设计实践教程 / 肖峰, 季晓玉主编. 北京 : 科学出版社, 2013 ( 普通高等教育 十二五 重点规划教材 计算机基础教育系列 ) ISBN Ⅰ. 1V Ⅱ. 1 肖 2 季 Ⅲ. 1BASIC 语言 - 程序设计 - 高等学校 - 教材 Ⅳ. 1TP312 中国版本图书馆 CIP 数据核字 (2013) 第 号责任编辑 : 陈晓萍宋丽 / 责任校对 : 刘玉靖责任印制 : 吕春珉 / 封面设计 : 北大彩印 科学出版社发行各地新华书店经销 * 2013 年 2 月第一版开本 : / 年 2 月第一次印刷印张 :16 3/4 字数 : 定价 :30.00 元 ( 如有印装质量问题, 我社负责调换 双青 ) 销售部电话 编辑部电话 版权所有, 侵权必究 举报电话 : ; ;

3 本书编写人员 主编肖峰季晓玉副主编张特来原虹王忠宽参编刘素丽王宏伟张燕妮肇恒宇刘芳陶冶吴俊峰 科学出版社职教技术出版中心

4 前 言 Visual Basic 由于具有简单易学 操作方便 功能强大等特点, 已经成为高等院校学生学习程序设计的首选课程 本书的配套主教材 Visual Basic 程序设计教程 是根据教育部高等学校计算机基础课程教学指导委员会的教学基本要求, 参照全国计算机等级考试大纲, 由几所高等院校具有多年教学经验和国家计算机二级考试辅导经验的一线教师共同编写的 本书是按照 Visual Basic 程序设计教程 的教学内容安排的相应上机实践和自测习题, 既可以作为理论课程的配套教材和习题指导, 也可以独立作为实践教学教材 全书共分 11 章, 主要内容包括 :VB 6.0 概述, 窗体和基本控件,VB 语言基础,VB 的基本控制结构, 数组, 常用控件, 过程, 用户界面设计, 鼠标 键盘与绘图, 文件, 数据库应用程序设计 每章又分为四个部分 : 上机实践 典型试题与解析 测试题及测试题答案 每章不仅提供了详尽的上机操作步骤, 也提供了典型试题分析和学生学习自测的习题及答案 本书由肖峰 季晓玉任主编, 张特来 原虹 王忠宽任副主编 具体编写分工如下 : 第 1 章由原虹编写, 第 2 章由王忠宽编写, 第 3 章由季晓玉编写, 第 4 章由刘素丽编写, 第 5 章由王宏伟编写, 第 6 章由张特来编写, 第 7 章由张燕妮编写, 第 8 章由肇恒宇编写, 第 9 章由刘芳编写, 第 10 章由陶冶编写, 第 11 章由吴俊峰编写 本书在编写和出版过程中, 得到了学校各相关部门 兄弟院校同仁的大力支持, 在此一并表示感谢 由于作者水平有限, 书中如有疏漏及不妥之处, 敬请读者批评指正 肖峰 2012 年 12 月

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

6 目 录 第 1 章 VB 6.0 概述 上机实践 VB 的启动与退出 VB 环境中各窗口的打开与关闭 简单 VB 应用程序的建立 VB 应用程序调试 典型试题与解析 单选题 填空题 测试题 单选题 填空题 测试题答案 16 第 2 章窗体和基本控件 上机实践 标签的使用 文本框的使用 命令按钮的使用 典型试题与解析 单选题 填空题 测试题 单选题 填空题 判断题 测试题答案 35 第 3 章 VB 语言基础 上机实践 运算符与表达式 常用的内部函数 格式输出函数 综合应用 典型试题与解析 单选题 43

7 iv Visual Basic 程序设计实践教程 填空题 测试题 单选题 填空题 测试题答案 50 第 4 章 VB 的基本控制结构 上机实践 InputBox 函数和 MsgBox 函数的使用 顺序结构的程序设计 分支结构的程序设计 循环结构的程序设计 典型试题与解析 单选题 填空题 测试题 单选题 填空题 完善程序题 程序设计题 测试题答案 78 第 5 章数组 上机实践 一维数组的定义及应用 二维数组的定义及应用 控件数组的应用 典型试题与解析 单选题 91 科学出版社职教技术出版中心 填空题 测试题 单选题 填空题 改错题 阅读程序题 程序设计题 测试题答案 111 第 6 章常用控件 上机实践 单选按钮 复选框和框架的使用 113

8 目录 v 形状控件 Shape 的使用 列表框的使用 组合框的使用 时钟和图片框的使用 滚动条的使用 典型试题与解析 单选题 填空题 测试题 单选题 填空题 阅读程序题 程序设计题 测试题答案 144 第 7 章过程 上机实践 子过程的定义与调用 函数过程的定义与调用 参数传递 过程和变量的作用域 典型试题与解析 单选题 填空题 测试题 单选题 填空题 判断题 程序设计题 测试题答案 179 第 8 章用户界面设计 上机实践 通用对话框的使用 菜单的创建和使用 多窗体的创建和使用 典型试题与解析 单选题 填空题 测试题 188

9 vi Visual Basic 程序设计实践教程 单选题 填空题 程序填空题 编程题 测试题答案 200 第 9 章鼠标 键盘与绘图 上机实践 控件的鼠标事件 控件的键盘事件 绘图 典型试题与解析 单选题 填空题 测试题 单选题 填空题 程序设计题 测试题答案 219 第 10 章文件 上机实践 文件系统控件的使用 顺序文件的使用 随机文件的使用 典型试题与解析 选择题 填空题 测试题 231 科学出版社职教技术出版中心 单选题 填空题 判断题 测试题答案 239 第 11 章数据库应用程序设计 上机实践 创建数据库 应用数据库 典型例题与解析 单选题 填空题 249

10 目录 vii 11.3 测试题 单选题 填空题 改错题 程序设计题 测试题答案 253 参考文献 254

11 第 1 章 VB 6.0 概述 知识要点 (1)Visual Basic( 以下简称 VB) 的特点 (2)VB 6.0 集成开发环境的使用 (3)VB 应用程序的开发步骤 (4)VB 面向对象基础 1.1 上机实践 VB 的启动与退出 一 实验目的 (1) 建立 VB 启动的快捷方式 (2) 掌握 VB 的启动与退出 二 实验内容及步骤 1. 建立启动 VB 的快捷方式 (1) 打开 Windows 资源管理器, 在 VB 安装目录下找到 VB6.EXE( 默认安装在 C:\Program Files\Microsoft Visual Studio\VB98 目录下 ) (2) 把鼠标移动到 VB6.EXE 上, 右击鼠标, 在弹出的快捷菜单上选择 发送到 桌面快捷方式 命令, 如图 1.1 所示, 则在桌面上将建立一个快捷方式图标, 如图 1.2 所示 科学出版社职教技术出版中心 图 1.1 快捷方式的建立 图 1.2 桌面快捷图标

12 2 Visual Basic 程序设计实践教程 2. VB 的启动 (1) 通过 开始 按钮 选择桌面上的 开始 程序 菜单, 然后打开 Microsoft Visual Basic 6.0 中文版 子菜单中的 Microsoft Visual Basic 6.0 中文版 程序, 如图 1.3 所示, 即可启动 VB 6.0 图 1.3 从 开始 菜单启动 VB (2) 利用快捷方式 双击桌面上的 VB 6.0 快捷图标也可启动 VB 6.0 (3) 利用运行命令 选择 开始 运行 命令, 在 运行 对话框中输入 C:\Program Files\Microsoft Visual Studio\VB 98\VB6.exe 来启动 VB 6.0, 如图 1.4 所示 图 1.4 运行窗口启动 VB (4) 利用 资源管理器 或 我的电脑, 找到 VB 安装目录下的 VB6.exe, 双击文件名启动 3. VB 的退出 (1) 选择 文件 退出 命令 (2) 单击主窗口右上角的 关闭 按钮 (3) 按下 Alt+Q 键 注意 : 用户如果没有保存文件, 退出 VB 环境时, 系统会提示用户保存, 选择 是 (Y) 表示要对所作修改进行保存 ; 选择 否 (N) 表示不保存所作的修改, 直接退出 VB 环境 VB 环境中各窗口的打开与关闭一 实验目的 (1) 熟悉 VB 的工作环境 (2) 掌握 VB 的工作环境的使用

13 第 1 章 VB 6.0 概述 3 二 实验内容及步骤 1. 熟悉 VB 集成开发环境的各窗口组成及布局 打开 VB 环境, 找到主窗口中 工程资源管理器 属性窗口 窗体窗口 和 工具箱 各窗口都是浮动窗口, 拖动窗口的标题栏, 可以调整窗口的位置 2. 工程资源管理器 窗口的打开和关闭 (1) 观察 工程资源管理器 窗口中的文件 : 工程文件 (.vbp) 和窗体文件 (.frm) 工程资源管理器 窗口也称为 工程窗口 (2) 关闭 工程资源管理器 窗口 单击 工程资源管理器 窗口右上角的 关闭 按钮 ; 用鼠标右击窗口的标题栏, 在弹出菜单中选择 关闭 命令 (3) 打开 工程资源管理器 窗口 单击工具栏上的 工程资源管理器 按钮 ; 选择 视图 工程资源管理器 命令 ; 按下 Ctrl+R 键 3. 窗体设计器 窗口的打开和关闭 (1) 单击 窗体设计器 窗口的 关闭 按钮, 可以关闭窗体 (2) 打开窗体的方法 : 在 工程资源管理器 窗口中双击要打开的窗体文件 ; 在 工程资源管理器 窗口中选择要打开的窗体, 单击 查看对象 按钮 ; 选择 视图 对象窗口 命令打开 窗体设计器 窗口 ; 按下 Shift+F7 键 4. 属性 窗口的打开和关闭 (1) 单击 属性 窗口的 关闭 按钮, 可以关闭窗口 (2) 打开窗口的方法 : 单击工具栏上的 属性窗口 按钮 ; 选择 视图 属性窗口 命令 ; 按 F4 键 5. 代码窗口 的打开与关闭 (1) 单击 代码 窗口的 关闭 按钮, 可以关闭该窗口 (2) 打开 代码窗口 的方法 : 选择 视图 代码窗口 命令 ; 双击窗体或窗体上的控件 ; 右击窗体或其中的控件, 选择 查看代码 ; 按 F7 键 ; 右击 工程资源管理器 图 1.5 工程管理器 中的 ( 即软件右上角的小窗口 ), 如图 1.5 所示, 选择 查看代码 查看代码 按钮 6. 工具箱 窗口的打开和关闭 (1) 单击 工具箱 窗口的 关闭 按钮, 可以关闭该窗口 (2) 打开窗口的方法 : 单击工具栏上的 工具箱 按钮 ; 选择 视图 工具箱 命令 7. 个性化开发环境设置 选择菜单中的 工具 选项 命令, 打开 选项 对话框进行如下设置 (1) 编辑器 选项卡中设置 : 自动语法检测 要求变量声明 和 编辑时可拖放文本 (2) 编辑器格式 选项卡中设置 : 字体为 黑体, 大小为 18 磅 (3) 环境 选项卡中设置 : 启动 VB 时 创建缺省工程 科学出版社职教技术出版中心

14 4 Visual Basic 程序设计实践教程 简单 VB 应用程序的建立一 实验目的 (1) 建立简单的 VB 应用程序 (2) 掌握应用程序调试与错误处理 二 实验内容及步骤 要求 制作一个简单的可以进行加 减 乘 除算术运算的小型计算器, 其界面如图 1.6 所示 要求在前两个空框 ( 文本框 ) 中输入两个数值, 单击加 减 乘 除按钮中的一个, 则第三个空框 ( 文本框 ) 中显示运算的结果 ; 单击 清除 按钮, 则清除文本框中的内容 ; 单击 结束 按钮, 则结束程序的运行 图 1.6 计算器运行界面 步骤 1. 设计用户界面 (1) 启动 VB 环境, 弹出 新建工程 对话框, 在 新建 选项卡中选择 标准 EXE, 单击 打开 命令, 进入 VB 主窗口 (2) 在对象窗口中的 Form1 中画三个标签 : Label1 Label2 Label3 其方法如下 1 单击左边工具箱窗口中的 标签按钮, 此时鼠标变成十字形状, 在窗体上拖动鼠标, 当标签控件大小适中时, 放开鼠标, 完成 Label1 控件 再单击 标签按钮, 画出 Label2 和 Label3 2 也可以双击 标签按钮, 直接在 Form1 上画出 Label1, 反复双击 标签按钮, 就会画出 Label2 和 Label3 注意: 这样画出来的三个控件是重叠的, 需要用鼠标拖动将三个标签控件分离开 3 也可以画出 Label1 后, 复制 Label1, 采用复制 / 粘贴的方式画其他的两个标签控件 注意 : 粘贴控件时系统会提示是否创建控件数组, 选择 否, 完成控件的复制 (3) 在窗体上画三个文本框 : Text1 Text2 Text3 方法是: 单击窗口左边工具箱中的 文本框按钮, 此时鼠标变成十字形状, 拖动鼠标, 当控件大小适中时, 放开鼠标 (4) 单击窗口左边工具箱中的 命令按钮, 此时鼠标变成十字形状, 拖动鼠标 用同样方法, 在窗体上画六个命令按钮 : Command1 Command2 Command3 Command4 Command5 Command6

15 (5) 调整控件的位置和大小 第 1 章 VB 6.0 概述 5 1 鼠标单击某个控件, 此控件的周围即会出现八个控点, 表示此控件已被选中, 可进行移动操作或者更改控件大小 2 如果要想使多个控件具有同样的大小和位置, 可选择 格式 菜单下的 对齐 和 统一尺寸 命令来进行调整 2. 设置各控件的属性 依次选中各个控件, 在 属性 窗口中设置各控件的属性, 如表 1.1 所示 表 1.1 各相关控件的属性设置 控件名称属性名属性值说明 Label1 Caption 第一个数标签的标题 Label2 Caption 第二个数标签的标题 Label3 Caption 运算结果标签的标题 Text1 Text 空 Text2 Text 空 Text3 Text 空 Command1 Caption 加按钮的标题 Command2 Caption 减按钮的标题 Command3 Caption 乘按钮的标题 Command4 Caption 除按钮的标题 Command5 Caption 清除按钮的标题 Command6 Caption 结束按钮的标题 Form1 Caption 计算器窗体的标题 (1) 单击 Label1 控件, 则在 属性 窗口中将显示 Label1 控件的名称, 在下面的属性中找到 Caption 属性, 对右侧的值进行设置 (2) 用同样的方法设置控件的其他属性 (3) 所有 Label 和 Command 的 Font 属性都设置为 黑体 四号 设置 Font 属性时, 要单击右侧的 按钮, 在弹出的 字体 对话框中进行设置 (4) 可以对每个控件进行单独设置, 也可以将要设置 Font 属性的控件都选中, 统一设置 3. 在代码窗口书写程序代码 (1) 双击 Command1, 打开代码书写窗口, 在过程列表框中选择 Click 事件, 在系统自动添加的 Private Sub Command1_Click() 与 之间书写如下语句 : Text3.Text = Val(Text1.Text) + Val(Text2.Text), 如图 1.7 所示 科学出版社职教技术出版中心 图 1.7 Command1 的代码编写

16 6 Visual Basic 程序设计实践教程 (2) 对于其他按钮, 也按照上述步骤操作, 书写代码如下 Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) Private Sub Command2_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text) Private Sub Command3_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) Private Sub Command4_Click() Text3.Text = Val(Text1.Text) / Val(Text2.Text) Private Sub Command5_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Private Sub Command6_Click() End 4. 保存工程 (1) 完成上述任务后, 单击 文件 菜单中的 保存工程 命令或单击工具栏中 保存工程 按钮, 将先后弹出两个保存对话框, 第一个为 文件另存为 对话框, 用来保存窗体文件, 如图 1.8 所示 默认窗体文件名称为 Form1.frm, 默认的保存目录是 VB 的安装目录 VB98, 也可以选择其他要保存文件的保存路径, 确定保存窗体 (2) 第二个对话框为 工程另存为 对话框, 用来保存工程文件, 如图 1.9 所示, 默认的工程文件名称为 工程 1.vbp, 要将工程文件与窗体文件保存在同一路径下 单击 保存 按钮完成保存工程文件 图 1.8 文件另存为 对话框 图 1.9 工程另存为 对话框 注意 : 1 一个 VB 程序需要保存两个文件, 分别是窗体文件 (.frm) 和工程文件 (.vbp)

17 第 1 章 VB 6.0 概述 7 下一次打开程序时, 通过直接双击该程序的工程文件 (.vbp) 即可 2 如果对已保存的程序再次进行了修改 ( 包括界面和代码 ), 需要保存程序, 可以 单击工具栏中 保存工程 按钮 在原有文件上进行更新, 此时不会弹出保存对话框, 系统会将所作修改直接 3 如果想改变 VB 的默认保存路径, 可创建一个 VB 6.0 的快捷方式, 在快捷方式 图标右击, 在弹出的快捷菜单中选择 属性, 在 快捷方式 选项卡的 起始位置 中填写经常要保存的目录名, 如 d:\vb 自编代码 ( 引号里面填写想要的默认保存目录的地址 ), 确定即可 下一次从此快捷方式启动 VB, 默认路径将改变成刚才设置的目录了 这将为我们编程带来极大的方便 5. 运行程序 (1) 单击工具栏上的启动按钮, 运行程序 (2) 选择 运行 启动 命令 (3) 按下 F5 键运行程序 注意 : 如果运行过程中发生错误, 则需要程序调试 6. 生成.exe 文件 为了发布程序, 必须把所编制的程序代码编译为可脱离 VB 环境而直接在操作系统下运行的可执行文件 ( 扩展名为.exe), 将程序编译为可执行文件的步骤如下 (1) 程序调试测试完毕后首先保存文件 (2) 选择 文件 生成.exe 菜单项, 弹出 生成工程 对话框, 如图 1.10 生成工程所示 (3) 单击 选项 按钮, 弹出 工程属性 对话框, 如图 1.11 所示 ; 根据需要设置相关选项, 其中程序首次的版本号为 1.0.0, 自动升级 被选中后, 每次编译时 VB 将自动把 修正 值加 1 科学出版社职教技术出版中心 图 1.10 生成工程 对话框 图 1.11 生成工程属性 (4) 设置完相关选项后, 单击 确定 按钮 (5) 在 生成工程 对话框中填入可执行文件名, 单击 确定 按钮, 生成可执行文件 注意 : 1 所生成的.exe 文件的运行仍需要 VB 系统的一些文件支持, 如.ocx.dll 等, 因

18 8 Visual Basic 程序设计实践教程 此, 此时的可执行文件必须在装有 VB 的计算机上方能运行, 否则, 须将与程序相关的.ocx.dll 文件与可执行文件一同捆绑发布 2 为了使应用程序能够在完全脱离 VB 的 Windows 环境下运行, 可利用 VB 提供的安装向导将应用程序制作成安装盘, 以便在其他计算机上安装运行 VB 应用程序调试 VB 提供的面向对象的可视化开发环境, 提高了程序设计开发的效率和质量 但是, 无论程序员的编程技术多么高超, 由于程序设计必须是由程序员手工操作来完成, 免不了会出现这样或那样的失误, 必须通过调试才能正常运行 为了方便用户快速 准确地查找和修改错误,VB 系统提供了一组交互式 有效的调试工具和手段 应用程序的调试就是在程序设计过程中不断地发现并改正错误 1. VB 的工作模式 VB 是一个集编辑 编译与运行于一体的集成开发系统 在程序设计过程中, 其工作状态可分为三种模式 : 设计模式 运行模式和中断模式 为了调试程序, 用户必须知道系统当前所处的工作模式及其能实施的相关操作 (1) 设计模式 用于用户基本界面的设计 相关控件的属性设置和程序代码编制 (2) 运行模式 用于在编辑代码过程中编译执行应用程序, 以观察运行效果或进行代码调试 在该模式下, 不能对程序界面及代码进行编辑 (3) 中断模式 用于程序运行过程中的暂时中断, 这时可以编辑程序代码, 并可在 立即 窗口中显示变量值 中间结果或运行其他命令, 但不可编辑界面 该模式主要用作程序代码的调试和中间结果的检查 在此模式下, 选择 运行 菜单下的 继续 选项可以继续运行程序, 选择 结束 选项可以中止程序的运行 2. 程序错误 程序错误基本上可以分为三种类型 : 编译错误 运行错误和逻辑错误 (1) 编译错误 由于使用错误的语法结构或错误的命令语句使得 VB 编译器无法对代码进行编译, 这类错误称为编译错误 例如, 遗漏标点符号 关键字, 将英文标点符号写成中文标点符号, 表达式书写不完善等 语法错误通常发生在键入代码的过程中 由于 VB 具有自动检测语法错误的功能, 该功能可在 选项 对话框的 编辑器 选项卡中设置, 如图 1.12 所示 在输入程序代码的过程中, 一旦检查出语法错误, 会立即提示用户纠正 图 1.12 自动语法检测

19 第 1 章 VB 6.0 概述 9 例如, 在图 1.12 中键入代码 Form1.Font =" 黑体 " 时, 误将 " 黑体 " 写成 黑体 ( 前者为西文引号, 后者为中文引号 ), 当光标离开该行时, 系统立刻弹出编译错误提示对话框, 显示该处代码有错误 此时单击 确定 按钮后, 可对该处的错误代码进行纠正 如果程序中存在不属于语法错误的错误代码, 在键入代码时不会被语法检测发现, 但在随后的程序运行时, 系统在将程序编译成可执行文件时会提示错误 例如, 在图 1.13 中, 在系统要求变量声明的情况下使用未定义变量, 程序运行时 VB 将停止编译, 并回到有错误的代码窗口, 弹出错误提示对话框 此时, 单击 确定 按钮后, 可在 中断 模式下对代码窗口中的错误代码进行修改 图 1.13 变量未定义 (2) 运行错误 如果所键入代码的语法结构及程序的编译过程都正确无误, 但在随后的运行过程中却发生错误, 这通常是由程序在运行过程中执行了非法操作, 或因某些操作失败而引起的, 此类错误称为运行错误 例如, 赋值语句的数据类型不匹配 试图打开一个不存在的文件 数组下标越界 磁盘存储空间不足等 在图 1.14 中, 属性 FontSize 的类型为整型, 当对其赋值的类型为字符型时, 系统运行将会显示图中所示的出错信息 单击 调试 按钮, 进入 中断 模式, 光标停留在引起出错的语句上 此时可修改错误代码 科学出版社职教技术出版中心 图 1.14 类型不匹配 (3) 逻辑错误 程序从设计到编译运行, 整个过程没有出现任何错误的提示, 但运行后却得不到预期的结果, 这类错误称为逻辑错误 例如, 运算符使用不当, 语句的次序不正确, 循环语句的条件值或初值 终值 步长设置不正确等 由于这类错误不会导

20 10 Visual Basic 程序设计实践教程 致错误信息的提示, 因此错误较难排除, 需要程序员仔细地阅读分析程序, 并借助相应的调试工具才能查出原因, 进行纠正 3. VB 的调试工具 程序的调试就是定位和修改那些使程序不能正确运行的错误 VB 提供了功能强大的调试工具, 能够帮助分析程序运行过程, 分析变量和属性值的变化, 可以便捷 有效地查找错误产生的位置和原因 (1) 程序调试工具栏 VB 提供了一个专用的程序调试工具栏, 在集成开发环境中, 该工具栏默认不可见, 可选择 视图 / 菜单 / 工具栏 / 调试 命令, 或在任何工具栏上单击鼠标右键, 在弹出式菜单中选择 调试 命令都可以打开调试工具栏 利用该工具栏提供的按钮运行要测试的程序 中断程序的运行 在程序中设置断点 监视变量 单步调试和过程跟踪等, 以查找并排除代码中存在的逻辑错误 (2) 调试菜单 除了通过打开调试工具栏可以进行调试以外,VB 还提供了 调试 菜单和 运行 菜单 在菜单中也包含启动 中断 结束等功能命令 4. 调试程序 (1) 中断模式的进入和退出 使用调试工具调试程序通常在中断模式下进行, 在中断状态下, 用户可查看各变量及属性的当前值, 观察界面状况, 从而了解程序执行是否正常, 并且可以修改程序代码 修改变量及属性值等 在程序调试时, 使系统进入中断模式的方法有以下几种 1 程序运行时发生错误, 被系统检测到而中断 2 程序运行中, 按组合键 Ctrl+Break, 也可单击调试工具栏中 中断 按钮, 或选择 运行 / 中断 菜单项, 就会产生中断 3 在程序代码中设置断点, 当程序运行到断点处就会产生中断 4 采用逐语句或逐过程运行, 每执行完一行语句或一个过程后就会产生中断 5 在程序代码中使用 Stop 语句, 当执行到 Stop 语句时, 也会产生中断 在中断模式下, 最便捷的查看程序中变量或属性的方法是将鼠标指针停留在要查看的变量上, 系统就会在随后弹出的一个小方框中显示出指针所指的变量或属性的当前值 当在中断模式下调整完毕后, 退出中断模式的方法有以下两种 1 如果要退出并继续运行程序, 则可选择 运行 / 继续 菜单项, 或单击调试工具栏中 继续 按钮 2 如要结束运行, 则可选择 运行 / 结束 菜单项, 或单击调试工具栏中 结束 按钮 (2) 调试窗口 VB 提供了三个用于调试的窗口 : 本地 窗口 立即 窗口和 监视 窗口 调试窗口的打开可以通过调试工具栏或在 视图 菜单中选择相应的调试窗口 1 本地 窗口 本地 窗口可以显示当前过程中所有变量的值 本地 窗口只能显示本过程中的变量, 其他过程的变量则无法看到 2 立即 窗口 立即 窗口用于显示在程序运行过程中与当前过程有关的信息, 可以显示某个变量或属性值, 或执行单个过程或表达式 在进入中断模式后, 单击调试工具栏中 立即 窗口按钮显示 立即 窗口 在 立即 窗口中可以实现以下功能

21 第 1 章 VB 6.0 概述 11 a. 用 Debug.Print 方法输出信息 调试程序时可在程序代码中添加 Debug.Print n 等 语句, 将变量或表达式的值输出到 立即 窗口中 程序调试完成后, 应将 Debug.Print 语句删除 b. 在设计时用来测试表达式 在设计模式下, 可以在 立即 窗口中使用 Print 方 法或? 直接输出一些表达式的结果 c. 直接从 立即 窗口打印 在中断模式下, 通过使用 Print 方法或? 可在 立 即 窗口中检查变量或表达式的值 d. 从 立即 窗口编辑变量或属性值 在中断模式下, 可在 立即 窗口中设置变 量或属性的值 e. 从 立即 窗口测试过程 从 立即 窗口可以通过指定参数值来调用过程, 以 测试程序的正确性 5. 调试程序实例 (1) 启动 VB, 设计如图 1.15 所示界面 (2) 在代码窗口中, 输入如下代码 Option Explicit Private Sub Form_Load() Label1.Font = " 黑体 " Label1.FontSize = "16" Label1.ForeColor = vbred Private Sub Command1_Click() Dim x$, y$ x = "Visual Basic" y = " 程序调试 " z = x + y Label1.Caption = z Private Sub Command2_Click() End (3) 调试程序, 单击 开始 按钮, 运行结果如图 1.16 所示 单击 结束 按钮, 退出程序运行 (4) 生成.exe 文件 科学出版社职教技术出版中心 图 1.15 程序调试 图 1.16 调试程序结果

22 12 Visual Basic 程序设计实践教程 1.2 典型试题与解析 单选题 例 1 VB 6.0 集成开发环境有三种工作状态, 不属于三种工作状态之一的是 ( ) A. 设计状态 B. 编写代码状态 C. 运行状态 D. 中断状态 答案解析 :VB 的工作状态显示在标题栏的中括号内有设计状态 运行状态和中断 状态, 也称三种模式或三种阶段 答案 :B 例 2 不能打开代码窗口的操作是 ( ) A. 双击窗体设计器的任何地方 B. 按下 F4 键 C. 单击工程窗口中的 查看代码 按钮 D. 选择 视图 菜单中的 代码窗口 命令 答案解析 : 按下 F4 键将打开 属性 窗口, 其余的操作都能够打开代码窗口 答案 :B 例 3 工程文件的扩展名是 ( ) A..frm B..vbp C..bas D..frx 答案解析 :VB 的应用程序称为工程, 一个工程由若干文件组成, 其中工程文件的 扩展名是.vbp 答案 :B 例 4 窗体文件的扩展名是 ( ) A..frm B..vbp C..bas D..frx 答案解析 : 在 VB 的应用程序中, 每个窗体对应一个文件, 窗体文件的扩展名是.frm 答案 :A 例 5 在设计阶段, 当双击窗体上的某个控件时, 所打开的窗口是 ( ) A. 工程资源管理器窗口 B. 工具箱窗口 C. 代码窗口 D. 属性 窗口 答案解析 : 在设计阶段, 当双击窗体上的某个控件时, 所打开的窗口是该控件的事 件过程所在的代码窗口 答案 :C 填空题 例 1 VB 6.0 窗体文件默认主名是 答案解析 :VB 6.0 窗体的名称属性和标题属性的默认值为 Form1, 若用户在应用程 序中添加多个窗体, 系统为这些窗体起的名称依次为 Form2 Form3 等, 当保存窗体文 件时,VB 用窗体名称默认值作为窗体文件的默认主名, 其扩展名是.frm, 可以改变保 存窗体文件的主名

23 第 1 章 VB 6.0 概述 13 答案 :Formx( 其中 x 为 等顺序号 ) 例 2 启动 VB 6.0 后, 要建立一个新工程, 开始的操作是 答案解析 :VB 6.0 把一个项目称为一个工程 答案 : 在 新建工程 对话框中选择 标准 EXE 选项, 单击 打开 按钮 1.3 测试题 单选题 1. 以下关于 VB 特点的叙述中, 错误的是 ( ) A. VB 是采用事件驱动编程机制的语言 B. VB 程序既可以编译运行, 也可以解释运行 C. 构成 VB 程序的多个过程没有固定的执行顺序 D. VB 程序不是结构化程序, 不具备结构化程序的三种基本结构 2. 要使某个控件不可操作, 要对 ( ) 属性进行设置 A. Enabled B. Visible C. Caption D. Name 3. 下列不属于对象的基本特征的是 ( ) A. 属性 B. 方法 C. 事件 D. 函数 4. 为了同时改变一个活动控件的高度和宽度, 正确的操作是 ( ) A. 拖拉控件四个角上的某个小方块 B. 只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D. 不能同时改变控件的高度和宽度 5. VB 中 程序运行 允许使用的快捷键是 ( ) A. F2 B. F5 C. Alt+F3 D. F8 6. 假定已在窗体上画了多个控件, 并有一个控件是活动的, 为了在 属性 窗口中 设置窗体的属性, 预先应执行的操作是 ( ) A. 单击窗体上没有控件的地方 B. 单击任一个控件 C. 不执行任何操作 D. 双击窗体的标题栏 7. 工程文件的扩展名为 ( ) A..exe B..bas C..vbp D..frm 8. 在 VB 中, 称对象的数据为 ( ) A. 属性 B. 方法 C. 事件 D. 封装 9. 为了把窗体上的某个控件变为活动的, 应执行的操作是 ( ) A. 单击窗体的边框 B. 单击该控件的内部 C. 双击该控件 D. 双击窗体 10. 将 VB 编制的程序保存在磁盘上, 至少会产生 ( ) 文件 A..doc 与.txt B..com 与.exe C..bat 与.frm D..vbp 与.frm 11. 刚建立一个新的标准 EXE 工程后, 不在工具箱中出现的控件是 ( ) 科学出版社职教技术出版中心

24 14 Visual Basic 程序设计实践教程 把 ( A. 单选按钮 B. 图片框 C. 文本框 D. 通用对话框 12. VB 集成开发环境的主窗口不包括 ( ) A. 标题栏 B. 工具栏 C. 属性 窗口 D. 菜单栏 13. 下列叙述中正确的是 ( ) A. 只有窗体才是 VB 中的对象 B. 只有控件才是 VB 中的对象 C. 窗体和控件都是 VB 中的对象 D. 窗体和控件都不是 VB 中的对象 14. 下列可以激活 属性 窗口的操作是 ( ) A. 用鼠标双击窗体的任何部位 B. 执行 工程 菜单中的 属性窗口 命令 C. 按 Ctrl+F4 键 D. 按 F4 键 15. 下列不能打开工具箱窗口的操作是 ( ) A. 执行 视图 菜单中的 工具箱 命令 B. 按 Alt+F8 键 C. 单击工具栏上的 工具箱 按钮 D. 按 Alt+V 键, 然后按 X 键 16. 面向对象程序设计的英文缩写是 ( ) A. DBE B. OLE C. OOP D. SQL 17. VB 的编程机制是 ( ) A. 可视 B. 面向对象 C. 面向图形 D. 事件驱动 18. VB 是一种 ( ) 程序设计语言 A. 过程式 B. 非过程式 C. 机器 D. 低级 19. VB 集成开发环境有三种工作模式, 不属于这三种工作模式的是 ( ) A. 设计模式 B. 运行模式 C. 代码编辑模式 D. 中断模式 20. 窗体设计器是用来设计 ( ) A. 应用程序代码 B. 应用程序界面 C. 对象的属性 D. 对象的事件 21. 多窗体程序是由多个窗体组成 在缺省情况下,VB 在应用程序执行时, 总是 ) 指定为启动窗体 A. 不包含任何控件的窗体 B. 设计时的第一个窗体 C. 包含控件最多的 D. 命名为 Frm1 的窗体 22. 有程序代码如下 : Text1.Text="Visual Basic" 则 Text1 Text 和 Visual Basic 分别代表 ( ) 要素 A. 对象, 值, 属性 B. 对象, 方法, 属性 C. 对象, 属性, 值 D. 属性, 对象, 值 23. VB 是一种面向对象的程序设计语言,( ) 不是面向对象系统所包含的三 A. 变量 B. 事件 C. 属性 D. 方法

25 第 1 章 VB 6.0 概述 VB 的一个应用程序至少包含一个 ( ) 文件, 该文件存储窗体上使用的所 有控件对象和有关的 ( ) 对象相应的 ( ) 过程和 ( ) 代码 A. 模块 方法 事件 程序 B. 窗体 属性 事件 程序 C. 窗体 程序 属性 事件 D. 窗体 属性 事件 模块 25. 以下不属于 VB 的工作模式是 ( ) 模式 A. 编译 B. 设计 C. 运行 D. 中断 26. 在 VB 集成环境创建 VB 应用程序时, 除了工具箱窗口 窗体中的窗口 属性 窗口外, 必不可少的窗口是 ( ) A. 窗体布局窗口 B. 立即窗口 C. 代码窗口 D. 监视窗口 27. 保存新建的工程时, 默认的路径是 ( ) A. My Documents B. VB98 C. \ D. Windows 28. 以下四个选项中, 属性 窗口未包含的是 ( ) A. 对象列表 B. 工具箱 C. 属性列表 D. 信息栏 29. 如果文本框的 Enabled 属性设为 False, 则 ( ) A. 文本框的文本将变成灰色, 并且此时用户不能将光标置于文本框上 B. 文本框的文本将变成灰色, 用户仍然能将光标置于文本框上, 但是不能改变 文本框中的内容 C. 文本框的文本将变成灰色, 用户仍然能改变文本框中的内容 D. 文本框的文本正常显示, 用户能将光标置于文本框上, 但是不能改变文本框 中的内容 30. 要使 Form1 窗体的标题栏显示 6 欢迎使用 VB, 以下 ( ) 语句是正确的 A. Form1.Caption="6 欢迎使用 VB" B. Form.Caption='6 欢迎使用 VB' C. Form1.Caption=6 欢迎使用 VB D. Form.Caption="6 欢迎使用 VB" 31. 在 VB 中最基本的对象是 ( ), 它是应用程序的基石, 是其他控件的容器 A. 文本框 B. 命令按钮 C. 窗体 D. 标签 32. VB 是一种面向对象的可视化程序设计语言, 采取了 ( ) 的编程机制 A. 事件驱动 B. 按过程顺序执行 C. 从主程序开始执行 D. 按模块顺序执行 33. 下面各种高级语言中, 不是面向对象程序设计语言的是 ( ) A. VB B. C++ C. Pascal D. Java 34. 在设计模式双击窗体中的对象后,VB 将显示的窗口是 ( ) A. 项目 ( 工程 ) 窗口 B. 工具箱 C. 代码窗口 D. 属性窗口 35. VB 中, 程序运行 允许使用的快捷键是 ( ) A. F2 B. F5 C. Alt+F3 D. F8 科学出版社职教技术出版中心

26 16 Visual Basic 程序设计实践教程 填空题 1. VB 中可作为其他控件的容器除了窗体外, 还有 和 2. 在 VB 中, 窗体和控件被称为 3. 窗体是用来存放 的容器, 窗体的 Left 和 Top 属性是相对 对象的 4. 在打开某窗体时, 初始化该窗体中的各控件, 应选用 事件 5. 每当一个窗体成为活动窗口时触发 事件, 当另一个窗体或应用程序被激 活时在原活动窗体上产生 事件 6. VB 把一个应用程序称为一个, 它包含各种文件 7. VB 提供了两种程序运行方式 和 8. 程序设计语言是 和 交流的工具 9. VB 有三种工作模式, 即 模式 模式和 模式 10. VB 用于开发 环境下的程序 11. VB 6.0 提供了一种新的数据库访问技术, 即, 通过该技术, 能方便地 访问多种数据库中的数据 12. 当进入 VB 集成环境, 发现没有显示 工具箱 窗口时, 应选择 菜单 的 选项, 使 工具箱 窗口显示 13. 要使新建工程时, 在模块的 通用声明 段中自动加入 Option Explicit 语句, 应对 菜单的 的 选项卡进行相应选项的选择 14. 对象的属性是指 15. 对象的方法是指 16. 若已建立了 Form1 Form2 两个窗体, 默认启动窗体为 Form1 通过 菜 单的 的通用选项卡的, 可将启动窗体设置为 Form2 在程序中若要显 示 Form1 窗体, 则执行 语句 17. 对象的三要素是 18. 面向对象的程序设计是一种以 为基础, 由 驱动对象的编程 技术 19. 事件是由 VB 预先定义的 能够识别的动作 20. 设置对象的属性有两种办法 : 一种是在设计时在 窗口中设置 ; 另一种 是在运行时设置, 设置格式为 大部分属性可以用以上两种方法进行设置, 而 有些属性只能用其中一种方法设置 1.4 测试题答案 单选题答案 1. D 2. A 3. D 4. A 5. B 6. A 7. C 8. A 9. B 10. D 11. D 12. C 13. C 14. D 15. B 16. C 17. D 18. B 19. C 20. B

27 第 1 章 VB 6.0 概述 B 22. C 23. A 24. B 25. A 26. C 27. B 28. B 29. A 30. A 31. C 32. A 33. C 34. C 35. B 填空题答案 1. 图片框, 框架 2. 对象 3. 控件, 屏幕 4. Load 5. Activate,Deactivate 6. 工程 7. 解释, 编译 8. 人, 机器 ( 或用户, 计算机 ) 9. 设计 (Design), 运行 (Run), 中断 (Break) 10. Windows 11. ADO 技术 12. 视图, 工具箱 13. 工具, 选项, 编辑器 14. 对象的性质, 用来描述和反映对象特征的参数 15. 对象的动作, 行为 16. 工程, 工程属性, 启动对象,Form1.Show 17. 属性, 方法, 事件 18. 对象, 事件 19. 对象 20. 属性,< 对象名 >.< 属性名 >=< 表达式 > 科学出版社职教技术出版中心

28 第 2 章窗体和基本控件 知识要点 (1) 常用控件的基本属性的使用 (2) 常用控件的基本事件过程的使用 (3) 常用控件的方法的使用 2.1 上机实践 标签的使用一 实验目的掌握标签属性的使用 二 实验内容及步骤 1. 标签的隐藏 要求 在窗体设置两个标签 Label1 和 Label2, 两个命令按钮 Command1 和 Command2, 程序运行后, 如果单击窗体, 则 Label1 隐藏,Label2 显示 ; 如果双击窗体, 则 Label1 显示,Label2 隐藏, 单击 隐藏标签 命令按钮, 隐藏所有标签, 单击 命令按钮 结束程序运行 分析 首先, 启动 VB 6.0, 创建一个新的工程, 在窗体上画出两个标签, 两个命令按钮 然后根据要求对控件属性进行相应的设置 标签的 Visible 属性设置为 True 时, 该标签可见,Visible 设置为 False 时, 该标签不可见 AutoSize 属性设置为 True 时, 标签可以根据内容自动调整大小 ForeColor 属性可以设置标签上文字显示的颜色 步骤 (1) 建立一个 VB 工程, 添加控件, 设计用户界面, 如图 2.1 所示 (2) 各控件的属性设置如表 2.l 所示 图 2.1 标签的使用 1

29 第 2 章窗体和基本控件 19 表 2.1 控件属性设置 对象名属性名属性值 Label1 Label2 Caption AutoSize Font ForeColor Caption AutoSize Font ForeColor VISUAL True 宋体 粗体 四号蓝色 BASIC True 宋体 粗体 四号红色 Command1 Caption 隐藏标签 Command2 结束 对于共有的属性可同时设置 方法是 : 先选定一个控件, 按下 Shift 键, 单击其他控件, 即为选定多个控件 单击 属性 窗口的 AutoSize 属性设置为 True, 选择 Font 属性右边的按钮, 在对话框中选择字体为 宋体 粗体 四号, 单击 确定 按钮 (3) 双击窗体, 弹出代码编辑器窗口 (4) 单击 过程列表按钮, 选择 Click 事件, 过程列表如图 2.2 所示, 输入如下程序代码 Private Sub Form_Click() Label1.Visible = False Label2.Visible = True 图 2.2 过程列表 (5) 单击 过程列表按钮, 选择 DblClick 事件, 输入如下程序代码 Private Sub Form_DblClick() Label1.Visible = True Label2.Visible = False (6) 双击 Command1 按钮, 弹出代码编辑窗口, 输入如下程序代码 科学出版社职教技术出版中心

30 20 Visual Basic 程序设计实践教程 Private Sub Command1_Click() Label1.Visible = False Label2.Visible = False (7) 双击 Command2 按钮, 弹出代码编辑窗口, 输入如下程序代码 Private Sub Command2_Click() End (8) 保存窗体和工程 (9) 单击工具栏中的按钮运行程序 或选择 运行 菜单下的 启动 命令, 或 直接按 F5 键, 启动程序 单击 隐藏标签 按钮, 隐藏所有标签 单击窗体, 则 VISUAL 隐藏, BASIC 显示 ; 双击窗体, 则 VISUAL 显示, BASIC 隐藏 (10) 单击 结束按钮 窗体上的 关闭 按钮或单击工具栏上的结束按钮, 结 束程序运行 2. 标签的属性 要求 在窗体上建立六个标签, 运行结果如图 2.3 所示 图 2.3 标签的使用 2 步骤 (1) 建立程序窗体, 添加控件 打开 VB, 建立窗体 单击工具箱中的标签按钮并在窗体上画出一个标签 ; 将此动作连续六次, 画出六个标签, 分别为 Label1 Label2 Label3 Label4 Label5 和 Label6 根据需要调整各个对象的大小和位置 (2) 设置各控件对象的属性, 如表 2.2 所示 表 2.2 控件属性设置 对象名属性名属性值说明 Form1 Caption 标签的使用 Label1 Caption Font 宋体 常规 小四号 宋体 常规 小四号 BorderStyle 1 有边框 Label2 Caption Font 隶书 粗体 四号 隶书 粗体 四号 BorderStyle 1 有边框

31 第 2 章窗体和基本控件 21 对象名属性名属性值说明 续表 Label3 Caption Font 黑体 有下划线 五号 黑体 有下划线 五号 BorderStyle 1 有边框 Caption 居左 有边框 Label4 Alignment 0 居左 BorderStyle 1 有边框 Caption 居中 无边框 Label5 Alignment 2 居中 BorderStyle 0 无边框 Caption 居右 有边框 Label6 Alignment 1 有边框 按钮 BorderStyle 1 居右 (3) 编写相关事件代码, 单击窗体, 结束程序运行 (4) 保存文件 保存窗体文件和工程文件 (5) 运行程序 选择 运行 / 启动 菜单项, 或按 F5 键, 或单击工具栏上的 启动, 结果如图 2.3 所示 文本框的使用 一 实验目的掌握文本框的使用 二 实验内容及步骤 1. 设置文本框字体 要求 设计一个应用程序, 实现对给出的文本字体进行更改设置 程序界面如图 2.4 所示 科学出版社职教技术出版中心 图 2.4 文本框字体设置 分析 窗体上设置的文本框可以输入多行文本, 需要设置 MultiLine 属性为 True 步骤 (1) 新建一个工程, 在窗体上设置一个文本框和四个命令按钮

32 22 Visual Basic 程序设计实践教程 (2) 设置窗体上各控件的属性值如表 2.3 所示 表 2.3 控件属性设置 对象名 属性名 属性值 说 明 Caption 文本字体更改 窗体标题 Form1 Height 3500 Width 6600 Text 空 Text1 Command1 Command2 Command3 Command4 MultiLine True 允许文本框多行输入 ScrollBars 0-None 文本框没有滚动条 Caption 黑体 Font 幼圆 粗体 小四 Caption 倾斜 Font 幼圆 粗体 小四 Caption 蓝色 Font 幼圆 粗体 小四 Caption 字号 18 Font 幼圆 粗体 小四 (3) 双击 Command1 命令按钮, 打开代码窗口, 在 Click 事件过程中输入如下代码 Private Sub Command1_Click() Text1.FontName = " 黑体 " (4) 双击 Command2 命令按钮, 打开代码窗口, 在 Click 事件过程中输入如下代码 Private Sub Command2_Click() Text1.FontItalic = True (5) 双击 Command3 命令按钮, 打开代码窗口, 在 Click 事件过程中输入如下代码 Private Sub Command3_Click() Text1.ForeColor = vbblue (6) 双击 Command4 命令按钮, 打开代码窗口, 在 Click 事件过程中输入如下代码 Private Sub Command4_Click() Text1.FontSize = 18 (7) 运行程序, 在文本框中输入文本 ( 可以输入任意文本 ), 然后分别单击四个命 令按钮, 观察每次单击命令按钮之后文本框中文本的变化情况 2. 文本框 PasswordChar 属性 要求 在窗体上建立三个文本框, 当 Text1 中的内容改变时, 分别在 Text2 Text3 中显示 Text1 的内容 由于 Text2 的 PasswordChar 属性为空, 因此原样显示 ;Text3 的

33 第 2 章窗体和基本控件 23 PasswordChar 属性为 *, 因此无论 Text1 输入什么, 都以 * 显示 步骤 (1) 建立程序窗体并添加控件 打开 VB 建立窗体 单击工具箱中的文本框按钮并在窗体上画出一个文本框, 将此动作连续三次, 画出三个文本框, 分别为 Text1 Text2 和 Text3 根据需要调整各个对象的大小和位置 (2) 设置各控件对象的属性, 如表 2.4 所示 表 2.4 控件属性设置 对象名属性名属性值说明 Form1 Caption 文本框的使用 Text 清空 Text1 Text2 Text3 PasswordChar 以原有字符显示 BorderStyle 0 无边框 Text 清空 PasswordChar 以原有字符显示 BorderStyle 1 有边框 Text 清空 PasswordChar * 以 * 显示 BorderStyle 1 有边框 (3) 编写相关控件的事件代码如下 Private Sub Command1_Click() Text1.FontName = " 黑体 " Private Sub Command2_Click() Text1.FontItalic = True Private Sub Command3_Click() Text1.ForeColor = vbblue Private Sub Command4_Click() Text1.FontSize = 18 科学出版社职教技术出版中心 (4) 保存文件 保存窗体文件, 保存工程文件 (5) 运行程序 选择 运行 启动 命令, 或按 F5 键, 或单击工具栏上的 启动 按钮, 在文本框 Text1 中输入 同学们大家好!, 结果如图 2.5 所示 3. 文本框内容的复制粘贴 要求 设计程序, 用鼠标选定第一个文本框文本后, 单击 粘贴 按钮, 就可以将第一个文本框中选定的内容复制到第二个文本框中, 此动作可以反复进行, 并将新选定的文本追加到上次选定文本的尾部, 单击 清除 按钮, 清空第二个文本框内容 单击 结束 按钮退出程序 程序界面如图 2.6 所示

34 24 Visual Basic 程序设计实践教程 图 2.5 文本框的使用 图 2.6 文本框的复制粘贴 步骤 (1) 创建界面 在窗体上添加两个文本框 Text1 Text2 和三个 Command 按钮 其中,Text1 的 Text 属性设置为 文本框 (TextBox) 在窗体中为用户提供一个既能显示文本又能编辑文本的区域 在文本框内, 用户可以用鼠标 键盘按常用的方法对文字进行编辑, 例如进行输入 删除 选择 复制及粘贴等各种操作 (2) 设置属性 属性设置如表 2.5 所示 表 2.5 控件属性设置 对象名属性名属性值说明 Text1 MultiLine True 允许多行显示 ScrollBars 2-Vertical 只有垂直滚动条 Text2 MultiLine True 允许多行显示 ScrollBars 0-None 无滚动条 Command1 Caption 粘贴 Command2 Caption 清除 Command3 Caption 结束 (3) 编写代码 Private Sub Command1_Click() Text2.Text = Text2.Text + Text1.SelText Private Sub Command2_Click() Text2.Text = "" Private Sub Command3_Click() End (4) 在 Text1 中输入文字, 并进行编辑, 然后选定一部分文字, 执行 粘贴 命令按钮, 反复执行上述步骤, 观察效果, 最后执行 清除 命令按钮的使用 一 实验目的 (1) 掌握命令按钮的使用

35 第 2 章窗体和基本控件 25 (2) 掌握窗体的属性 事件和方法的使用 二 实验内容及步骤 1. 命令按钮与窗体应用 要求 设计如下界面, 在窗体中添加五个命令按钮, 设置 Command1 的 Style 属性为 0-Graphical, 即按钮外观可现实图形 界面设置如图 2.7 所示 图 2.7 命令按钮与窗体应用 步骤 (1) 打开工程, 设计界面 (2) 设置属性 属性设置如表 2.6 所示 表 2.6 控件属性设置 对象名属性名属性值说明 Command1 Style 0-Graphical 图形外观 Command2 Caption 左移 Command3 Caption 右移 Command4 Caption 还原 (&R) 设置快捷键 Alt+R Command5 Caption 放大 (&L) 设置快捷键 Alt+L Form1 Caption 命令按钮与窗体应用 (3) 从 Command1 控件的 Picture 属性中, 为 Command1 控件加载图片 (4) 编写程序代码如下 科学出版社职教技术出版中心 Private Sub Command2_Click() Command1.Left = Command1.Left 100 ' 单击一次按钮,Command1 向左侧移动 100 If Command1.Left < 0 Then Command2.Enabled = False End If Private Sub Command3_Click() Command1.Left = Command1.Left If Command1.Width + Command1.Left > Form1.Width Then Command3.Enabled = False End If

36 26 Visual Basic 程序设计实践教程 Private Sub Command4_Click() Form1.Move Form1.Left, Form1.Top, Form1.Width/2, Form1.Height/2 Command4.Enabled = False Command5.Enabled = True Private Sub Command5_Click() Form1.Move Form1.Left, Form1.Top, Form1.Width*2, Form1.Height*2 Command4.Enabled = True Command5.Enabled = False (5) 运行程序, 观察效果 2. QQ 登录界面设计 要求 利用 VB, 模仿制作一个 QQ 登录界面 分析 QQ 登录界面可分解为几部分, 如图 2.8 所示 图 2.8 QQ 登录界面设计 步骤 (1) 首先启动 VB 6.0, 创建一个新的工程, 将 Form 的大小调整到与 QQ 登录界面相同 在窗体上画出两个 Image 控件 两个 ComboBox 控件 一个 TextBox 控件 两个 CheckBox 控件 两个 Label 控件 两个 CommandButton 控件, 然后根据要求对各个控件的大小和位置进行调整 (2) 各个控件的属性设置如表 2.7 所示 表 2.7 控件属性设置 对象名属性名属性值说明 Caption QQ2011 Form1 Picture 背景图片.jpg 背景图片 BackColor &H00FFFFFF&( 白色 ) 背景色 Image1 Picture QQ2.jpg Image2 Picture 最下面.jpg Combo1 Text 请输入账号

37 第 2 章窗体和基本控件 27 续表 对象名 属性名 属性值 说 明 Combo2 Text 空 Text1 Text 请输入密码 Check1 Caption 记住密码 Check2 Caption 自动登录 Label1 Caption 注册账号 Label2 Caption 找回密码 Command1 Command2 Style 1 按钮上可显示图形 Picture 设置.jpg Style 1 按钮上可显示图形 Picture 安全登录.jpg 说明 : 1 将所有复选框和标签的背景颜色都设置为白色 2 为了尽量与原版保持一致, 这里将命令按钮的外观设置为图片 (3) 运行程序, 保存程序 用 VB 实现的 QQ 登录界面如图 2.9 所示 单选题 图 2.9 QQ 登录界面运行结果 2.2 典型试题与解析 科学出版社职教技术出版中心 例 1 窗体中含有一个名为 comabout 的命令按钮控件 ( 按钮标题为 关于 ), 代码窗口中含有如下代码 : Private Sub comabout_click() Form2.Show 程序执行时, 单击 关于 按钮, 打开 Form2 窗体 在这一段描述中 comabout

38 28 Visual Basic 程序设计实践教程 关于 Click Show 分别为 ( ) A. 属性值 对象 方法 事件 B. 对象 方法 事件 属性值 C. 属性值 方法 对象 事件 D. 对象 属性值 事件 方法 答案解析 : 本题主要考查对象 属性 事件 方法这几个概念的理解 对象是一个 实体, 本题中两个窗体 一个按钮都是对象 ; 属性描述对象的特征 ; 事件是对相应对象操作, 在触发后可以执行一段程序代码 方法是某一个对象所能执行的操作 关于 是按钮对象 comabout 的标题属性值, 描述按钮显示的字符串,Click 是按钮控件所能相应的单击事件 Show 方法是窗体所能执行的显示操作 用户单击 关于 按钮时触发 Click 事件, 执行对应的过程, 调用 Form2 的 Show 方法, 显示 Form2 窗体 答案 :D 例 2 为了在运行时能显示窗体左上角的控制框 ( 系统菜单 ), 必须 ( ) A. 把窗体的 ControlBox 属性设置为 False, 其他属性任意 B. 把窗体的 ControlBox 属性设置为 True, 并且把 BoderStyle 属性设置为 1~5 C. 把窗体的 ControlBox 属性设置为 False, 同时把 BoderStyle 属性设置为非 0 值 D. 把窗体的 ControlBox 属性设置为 True, 同时把 BoderStyle 属性设置为 0 值答案解析 : 在窗体的 属性 窗口中,ControlBox 用来控制窗体左上角的控制框, 设置为 True, 表示有控制菜单 ; 设置为 False, 表示无控制菜单, 同时窗体也无最大化按钮和最小化按钮 而 BorderStyle 属性用来设置窗体边框的类型, 属性值为 0 时, 无边框, 无标题栏, 不能改变窗体大小, 运行时任务栏上无对应按钮 答案 :B 例 3 要使一个文本框具有水平和竖直滚动条, 则应先将其 MultiLine 属性设置为 True, 然后再将 ScrollBar 属性设置为 ( ) A. 0 B. 1 C. 2 D. 3 答案解析 : 文本框控件要使滚动条设置有效, 要先将多行属性 MultiLine 设置为真, 其滚动条属性设置方能有效,ScrollBar 属性值 0 为无滚动条,1 为水平滚动条,2 为垂直滚动条,3 为水平和垂直滚动条都存在 答案 :D 例 4 在 VB 中, 要将一个窗体加载到内存进行预处理但不显示, 应使用的方法为 ( ) A. Show B. Hide C. Load D. UnLoad 答案解析 :Show 方法将窗体加载到内存并显示,Hide 方法将窗体加载到内存并隐藏,Load 方法是加载窗体到内存,UnLoad 是从内存中卸载窗体 答案 :C 例 5 能够获得一个文本框中被选取文本的内容的属性是 ( ) A. Text B. SelLength C. SelText D. SelStart 答案解析 : 本题主要考查文本框基本属性,Text 属性为文本框显示的内容,SelLength 为文本框选择文本的长度,SelText 为文本框选择文本的内容,SelStart 为文本框选择文本的开始位置, 也可以用它设置文本框中光标的位置 答案 :C

39 第 2 章窗体和基本控件 29 例 6 当窗体得到焦点时首先触发 ( ) 事件 A. Activate B. LostFocus C. GetFocus D. Initialize 答案解析 : 当一个窗体成为当前活动窗体时,Activate 事件发生 当一个窗体不再 是活动窗体时 Deactivate 事件发生 LostFocus 事件是在一个对象失去焦点时发生, 焦点 的丢失或者是由于制表键移动或单击另一个对象操作的结果, 或者是代码中使用 SetFocus 方法改变焦点的结果 GetFocus 为窗体得到焦点触发的事件 Initialize 事件当应用程序创建 Form 时发生 答案 :C 例 7 下列各个窗口属性值的设置方法中, 通过在 属性 窗口中选择来设置类型值的是 ( ) A. AutoRedraw( 自动重画 ) B. 字体属性设置 C. Height Width( 宽 高 ) D. Icon( 图标 ) 答案解析 : 自动重画属性是布尔类型值 ; 字体属性是在弹出的属性对话框中设置的 ; 高 宽属性是通过输入数值设置的 ; 图标属性是通过弹出 加载图标 对话框来引入图标文件的 答案 :A 例 8 在 属性 窗口的各种操作中,( ) 与下面所列出的加载图标语句具有相同的效果 Set Form1.Icon=LoadPicture("HORSE.ICO") A. 设置名称属性值为 HORSE B. 从 加载图标 对话框引入图标文件 C. 从 加载图片 对话框引入图标文件 D. Set Form2.Icon=LoadPicture("HORSE.ICO") Form1.Icon=Form2.Icon 答案解析 : 此题考查窗体的各种属性 题中语句效果是把 HORSE.ICO 文件设置成窗体左上角显示或最小化显示时的图标 名称属性值只是代表此对象, 与其他属性无关 B 选项的操作与题中语句效果相同 C 选项中的图标文件显示在窗体上 利用 属性 窗口中的 Icon 属性可以弹出 加载图标 对话框, 利用 Picture 属性弹出 加载图片 对话框 D 选项必须在运行时才能起作用, 不是 属性 窗口内的操作 答案 :B 填空题 例 1 在窗体中添加两个命令按钮, 其名称 (Name 属性 ) 分别为 Command1 和 Command2, 窗体加载时要求 Command1 不可用,Command2 可用 ; 单击 Command2 后, Command1 可用 请在 1 2 处将程序补充完整 Private Sub Command2_Click() 1 科学出版社职教技术出版中心

40 30 Visual Basic 程序设计实践教程 Private Sub Form_Load() 2 答案解析 : 命令按钮是否可用由 Enabled 属性决定, 默认值为 True 当 Enabled 属性为 True 时, 控件可用 当 Enabled 属性为 False 时, 控件不可用 答案 : 1 Command1.Enabled=True 2 Command1.Enabled=False 例 2 下列程序的功能是控制窗体的显示与隐藏, 请在 1 2 填上正确答案 Private Sub Form_Click() Dim Msg As Integer Form1. 1 MsgBox "Choose OK to make the form reappear" Form1. 2 答案解析 : 让窗体显示, 使用 Show 方法, 隐藏窗体, 使用 Hide 方法 答案 : 1 Hide 2 Show 例 3 在窗体上画两个文本框, 然后编写如下两个事件过程 : Private Sub Form_Click() Text1.Text = "VB 程序设计 " Private Sub Text1_Change() Text2.Text= "VB Programming" 程序运行后, 单击窗体, 则在 Text1 文本框中显示的内容是, 而在 Text2 文本框中显示的内容是 答案解析 : 注意 Text1 的 Change 事件, 当 Text1 中的文本发生变化时, 触发该事件 上述程序的执行过程为, 单击窗体时触发 Form 的 Click 事件, 将 Text1 中的文本赋值为 VB 程序设计, 由于 Text1 中文本发生改变, 因此触发 Text1 的 Change 事件, 将 Text2 的文本赋值为 VB Programming 答案 :VB 程序设计,VB Programming 2.3 测试题 单选题 1. 能够改变窗体边框线类型的属性是 ( ) A. FontStyle B. BorderStyle C.BackStyle D.Border 2. 双击窗体中的对象后,VB 将显示的窗口是 ( ) A. 工具箱 B. 项目 ( 工程 ) 窗口 C. 代码窗口 D. 属性窗口

41 ( ) 3. 用来设置粗体字的属性是 ( ) 第 2 章窗体和基本控件 31 A. FontItalic B. FontName C. FontBold D. FontSize 4. 下列 ( ) 属性用来表示标签或窗体的标题 A. Text B. Caption C. Left D. Name 5. 下列 ( ) 属性用来表示各对象 ( 控件 ) 的位置 A. Text B. Caption C. Left D. Name 6. 为了取消窗体的最大化功能, 需要把它的一个属性设置为 False, 这个属性是 A. ControlBox B. MinButton C. Enabled D. MaxButton 7. 下列语句中, 在运行时能使 Form1 窗体上的图形显示的语句是 ( ) A. Form1.Refresh B. Form1.Hide C. Unload D. Form1.Cls 8. 不是只适用于窗体对象的属性是 ( ) A. Icon( 图标 ) B. 最大 最小化按钮 C. ControlBox( 控制量 ) D. Font( 字体 ) 9. 下列各个窗体的属性中与边框类型属性 (BorderStyle) 的设置值无关的是 ( ) A. MaxButton B. ControlBox C. MinButton D. WindowState 10. VB 预先设置好的, 能够被对象识别的动作是 ( ) A. 方法 B. 事件 C. 对象 D. 属性 11. Print 方法可以输出多个表达式值, 若使用标准格式输出, 各表达式的分隔符应 是 ( ) A. 空格 B. 逗号 C. 冒号 D. 分号 12. 决定窗体有无控制菜单的属性是 ( ) A. ControlBox B. MinButton C. Enabled D. MaxButton 13. 使文本框获得焦点的方法是 ( ) A. Change B. GotFocus C. SetFocus D. LostFocus 14. 为了使标签中的内容居中显示, 应把 Alignment 属性设置为 ( ) A. 0 B. 1 C. 2 D 窗体标题所显示内容的属性是 ( ) A. Text B. Name C. Caption D. BackStyle 16. 当窗体最小化时缩小为一个图标, 设置这个图标的属性是 ( ) A. MouseIcon B. Icon C. Picture D. MousePointer 17. 窗体的 Enable 属性的属性值是 ( ) 类型的数据 A. 整型 B. 字符型 C. 逻辑型 D. 实型 18. Cls 方法可以清除窗体或图片框中的 ( ) 内容 A. 在设计阶段使用 Picture 设置的背景位图 B. 在设计阶段放置的控件 C. 在运行阶段产生的图形和文字 D. 以上全部内容 科学出版社职教技术出版中心

42 32 Visual Basic 程序设计实践教程 19. 要把一个命令按钮设置成无效, 应设置其 ( ) 属性值 A. Visible B. Enabled C. Default D. Cancel 20. 要使一个命令按钮成为图形命令按钮, 则应设置其 ( ) 属性值 A. Picture B. Style C. DownPicture D. DisablePicture 21. 为了在按下 Enter 键时执行某个命令按钮的事件过程, 需要把该命令按钮的一 个属性设置为 True, 这个属性是 ( ) A. Value B. Cancel C. Enabled D. Default 22. 为了在按下 Esc 键时执行某个命令按钮的事件过程, 需要把该命令按钮的一个 属性设置为 True, 这个属性是 ( ) A. Value B. Default C. Cancel D. Enabled 23. 将命令按钮 Command1 设置为窗体的取消按钮, 可修改该控件的 ( ) 属性 A. Enabled B. Value C. Default D. Cancel 24. 窗体上有一个标签, 名为 Label1, 为了使该标签透明并且没有边框, 则正确的 属性设置为 ( ) A. Label1.BackStyle=0 B. Label1.BackStyle=1 Label1.BorderStyle=0 Label1.BorderStyle=1 C. Label1.BackStyle=True D. Label1.BackStyle=False Label1.BorderStyle=True Label1.BorderStyle=False 25. 标签控件的标题和文本框控件的显示文本的对齐方式由 ( ) 属性来决定 A. WordWrap B. AutoSize C. Alignment D. Style 26. 在标签的 MouseDown MouseUp 和 Click 事件中, 分别写入代码 :Print "aaa" Print "bbb" Print "ccc", 程序运行后, 单击标签, 窗体上将显示 ( ) A. aaa B. ccc C. aaa D. ccc bbb aaa ccc bbb ccc bbb bbb aaa 27. 用来设置斜体字的属性是 ( ) A. FontItalic B. FontBold C. FontName D. FontSize 28. 要使标签能够显示所需要的文本, 则在程序中应设置其 ( ) 属性的值 A. Caption B. Text C. Name D. AutoSize 29. 标签默认属性是 ( ) A. Caption B. Text C. Name D. Top 30. 为了使标签覆盖背景, 应把 BackStyle 属性设置为 ( ) A. 0 B. 1 C. True D. False 31. 改变控件在窗体中的上下位置应修改控件的 ( ) 属性 A. Top B. Left C. Wide D. Height 32. 文本框没有 ( ) 属性 A. Enabled B. Visible C. BackColor D. Caption 33. 文本框的默认属性是 ( ) A. Caption B. Text C. Name D. Top

43 第 2 章窗体和基本控件 假定窗体上有一个 Text 文本框, 为使它的文本内容位于中间并且没有边框, 正 确的属性设置为 ( ) A. Text1.Alignment=1 B. Text1.Alignment=2 Text1.BorderStyle=0 Text1.BorderStyle=1 C. Text1.Alignment=1 D. Text1.Alignment=2 Text1.BorderStyle=1 Text1.BorderStyle=0 35. 为了使文本框同时具有水平和垂直滚动条, 应先把 MultiLine 属性设置为 True, 然后再把 ScrollBars 属性设置为 ( ) A. 0 B. 1 C. 2 D 文本框控件 Text4 的 Text 属性默认值为 ( ) A. Text4 B. "Text4" C. Locked D. Name 37. 程序运行后, 在窗体上单击鼠标, 此时窗体不会接收到的事件是 ( ) A. MouseDown B. MouseUp C. Load D. Click 38. 要使文本框显示滚动条, 除了设置 ScrollBars 属性外还必须设置 ( ) 属性 A. AutoSize B. MultiLine C. Alignment D. Visible 39. 文本框中选定的内容, 由下列 ( ) 属性来反映 A. SelText B. SelLength C. Text D. Caption 40. 在窗体 (Name 属性为 Form1) 上画两个文本框 ( 其 Name 属性分别为 Text1 和 Text2) 和一个命令按钮 (Name 属性为 Command1), 然后编写如下两个事件过程 : Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a Private Sub Form_Load() Text1.Text = "" Text2.Text = "" 程序运行后, 在第一个文本框 (Text1) 和第二个文本框 (Text2) 中分别输入 123 和 321, 然后单击命令按钮, 则输出结果为 ( ) A. 444 B C D 将焦点主动设置到指定的控件或窗体上, 应采用 ( ) 方法 A. SetDate B. SetFocus C. SetText D. GetData 42. 当对象失去焦点时, 将会发生 ( ) 事件 A. SetDate B. SetFocus C. SetText D. LostFocus 43. 任何控件都具有的属性是 ( ) A. Text B. Caption C. Name D. ForeColor 填空题 科学出版社职教技术出版中心 1. 如果字符 Y 是某个命令按钮的访问键, 在设计时, 设置命令按钮的 Caption

44 34 Visual Basic 程序设计实践教程 属性时要在其中字符 Y 前输入 ; 运行时, 可以通过按 键执行单击 操作 2. 要让控件隐藏起来, 处于不可见状态, 可修改其 属性 3. 从工具箱中选择控件添加文本框的步骤是 : 从窗体设计器窗口中选择 ; 单击工具箱中的文本框图标, 图标反相显示 ; 光标移到 上变成 ; 移到 适当位置, 按下 并向 方拖动到合适的位置松开 则画出文本框 4. 在属性中, 能够在对象中显示一个图形, 且在于窗体, 图像框中都存在的属性 是 用来描述窗体最小化时图标的属性是, 用来描述窗体颜色的两个 属性是 和 5. 窗体的图形通过对象的 属性设置 6. 假定有一个文本框, 其名称为 Text1, 为了使该文本框具有焦点, 应执行的语句 是 7. 每当一个窗体变成活动窗体时, 就会产生一个 事件 : 当窗体从活动状态 转换为不活动状态时, 相应地产生 事件 创建一个窗体时, 则产生 事 件 ; 释放窗体时, 产生 事件 用户单击窗体时产生 事件 ; 双击窗体时 产生 事件 当窗体被移动, 放大或移动时覆盖一个窗体, 产生 8. 窗体中活动控件的边框有八个 色的小方块 9. 为了使一个标签透明且没有边框, 必须把它的 属性设置为 0, 并把 属性设置为 为了使标签能自动调整大小以显示全部文本内容, 应把标签的 属性设 置为 True 11. 要想在文本框中显示垂直滚动条, 必须把 属性设置为 2, 同时还应把 属性设置为 True 12. 属性决定文本框是否可以接受多行文本 13. 控件的 Top 属性是指控件的 ( 上 下 ) 边至窗体标题栏 ( 上 下 ) 边的距离 ;Left 属性是指控件 ( 左 右 ) 边到窗体 ( 左 右 ) 边 的距离 14. 对象的标题文字的颜色是由 属性决定的 15. 运行时, 若需要命令按钮为灰色, 即不被激活, 在设计时可以通过 属 性来实现 16. 文本框中输入的字符数需加以限定时, 用的是文本框的 属性 17. 要使输入文本框的字符靠右对齐, 可修改文本框的 属性 18. VB 窗体的位置 大小属性值的度量单位为, 与窗体坐标刻度 ( 有关 / 无关 ) 判断题 1. 标签控件和文本框控件都能用来输入和输出文本 ( ) 2. 命令按钮不但能响应单击事件, 而且还能响应双击事件 ( )

45 令按钮 控件 第 2 章窗体和基本控件 虽然标签控件显示的文本在运行时不能编辑, 但是可以通过程序代码进行改变 ( ) 4. 如果命令按钮 Default 属性为 True, 那么任何时候按 Enter 键都相当于单击该命 ( ) 5. SetFocus 方法是把焦点移到指定对象上, 使对象获得焦点, 该方法适用于所有 ( ) 6. 文本框控件常用事件有 Change 事件 KeyPress 事件等, 此外它也支持鼠标的 Click 事件和 DblClick 事件 ( ) 7. 运行时, 控件的位置可以通过程序代码改变 Left 和 Top 属性来定位, 也可以直 接用鼠标拖动控件来定位 ( ) 8. 要在文本框中输入六位密码, 并按 Enter 键确认, 则文本框的 MaxLength 属性可 设置为 6 ( ) 9. 要使输入文本框的字符始终显示 #, 则应修改其 PasswordChar 属性为 # ( ) 10. 在窗体上建立的控件的标题文字或显示内容的默认字体为窗体字体 ( ) 单选题答案 2.4 测试题答案 1. B 2. C 3. C 4. B 5. C 6. D 7. A 8. D 9. D 10. B 11. B 12. A 13. C 14. C 15. C 16. B 17. C 18. C 19. B 20. B 21. D 22. C 23. D 24. A 25. C 26. A 27. A 28. A 29. A 30. B 31. A 32. D 33. B 34. D 35. D 36. B 37. C 38. B 39. A 40. C 41. B 42. D 43. C 填空题答案 1. &,Alt+Y 2. Visible 3. 窗体, 窗体, + ( 或加号 ), 左键, 右下, 左键 4. 图形 (Picture), 图标 (Icon), 背景颜色 (BackColor), 前景颜色 (ForeColor) 5. Picture 6. Text1.SetFocus 7. Activate, Deactive,Load,UnLoad,Click,DblClick,Paint 8. 黑 9. BorderStyle,BackStyle 10. AutoSize 11. ScrollBars,MultiLine 12. MultiLine 科学出版社职教技术出版中心

46 36 Visual Basic 程序设计实践教程 13. 上, 下, 左, 左 14. ForeColor 15. Enabled 16. MaxLength 17. Alignment 18. 缇, 无关 判断题答案 1. 错 2. 错 3. 对 4. 错 5. 错 6. 对 7. 错 8. 对 9. 对 10. 对

47 第 3 章 VB 语言基础 知识要点 (1)VB 基本数据类型的定义及使用 (2)VB 常量与变量的定义 (3)VB 表达式和常用函数的使用 3.1 上机实践 运算符与表达式一 实验目的掌握 VB 运算符和表达式的使用 二 实验内容及步骤 1. 将下列数学表达式改写为 VB 合法的表达式 (1)2a(7+b) '2*a*(7+b) (2)8e 3 ln2 '8*exp(3)*log(2) (3)5+(a+b) 2 '5+(a+b)^2 (4) 3yx 2 'Abs(3*y*x^2) 2. 将下列条件表示为关系表达式或逻辑表达式 (1)10 可以被 2 整除 '10 Mod 2 = 0 (2)x 大于等于 1 并且小于 10 'x>=1 And x<10 (3)n 是小于 20 的偶数 'n<20 And n Mod 2 = 0 (4)x y 其中至少有一个小于 z 'x<z Or y<z 科学出版社职教技术出版中心 3. 在 立即 窗口中用 Print 方法测试下列表达式的运算顺序及表达式的值 (1)4 ^ 3 Mod 3 ^ 3 \ 2 ^ 2 (2)"Visual"+"Basic" (3)"Visual" & "Basic" (4)Not "abc"<"abd" (5)3<5 And "a"="a" (6)"abc"<>"ABC" Or 2>1 (7)Not "Abc"="abc" Or 2+3<>5 And "23"<"3" (8)# # - # # (9)Int( * ) / 100 提示 上述表达式可直接在 立即 窗口中测试 立即 窗口是 VB 提供的一个对象, 称为

48 38 Visual Basic 程序设计实践教程 Debug 对象, 作为调试程序使用, 它只有方法, 不具备任何事件和属性 在设计状态可以在 立即 窗口中进行一些简单的命令操作, 如变量赋值 用 Print 方法输出表达式的值 步骤 (1) 选择 视图 立即窗口 命令, 打开 立即 窗口 一般在打开 VB 时, 立即 窗口会随之在屏幕下方打开 (2) 输入 Print 或?, 并输入表达式, 按 Enter 键即可在下一行输出运算结果, 如图 3.1 所示 (3) 立即 窗口中的语句可以被复制 剪切 粘图 3.1 立即 窗口贴和删除 常用的内部函数一 实验目的掌握 VB 常用内部函数的使用 二 实验内容及步骤 1. 按下列要求编写表达式, 并在 立即 窗口中用 Print 方法测试表达式的值 (1) 从字符串 "Visual Basic 6.0" 中截取子字符串 "Basic" 'Mid("Visual Basic 6.0",8,5) (2) 将 四舍五入为整数 'Round( ) (3) 产生由三个 "$" 组成的字符串 'String(3,"$") (4) 产生 1~100 之间的随机整数 'Int((100*Rnd)+1) 2. 利用下列函数测试常用标准函数的功能, 在 立即 窗口中用 Print 方法测试表达式的值 (1)Abs(-25) (2)Round(5.1256,3), Round (0.55),Round(0.46) (3)Int(1.9), Int (1.3),Int(-2.5) (4)Fix(3.125), Fix (2.98), Fix (-2.6) (5)LTrim(" good "),RTrim(" good "),Trim(" good ") (6)Left("abcdefg",4),Right("abcdefg",4), Mid("abcdefg",2,3) (7)Len("I am a student"),len(" 中国 ") (8)String(3, "a"),string(3,"abc"),string(3,97) (9)"a"+Space(3)+ "b" (10)InStr("Basic Database", "Bas"), InStr(3," Basic Database ", "Bas",1) (11)Val("123ab4"),Val("56.83*4"),Val("26.4e7"),Str(825.6) (12)Date,Time,Now (13)Year(Date), Month(Date), Day(Date) 格式输出函数一 实验目的掌握 VB 常用内部函数的使用

49 第 3 章 VB 语言基础 39 二 实验内容及步骤利用下面程序测试 Format 函数的功能 Private Sub Form_Click() Dim a As Single a = Sqr(8) Print Format(a, "00.000") Print Format(a, "##.###") Print Format(a, "00.###") Print Format(a, "#,#.###") Print Format(a, "$00.###") Print Format(a, " ") Print Format(a, "##.##%") Print Format(a, "#.##E+##") 程序运行结果如图 3.2 所示 思考 将 a=sqr(8) 改为 a=sqr(4), 观察程序运行结果 综合应用 一 实验目的掌握 VB 表达式以及常用内部函数的使用 二 实验内容及步骤 1. 编写一个程序, 实现摄氏温度与华氏温度的相互转换 要求 窗体界面如图 3.3 所示 图 3.2 程序运行结果 科学出版社职教技术出版中心 图 3.3 窗体界面设计 分析 摄氏温度转换成华氏温度的公式是 :F=9*C/5+32 华氏温度转换成摄氏温度的公式是 :C=5*(F-32)/9 其中,F 为华氏温度,C 为摄氏温度 本例在运行后, 先将要转换的温度值输入在相应的文本框中, 然后单击相应的转换按钮 例如, 在第一个文本框输入 60, 单击 转换华氏温度 命令按钮, 在第二个文本框显示 140 ; 如在第二个文本框输入 140, 单击 转换摄氏温度, 则第一个文本框中显示 60 ; 单击 清除 命令按钮, 两个文本框中原有内容清空 ; 单击 退出 按钮, 退出程序运行

50 40 Visual Basic 程序设计实践教程 步骤 (1) 建立一个 VB 工程 (2) 在窗体上添加两个标签 两个文本框和四个命令按钮, 各控件的属性设置如表 3.l 所示 表 3.1 控件属性设置 对象名属性名属性值说明 Form1 Caption 温度转换 Label1 Label2 Command1 Command2 Command3 Command4 Caption Font Caption Font Caption Font Caption Font Caption Font Caption Font Text1 Text 空 Text2 Text 空 摄氏温度 宋体 粗体 四号 华氏温度 宋体 粗体 四号 转换华氏温度 宋体 粗体 小四号 转换摄氏温度 宋体 粗体 小四号 清除 宋体 粗体 小四号 退出 宋体 粗体 小四号 (3) 在窗体上双击 Command1 命令按钮, 打开代码窗口, 在 Click 事件过程中输入以下代码 Private Sub Command1_Click() Dim F As Single F = Val(Text1.Text) * 9 / Text2.Text = Str(F) (4) 在窗体上双击 Command2 命令按钮, 打开代码窗口, 在 Click 事件过程中输入以下代码 Private Sub Command2_Click() Dim C As Single C = (Val(Text2.Text) - 32) * 5 / 9 Text1.Text = Str(C) (5) 在窗体上双击 Command3 命令按钮, 打开代码窗口, 在 Click 事件过程中输入以下代码 Private Sub Command3_Click() Text1.Text = "" Text2.Text = ""

51 第 3 章 VB 语言基础 41 (6) 在窗体上双击 Command4 命令按钮, 打开代码窗口, 在 Click 事件过程中输入以下代码 Private Sub Command4_Click() End (7) 调试运行程序, 程序运行结果如图 3.4 所示 (8) 保存工程文件和窗体文件 2. 设计一个应用程序, 随机产生一个三位正整数, 然后逆序输出 要求 产生的随机数与逆序数分别显示在窗体的两个文本框中 例如, 产生的随 机数是 734, 逆序数是 437 窗体设计如图 3.5 所示 图 3.4 程序运行结果 图 3.5 窗体界面设计 分析 一个三位正整数由随机函数产生 由于随机函数的值是 0~1 之间的数, 三位正整数应在 100~999 之间, 所以用 Int(Rnd* ) 产生 为了得到逆序数, 要分离出该正整数的个 十 百位数, 这要利用 Mod 和 \ 运算符 步骤 (1) 创建一个新的工程 所示 (2) 在窗体上添加两个标签 两个文本框和两个命令按钮 控件属性设置如表 3.2 表 3.2 控件属性设置 对象名属性名属性值说明 Form1 Caption 随机数实例 Caption Label1 Font 随机数 楷体 粗体 四号 Caption 逆序数 Label2 Font 楷体 粗体 四号 Caption 产生随机数 Command1 Font 楷体 粗体 小四号 Caption 产生逆序数 Command2 Font 楷体 粗体 小四号 Text1 Text 空 Text2 Text 空 科学出版社职教技术出版中心

52 42 Visual Basic 程序设计实践教程 (3) 在窗体上双击 Command1 命令按钮, 打开代码窗口, 在 Click 事件过程中输入以下代码 Private Sub Command1_Click() Text1.Text = Int(Rnd * ) (4) 在窗体上双击 Command2 命令按钮, 打开代码窗口, 在 Click 事件过程中输入 以下代码 : Private Sub Command2_Click() Dim a%, b%, c%, d% a = Val(Text1.Text) b = a Mod 10 ' 个位数 c = (a Mod 100) \ 10 ' 十位数 d = a \ 100 ' 百位数 Text2 = b * c * 10 + d (5) 调试运行程序, 程序运行结果如图 3.6 所示 (6) 保存工程文件和窗体文件 3. 在 立即 窗口中计算出以下表达式或函数的值 (1)35\4*3.0^2 (2)9 Mod 2.5*Fix(3.6) (3)"abcd"+"1234" & "987" (4)Len("Visual Basic") (5)Chr(69)+Chr(70)+Mid("ABCDEFG",1,4) (6)(3*7>9 Or 4+5<12) 先用本章所学的知识计算出以上各表达式的值, 再用 VB 的 立即 窗口运行这些 表达式, 看看得出的结果是否一致 4. 新建一个工程, 双击窗体, 打开代码编辑器, 选择 DblClick 事件, 输入以下代 码, 观察结果 图 3.6 运行结果 Private Sub Form_DblClick() Cls ' 清除窗体 FontSize = 14 ' 设置字号 Print Format(12345, "########") ' 按格式化格式输出结果 Print Spc(6); Format(12345, " ")' 空六个空格按格式输出结果 Print Tab(10); Format(2.3456, "000.00")' 绝对定位在 10 输出结果 Print Format(12345, "######.##%") Print Tab(20); Format(234.56, "$#####.###") Print Format(0.0089, "0.00E+00") a = #10/8/2011# Print Format(a, "m/d/yy") ' 按日期格式化格式输出结果 Print Format(a, "mm/dd/yyyy") Print Format(a, "yyyy 年 mm 月 dd 日 ")

53 运行程序, 双击窗体查看运行结果, 如图 3.7 所示 第 3 章 VB 语言基础 43 图 3.7 程序运行结果 3.2 典型试题与解析 单选题 例 1 有下列程序代码 : Const PI= Const NUM=5*PI Const ONE&=1 Const TWO#=2 Const SHOW="Input Error" 则下列赋值语句中可能产生不兼容的是 ( ) A. X!=NUM B. Dim X As Long C. X%=TWO D. X$=SHOW 答案解析 : 此题考查符号常量和类型说明符的使用 如果不使用类型说明符, 则根据表达式的求值结果确定常数类型 5*PI 是数值表达式按最简单的类型表示这个常数, 即单精度浮点数 ONE TWO 分别是长整型数和整型数 SHOW 是字符串表达式的求值结果, 是字符串型数据 A 选项中 X 被说明为单精度浮点数 B 选项中 X 被说明为长整型数 C 选项中的 X 是整型数, 不能被赋给双精度浮点数 D 选项中的 X 是字符串型数据 答案 :C 例 2 下列有关变体数据类型描述, 不正确的是 ( ) A. 该类型可以存放任何数据类型的值, 赋值时不用进行数据转换 B. 若变体变量中存放的是可以转换成数值的字符串, 则此变体可以进行算术运算 C. 向变体数据类型变量赋值时,VB 以所需存储空间最小的紧凑方式存储该值 D. 存储有字符串的变体数据类型变量, 最好用运算符 + 进行字符串的连接操作答案解析 : 此题考查变体数据类型的概念 运算符 + 可用于字符串的连接, 当对变体变量进行字符连接时, 可能结果出乎意料 一个存储字符串, 一个存储整数, 既 科学出版社职教技术出版中心

54 44 Visual Basic 程序设计实践教程 可以对两个数据进行字符串连接操作, 也可以进行整数求和, 产生二义性 答案 :D 例 3 有如下程序代码 : A$="Microsoft Visual Basic" B%=InStr(A$,"Visual") If B%>9 Then C$=LCase(A$) Else C$=UCase(A$) End IF Print C$ 代码执行结果为输出 ( ) A. Microsoft Visual Basic B. MICROSOFT VISUAL BASIC C. microsoft visual basic D. 以上都不是答案解析 : 此题考查字符串匹配函数和字母大小写转换函数 InStr() 函数, 在 A$ 字符串中查找字符串 Visual, 返回它的第一个字母在 A$ 中的位置, 即 11 B 的值为 11, 执行条件判断语句后, 出现转换语句执行把字符串转换为小写的函数 C$ 中的字符串为 microsoft visual basic, 之后输出 答案 :C 例 4 执行程序代码 : a$=" How do you do? " b$=ltrim$(a$) x%=len(a$)-len(b$) c$=rtrim(b$) y%=len(b$)-len(c$) z%= Len(a$)-Len(c$) 下列关系表达式中值为 TRUE 的是 ( ) A. x+y=z B. x+z=y C. y+z=x D.y-z=x 答案解析 : 此题考查删除左右空格函数和求长度函数, 以及表达式的求值 b$ 中存放 a$ 字符串中删除左边空格的字符串, 即 How do you do? c$ 中存放 b$ 删除右边空格的字符串, 为 How do you do? x% 存放 a$ 中左边空格个数,y% 中存放 a$ 中右边空格的个数 z% 中存放 a$ 中所有空格的个数 由此不难得出 x y z 三者关系表达式应该为 x+y=z 答案 :A 例 5 某个程序中有如下日期 时间格式输出函数 : Print Format(Time, "hh:mm:ss") Print Format(Date, "dddd,mmmm,dd,yy") Print Format(Time, "m: &a/p") 已知当前日期为 2011 年 10 月 16 日 8 点 35 分 2 秒, 则下列输出格式正确的是 ( ) A. 08:35:02 Sunday, October,16,11 35:2a B. 8:35:2 Sunday, October,16, :2a

55 第 3 章 VB 语言基础 45 C. 08:35:02 Sunday, October,16,11 35:2a D. 8:35:2 Sunday, October,16, :02a 答案解析 : 此题考查日期 时间的输出格式 格式字符串中有逗号则输出显示逗号, 有冒号则输出时显示冒号 题中第一个输出格式为 : 显示小时, 个位前加 0; 显示分钟, 个位前加 0; 显示秒, 个位前加 0 故此应为 08:35:02 第二个输出为: 显示星期全名 显示月份全名 显示日期数字 ( 个位前加 0) 显示年份后两位, 应为 :Sunday, October,16,11 第三个输出格式为: 显示分钟 ( 个位前加 0), 显示秒 ( 个位前不加 0) 用 a 或 p 显示上 下午, 应为 35:2a 答案 :A 填空题 例 1 有如下程序 : X=2 Y=8 Print X+Y=10 上述程序的结果是 答案解析 : 根据程序中的赋值, 表达式 X+Y 的结果为 10, 所以关系表达式 X+Y=10 的结果为 True 注意, 表达式 X+Y=10 中的 = 不是赋值, 而是关系运算符 答案 :True 例 2 Mid(" 什么是 ASCII 编码 ", 5, 6) 的结果为 答案解析 : 函数 Mid(C,N1[,N2]) 的作用是从字符串 C 中 N1 指定处开始, 截取 N2 个字符 此题中从字符串 什么是 ASCII 编码 的第 5 个字符开始截取 6 个字符, 在 VB 中, 中文与西文字符都算一个字符, 所以截取的字符串是 SCII 编码 答案 :SCII 编码 单选题 3.3 测试题 科学出版社职教技术出版中心 1. 下列 VB 的变量名中, 合法的是 ( ) A. User&name B. 5Password C. _count D. Num 2. VB 规定, 不同类型的数据占用存储空间的长度是不同的 下列各组数据类型中, 满足占用存储空间从小到大顺序排列的是 ( ) A. Byte, Integer, Long, Double B. Byte, Integer, Double, Boolean C. Boolean, Byte, Integer, Double D. Boolean, Byte, Integer, Long 3. 在 VB 程序设计语言中, 下列浮点数表示方法不正确的是 ( ) A E3 B e+3 C *10^2 D D3 4. 下列数据类型的数据中, 存储空间与单精度数存储空间相同的是 ( ) A. 长整型数 B. 货币型数 C. 日期型数 D. 双精度数

56 46 Visual Basic 程序设计实践教程 5. 下面四项中, 合法的单精度型变量是 ( ) A. num! B. sum% C. xinte$ D. mm# 6. 下面四项中, 合法的变量名是 ( ) A. X_yz B.123abc C. integer D.X-Y 7. 下面四项中, 合法的字符型常数是 ( ) A. ABC$ B. ABC C. ABC D. ABC 8. 下面四项中, 不合法的单精度型常数是 ( ) A. 100! B C. 1E+2 D D+2 9. 下面四项中, 不合法的整型常数是 ( ) A. 100 B. &O100 C. &H100 D. % 下面变量名中, 不合法的是 ( ) A. a B. abcd C. a$x D. C_E 11. 以下声明语句中, 错误的是 ( ) A. Const var1=123 B. Dim var2 = 'ABC' C. Dim var3% D. Static var3 As Integer 12. 下列数值不属于 VB 允许形式的是 ( ) A E+2 B. E12 C. 1.25E D. 12E 表达式 Round (0.55)+Int(0.55)+Fix(0.55) 的值为 ( ) A.0 B.1 C.2 D 函数 Len(Space(4)+String(3,"c")) 返回的值是 ( ) A.7 B.9 C.4 D 在 VB 中, 若要强制变量必须先定义才能使用, 应该用 ( ) 语句说明 A. Public Const B. Option Explicit C. Type 数据类型名 D. DefDbl 16. 下列关于变体数据类型的叙述中正确的是 ( ) A. 变体是一种没有类型的数据 B. 给变体变量赋某一种类型数值后, 就不能再赋给另一种类型数值 C. 在 VB 中所有未定义而直接使用的变量默认的数据类型为变体型 D. 变体的空值就表示该变体值为 已知 x=20, 则 Hex$(x) 和 Oct$(x) 的结果是 ( ) A. 14,24 B. 24,12 C. 20,20 D. 4, 一句语句要在下一行继续写, 续行符是 ( ) A. + B. - C. _ D. 19. 执行以下程序段后, 变量 A$ 的值是 ( ) ia%=12 ib%=10 ia%=ib%-ia% a$=ltrim(str(ib%)-str(ia%)) Print a$ A B. 8 C. "10-2" D. "8"

57 20. 在 VB 中, 日期 / 时间型常量要用 ( ) 括起来 第 3 章 VB 语言基础 47 A. " B. # C. * D. {} 21. 设 a%=20,b$="30", 则下列输出结果是 2030 的语句是 ( ) A. Print str(a) B. Print "a"+b C. Print a+b D. Print a & b 22. 设 a=10,b=5,c=1, 执行语句 Print a > b > c 后, 窗体上显示的是 ( ) A. True B. False C. 1 D. 出错信息 23. 语句 Print 5 * 5 \ 5 / 5 的输出结果是 ( ) A. 5 B. 25 C. 0 D 下面四个 VB 6.0 表达式, 语法正确的是 ( ) A. a>b.and. b<c B. a>b c C. a>b AND <>c D. a>b AND b<>c 25. 在以下运算符中, 优先级最低的是 ( ) A. / B. \ C. Mod D. * 26. VB 算术运算符乘或除 整除 求余的优先级, 从高到低依次为 ( ) A. 乘或除 求余 整除 B. 乘或除 整除 求余 C. 整除 求余 乘或除 D. 整除 乘或除 求余 27. 在一个语句内写多条语句时, 用来分隔每条语句的符号是 ( ) A., B. : C.. D. ; 28. 表达式 16/4-2^5*8/4 MOD 5\2 的值为 ( ) A. 14 B. 4 C. 20 D 数学关系 3 x<10 表示成正确的 VB 表达式为 ( ) A. 3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D. 3<=x AND < \ / Mod * 这四个算术运算符中, 优先级别最低的是 ( ) A. \ B. / C. Mod D. * 31. 表达式 Fix(-32.68)+Int(-23.02) 的值为 ( ) A. -55 B. -56 C. -57 D 表达式 ( ) 可以计算整型变量 x 的位数 A. Len(Trim(Str(Abs(x)))) B. Len(Abs(x))-1 C. Len(Abs(x)) D. Len(Trim(Int(x))) 33. 下面逻辑表达式的值为真的是 ( ) A. "A"> "a" B. "9"> "a" C. "That"> "THANK" D.12> 表达式 :5\2*3 的值是 ( ) A. 7.5 B. 0 C. 1 D 已知 a=6,b=2,c=7,d=8, 表达式 -a+b-a + b < 0 And b * c = 15 Or -c + d >= 0<0 AND b*c=15 OR c+d>=0 的值为 ( ) A. True B. False C. 1 D 已知 A$=" ", 则表达式 Val(Left$(a$, 4) + Mid$(a$, 4, 2)) 的值为 ( ) A B C. 8 D. 6 科学出版社职教技术出版中心

58 48 Visual Basic 程序设计实践教程 37. 设 a="visual Basic", 下面使 b="basic" 的语句是 ( ) A. b=left$(a,8,5) B. b=right$(a,5,5) C. b=mid$(a,8,5) D. b=instr(a,8) 38. 函数 InStr("windowse", Mid("winnt", 2, 2)) 的返回值是 ( ) A. 0 B. 1 C. 2 D Rnd 函数不可能为下列 ( ) 值 A. 0 B. 1 C D Int( * )/100 的值是 ( ) A. 198 B C D 下列表达式中, 不能判断 x 是否为偶数的是 ( ) A. x\2=0 B. Fix(x/2)=x/2 C. x Mod 2=0 D. x/2=int(x/2) 42. 表达式 Len("123 程序设计 ABC") 的值是 ( ) A. 10 B. 14 C. 20 D 赋值语句 a = Mid("123456", 3, 2) 执行后,a 变量中的值是 ( ) A. "12334" B. 123 C D 表达式 Round(7.8)+Round(-7.6) 的结果是 ( ) A. 15 B. -1 C. 1 D 设 a="microsoftvisualbasic", 则以下使变量 b 的值为 VisualBasic 的语句是 ( ) A. b=left(a,10) B. b=mid(a,10) C. b=right(a,10) D. b=mid(a,11,10) 46. 执行以下程序段后, 变量 c$ 的值为 ( ) a$="visual Basic Programming" b$="quick" c$=b$ & UCase(Mid$(a$,7,6)) & Right$(a$,12) A. Visual BASIC Programming B. Quick Basic Programming C. QUICK Basic Programming D. Quick BASIC Programming 47. 语句 Print Sgn(-6 ^ 2) + Abs(-6 ^ 2) + Int(-6 ^ 2) 的输出结果是 ( ) A. -36 B. 1 C. -1 D 可以同时删除字符串前导和尾部空白的函数是 ( ) A. LTrim B. RTrim C. Trim D. Mid 49. 下列函数中, 返回值是字符串的是 ( ) A. Chr B. InStr C. Val D. Asc 50. 求 Sin65 应使用的正确表达式为 ( ) A. Sin(65) B. Sin65 C. Sin(65 ) D. Sin(65* /180) 填空题 1. VB 6.0 表达式 3\3*3/3 Mod 3 的值是 2. 设 A$=" 北京 ",B$="Shanghai", 则表达式 Left$(A$, 2) + String$(3, "-") + Left$(B$,

59 8) 构成的字符串是 第 3 章 VB 语言基础 产生一个在 [-50, -5] 范围内的随机负整数 ( 包含 -50 和 -5) 的表达式是 4. 表达式 Fix(-11.85)+Int(-23.01) 的值是 5. 在 VB 6.0 中, 利用函数, 可将 InputBox 函数的函数值转化成数值类型 6. 在 VB 中, & E D+5 这四个常数分别表示 类型 7. VB 的注释语句采用字符开头, 续行符采用, 若一行上书写多 句语句, 则各语句间用字符分隔 8. VB 提供的标准数据类型, 整型类型声明时, 其类型关键字是 ; 其类型符是 9. sst="abc12de", 则 Val(sst)= 10. 已知 a=3.5,b=5.0,c=2.5,d=true, 则表达式 a >= 0 And a + c > b + 3 Or Not d 的值是 11. Int(-3.5) Int(3.5) Fix(-3.5) Fix(3.5) Round(-3.5) Round(3.5) 的值分别是 12. 表示 s 字符变量是字母字符 ( 大小写字母不区分 ) 的逻辑表达式为 13. 表达式 UCase(Mid("abcdefgh", 3, 4)) 的值是 14. 要以 **** 年 ** 月 ** 日形式显示当前机器内日期的 Format 函数表达式为 15. 描述 X 是小于 100 的非负整数 的 VB 表达式是 16. 整型变量 x 中存放了一个两位数, 要将两位数交换位置, 如 13 变成 31, 实现的表达式是 17. 表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式是 18. 设 a=4,b=3,c=2,d=1, 表达式 a > b + 1 Or c < d And b Mod c 的值是 19. 在直角坐标系中,(x, y) 是坐标系中任意点的位置, 用 x 与 y 表示在第一或第三象限的表达式是 a+ b 20. 数学表达式的 VB 表达式是 1 1 cd c 有下列程序代码 : Str1$="Good morning" Str2$=Left$(Str1,5) Str3$=Str2+"evening" Print Str3$ 执行结果为 22. 已知字符 a 的 ASCII 为 97, A 的 ASCII 为 65, Str1$ = Chr(65 + 6) + String(2, ( )) + Chr(97 + 3) Str1$ 变量中存储的字符串为 23. 有如下语句 : a$="microsoft Visual Basic" 科学出版社职教技术出版中心

60 50 Visual Basic 程序设计实践教程 b$=ucase(a$) c$=lcase(a$) Print b$ Print c$ 那么语句的执行结果为输出和 24. 函数将返回系统的时间 25. 大于 X 的最小整数的 VB 表示形式为 26. 一元二次方程 ax 2 +bx+c=0 有实根的条件为 a 0 并且 b 2-4ac 0, 列出逻辑表达 式 27. 在 VB 6.0 中, 设 Single 型变量 XYZ 的值为 , 若要将其转换成字符串, 应使用的类型转换函数是 28. 在 VB 中, 若要将字符串 转换成数字值, 应使用的类型转换函数 是 3.4 测试题答案 单选题答案 1. D 2. A 3. C 4. A 5. A 6. A 7. B 8. D 9. D 10. C 11. B 12. C 13. B 14. A 15. B 16. C 17. A 18. C 19. A 20. B 21. D 22. B 23. B 24. D 25. C 26. B 27. B 28. B 29. B 30. C 31. B 32. A 33. C 34. B 35. A 36. B 37. C 38. C 39. B 40. C 41. A 42. A 43. D 44. D 45. B 46. D 47. C 48. C 49. A 50. D 填空题答案 北京 ---shanghai 3. Int(Rnd*46-50) Val 6. 整型, 长整型, 单精度型, 双精度型 7.,_ 或下划线, : 或冒号 8. Integer, % False( 按照运算符的优先级别来判断 ) , 3, -3, 3, -4, UCase(s)>="A" and UCase(s)<="Z" 13. CDEF 14. Format(Date, "yyyy 年 mm 月 dd 日 ")

61 第 3 章 VB 语言基础 X%>=0 And X%< (x mod 10)*10+x\ x mod 5=0 or x mod 9= x>0 and y>0 or x<0 and y<0 或者 x*y>0 20. (a + b)/(1/(c+5)-c*d/2) 21. Good evening 22. Good 23. MICROSOFT VISUAL BASIC,microsoft visual basic 24. Time 25. Int(x) a<>0 and b^2-4*a*c>=0 27. STR 或 CSTR 28. VAL 或 Cint 科学出版社职教技术出版中心

62 第 4 章 VB 的基本控制结构 知识要点 (1) 掌握 VB 的输入输出函数和语句 (2) 掌握顺序结构的特点及应用 (3) 掌握选择结构的特点及应用 (4) 掌握循环结构的特点及应用 4.1 上机实践 InputBox 函数和 MsgBox 函数的使用一 实验目的 (1) 掌握 InputBox 函数的使用 (2) 掌握 MsgBox 函数和语句的使用 (3) 掌握 MsgBox 函数与 MsgBox 语句的区别 二 实验内容 要求 利用 InputBox 函数和 MsgBox 函数设置用户注册登录界面 步骤 (1) 新建一个 标准 EXE 工程, 并在工程中添加一个窗体 (2) 添加三个按钮用于注册 登录和退出, 适当调整它们的大小和位置 (3) 设置属性 : 按表 4.1 设置各对象的属性 表 4.1 各控件的属性设置 对象类型对象名属性名属性值 Command1 Caption 注册 命令按钮 Command2 Caption 登录 (4) 编写程序代码如下 Command3 Caption 退出 Private Sub Command1_Click() username = InputBox(" 请输入您的用户名 ", " 注册用户名 ") pass = InputBox(" 请输入您的密码 ", " 设置用户密码 ") Private Sub Command2_Click() ww = MsgBox(" 如果是第一次使用, 请单击注册 ", 49)

63 第 4 章 VB 的基本控制结构 53 Private Sub Command3_Click() End (5) 保存文件 先保存窗体文件 ( 扩展名为.frm), 选择保存位置, 输入窗体文件名 ; 然后保存工程文件 ( 扩展名为.vbp), 选择保存位置 ( 一般应与窗体文件位置相同 ), 输入工程文件名 (6) 运行程序 打开菜单 运行 / 启动 命令, 或按 F5 功能键, 或单击工具栏上的 启动 按钮, 出现如图 4.1 所示的界面 单击 注册 按钮, 依次出现输入框, 如图 4.2 和图 4.3 所示 ; 输入完毕后, 单击 登录 按钮, 出现信息框, 如图 4.4 所示 ; 单击 退出 按钮, 程序结束 图 4.1 Form1 窗口 图 4.2 注册用户名 图 4.3 设置用户密码 图 4.4 确认信息框 (7) 将 Command2_Click() 程序中的函数换成语句形式, 体会差别 Private Sub Command2_Click() MsgBox " 如果是第一次使用, 请单击注册 ", 顺序结构的程序设计 科学出版社职教技术出版中心 一 实验目的 (1) 熟练使用窗体 标签 文本框 按钮等基本控件 (2) 熟练使用数据的输入 输出方法 (3) 培养良好的编程技巧和编程风格 二 实验内容 要求 设计一个计算商品总价的应用程序 : 在输入单价 数量 折扣后显示出总价款

64 54 Visual Basic 程序设计实践教程 步骤 (1) 进入 VB 集成开发环境, 新建一个 标准 EXE 工程, 并在工程中添加一个窗体 (2) 添加四个文本框用于录入数据和输出数据, 五个标签用于每一个文本框的说明和程序的总标题, 三个按钮用于计算 清除和退出 适当调整它们的大小和位置 (3) 设置属性 : 按表 4.2 设置各对象的属性 表 4.2 各控件的属性设置 对象类型对象名属性名属性值 窗体标签文本框命令按钮 Caption 商品总价 Form1 Font 宋体 常规 四号 Label1 Caption 单价 Label2 Caption 数量 Label3 Caption 折扣 Label4 Caption 总价 Label5 Caption 计算商品总价 Text1 Text 空 Text2 Text 空 Text3 Text 空 Text4 Text 空 Command1 Caption 计算 Command2 Caption 清除 Command3 Caption 退出 (4) 编写程序代码如下 Private Sub Command1_Click() p = Val(Text1.Text) n = Val(Text2.Text) f = Val(Text3.Text) Text4.Text = p * n * (1 - f) Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Private Sub Command3_Click() End (5) 保存文件 先保存窗体文件 ( 扩展名为.frm), 选择保存位置 (E 盘 ), 输入窗体文件名 ; 然后保存工程文件 ( 扩展名为.vbp), 选择保存位置 ( 一般应与窗体文件位置

65 相同 ), 输入工程文件名 (6) 运行程序 打开菜单 运行 / 启动 命令 ; 或按 F5 键 ; 或单击工具栏上的 启动 按钮 第 4 章 VB 的基本控制结构 55 在输入单价 数量和折扣后, 单击 计算 按钮, 程序界面如图 4.5 所示 分支结构的程序设计 一 实验目的图 4.5 程序界面 (1) 掌握 If 语句的各种格式 (2) 掌握 Select Case 语句的使用方法 (3) 掌握 If 语句和 Select Case 语句的关系与转换方法 二 实验内容 1. 求一元二次方程的解 步骤 (1) 新建一个 标准 EXE 工程, 并在工程中添加一个窗体 (2) 添加五个文本框用于录入数据和输出数据, 五个标签用于每一个文本框的说明, 两个按钮用于计算和退出 适当调整它们的大小和位置 (3) 设置属性 : 按表 4.3 设置各对象的属性 表 4.3 各控件的属性设置 对象类型对象名属性名属性值 窗体 Form1 Caption 一元二次方程的根 文本框 标签 命令按钮 (4) 编写程序代码如下 : Text1 Text 空 Text2 Text 空 Text3 Text 空 Text4 Text 空 Text5 Text 空 Label1 Caption a Label2 Caption b Label3 Caption c Label4 Caption X1= Label5 Caption X2= Command1 Caption 计算 Command2 Caption 结束 Private Sub Command1_Click() Dim a!, b!, c!, x1!, x2!, t1!, t2! a = Val(Text1.Text) ' 取变量 a 的值 b = Val(Text2.Text) ' 取变量 b 的值 c = Val(Text3.Text) ' 取变量 c 的值 科学出版社职教技术出版中心

66 56 Visual Basic 程序设计实践教程 t1 = b * b - 4 * a * c If t1 > 0 Then ' 大于 0, 有一对实根 t2 = Sqr(t1) x1 = (-b + t2) / (2 * a) x2 = (-b - t2) / (2 * a) Text4.Text = x1: Text5.Text = x2 ' 显示一对实根 ElseIf t1 < 0 Then ' 小于 0, 有一对复根 t2 = Sqr(-t1) x1 = -b / (2 * a) x2 = t2 / (2 * a) Text4.Text = x1 & "+" & x2 & "i" Text5.Text = x1 & "-" & x2 & "i" ' 显示一对复根 Else ' 等于 0, 有一对相等实根 x1 = -b / (2 * a) x2 = -b / (2 * a) Text4.Text = x1: Text5.Text = x2 ' 显示相等实根 End If Private Sub Command2_Click() End (5) 保存文件 (6) 运行程序, 如图 4.6 所示 2. 任意输入一个整数, 判断它能否同时被 整除, 若能整除, 则在窗口上显示 能同时被 3,5,7 整除, 否则显示 不能同时被 3,5,7 整除 步骤 (1) 新建一个 标准 EXE 工程 (2) 在 From1 窗体上依次添加两个标签控件 两个文本框控件和三个命令按钮控件 (3) 在 属性 窗口中, 设置对象属性, 如表 4.4 所示 图 4.6 程序运行界面 表 4.4 对象属性设置 对象类型对象名属性名属性值 窗体 Form1 Caption 判别能否同时被 整除 文本框 命令按钮 标签 Text1 Text 空 Text2 Text 空 Command1 Caption 判断 Command2 Caption 清除 Command3 Caption 退出 Label1 Caption 输入数据 Label2 Caption 结论

67 第 4 章 VB 的基本控制结构 57 (4) 编写代码如下 Private Sub Command1_Click() n = val(text1.text) If n/3=int(n/3) And n/5=int(n/5) And n/7=int(n/7) Then Text2.Text=" 能同时被 3,5,7 整除 " Else Text2.Text=" 不能同时被 3,5,7 整除 " End If Private Sub Command2_Click() Text1.Text= "" Text2.Text= "" Private Sub Command3_Click() End (5) 保存文件 (6) 运行程序后界面如图 4.7 所示 3. 输入三角形三边后, 判断三条边能否构成三角形, 若 能构成三角形, 则输出三角形类型 ( 等边三角形 等腰三角形 一般三角形 ) 及面积值, 若不能构成三角形, 则用消息框给出提示信息 步骤 图 4.7 程序运行界面 (1) 新建一个 标准 EXE 工程, 并在工程中添加一个窗体 (2) 添加五个文本框用于录入数据和输出数据, 五个标签用于每一个文本框的说明, 两个按钮用于计算和退出 适当调整它们的大小和位置 (3) 设置属性 : 按表 4.5 设置各对象的属性 表 4.5 各控件的属性设置 对象类型 对象名 属性名 属性值 窗体 Form1 Caption 三角形面积的计算 Text1 Text 空 Text2 Text 空 文本框 Text3 Text 空 Text4 Text 空 Text5 Text 空 Label1 Caption 第一条边 Label2 Caption 第二条边 标签 Label3 Caption 第三条边 Label4 Caption 三角形为 Label5 Caption 面积是 命令按钮 Command1 Caption 计算 Command2 Caption 结束 科学出版社职教技术出版中心

68 58 Visual Basic 程序设计实践教程 (4) 编写程序代码如下 Private Sub Command1_Click() Dim a!, b!, c!, t!, s!, k% a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) ' 输入三条边 If a + b > c And b + c > a And a + c > b Then t = (a + b + c) / 2 ' 可以构成三角形 s = Sqr(t * (t - a) * (t - b) * (t - c)) ' 计算面积 Text5.Text = s If a = b And b = c Then Text4.Text = " 这是等边三角形 " ' 判断三角形形状 ElseIf a = b Or b = c Or a = c Then Text4.Text = " 这是等腰三角形 " Else Text4.Text = " 这是一般三角形 " End If Else ' 不能构成三角形 k = MsgBox(" 这 3 个数不能构成三角形, 请重新输入!", _17, " 警告 ") Text1.Text = "": Text2.Text = "": Text3.Text = "" Text1.SetFocus ' 清除文本框内容, 锁定焦点 End If Private Sub Command2_Click() End (5) 保存文件 (6) 运行程序后界面如图 4.8 所示 如果输入三条边数据 :11 5 6, 则系统弹出如图 4.9 所示的信息框 如果输入三条边数据 :12 9 9, 则程序如图 4.10 所示 图 4.8 程序运行界面图 4.9 信息框图 4.10 计算结果 4. 设计口令检测程序 : 运行时, 用户输完口令, 单击 确定 按钮后, 进行口令判断, 若输入口令正确, 则显示另一个欢迎窗口, 否则给出错误提示 步骤 (1) 新建一个 标准 EXE 工程, 并在工程中添加一个窗体 (2) 添加一个文本框用于录入口令, 一个标签用于文本框的说明, 两个按钮用于判

69 第 4 章 VB 的基本控制结构 59 断口令是否正确和退出程序 适当调整它们的大小和位置 (3) 设置属性 : 按表 4.6 设置各对象的属性 表 4.6 各控件的属性设置 对象类型 对象名 属性名 属性值 窗体 Form1 Caption 口令验证 文本框 Text1 Text 空 标签 Label1 Caption 请输入口令 命令按钮 Command1 Caption 确定 Command2 Caption 退出 (4) 编写程序代码如下 Private Sub Command1_Click() If Text1.Text = "888888" Then MsgBox " 口令正确, 欢迎进入系统!",, " 口令验证 " Else Text1.Text = "" MsgBox " 口令错误! 请重新输入口令!",, " 口令验证 " End If Private Sub Command2_Click() End (5) 保存文件 (6) 运行程序, 运行后界面如图 4.11 所示 如果输入口令 , 系统弹出如 图 4.12 所示的信息框, 如果不是 , 系统弹出如图 4.13 所示的信息框 图 4.11 口令验证界面图 4.12 输入正确图 4.13 输入错误 循环结构的程序设计 一 实验目的 (1) 掌握 For Next 型循环结构的使用方法 (2) 掌握 While 型循环结构的使用方法 (3) 掌握 Do Loop 型循环结构的各种格式及使用方法 (4) 掌握各种循环结构之间的关系与转换方法 (5) 掌握循环的嵌套使用 二 实验内容 1. 任意输入一个整数, 求出它的因子以及因子个数 科学出版社职教技术出版中心

70 60 Visual Basic 程序设计实践教程 步骤 (1) 新建一个 标准 EXE 工程, 并在工程中添加一个窗体 (2) 添加三个文本框用于输入数据和输出数据, 三个标签用于每一个文本框的说明, 两个按钮用于计算和退出 适当调整它们的大小和位置 (3) 设置属性 : 按表 4.7 设置各对象的属性 表 4.7 各控件的属性设置 对象类型 对象名 属性名 属性值 窗体 Form1 Caption 求解因子 Text1 Text 空 文本框 标签 命令按钮 Text2 Text 空 Text3 Text 空 Label1 Caption 输入数据 Label2 Caption 其因子是 Label3 Caption 因子个数 Command1 Caption 求因子 Command2 Caption 退出 (4) 编写程序代码如下 Private Sub Command1_Click() Dim x%, i%, k%, s$ s$ = "" x = Val(Text1.Text) For i = 1 To x \ 2 If x Mod i = 0 Then k = k + 1 s$ = s$ & " " & i Text2.Text = s$ End If Next i Text3.Text = k ' 循环依次除以 1 到 x \ 2 的数 ' 统计因子 Private Sub Command2_Click() End (5) 保存文件 (6) 运行程序, 运行后界面如图 4.14 所示 2. 求任意十个数的最大数 最小数和它们的平均数 步骤 (1) 新建一个 标准 EXE 工程, 并在工程中添加一个窗体 (2) 添加四个文本框用于输入数据和输出数据, 四个标签用于每一个文本框的说明, 两个按钮用于计算和退出 适当调整它们的大小和位置

71 第 4 章 VB 的基本控制结构 61 图 4.14 程序运行结果 (3) 设置属性 : 按表 4.8 设置各对象的属性 表 4.8 各控件的属性设置 对象类型对象名属性名属性值 窗体 Form1 Caption 求最大数和最小数 文本框 标签 命令按钮 (4) 编写程序代码如下 Text1 Text 空 Text2 Text 空 Text3 Text 空 Text4 Text 空 Label1 Caption 生成一组数据 Label2 Caption 最大数是 Label3 Caption 最小数是 Label4 Caption 平均数是 Command1 Caption 开始 Command2 Caption 结束 Private Sub Command1_Click() Dim i%, x%, max!, min!, ave! max = Int(Rnd * ) ' 生成第一个随机数 min = max ' 将此数设为最大 最小 ave = max ' 平均数取此数的值 Text1.Text = max ' 将此数显示在文本框 1 中 For i = 2 To 10 x = Rnd * ' 生成一个随机数 Text1.Text = Text1.Text & " " & x ave = ave + x If x > max Then ' 将此数与最大数比较 max = x ' 如果此数大于最大数则修改最大数 ElseIf x < min Then ' 将此数与最小数比较 min = x ' 如果此数小于最小数则修改最小数 End If Next i ave = ave / 10 科学出版社职教技术出版中心

72 62 Visual Basic 程序设计实践教程 Text2.Text = max Text3.Text = min Text4.Text = ave Private Sub Command2_Click() End (5) 保存文件 (6) 运行程序, 运行后界面如图 4.15 所示 3. 求阶乘值不超过 的数值 N 和 N 的阶乘 步骤 (1) 新建一个 标准 EXE 工程, 并在工程中添加一个窗体 (2) 添加两个文本框用于输入数据和输出数据, 两个标签用于每一个文本框的说明, 两个按钮用于计算和退出 适当调整它们的大小和位置 (3) 设置属性 : 按表 4.9 设置各对象的属性 图 4.15 程序运行结果 表 4.9 各控件的属性设置 对象类型对象名属性名属性值 窗体 Form1 Caption Do 循环实例 文本框 标签 命令按钮 Text1 Text 空 Text2 Text 空 Label1 Caption N= Label2 Caption N!= Command1 Caption 计算 Command2 Caption 退出 (4) 编写程序代码如下 Private Sub Command1_Click() Dim s!, n%, i% s = 1 n = 1 Do n = n + 1 s = s * n Loop While s < Text1 = n - 1 Text2 = s / n Private Sub Command2_Click() End

73 第 4 章 VB 的基本控制结构 63 (5) 保存文件 (6) 运行程序, 运行后界面如图 4.16 所示 4. 打印如图 4.17 所示的图形, 高度由用户输入 步骤 (1) 新建一个 标准 EXE 工程, 并在工程中添加一个窗体 (2) 在窗体上添加三个按钮用于打印图形 清除屏幕和退出程序 适当调整它们的大小和位置 (3) 设置属性 : 按表 4.10 设置各对象的属性 表 4.10 各控件的属性设置 对象类型对象名属性名属性值 窗体 Form1 Caption 图形打印 命令按钮 图 4.16 运行结果 (4) 编写程序代码如下 Command1 Caption 打印图形 Command2 Caption 清除屏幕 Command3 Caption 退出程序 Private Sub Command1_Click() n = InputBox(" 图形高度 ") For i = 1 To n Print Tab(i); String(2 * n * (i - 1), "*"); _ Spc(2); String(1 + 2 * (i - 1), "*") Next i Private Sub Command2_Click() Cls Private Sub Command3_Click() End (5) 保存文件 (6) 运行程序, 运行后界面如图 4.17 所示 图 4.17 运行结果 科学出版社职教技术出版中心

74 64 Visual Basic 程序设计实践教程 4.2 典型试题与解析 单选题 例 1 下列程序段的执行结果为 ( ) X=5 Y=1 If Not X>0 Then X=Y-3 Else Y=X+3 Print X-Y;Y-X A B. 5-8 C. 3-3 D 答案解析 : 程序的关键就在于 If 语句 Not X>0 相当于 X<=0, 现在 X 的值为 5,5 比 0 大, 所以条件值为 False, 执行 Else 语句 Y=X+3, 此时 Y 为 8 执行 Print 方法, 即输出 X-Y 和 Y-X 的值 X-Y=-3,Y-X=3, 所以最后输出的结果为 -3 3 答案 :A 例 2 下列程序段的执行结果为 ( ) X=Int(Rnd()+4) Select Case X Case 5 Print " 优秀 " Case 4 Print " 良好 " Case 3 Print " 通过 " Case Else Print " 不通过 " End Select A. 优秀 B. 良好 C. 通过 D. 不通过 答案解析 : 我们可以看到 X=Int(Rnd()+4) 语句, 其中 Rnd() 函数是用来产生随机数 的, 其值在 0~1 之间 而在 (Rnd()+4) 前面有 Int 进行强制类型转换, 所以 X 总是 4, 即执行 Case 4 Print " 良好 " 答案 :B 例 3 下列程序的执行结果为 ( ) X=1 Y=1 For i=1 To 3 F=X+Y X=Y Y=F Print F;

75 第 4 章 VB 的基本控制结构 65 Next i A B C D 答案解析 : 下面分析此程序段是怎样运行的 (1) 开始 X=1,Y=1 For 循环中步长默认值为 1, 循环变量 i 的初值为 1, 终值为 3, 所以可以循环三次 (2) 第一次循环结束后,F=2,X=1,Y=2 (3) 第二次循环结束后,F=3,X=2,Y=3 (4) 第三次循环结束后,F=5,X=3 答案 :D 例 4 设 a=5,b=6,c=7,d=8, 执行下列语句后,x 的值为 ( ) x=iif((a>b) And(c>d),10,20) A. 10 B. 20 C. True D. False 答案解析 : 程序中 IIF 函数的条件有两个 a>b 和 c>d, 当两个条件都正确时 x 的值 才为 10, 所以 x 的值为 20 答案 :B 例 5 在窗体中添加一个命令按钮, 并编写如下程序 : Private Sub Command1_Click() a = 1: b = 2: c = 3 a = b: b = c: c = a Print c 程序执行后, 输出的结果是 ( ) A. 0 B. 1 C. 2 D. 3 答案解析 : 初始值为 a = 1,b = 2,c = 3; 执行 a = b 后,a = 2,b = 2,c = 3; 执行 b = c 后,a = 2,b = 3,c = 3; 执行 c = a 后,a = 2,b = 3,c = 2 答案 :C 填空题 例 1 阅读程序 : Private Sub Form_Click() num=0 Do While num<=3 num=num+1 print num Loop 科学出版社职教技术出版中心 程序运行结果为 答案解析 :(1) 程序首先定义了一个 num 并赋了初值 0, 然后执行循环语句, 它的控制条件是 num<=3, 在循环体中, 每执行依次循环,num 的值就加 1, 所以执行四次循环

76 66 Visual Basic 程序设计实践教程 (2) 每执行一次循环就输出一次 num 的值, 它们依次是 答案 : 例 2 在程序中添加一个命令按钮, 并编写如下程序代码 : Private Sub Command1_Click() a1 = "123" a2 = "123a" a3 = "12a3" a4 = "a123" Print Val(a1); Val(a2); Val(a3); Val(a4) 程序运行结果为 答案解析 : 本例中, 利用 VB 的转换函数 Val 将数字字符串转换为数值 在转换过程中, 将字符串开头的连续数字字符转换为数值, 遇到第一个不为数字的字符为止, 如果该字符之后还有数字字符也不转换, 如果字符串第一个字符就是非数字字符则转换出的数值为 0 答案 : 例 3 基本程序控制结构可以分为顺序结构 结构和结构三种 答案解析 : 基本程序控制结构可以分为顺序结构 选择结构和循环结构三种 答案 : 选择, 循环 4.3 测试题 单选题 1. 显示 请输入 vb 正整数 且标题为 应用示例 1, 输入框的内容默认为 1 的输入框的语句是 ( ) A. A=InputBox(" 请输入 "&"vb"&" 正整数 "," 应用示例 1","1") B. A=InputBox(" 应用示例 1"," 请输入 " &vbcrlf& " 正整数 ","1") C. A=InputBox("1"," 应用示例 1"," 请输入 " &vbcrlf& " 正整数 ") D. A=InputBox(" 请输入正整数 ","1"," 应用示例 1") 2. 下列赋值语句中正确的是 ( ) A. Txt1.Text+Txt2.Text=Txt3.text B. Command1.Name=cmdOK C. 12LabelCaption=1234 D. A=InputBox("Hello") 3. 下列程序段的执行结果为 ( ) A=0;B=1 A=A+B;B=A+B;Print A;B A=A+B;B=A+B;Print A;B

77 A=A+B;B=A+B;Print A;B 第 4 章 VB 的基本控制结构 67 A. 1 2 B. 1 1 C. 1 3 D 下列程序段的执行结果为 ( ) X=2 Print X+1;X+1 A. 3 3 B. X+1 X+1 C. 3 4 D 以下 ( ) 程序段可以实施 X Y 变量的变换 A. Y=X:X=Y B. Z=X:Y=Z:X=Y C. Z=X:X=Y:Y=Z D. Z=X:W=Y:Y=Z:X=Y 6. 下列程序段的执行结果为 ( ) A="HELLOGOODMORNING" B="WANGCHANGLI" C=Left(A,5)+"!" D=Right(A,7) E=Mid(A,6,4) F=Mid(B,Len(B)-6.5)+"!" G=E+" "+D+"!" H=C+" "+F Print H+" "+G A. HELLO! CHANG! GOOD MORNING! B. HELLO! WANG! GOOD MORNING! C. HELLO! LI! GOOD MORNING! D. HELLO! CHANG! GOOD! MORNING! 7. 下列叙述不正确的是 ( ) A. 注释语句是非执行语句, 仅对程序的有关内容起注释作用, 它不被解释和编译 B. 注释语句可以放在代码中的任何位置 C. 注释语句不能放在续行符的后面 D. 代码中加入注释语句的目的是提高程序的可读性 8. 结构化程序设计的三种基本结构是 ( ) A. 层次结构 B. 模块结构 C. 网状结构 D. 顺序结构 选择结构 循环结构 9. 下列有关算法的叙述中错误的是 ( ) A. 算法中执行的步骤可以无休止地执行下去 B. 算法中的每一步操作必须含义明确 C. 算法中的每一步操作都必须是可执行的 D. 算法必须有输出 10. 在窗体上画一个命令按钮, 名称为 Command1, 然后编写如下程序 : 科学出版社职教技术出版中心

78 68 Visual Basic 程序设计实践教程 Private Sub Command1_Click() For I = 1 To 4 For J = 0 To I Print Chr$(65 + I); Next J Print Next I 程序运行后, 如果单击命令按钮, 则在窗体上显示的内容是 ( ) A. A B. AA C. B D. BB BB BBB CC CCC CCC CCCC DDD DDDD DDDD DDDDD EEEE EEEEE 11. 在窗体上画一个命令按钮, 其名称为 Command1, 然后编写如下事件过程 : Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i <= 4 Then x = x + 1 Else x = x + 2 End If Next Print x End sub 程序运行后, 如果单击命令按钮, 则在窗体上显示的内容是 ( ) A. 15 B. 12 C. 9 D 结构化程序由三种基本结构组成, 下面属于三种基本结构之一的是 ( ) A. 递归结构 B. 选择结构 C. 过程结构 D. 输入 输出结构 13. 执行下列语句后, 显示输入对话框, 此时如果单击 确定 按钮, 则变量 strinput 的内容是 ( ) strinput=inputbox(" 请输入字符串 "," 字符串对话框 "," 字符串 ") A. 空字符串 B. " 字符串 " C. " 请输入字符串 " D. " 字符串对话框 " 14. 设窗体上有一个文本框 Text1 和一个命令按钮 Command1, 并有以下事件过程 : Private Sub Command1_Click() Dim s As String,ch As String s="" For k=1 To Len(Text1) ch=mid(text1,k,1) s=ch+s Next k

79 第 4 章 VB 的基本控制结构 69 Text1.Text=s 程序执行时, 在文本框中输入 "Basic", 然后单击命令按钮, 则文本框中的内容是 ( ) A. CISAB B. cisab C. Basic D. BASIC 15. 假定有如下的窗体事件过程 : Private Sub Form_Click() a$ = "Microsoft Visual Basic" b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 程序运行后, 单击窗体, 则在弹出的信息框的标题栏中显示的信息是 ( ) A. Microsoft Visual B. Basic C. 5 D. Microsoft 16. 设有以下循环结构 : Do 循环体 Loop While< 条件 > 则以下叙述中错误的是 ( ) A. 如果 条件 总是为 True, 则不停地执行循环体 B. 若 条件 是一个为 0 的常数, 则一次也不执行循环体 C. 循环体中可以使用 Exit Do 语句 D. 条件 可以是关系表达式 逻辑表达式或常数 17. 下列程序段的执行结果为 ( ) A = "abcd" B = "bcde" E = Right(A, 3) F = Mid(B, 2, 3) If E < F Then Print E + F Else Print F + E A. cdcd B. cdd C. cdebcd D. bcdcde 18. 以下关于 MsgBox 的叙述中, 错误的是 ( ) A. MsgBox 语句没有返回值 B. MsgBox 函数的第二个参数是一个整数, 该参数只能确定对话框中显示的按 钮数量 C. MsgBox 函数返回一个整数 D. 通过 MsgBox 函数可以设置信息框中图标和按钮的类型 19. 设 a=6, 则执行 x=iif(a>5,-1,0) 后,x 的值为 ( ) 科学出版社职教技术出版中心

80 70 Visual Basic 程序设计实践教程 A. -1 B. 0 C. 6 D 以下程序段的输出结果为 ( ) X = 1 Y = 4 Do Until Y > 4 X = X * Y Y = Y + 1 Loop Print X A. 1 B. 4 C. 8 D 下列程序段的执行结果为 ( ) S = 0: T = 0: U = 0 For X = 1 To 3 For Y = 1 To X For Z = Y To 3 S = S + 1 Next Z T = T + 1 Next Y U = U + 1 Next X Print S; T; U A B C D 在窗体上画一个名称为 Command1 的命令按钮, 然后编写如下事件过程 : Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2<>0 Then a=a-1 End If a=a+1 Next j Next i Print a 程序运行后, 单击命令按钮, 输出结果是 ( ) A. 2 B. 3 C. 4 D 下列程序段的执行结果为 ( ) x = 1 Y = 1 For I = 1 To 3 F = x + Y x = Y

81 第 4 章 VB 的基本控制结构 71 Y = F Print F; Next I A B C D 执行下列语句后, 整型变量 a 的值是 ( ) If (3-2) > 2 Then a = 10 ElseIf (10 / 2) = 6 Then a = 20 Else a = 30 End If A. 10 B. 30 C. 不确定 D 在窗体上画一个命令按钮和一个标签, 其名称分别为 Command1 和 Label1, 然 后编写如下事件过程 : Private Sub Command1_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter) 程序运行后, 单击 Command1, 则 Label1.Caption 的值是 ( ) A. 11 B. 16 C. 12 D 设有如下程序段 : x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后,x 的值是 ( ) A. 38 B. 27 C. 26 D 窗体上有一个名称为 Command1 的命令按钮, 其事件过程如下 : Private Sub Command1_Click() x="visualbasicprogramming" a=right(x,11) b=mid(x,7,5) c=msgbox(a,,b) 运行程序后, 单击命令按钮 以下叙述中错误的是 ( ) A. MsgBox 的使用格式有错 B. 信息框的标题是 Basic 科学出版社职教技术出版中心

82 72 Visual Basic 程序设计实践教程 C. c 的值是函数的返回值 D. 信息框中的提示信息是 Programming 28. 在窗体上画一个名称为 Command1 的命令按钮, 然后编写如下事件过程 : Private Sub Command1_Click() x=0 n=inputbox("") For i= 1 To n For j = 1 To i x = x +1 Next j Next i Print x 程序运行后, 单击命令按钮, 如果输入 3, 则在窗体上显示的内容是 ( ) A. 6 B. 5 C. 3 D 下列程序段的执行结果为 ( ) A = 0: B = 1 Do A = A + B B = B + 1 Loop While A < 10 Print A; B A. 0 1 B C. A B D 输入对话框 (InputBox) 的返回值的类型是 ( ) A. 整数 B. 长整数 C. 字符串 D. 浮点数 31. 设 a=5,b=6,c=7,d=8, 则执行下列语句后,x 的值为 ( ) x= IIF((a>B) And (c<d),10,20) A. 300 B. 30 C. 20 D 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮, 然后编写如下事件过程 : Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) 程序运行后, 单击命令按钮, 在文本框 Text1 中的内容是 ( ) A. 5 B. 3 C. 2 D 假定有以下循环结构 : Do Until 条件表达式

83 第 4 章 VB 的基本控制结构 73 循环体 Loop 则以下正确的描述是 ( ) A. 如果 条件表达式 的值是 0, 则一次循环体也不执行 B. 不论 条件表达式 的值是否为 真, 至少要执行一次循环 C. 如果 条件表达式 的值不为 0, 则至少执行一次循环 D. 如果 条件表达式 的值恒为 0, 则无限次执行循环体 34. 下列程序段的执行结果为 ( ) I = 0 For G = 10 To 19 Step 3 I = I + 1 Next G Print I A. 5 B. 3 C. 6 D 在窗体上画一个名称为 Command1 的命令按钮, 然后编写如下事件过程 : Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i <= 4 Then x = x + 1 Print x; Next i 程序运行后, 单击命令按钮, 其输出结果为 ( ) A B C D 下列程序的执行结果为 ( ) I = 4 A = 5 Do I = I + 1 A = A + 2 Loop Until I >= 7 Print "I="; I Print "A="; A A. I= 4 B. I= 8 C. I= 7 D. I= 7 A= 5 A= 7 A= 11 A= 假定有以下程序段 : For i=1 To 3 For j=5 To 1 Step -1 Print i*j Next j Next i 科学出版社职教技术出版中心

84 74 Visual Basic 程序设计实践教程 则语句 Print i*j 的执行次数是 ( ) A. 3 B. 5 C. 15 D 下面程序运行时, 若输入 395, 则输出结果是 ( ) Private Sub Command1_Click() Dim x% x=inputbox(" 请输入一个 3 位整数 ") Print x Mod 10,x\100,(x Mod 100)\10 A B C D 执行以下语句后显示结果为 ( ) Dim x As Integer If x Then Print x Else Print x 1 A. 1 B. -1 C. 0 D. 不确定 40. 在窗体上画一个命令按钮和一个文本框, 其名称分别为 Command1 和 Text1, 把文本框的 Text1 属性设置为空白, 然后编写如下事件过程 : Private Sub Command1_Click() Dim a, b a = InputBox("Enter an Integer") b = text1.text text1.text = b + a 程序运行后, 先在文本框中输入 456, 然后单击命令按钮, 在输入对话框中输入 123, 如果单击 确定 按钮, 则文本框中的内容为 ( ) A. 456 B C. 579 D 阅读下面的程序段 : For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next j Next i 执行上面的三重循环后,a 的值为 ( ) A. 14 B. 21 C. 9 D 在窗体上画一个命令按钮和一个文本框, 其名称分别为 Command1 和 Text1, 把文本框的 Text 属性设置为空白, 然后编写如下事件过程 : Private Sub Command1_Click() a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + a

85 第 4 章 VB 的基本控制结构 75 程序运行后, 单击命令按钮, 如果在输入对话框中分别输入 8 和 10, 则文本框中显示的 内容是 ( ) A. 18 B. 108 C. 810 D. 出错 43. 下列程序段的执行结果为 ( ) X = 2 Y = 1 If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 A. False B. 1 C. True D 假定有如下的命令按钮 ( 名称为 Command1) 事件过程 : Private Sub Command1_Click() x=inputbox(" 输入 :"," 输入整数 ") MsgBox " 输入的数据是 :",," 输入数据 :"+x 程序运行后, 单击命令按钮, 如果从键盘上输入整数 10, 则以下叙述中错误的是 ( ) A. 信息框的标题是 输入数据 :10 B. x 的值是数值 10 C. 输入对话框的标题是 输入整数 D. 信息框中显示的 输入的数据是 : 45. 下列多分支选择结构的 Case 语句, 写法错误的是 ( ) A. Case 1,5,7,9 B. Case 8 To 12 C. Case Is < "Man" D. Case 5 To 选择结构和循环结构的作用是 ( ) A. 控制程序的流程 B. 提高程序的运行速度 C. 便于程序的阅读 D. 方便程序的调试 47. 结构化程序由三种基本结构组成, 下面不属于三种基本结构之一的是 ( ) A. 顺序结构 B. 选择结构 C. 过程结构 D. 循环结构 48. 设 a=10,b=5,c=1, 执行语句 Print a>b>c 后, 窗体上显示的是 ( ) A. True B. False C. 1 D. 出错信息 49. 在 MsgBox 函数中参数 ( ) 是必需的 A. Prompt B. Buttons C. Title D. Context 50. 在 MsgBox 函数中, 如果省略第三个 Title 参数, 则对话框的标题为 ( ) 填空题 A. 一个随机的字符串 B. 一个空字符串 C. 工程的名字 D. 与第一个参数相同 1. 设 a=l,b=2,c=3,d=4, 则表达式 IIF(a<b, a, IIF(c<d,a,d)) 的结果是 2. 以下程序段的输出结果是 n = 9 Do While(n > 6) n = n - 1 科学出版社职教技术出版中心

86 76 Visual Basic 程序设计实践教程 Loop Print n 3. 执行以下程序段后,x 的值是 Dim x As Integer, i As Integer x = 0 For i = 20 To 1 Step -2 x = x + i Next i 4. 把程序执行过程中重复执行的一组语句称为 5. 设 x 为一个两位数, 将其个位和十位数交换后所得两位数的 VB 表达式是 6. 若 i 的初值为 8, 则下列循环语句的循环次数为次 Do While i<=17 i=i+2 Loop 7. 由 For k=10 To 0 Step 3:Next k 循环语句控制的循环次数是次 8. 执行如下语句 : a=inputbox("today","tomorrow","yesterday",,,"day yesterday",5) before 显示一个输入对话框, 在对话框的输入区中显示的信息是 9. 显示 请输入一个正整数 且标题为 标题 1, 输入框的内容默认为 1 的输入框的语句是 完善程序题 1. 在窗体上画一个名为 Command1 的命令按钮, 然后求 s=1+1/2!+1/3!+1/4!+1/5!, 编写如下事件过程 Private Sub Command1_Click() n=5 f=1 s=0 For i=1 to n f= s=s+1/f next i Print s 2. 从键盘输入 10 个数, 打印最大的数 Private Sub Form_Click() Dim X As Single, Max As Single Dim K As Integer K = 1 Max = InputBox(" 请输入第一个数 ")

87 K = K + 1 X = InputBox(" 请输入下个数 ") If X > Max Then Max = X Loop Print " 最大的数是 :"; Max 第 4 章 VB 的基本控制结构 在窗体上输出下面图形, 在空白处填写语句 要求从第 11 列开始输出 ******* ***** *** * Dim I As Integer, j As Integer For I = 1 To 4 Print 1 For j = 1 To 2 Print "*"; Next j Print Next I 4. 从键盘上输入若干个学生的成绩, 统计并输出最高分数和最低分数, 当输入负数时结束输入 Private Sub Command1_Click() Dim x As Single, amax As Single, amin As Single x = InputBox(" 请输入分数 ") amax = x amin = x Do While 1 If x > amax Then amax = x End If If 2 Then amin = x End If x = InputBox(" 请输入分数 ") Loop Print amax, amin 5. 在窗体上输出 10 以内的奇数, 并输出所有奇数之和 Private Sub Command1_Click() Dim i As Integer, sum As Integer For i = 2 To 10 If Then Print i sum = sum + i End If 科学出版社职教技术出版中心

88 78 Visual Basic 程序设计实践教程 Next i Print sum 6. 从键盘上输入一串字符, 以? 结束, 统计输入字符中的小 大写字母和数字的个数 Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch = InputBox(" 请输入一个字符 ") Do While 1 Select Case ch Case "a" To "z" n1 = n1 + 1 Case 2 n2 = n2 + 1 Case "0" To "9" n3 = n3 + 1 End Select ch = InputBox(" 请输入一个字符 ") 3 Print n1, n2, n 程序设计题 1. 求 1~100 中为 5 或 7 的倍数的和 请将结果输出到窗体上, 并存入所给变量 SUM 中 使用 While...Wend 语句完成程序 * 2. 在窗体上打印如图 4.18 所示的图形 *** 3. 求 sum= 的和, 请将 sum 结果值输出 ***** 到窗体上 使用 Do Loop 语句完成程序 ******* 图 4.18 打印图形 4. 求 的和, 将计算结果存入变量 sum 中, 并将结果输出到窗体上 5. 求 10~20 之间所有素数的乘积并输出在窗体上, 将结果存入变量 P 中 4.4 测试题答案 单选题答案 1. A 2. D 3. A 4. A 5. C 6. A 7. B 8. D 9. A 10. B 11. C 12. B 13. B 14. B 15. B 16. B 17. D 18. B 19. A 20. B 21. C 22. C 23. D 24. B 25. C 26. B 27. A 28. A 29. B 30. C 31. C 32. B 33. D 34. D 35. D 36. C 37. C 38. B 39. B 40. B

89 第 4 章 VB 的基本控制结构 A 42. B 43. A 44. B 45. D 46. A 47. C 48. B 49. A 50. C 填空题答案 循环体 5. (x Mod 10) * 10 + x \ Yesterday 9. B. A=InputBox(" 请输入一个正整数 "," 标题 1","1") 完善程序题答案 1. f*i 2. Do while k< Tab(I); * I 4. 1 x >= 0 2 x < amin 5. i / 2 <> Int(i / 2) 6. 1 ch< >"?" 2 "A" To "Z" 3 EndDo 程序设计题答案 ( 略 ) 科学出版社职教技术出版中心

90 第 5 章数 组 知识要点 (1) 静态数组的定义及操作 (2) 动态数组的定义及操作 (3) 控件数组的使用 5.1 上机实践 一维数组的定义及应用 一 实验目的 (1) 掌握一维数组的定义及应用 (2) 掌握利用循环对一维数组元素的操作方法 二 实验内容及步骤 1. 定义一个含有五个元素的数组 A, 用 InputBox 函数为数组元素输入下列值 : , 然后将数组元素值输出到窗体上 分析 定义数组时若使用默认下标, 则定义为 Dim A(4) 即可, 也可以自定义数组起始下标, 如 Dim(1 to 5), 只要保证数组元素个数正确就可以, 但也要考虑使用数组时是否方便 步骤 在窗体上添加一个命令按钮, 在命令按钮的单击事件中添加如下代码 Private Sub Command1_Click() Dim A(1 To 5) Dim i As Integer For i = 1 To 5 A(i) = Val(InputBox(" 请输入第 " & i & " 个数据 :")) Next i For i = 1 To 5 Print A(i); Next i 运行程序, 单击命令按钮后, 出现如图 5.1 所示的输入界面, 分别输入给定的数据, 然后输出到窗体上, 如图 5.2 所示

91 第 5 章数组 81 图 5.1 输入数据界面 图 5.2 运行结果 2. 编写程序, 输出 n=10 的杨辉三角形 ( 共 11 行 ) 要求 杨辉三角形的每一行是 (x+y)^n 的展开式的各项的系数 例如, 第一行是 (x+y)^0, 其系数为 1; 第二行是 (x+y)^1, 展开式为 x+y, 其系数为 1,1; 第三行是 (x+y)^2, 展开式为 x^2+2xy+y^2, 其系数分别为 1,2,1, 一般形式如下 分析 从上面的形式分析, 可以找出其规律 : 对角线和每行的第一列均为 1, 其余各项是它的上一行中前一个元素和上一行的同一列元素之和 例如, 第四行第三列的值为 3, 它是第三行第二列与第三列元素值之和, 可以一般地表示为 :a(i, j)=a(i-1, j-1)+a(i-1, j) 步骤 (1) 新建一个 标准 EXE 工程 (2) 设计界面 在窗体上添加一个命令按钮, 设置其 Caption 属性为 输出, 设置 Form1 的 Caption 属性为 杨辉三角形 (3) 添加代码 在单击 输出 命令按钮的事件中添加代码, 运行界面如图 5.3 所示, 程序代码如下 科学出版社职教技术出版中心 ' 使用默认从 0 开始下标 Private Sub Command1_Click() Const N = 10 Dim Arr(N, N) As Integer For i = 0 To N Arr(i, i) = 1 Arr(i, 0) = 1 Next i For i = 2 To N For j = 1 To i - 1 Arr(i, j) = Arr(i - 1, j - 1) + Arr(i - 1, j) Next j Next i For i = 0 To N

92 82 Visual Basic 程序设计实践教程 For j = 0 To i Print Arr(i, j); Next j Print Next i 图 5.3 输出杨辉三角形 3. 统计一个班 30 名同学某科成绩在 0~9 10~19 90~ 分数段的人数 分析 首先定义两个一维数组, 一个用于统计各个分数段的人数, 下标从 0~10, 分别对应每个分数段 ; 另一个数组用于保存 30 个成绩, 下标可以从 1~30, 而数据输入 方式, 由于数据较多, 为了使用方便, 可以使用随机函数自动生成 30 个 0~100 之间的 数 为了保证每次运行产生不同序列的随机数, 需使用 Randomize 进行初始化 另外, 进行统计时, 使用了一个技巧 : 通过 s(k) = s(k) + 1 来计数, 其中 k 是每个成 绩除 10 后的整数, 这样就可以将 30 个成绩分布于 0~10 之间, 并作为数组的下标, 分 别用于统计各分数段的人数 步骤 (1) 新建一个 标准 EXE 工程 (2) 设计界面 在窗体上添加一个命令按钮, 设置其 Caption 属性为 统计 (3) 添加代码 在单击 统计 命令按钮的事件中添加代码, 运行界面如图 5.4 所示, 程序代码如下 Private Sub Command1_Click() Dim score(1 To 30) As Single ' 保存成绩 Dim s(10) As Integer ' 保存各分数段人数 Dim i As Integer, k As Integer For i = 0 To 10 s(i) = 0 ' 将数组元素赋初值 0 Next Randomize ' 为了保证每次运行产生不同序列的随机数, 需进行初始化 Print " 通过随机数产生 30 个 0~100 的成绩如下 :" For i = 1 To 30 score(i) = Int(Rnd * 101) ' 通过随机数产生 0~100 的成绩 Print score(i), If i Mod 5 = 0 Then Print ' 每行打印 5 个成绩 k = score(i) \ 10 ' 注意 : 使用的是整除运算符 \, 也可以使用除法运算符 /

93 第 5 章数组 83 s(k) = s(k) + 1 ' 按分数段计数 Next Print vbcrlf & " 各分数段人数如下 :" For i = 0 To 10 Print "s("; i; ")="; s(i) Next 图 5.4 统计各分数段的人数 4. 用四种方法生成 10 个人的考试成绩, 并输出高于平均成绩的分数 分析 首先需要输入 10 个人的成绩 ; 然后是求平均分 ; 最后是把这 10 个分数逐 一和平均成绩进行比较, 若高于平均成绩, 则输出结果在窗体上显示 步骤 (1) 新建一个 标准 EXE 工程 (2) 在窗体上添加四个命令按钮, 对应四种不同的输入数据的方式, 每个命令按钮的 Caption 属性分别为 方法一 : 用 InputBox 函数输入 方法二 : 利用随机函数生成 方法三 : 利用 Array() 函数赋值 和 方法四 : 利用 Split 函数赋值 程序运行界面如图 5.5 所示 在每个按钮的单击事件中添加代码如下 Option Base 1 ' 方法一 : 利用 InputBox 函数输入学生成绩 Private Sub Command1_Click() Dim score(1 To 10) As Single, aver!, i% 科学出版社职教技术出版中心 aver = 0 Print "10 个成绩如下 :" For i = 1 To 10 score(i) = Val(InputBox(" 请输入第 " & i & " 名学生成绩 ")) aver = aver + score(i) Print score(i); Next i Print aver = aver / 10 Print " 平均成绩为 :" & aver Print " 高于平均成绩的分数如下 :"

94 84 Visual Basic 程序设计实践教程 For i = 1 To 10 If score(i) > aver Then Print score(i) Next i ' 方法二 : 利用随机函数生成学生成绩 Private Sub Command2_Click() Dim score(1 To 10) As Single, aver!, i% aver = 0 Print "10 个成绩如下 :" Randomize For i = 1 To 10 score(i) = Int(Rnd * 101) ' 通过随机数产生 0~100 的成绩 aver = aver + score(i) Print score(i); Next i Print aver = aver / 10 Print " 平均成绩为 :" & aver Print " 高于平均成绩的分数如下 :" For i = 1 To 10 If score(i) > aver Then Print score(i) Next i ' 方法三 : 利用 Array() 函数赋值 Private Sub Command3_Click() Dim score As Variant, aver!, i% aver = 0 Print "10 个成绩如下 :" score = Array(89, 86, 56, 78, 84, 96, 87, 77, 94, 66) For i = 1 To 10 aver = aver + score(i) Print score(i); Next i Print aver = aver / 10 Print " 平均成绩为 :" & aver Print " 高于平均成绩的分数如下 :" For i = 1 To 10 If score(i) > aver Then Print score(i) Next i ' 方法四 : 利用 Split 函数赋值 Private Sub Command4_Click() Dim score As Variant, aver!, i%, s As String aver = 0 Print "10 个成绩如下 :" s = "89, 86, 56, 78, 84, 96, 87, 77, 94, 66" score = Split(s, ",")

95 第 5 章数组 85 For i = 0 To UBound(score) aver = aver + score(i) Print score(i); Next i Print aver = aver / 10 Print " 平均成绩为 :" & aver Print " 高于平均成绩的分数如下 :" For i = 0 To UBound(score) If score(i) > aver Then Print score(i) Next i 5. 求最大值 ( 最小值 ) 问题 图 5.5 四种输入数据的方法 分析 为了让程序具有通用性, 能对任意个数据进行处理, 可以定义一个动态数 组, 然后在程序运行时, 根据给定的数据个数, 重新定义数组 若想找出数组中最大数, 采用打擂台的方式, 假设第一个数为最大数, 保存在变量 max 中, 然后利用循环将后面的数依次与 max 比较, 若遇到大于 max 的数, 则让 max 存储该数, 循环结束后,max 中存储的数一定是最大值 找最小值采用与找最大值类似的方法, 假设第一个数为最小数, 保存在变量 min 中, 然后利用循环将后面的数依次与 min 比较, 若遇到小于 min 的数, 则让 min 存储该数, 循环结束后,min 中存储的数一定是最小值 本例中假设输入的是整数 步骤 (1) 新建一个 标准 EXE 工程 (2) 设计界面 在窗体上添加一个命令按钮, 设置其 Caption 属性为 找最大 ( 小 ) 值 (3) 添加代码 在单击 找最大 ( 小 ) 值 命令按钮的事件中添加代码, 运行界面如图 5.6 所示 程序代码如下 Private Sub Command1_Click() Dim n As Integer, i As Integer Dim score() As Integer Dim max As Integer, min As Integer n = Val(InputBox(" 请输入数据个数 :")) 科学出版社职教技术出版中心

96 86 Visual Basic 程序设计实践教程 ReDim score(1 To n) For i = 1 To n score(i) = Val(InputBox(" 请输入第 " & i & " 个数据 :")) Next i max = score(1) min = score(1) For i = 2 To n If score(i) > max Then max = score(i) If score(i) < min Then min = score(i) Next i Print " 输入的 " & n & " 数据是 :" For i = 1 To n Print score(i); Next i Print vbcrlf & " 最大值 max="; max Print " 最小值 min="; min 行排序 图 5.6 找最大 ( 小 ) 值 6. 随机产生的 10 个整数存放在数组 sort(1 To 10) 中, 然后用冒泡法按递增的顺序进 步骤 (1) 新建一个 标准 EXE 工程 (2) 在窗体上添加一个 Command 按钮, 在单击按钮的事件中添加代码如下 Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer, sort(1 To 10) As Integer Dim temp As Integer For i = 1 To 10 Randomize sort(i) = Int(Rnd * 100) Next Print " 排序前 :" For i = 1 To 10 Print sort(i); Next Print ' 开始排序 For i = 1 To 9 For j = 1 To 10 - i If sort(j) > sort(j + 1) Then

97 第 5 章数组 87 temp=sort(j): sort(j)=sort(j+1): sort(j+1)=temp End If Next j Next i Print " 排序后 :" For i = 1 To 10 Print sort(i); Next Print (3) 保存工程 (4) 单击 Command1 命令按钮, 显示 10 个数及排序后的结果, 如图 5.7 所示 图 5.7 冒泡法按递增排序 二维数组的定义及应用 一 实验目的 (1) 掌握二维数组的定义方法 (2) 掌握利用循环嵌套对二维数组元素的操作方法 二 实验内容及步骤 1. 编写一个程序, 打印四名同学的英语 数学 法律三门课的考试成绩, 并计算出每个同学的平均成绩 分析 把四名同学的姓名及各科的考试分数分别存入一个一维字符串数组 xm(4) 和一个二维数值数组 a(4, 3) 中, 然后对数组 ( 主要是二维数组 ) 进行处理 运行界面如图 5.8 所示 步骤 (1) 新建一个 标准 EXE 工程 (2) 在窗体上添加一个 Command 按钮, 在单击按钮的事件中添加代码如下 科学出版社职教技术出版中心 Option Explicit Private Sub Command1_Click() Dim a(4, 3) As Single, xm(4) As String * 10, i%, j%, aver! Print Tab(25); " 成绩表 " Print Print " 姓名 "; Tab(15); " 数学 "; Tab(25); " 物理 "; Print Tab(35); " 英语 "; Tab(45); " 平均分 " Print For i = 1 To 4 aver = 0

98 88 Visual Basic 程序设计实践教程 xm(i) = InputBox(" 输入姓名 ") Print xm(i); For j = 1 To 3 a(i,j)=inputbox(" 输入 "&RTrim(xm(i))&" 的第 "& j &" 个成绩 ") aver = aver + a(i, j) Next j aver = aver / 3 Print Tab(15); a(i, 1); Tab(25); a(i, 2); Print Tab(35); a(i, 3); Tab(45); Format(aver, "###.0") Print Next i (3) 保存工程 (4) 单击 Command1 命令按钮, 运行界面如图 5.8 所示 2. 二维矩阵的转置问题 将一个如图 5.9 所示的 3 4 二维数组行与列元素互换, 存到另一个 4 3 的二维数组中 图 5.8 成绩表 图 5.9 二维矩阵的转置 分析 可以定义两个数组, 数组 Arr 为三行四列, 存放指定的 12 个数 数组 Tarr 为四行三列, 通过循环, 将 Arr 数组中的元素 Arr(j,i) 存放到 Tarr 数组中的 Tarr(i, j) 元素 中即可 用嵌套的 For 循环即可完成此任务 步骤 程序代码如下 : Option Explicit Option Base 1 Private Sub Command1_Click() Dim Arr(3, 4) As Integer, Tarr(4, 3) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 1 To 4 Arr(i, j) = i * j ' 给二维数组元素赋值 Next j Next i Print " 原矩阵为 :" For i = 1 To 3 ' 输出原二维数组 For j = 1 To 4 Print Arr(i, j); " ";

99 Next j Print Next i Print " 转置矩阵为 :" For i = 1 To 4 For j = 1 To 3 Tarr(i, j) = Arr(j, i) Print Tarr(i, j); " "; Next j Print Next i 第 5 章数组 89 程序运行结果如图 5.9 所示 3. 编一个程序, 产生一个 5 5 方阵数据, 元素的值为 ( 行下标 2+ 列下标 3), 输出此 5 5 方阵, 并输出方阵中的上三角形和下三角形中元素 程序运行界面如图 5.10 所示 步骤 (1) 新建一个 标准 EXE 工程 (2) 在窗体上添加一个 Command 按钮, 在单击按钮的事件中添加代码如下 Private Sub Command1_Click() Dim sc%(4, 4) Print " 产生 5 5 方阵数据 " For i = 0 To 4 For j = 0 To 4 sc(i, j) = i * 2 + j * 3 Print Tab(j * 5); sc(i, j); Next j Print ' 换行 Next i Print Print " 显示上三角数组元素 " For i = 0 To 4 For j = i To 4 Print Tab(j * 5); sc(i, j); Next j Print Next i Print " 显示下三角数组元素 " For i = 0 To 4 For j = 0 To i Print Tab(j * 5); sc(i, j); Next j Print Next i 图 方阵 科学出版社职教技术出版中心