1、VB 机试-试卷 92 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Listl 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为 File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为 Show，初始状态为选中，运行时的效果如图 1-54 所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sj
2、tlfrm，工程文件名为 sjtlvbp。 (2)新建一个名称为：Forml，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图 1-55 所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2frm，工程文件名为sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有一个工程文件 sjt3v
3、bp，相应的窗体文件为 sit3frm。其功能是产生 20 个01000 的随机整数，放入一个数组中，然后输出这 20 个整数的平均值。程序运行后，单击命令按钮(名称为 Command1，标题为“输出平均值”)，即可求出其平均值，并在窗体上显示出来(如图 1-136 所示)。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sjt5
4、vbp，相应的窗体文件为 sjt5frm，此外还有一个名为dataintxt 的文本文件，其内容如下：32437658281298573142536475869713243546576879805937 程序运行后，单击窗体，将把文件 dataintxt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，然后计算矩阵第三行各项的和，并在窗体上显示出来，如图 1-124 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把
5、修改后的文件按原文件名存盘。 （分数：2.00）_VB 机试-试卷 92 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Listl 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为 File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为 Show，初始状态为选中，运行时的效果如图 1-54 所示。注意：
6、存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtlfrm，工程文件名为 sjtlvbp。 (2)新建一个名称为：Forml，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图 1-55 所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2frm，工程文件名为sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_正确答案：(正确答案：第 l 小题 【操作步骤】 步骤 l：新建一个“标准 E
7、XE”工程，在窗体 Forml 中画一个名为 Listl 的列表框，在其 List 属性中添加三个项目，依次为“北京”、“上海”和“天津”，注意每输入完一项后按 键换行再输入下一项。 步骤 2：新建一个“标准 EXE”工程，选择【工具】【菜单编辑器】命令，打开菜单设计器，如表 2-28 中的设置建立菜单项。 * 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 l：新建一个“标准 EXE”工程，将窗体 Forml 的Caption 属性设置为“使用输入对话框”。 步骤 2：打开代码编辑窗口，编写以下事件过程； 参考代码；PriVate Sub Form_Click(
8、) InputBox“请输入“，“等级考试“，“Basic“ End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：第 l 小题 本题只需按要求画出控件和菜单并设置其相关属性即可。 第 2 小题 InputBoxq()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt【，Title】，Default)。 其中，Prompt 字符串为输入框上显示的提示文本；Title 字符串在输入框的标题栏上显示；Default 字符串为输入框的缺省文本。 本题需在窗体的 Click 事件过程中，编写一行 InputBo
9、x 语句，其中 Prompt 参数值为“请输入”，Title 参数值为“等级考试”，Default 参数值为“Basic”。二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有一个工程文件 sjt3vbp，相应的窗体文件为 sit3frm。其功能是产生 20 个01000 的随机整数，放入一个数组中，然后输出这 20 个整数的平均值。程序运行后，单击命令按钮(名称为 Command1，标题为“输出平均值”)，即可求出其平均值，并在窗体上显示出来(如图 1-136 所示)。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中
10、的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：第 l 小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： arrN(i)=Int(Rnd*1000) Sum=0 Sum=Sum+arrN(i) Aver=Sum20 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 l：打开考生文件下的本题工程文件 sjt4vbp，在代码编辑窗口，编辑Fun 函数的内
11、容。 参考代码： Sum=0 For i=0 T0 200 If i Mod 3=0 Then Sum=Sum+i End If Next i Fun=Sum 步骤 2：按要求将文件保存至考生文件夹中。)解析：解析：第 l 小题 生成 01000 范围内随机整数的表达式为：Int(Rnd*1000)。为求出 30 个随机整数的平均值，可首先预设累加和变量 Sum=O，然后通过 For 循环语句逐一将数组中的各元素累加到 Sum 中，循环结束后 Sum 的值除以数组长度即得到平均值。 第 2 小题 判断整数 A 能被整数 B 整除的条件表达式为：AMod B=0。本题原程序要求编写的 Fun 过
12、程首先预设累加变量 Sum=0，然后通过 For 循环逐一判断循环变量是否能被 3 整除。每找到一个能被 3 整除的数，则将这个数加到累加变量 Sum 中。三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm，此外还有一个名为dataintxt 的文本文件，其内容如下：32437658281298573142536475869713243546576879805937 程序运行后，单击窗体，将把文件 dataintxt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5
13、 列的矩阵形式显示出来，然后计算矩阵第三行各项的和，并在窗体上显示出来，如图 1-124 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案： 【操作步骤】 步骤 l：打开本题对应工程文件 sjt5vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Dim Mat(M，N) Open AppPath&“&“in5txt“For I
14、nput As#1 Input#1，Mat(i，j) Sum=0 Sum=Sum+Mat(3，j) 步骤3：按要求将文件保存在考生文件夹中。)解析：解析：本题原程序的大致设计思路是：程序运行后单击窗体，则打开数据文件 in5txt 并从中读取数据，依次存入二维数组 Mat(下界为 1，上界为 5)的各元素中，故第一个?处是定义数组，应改为：Mat(M，N)；第两个?处是指明打开文件的方式，应改为：For Input 第三个?处是将数据文件中的数据读入并赋值给数组元素，应改为：Input#1，Mat(i，j)。然后用一个嵌套的 For 循环将数组 Mat 中的数据在窗体上按 5 行、5 列的矩阵形式在窗体上显示出来，接着再用一个 For 循环将数组 Mat 中第 l 维下标为 3 的数组元素 arr(3，j)的值累加到变量 Sum，故第 4 个?处是应改为：O，第 5 个?处是应改为：Sum=Sum+Mat(3，j)。最后将 Sum 的值在窗体上显示出来。
