1、VB 机试-试卷 78 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Labell、标题为“列表框的使用”的标签。再画一个名称为Listl 的列表框，列表中含有5 个表项，表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”，并且可以在列表中同时选择多个表项。运行后的窗体如图 1-39 所示。要求：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名
2、为 sjtlfrm。 (2)在名称为。Forml 的窗体上画一个名称为 Imagel 的图像框，其高、宽分别为 2000、3000，且不随图片大小而变化；再画两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为 Cmdl、Cmd2，如图 1-40 所示。需编写两个命令按钮的 Click 事件过程，使得当单击“显示图片”按钮时，将当前文件夹下的图片文件“图片 jpg”显示在图像框中：而如果单击“隐藏图片”按钮，则清除图像框中的图片。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：
3、2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)考生文件夹下的工程文件 sjl3vbp 中有一个菜单、两个标签和两个文本框。程序运行时，用鼠标右键单击窗体会弹出一个弹出式菜单(如图 1-213 所示)。当选中“计算 100 以内自然数之和”菜单项时，将计算 100 以内自然数之和并放入 Textl 中；当选中“计算 7!”菜单项时，将计算 7!并放入 Text2 中。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将
4、程序按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4vbp 中有如图 1-214 所示的控件。程序功能如下：程序运行时，在 Textl 中输入一个商品名称，在 Text7中输入一个数量，单击“计算”按钮，则会在列表框中找到该商品的单价，乘以数量后显示在 Text3 中(如图 1-214 所示)；若输入的商品名称是错误的，则在 Text3 中显示“无此商品”(为方便编程，列表框中的每个单价均为 4 位(含小数点)。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 （分数：2.00）_三、综合应
5、用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm，此外还有一个名为dataintxt 的文本文件，其内容如下：32437658281298573142536475869713243546576879805937 程序运行后单击窗体，将把文件 dataintxt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，并输出矩阵右上左下对角线上的数据，如图 1-70 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉
6、程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：2.00）_VB 机试-试卷 78 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Labell、标题为“列表框的使用”的标签。再画一个名称为Listl 的列表框，列表中含有5 个表项，表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广
7、东”，并且可以在列表中同时选择多个表项。运行后的窗体如图 1-39 所示。要求：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为。Forml 的窗体上画一个名称为 Imagel 的图像框，其高、宽分别为 2000、3000，且不随图片大小而变化；再画两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为 Cmdl、Cmd2，如图 1-40 所示。需编写两个命令按钮的 Click 事件过程，使得当单击“显示图片”按钮时，将当前文件夹下的图片文件“图片 jpg”显示在图像框中：而如果单击“隐藏图片”按钮，则清除图像框中的图片。要求：程
8、序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程。 步骤 2：在窗体Forml 中加入一个列表框和一个标签，并分别如表 2-20 设置它们的相关属性。 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 2-21 在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。 参考代码： PriVa
9、te Sub Cmd1_Click() ImagelPicture=LoadPicture(“图 片jpg“) End Sub PriVate Sub Cmd2_Click() ImagelPicture=LoadPicture() End Sub )解析：解析：第 1 小题 列表框的 MultiSelect 属性用于设置是否可在列表项中做多个选择，值为 O(缺省设置)表示不允许做多项选择，值为 1 表示允许做简单多项选择，值为 2 表示允许配合使用 Shift 键、Ctrl 键做多项选择。 本题的考核要求有两项： 通过列表框的 List 属性设置题中指定的列表项；通过设置 MultiSele
10、ct 属性设置列表框是否允许选择多项。 第 2 小题 为图像框控件指定图片有两种方法：一是在设计阶段通过 Picture 属性设置；二是在程序运行时通过 LoadPicture()图片加载函数加载，其语法为：图片框Picture=LoadPicture(”图像文件路径”)，AppPath，可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的 LoadPicture 函数为对象的 Picture 属性赋值将清除窗体、图片框及图像控件中的图形。Strech(自动伸缩)属性用来设定图像框是否需要自动调整大小，以适应载入图像框中的图片的大小，值为 True 时表示自动调整。 本题
11、需分别在两个命令按钮的 Click 事件过程中，用 LoadPicture()函数为图像框加载或清除图片。二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)考生文件夹下的工程文件 sjl3vbp 中有一个菜单、两个标签和两个文本框。程序运行时，用鼠标右键单击窗体会弹出一个弹出式菜单(如图 1-213 所示)。当选中“计算 100 以内自然数之和”菜单项时，将计算 100 以内自然数之和并放入 Textl 中；当选中“计算 7!”菜单项时，将计算 7!并放入 Text2 中。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去
12、掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4vbp 中有如图 1-214 所示的控件。程序功能如下：程序运行时，在 Textl 中输入一个商品名称，在 Text7中输入一个数量，单击“计算”按钮，则会在列表框中找到该商品的单价，乘以数量后显示在 Text3 中(如图 1-214 所示)；若输入的商品名称是错误的，则在 Text3 中显示“无此商品”(为方便编程，列表框中的每个单价均为 4 位(含小数点)。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考
13、生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案： 第 1 小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If Button=2 Then PopupMenu mypopmenu For k=n TO 1 Step-l Text2=fact(7) 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“
14、?”改为正确的内容。 参考代码： For k=l To ListlListCount-1 name=Left(List1List(k)，n-1) price=Val(Right(ListlList(k)，4) Text3=“无此商品“ 步骤 2：按要求将文件保存至考生文件夹中。)解析：解析： 第 1 小题 鼠标事件分点击事件和状态事件。点击事件有单击事件(Click)和双击事件(DblClick)，不区分左右键；状态事件有按下事件(MouseDown)、移动事件(MouseMove)和弹起事件(MouseUp)。 状态事件涉及 Button、Shift 两个参数：BuRon 参数是一个整数，值
15、可能为 l(左键)、2(右键)或 4(中间键)；Shift 参数也是一个整数，用来代表用户是否按下键(值为 1)、键(值为 2)、键(值为 4)或这些键的组合。 弹出式菜单是显示于窗体之上，独立于菜单栏的浮动式菜单。PopupMenu 方法可在对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。 要创建本题的弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(即 Visible)属性值设置为 False，然后在窗体的 MouseDown(或MouseUp)事件过程中，判断该事件的 Button 参数值是否为 2，若是则执行窗体的 PopupMenu 方法来显示菜单。 在相应菜单项的 C
16、lick 事件过程中，可以调用 fact 函数来计算 71，fact 函数是一个求阶乘的函数，通过 For 循环依次累乘实现。 第 2 小题 本题程序运行时，在文本框中输入商品名称，当单击命令按钮的时候，首先判断该商品是否在列表框中存在。由于列表框中的每一项都是商品名称十空格+单价的组合，因此在循环判断列表框的每一项时，首先找到列表项里面空格的位置，然后取出空格之前的字符就是商品名称，和文本框中输入的数据进行对比，如果一致则说明有此商品，那么取出列表项的后 4 个字符即商品单价进行操作，并且在退出循环的同时令旗帜变量 flag 变为 Tme。当循环结束后，如果 flag 变量的值为 True
17、则证明有此商品，将单价*数量的值显示在文本框中，否则在文本框中显示“无此商品”。三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm，此外还有一个名为dataintxt 的文本文件，其内容如下：32437658281298573142536475869713243546576879805937 程序运行后单击窗体，将把文件 dataintxt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，并输出矩阵右上左下对角线上的数据，如图 1-70 所示
18、。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案： 【操作步骤】 步骤 l：打开本题对应工程文件 sjt5vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Dim Mat(M，N) Open AppPath&“&“in5txt“For_ Input As#1 Input#l，Mat(i，j) If i+j=6 Then 步骤 3：按
19、要求将文件保存在考生文件夹中。)解析：解析：本题原程序的大致设计思路是：程序运行后单击窗体，则打开数据文件 in5txt 并从中读取数据，依次存入二维数组 Mat(下界为 1，上界为 5)的各元素中，故第一个?处是定义数组，应改为：Mat(M，N)?第两个?处是指明打开文件的方式，应改为：For Input：第三个?处是将数据文件中的数据读入并赋值给数组元素，应改为：Input#1，Mat(i，j)。然后用一个嵌套的 For 循环将数组 Mat 中的数据在窗体上按 5 行、5 列的矩阵形式在窗体上显示出来；由于右上到左下对角线上的元素具有行号与列号之和为 6 的特点，可以接着再用一个 For 循环将数组 Mat 中满足 i+j=6 的元素输出，故第 4 个?处应改为Ifi+j=6 Then。
