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