1、VB机试模拟试卷 134及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在标题为 “文本框 ”、名称为 Forml的窗体上画一个名称为 Textl的文本框，无初始内容，其高、宽分别为 2000、 1800，可显示多行，有水平滚动条，并通过属性窗口把文本框的字体样式设置为 “斜体 ”(如图 1-49所示 )。注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个名称为 Listl的列表框，通过属性窗口输入 4个列表项； “
2、数学 ”、 “物理 ”、 “化学 ”、 “语文 ”，如图 1-50所示。请编写适当的事件过程，使得在装入窗体时，把最后一个列表项自动改为 “英语 ”；单击窗体时，则删除最后一个列表项。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，在程序运行时，单击 “输入整数 ”按钮，可以从键盘输入一个整数， 并在窗体上显示此整数的所有不同因子和因子个数。如图 1-6l(a)是输入 53后的结果，如图 1-61(b)是
3、输入 100的结果。已经给出了全部控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件sjt4 vbp。在其窗体中 “待选城市 ”下的 Listl列表框中有若干个城市名称。程序运行时，选中 Listl中若干个列表项，如图 l-62(a)所示，单击 “选中 ”按钮则把选 中的项目移到 List2中：单击 “显示 ”按钮，则在 Textl文本框中显示这些选中的城市，如图 1-62(b)所示。已经给出了所有控件和程序，但程序不完整。要求：请去掉程
4、序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，请先装入该工程文件，然后完成以下操作：在名称为 Forml的窗体上画三个命令按钮，其名称分别为 C1、 C2和 C3，标题分别为 “读入 数据 ”、 “计算 ”和 “存盘 ”(如图 1-200所示 )。程序运行后，如果单击 “读入数据 ”按钮，则调用题目已提供的 ReadDatal和 ReadData2过程读入datainl txt和 datain2 txt文件中的各 20个整
5、数，分别放入 Arrl和 Art2两个数组中；如果单击 “计算 ”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入三个数组中 (即把第一个数组的第 n个元素除以第二个数组的第 n个元素，结果截尾取整后作为第三个数组的第 n个元素。这里的月为 1， 2， ， 20)，最后计算第三个数组各元素之和，并把所求得 的和在窗体上显示出来；如果单击 “存盘 ”按钮，则调用题目中给出的 WriteData过程将所求得的和存入考生文件夹下的dataout txt文件中。注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果单击 “存盘 ”按钮存入考生文件夹下的 dataout txt文件中，
6、否则没有成绩。最后把修改后的文件以原来的文件名存盘。 VB机试模拟试卷 134答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE“工程，如表2-26在窗体中画出控件并设置其相关属 性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体Forml中加入一个列表框，在属性设置窗口中将其 Name属性设置为 Listl，在其List属性中添加四个项目，依次为 “数学 ”、 “物理 ”、 “化学 ”和 “语文 ”。注意：每输入完一项后按键换行再输入下一项。 步骤 2：
7、打开代码编辑窗口，编写相应的事件过程： 参考代码： Private Sub Form_Click() Listl RemoveItem LiStl LiStCount-1 End Sub Private Sub Form_Load() Listl List(Listl ListCount-1)=“英语 “ End Sub 步骤 3：按要求将文件保存至考生文件夹中。【试题解析】 第 1小题 本题只需按题目要求画出文本框控件并设置其与窗体相应属性。 第 2小题 列表框控件 (ListBox)用于提供可做单一或多项选择的列表项，使用 Addltem或者 RemoveItem方法可以在程序运行时添加或
8、者删除列表框中的项目。 添加项目的语法：列表框 Addlmm项目字符串 ，索引值 。其中 “索引值 ”可以指定添加项在列表框中的位置，从 0开始计数。如果省略 “索引值 ”，则文本被放在列表框的尾部。这一方法只能单个地向表中添加项目。删除项目的语法；列表框 RemoveItem索引值。 程序运行时，自动把列表框最后一项改为 “英语 ”，需要编写窗体的 Load事件；当单击窗体时删除列表框最后一项，最后一项的索引值是 Listl ListCount-l。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗
9、口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n=InputBox(“请输入一个整数 “) If m Mod k=0 Then fun=s 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： FOr k=Listl ListCount-1 To 0 Step-1 List2 AddItern List1 List(k) Listl RemoveItem k Textl=Textl&“&List2 List(
10、k) 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 本题原程序在 “输入整数 ”按钮的单击事件过程中，将接收到的数值赋给变量 n，并通过调用函数 fun，在窗体上显示其所有约数因子，并返回约数因子的个数。函数 fun利用一个 For循环逐一判断 参数 m能否被 1 Abs(m) 2间的整数整除，若能整除，则其为 m的一个约数，将其用 Print方法显示在窗体上，并将记录约数因子个数的变量 s加 l。循环结束时将 s作为函数返回值。 第 2小题 在 “选中 ”按钮的单击事件中，由 Listl的最后一项依次向前进行遍历判断是否被选中，最后一项的索引值是 ListCotmt-
11、1，第一项的索引值是 0，所以应该是反向循环，步长为 -1；在循环体中如果该项被选中，则将其加入 List2中，同时在 Listl中删除这一项。 在 “显示 ”按钮的单击事件中，通过一个 For循环依次 取出 List2中的每一项并将其连接到 Textl中。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件sjt5 vbp，在窗体中如表 2-115画出控件，并设置其属性。步骤 2：在代码编辑窗口编写以下事件过程。 参考代码： Dim Sum As Integer Private Sub Cl_Click() ReadDatal ReadData
12、2 End Sub Private Sub C2_Click() Dim Arr3(20)As Integer Sum=0 For i=1 To 20 Arr3(i)=Int(Arrl(i) Arr2(i) Sum=Sum+Arr3(i) Next i Print“Sum=“； Sum End Sub Private Sub C3_Click() WriteData“Dataout txt“， Sum End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，先单击 “读入数据 ”按钮，然后单击 “计算 ”按钮，最后单击 “存盘 ”按钮。 【试题解析】 本题原程序已提
13、供用于读数的 ReadDatal、 ReadData2和用于写盘的 WriteData几个自定义过程，只需编写 “读入数据 ”、 “计算 ”和 “存盘 ”命令按钮的单击事件过程，并在事件过程中调用 ReadDatal、 ReadData2和 WriteData自定义过程。 程序设计思路：在 “读入数据 ”按钮的 Click事件过程中，通过调用 ReadDatal和ReadData2过程将数据从文件 datainl txt和 datain2 txt中读入到数组 Arrl和Arr2(窗体变量 )中；在 “计算 ”按钮的 Click事件过程中，利用 For循环语句 (循环变量 i的初值为 1，终值为 20)依次将数组 Artl和 Art2同下标的元素相除并截尾取整放入第三个数组中并累加到变量 Sum，循环结束后将 Sum的值显示在窗体上。在“保存 ”按钮的 Click事件过程中，通过调用 WriteData过程将 Sum的值写入数据文件 dataout txt。 注意：调用 WriteData过程时需传递参数 dataout txt和 Sum，变量 Sum应声明为窗体变量。
