考点20 Visual Basic综合应用实例《Visual Basic程序设计》内蒙古（对口招生）计算机类 知识点讲解

内蒙古自治区（计算机类）对口招生 《Visual Basic程序设计》复习讲义 模块 12 综合应用实例 考点 20 Visual Basic综合应用实例 【考纲要求】 本考点（综合应用实例）未列入内蒙古自治区 2019 年《计算机类》对口招生考纲。 【知识网络】 【知识和技能要点】 一、MSComm 通信控件的应用 1. MSComm 通信控件与串行通信 在工作中常常需要在计算机与其他设备之间交换数据，串行通信是被广泛采用的一种方式。MSComm 通信控件依靠串行端口收发数据，为应用程序提供串行通信的能力，使用它就能完成对串行端口的各种操作。这个控件不是 Visual Basic 的默认控件，使用时要先从"工程"菜单的"部件"命令中把它添加到窗体上。 2. 事件驱动法与查询法 该控件提供两种通信方式。事件驱动法：每当有一个字符到达、端口状态发生改变或者出现传输错误，控件都会触发 OnComm 事件把它捕捉下来，程序再读取控件的 CommEvent 属性，就能知道发生了什么事件或错误，从而作出相应的处理。查询法则不依赖事件，而是由程序自己在需要的时候读取 CommEvent 属性的取值，据此判断有没有事件发生。 二、简易计算器的设计 1. 计算器的界面构成 简易计算器由窗体、显示用的标签与一组命令按钮组成。窗体与标签用来显示当前输入的数字和运算结果；按钮分成几组：数字键做成一个控件数组，从 0 到 9 共十个成员；加减乘除一类的运算符键也做成控件数组；此外还有小数点键、百分号键与清除键。把同类按钮做成控件数组，就可以让同一组按钮共用同一个事件过程。 2. 计算器的代码设计要点 编写计算器的代码时，一般用模块级变量保存第一个操作数，再用一个标志变量记录上一次按下的是哪一类键：如果上一次按的是运算符键，那么接下来输入的数字就应当作为第二个操作数的开始，而不是接在原来的数字后面。由于各数字键与运算符键都是控件数组，它们的 Click 事件过程都带有 Index 参数，用它来区分究竟按下了哪一个键。 三、在 Visual Basic 中修改 Excel 表格中的数据 1. 引用 Excel 类型库 要让 Visual Basic 程序去操作 Excel 表格，先要在工程中引用 Excel 类型库：单击"工程"菜单中的"引用"命令，在弹出的对话框里勾选 Microsoft Excel 对象库，再单击"确定"。完成这一步之后，程序中才能使用 Excel 提供的各类对象，包括表示应用程序的 Application、表示工作簿的 Workbook 与表示工作表的 Worksheet。 2. 打开表格并给单元格赋值 引用类型库之后就可以编写代码操作表格了。典型做法是：先用 Set 语句与 CreateObject 函数创建 Excel 对象，再调用 Workbooks 集合的 Open 方法打开磁盘上已有的表格文件；接着用 Worksheets 集合取出工作表，通过 Cells 属性按"行号, 列号"定位单元格并赋新值。修改完成后要关闭工作簿、退出 Excel 对象，最后释放对象变量。 【真题】 本考点五年内未命题。 【练习题】 一、填空题 1. MSComm 通信控件通过________端口传输和接收数据；使用时要从"工程"菜单的"________"命令中把它添加进来。 【答案】串行；部件 【解析】MSComm 通信控件依靠串行端口传输和接收数据，为应用程序提供串行通信功能。它并不是 Visual Basic 工具箱中默认就有的控件，使用时必须先单击"工程"菜单中的"部件"命令，在对话框的"控件"选项卡中把它勾选进来，才能在工具箱里找到它并画到窗体上。 2. MSComm 通信控件提供两种通信方式，分别是________与________。 【答案】事件驱动法；查询法 【解析】事件驱动法把通信事件交给 OnComm 事件过程去处理，程序不必一直守着端口，效率较高；查询法则由程序在需要的时候主动读取 CommEvent 属性的取值，判断有没有事件或错误发生。两种方式可以按实际需要选用。 3. 使用事件驱动法时，每当有字符到达、端口状态改变或发生传输错误，控件都会触发________事件；程序通过检查________属性获知发生了什么事件或错误。 【答案】OnComm；CommEvent 【解析】这是 MSComm 通信控件的核心机制：只要通信过程中出现上述任何一种情况，控件就自动触发 OnComm 事件，程序在该事件过程中检查 CommEvent 属性的取值，就能知道究竟发生了什么，从而作出打开端口、接收数据或提示出错等相应的处理。 4. 计算器中的各个数字键通常做成一个________，它们共用同一个________。 【答案】控件数组；事件过程 【解析】把 0 到 9 这十个数字键做成同一个控件数组，它们就共用同一个 Click 事件过程；事件过程带有 Index 参数，用它区分这次按下的是哪一个键。这样只需编写一段代码就能处理十个按钮，程序也短得多。 5. 要让 Visual Basic 程序操作 Excel 表格，先要在"工程"菜单中执行"________"命令引用 Excel 类型库。 【答案】引用 【解析】在"工程"菜单中单击"引用"命令，在弹出的对话框里勾选 Microsoft Excel 对象库并确定，工程就与 Excel 建立了联系。完成这一步之后，程序中才能声明并使用 Excel 提供的 Application、Workbook、Worksheet 等对象去操作表格。 6. 给 Excel 工作表中的单元格赋值时，可以通过________属性按行列号来定位。 【答案】Cells 【解析】Excel 对象模型中用 Cells 属性按行列号指定单元格，写法是 Cells(行号, 列号)，两个参数都从 1 开始编号。把要修改的值赋给该单元格即可完成修改，例如 xlSheet.Cells(6, 2) = "5000公里" 就是把第 6 行第 2 列的内容改掉。 二、单项选择题 1. MSComm 通信控件的作用是（ ） A. 绘制图形 B. 播放声音 C. 通过串行端口传输和接收数据，为应用程序提供串行通信功能 D. 管理数据库 【答案】C 【解析】MSComm 通信控件依靠串行端口传输和接收数据，为应用程序提供串行通信功能，常用于计算机与外部设备之间的数据交换。它不具备绘图、播放声音或管理数据库的功能，那些分别由图形方法、多媒体控件与数据控件来完成。 2. 关于 MSComm 通信控件，下列说法正确的是（ ） A. 它不是 Visual Basic 的默认控件，需要从"工程"菜单的"部件"命令中添加 B. 它是默认控件，打开工具箱就能看到 C. 它只能接收数据不能发送 D. 它只能用于网络通信 【答案】A 【解析】MSComm 属于外挂控件，Visual Basic 启动时工具箱中并没有它，必须先执行"工程"菜单中的"部件"命令把它添加进来。它既能接收也能发送数据，常用于串行端口通信，并不仅限于网络通信。 3. 使用事件驱动法进行通信时，控件触发的事件是（ ） A. Click B. Change C. Load D. OnComm 【答案】D 【解析】事件驱动法依靠 OnComm 事件来捕捉通信过程中的各种情况：每当有一个字符到达、端口状态发生改变或者出现传输错误，控件都会触发该事件。Click 与 Change 是用户操作或内容改变时的事件，Load 是窗体装入内存时的事件，都与通信无关。 4. 在事件驱动法中，程序通过检查（ ）属性来获知所发生的事件或错误。 A. PortOpen B. CommEvent C. Settings D. Input 【答案】B 【解析】在 OnComm 事件过程中检查 CommEvent 属性的取值，就能知道究竟发生了什么事件或错误，进而作出相应的处理。PortOpen 表示端口是否打开，Settings 用于设置通信参数，Input 用于读取接收缓冲区中的数据。 5. 由程序主动检查 CommEvent 属性的值来查询事件或错误的方式称为（ ） A. 事件驱动法 B. 中断法 C. 轮询法 D. 查询法 【答案】D 【解析】查询法不依赖事件过程，而是由程序在需要的时候自己读取 CommEvent 属性的取值来判断有没有事件或错误发生，实现起来简单直观；事件驱动法则由控件在事件发生时主动触发 OnComm 事件通知程序。 6. 计算器中的各个数字键通常做成（ ） A. 普通按钮 B. 标签 C. 控件数组 D. 文本框 【答案】C 【解析】十个数字键功能相似、只是显示的数字不同，把它们做成同一个控件数组最合适：它们共用一个 Click 事件过程，靠 Index 参数区分按下的键。若逐个做成普通按钮，就要为每个按钮单独编写一段几乎相同的代码。 7. 控件数组中的各个控件共用（ ） A. 同一个事件过程 B. 同一个 Caption 属性值 C. 同一个 Index 值 D. 同一个位置 【答案】A 【解析】控件数组中的各个控件共用同一个事件过程，这正是使用控件数组的意义所在。它们的 Caption 属性值可以各不相同，Index 值必须两两不同（否则无法区分），位置当然也各不相同。 8. 控件数组的事件过程用来区分究竟按下了哪一个按钮，靠的是（ ） A. Name 属性 B. Index 参数 C. Caption 属性 D. Text 属性 【答案】B 【解析】控件数组的事件过程在过程名后面带有 Index 参数，它记录的就是触发事件的那个控件在数组中的下标，据此即可判断用户按下的是哪一个按钮。数组内各控件的 Name 完全相同，也可以用 Caption 判断，但标准做法是用 Index。 9. 要让 Visual Basic 程序操作 Excel 表格，应当先（ ） A. 把 Excel 表格改名 B. 把 Excel 表格转成文本文件 C. 在"工程"菜单的"引用"命令中引用 Excel 类型库 D. 关闭 Excel 程序 【答案】C 【解析】要让程序操作 Excel，必须先在工程中引用 Excel 类型库，否则程序里根本无法使用 Excel 提供的各种对象。改名与转成文本文件都不能让程序获得操作 Excel 的能力；关闭 Excel 程序更不是前提条件。 10. 打开磁盘上已经存在的 Excel 表格文件，使用的是（ ） A. Workbooks 集合的 Open 方法 B. "文件"菜单 C. Load 语句 D. Open 语句 【答案】A 【解析】创建 Excel 对象之后，调用它的 Workbooks 集合的 Open 方法就可以打开磁盘上已有的表格文件，参数给出文件的路径与名称。Open 语句是 Visual Basic 打开数据文件的语句，Load 用于装入窗体，都不是操作 Excel 表格的方法。 11. 给 Excel 工作表中的单元格赋值，通常使用（ ）属性来定位单元格。 A. Worksheets B. Cells C. Quit D. Visible 【答案】B 【解析】Excel 对象模型用 Cells 属性按行列号定位单元格，写法是 Cells(行号, 列号)，把值赋给它就完成了修改。Worksheets 是工作表集合，Quit 用于退出 Excel 程序，Visible 用于设置对象是否可见。 12. 修改完 Excel 表格之后，正确的收尾操作是（ ） A. 直接结束程序即可 B. 只关闭工作簿 C. 只退出 Excel 对象 D. 先关闭工作簿、再退出 Excel 对象，最后释放对象变量 【答案】D 【解析】完整的收尾要分三步：先用 Close 方法关闭工作簿（参数 True 表示保存修改），再调用 Quit 退出 Excel 对象，最后用 Set 语句把对象变量设为 Nothing 释放它。只做其中一步会留下未释放的对象或未保存的数据。 三、程序填空题 1. 下列程序创建 Excel 对象、打开已经存在的表格并给指定的单元格赋新值。请补充完整下列程序代码。 Private Sub Command1_Click() Set xlApp = [1]________("Excel.Application") xlApp.Workbooks.[2]________ "d:\dt" Set xlBook = xlApp.Workbooks(1) Set xlSheet = xlBook.Worksheets("sheet1") xlSheet.[3]________(6, 2) = "5000公里" xlBook.Close (True) xlApp.Quit Set xlApp = Nothing End Sub 【答案】[1] CreateObject；[2] Open；[3] Cells 【解析】用 Set 语句把对象赋给对象变量，对象本身则由 CreateObject 函数创建，参数给出要创建的对象类型，故 [1] 处填 CreateObject。要打开磁盘上已经存在的表格文件，应调用 Workbooks 集合的 Open 方法并给出文件路径，故 [2] 处填 Open。要给工作表中的单元格赋值，应通过 Cells 属性按行列号定位，故 [3] 处填 Cells；其中 6 是行号、2 是列号，都从 1 开始编号。 2. 下列程序在命令按钮数组中判断哪一个按钮被按下，并把它的标题显示在标签上。请补充完整下列程序代码。 Private Sub Command1_Click([1]________ As Integer) Label1.Caption = Command1([2]________).Caption End Sub 【答案】[1] Index；[2] Index 【解析】控件数组的事件过程在过程名后的括号中带有一个整型参数，用来接收触发事件的那个控件在数组中的下标，参数名由系统给定为 Index，故 [1] 处填 Index。在过程体中要取出被按下按钮的 Caption 属性，必须用这个下标去引用数组中的相应成员，故 [2] 处填 Index。 原创精品资源学科网独家享有版权，侵权必究 学科网（北京）股份有限公司 $