[计算机类试卷]VB机试模拟试卷126及答案与解析.doc

1、VB机试模拟试卷 126及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在Forml的窗体上画一个名称为 Textl的文本框，然后建立一个主菜单，标题为 “操作 ”，名称为 op，该菜单有两个子菜单，其标题分别为 “显示 ”和 “退出 ”，其名称分别为 Dis和 Exit，编写适当的事件过程。程序运行后，如果单击 “操作 ”菜单中的“显示 ”命令，则在文本框中显示 “等级考试 ”；如果单击 “退出 ”命令，则结束程序运行。程序的运行情况如图 1-201所示。注意： 存盘时必须存放在考生文件夹下，工程文件名为

2、 sjtl vbp，窗体文件名为 sjtl frm。(2)在 Forml的窗体上画一个列表框，名称为 Ll，通过属性窗口向列表框中添加四个项目，分别为 “AAAA”、 “BBBB”、“CCCC”和 “DDDD”，编写适当的事件过程。程序运行后，如果单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图 1-202所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有 一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 0

3、 999之间的 100个整数读入数组 a中； 单击 “计算 ”按钮，则找出这 100个整数中所有水仙花数，并将它们的最大值与最小值分别显示在文本框 Textl、 Text2中。 (注：当一个数的值等于该数中的各位数字的立方和时，此数被成为水仙花数，如 153=13+53+33，所以 153就是一个水仙花数。 )在窗体文件中已经给出了全部控件 (如图 1-168所示 )和 “读数据 ”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程 。要求编写 “计算 ”命令按钮的事件过程。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行 “计算 ”，且必须通过单击窗体右上角

4、的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。请在窗体上画一个组合框，名称为 Cbl，并输入三个列表项： “3”、 “7”、 “11”(列表项的顺序不限，但必须是这三个数字 )：画一个名为 Textl的文本框；再画一个标题为 “计算 ”、名称为 Cl的命令按钮，如图 1-169所示。请编写适当的事件过程，使得程序 运行时，在组合框中选定一个数字后，单击 “计算 ”按钮，则计算 5000以内能够被该数整除的所有数之和，并放入 Textl中。最后，按原文件名存盘。提示：由于计算结果较大，应使用长整型变量。注意：考生不得修改

5、窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体上有两个文本框，名称为Textl、 Text2，都可以多行显示。还有三个命令按钮，名称分别为 Cl、 C2、 C3， 标题分别为 “取数 ”、 “排序 ”、 “存盘 ”。 “取数 ”按钮的功能是把考生目录下的 in5 dat文件中的 50个整数读到数组中，并在 Textl中显示出来； “排序 ”按钮的功能是对这50个数按升序排序，并显示在 Text2中； “存盘 ”按钮的功能是把排好序的 50个

6、数保存到考生目录下的 out5 dat文件中。如图 1-146所示。在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “排序 ”按钮的 Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的 属性。最后把修改后的文件按原文件名存盘。VB机试模拟试卷 126答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE工程，在窗体 Forml中画一个名为 Textl的文本框。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 2-116中

7、的设置建立菜单项。步骤 3：打开代码编辑窗口，编写 “显示 ”和 “退出 ”菜单命令的单击事件过程。 参考代码： PriVate Sub Dis_Click() Textl Text=“等级考试 “ End Sub PriVate Sub Exit_Click() End End Sub 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准EXE”工程，在窗体 Forml中加入一个列表框，在属性设置窗口中将其 Name属性设置为 Ll，在其 List属性中添加四个项目，依次为 “AAAA”、 “BBBB”、 “CCCC”和 “DDDD”。注意：每输入

8、完一项后按键换行再输入下一项。 步骤 2：打开代码编辑窗口，编写列表框的 Click事件过程： 参考代码： PrlVate Sub Ll_C11ck() L1 RemoveItem L1 ListIndex End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 菜单中所包含的每一个菜单项都可看成是一个命令按钮，程序运行时，选择某菜单项将触发其 Click事件。 要实现本题中的功能，应在 “显示 ”菜单项的 Click事件过程中，为文本框的Text属性赋值为 “等级考试 ”，在 “退出 ”菜单项的 Click事件过程中，结束程序的运行。 第 2小题 列表框控件 (

9、ListBox)用于显示可供单一或多个选择的列 表项，给列表框添加列表项既可以在设计阶段通过其 List属性设置加入，也可在程序运行时使用Addltem方法加入。在程序运行时删除列表框中的项目可以使用 Removeltem方法，其语法为：列表框 RemoveRem索引值。其中， “索引值 ”可以指定插入项在列表框中的位置，从 0开始计数。 单击列表框中的某个项目，将触发其 Click事件。要实现单击列表框中的某一项，该项就从列表中消失的功能，只需在 Click事件过程中编写删除项目的语句即可。列表框的 Listlndex属性可返回当前选择的项目的索引号，因此删除选中项目的语句为： L1 Rem

10、oveItem L1 ListIndex。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件sjl3 vbp，在代码编辑窗口的指定位置编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub Command2_Click() Max=a(1) Min=a(1) For i=2 To 100 If isnarc(a(i)=True Then If a(i)Max Then Max=a(i) If a(i)键运行程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 第 2小题

11、 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt4 vbp。 步骤 2：在窗体 Forml中加入一个组合框、一个文本框和一个命令按钮，分别设置它们的相关属性，其属 性及值如表 2-96所示。步骤 3：双击窗体 Forml中的 “计算 ”按钮，打开代码编辑窗口，输入如下代码： 参考代码： Private Sub C1_Click() Dim n As Integer， k As Integer， S As Long n=Val(Cbl Text) S=0 For k=n To 5000 If k n=Int(k n)Then S=S+k End If Next k Textl T

12、ext=S End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按键键运行程序，从列表框 中选择一项，单击“计算 ”按钮，单击程序右上角的关闭按钮结束程序。 【试题解析】 第 l小题 程序设计思路：声明两个变量 max和 min，分别用于记录水仙花数的最大值和最小值，用 For循环逐一取出数组 a中的 100个元素，通过调用函数 isnarc判断其是否为一个水仙花数，若是水仙花数且是第一个找到的水仙花数，则将其同时赋值给 max和 rain，否则将其与变量 max和 rain分别比较大小，并将与 max比较结果中的较大值存入变量 max，将与 rain比较结果中的较小值存入变

13、量 rain。循环结束后，分别将变量 max和 min的值显示在两个文本框。 第 2小题 设计本题代码的思路：单击 “计算 ”按钮时，用 For循环语句循环变量 (如 k值为15000间的所有整数 )的取值逐一除以组合框中当前选择的数值 (Cbl Text)，并将能被该数值整除的整数累加入一个变量 (如 s)。判断整数 A能被整数 B整除的条件表达式为： AModB=O。最后将循环结束时变量 S的值显示在文本框中。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt5 vbp，在代码编 辑窗口的指定位置编写以下代码： 参考代码： PriV

14、ate Sub C1_Click() Dim k As Integer。 Dim ch As String Open App Path&“ in5 dat“For Input As#1 ch=“ For k=1 T0 50 Input #1， a (k ) ch=ch+Str(a(k) +“ Next k Close#1 Textl Text=ch$ End Sub Private Sub C2 Click() Dim k As Integer， i As Integer， j As Integer Dim ch As String For i=1 TO 49 k=i For j=i+1 To

15、 50 If a(k)a(j)Then k=j End If Next j j =a(k) a(k) =a fi) a(i) =j Next i ch=“ For k=1 To 50 ch=ch+Str(a(k) +“ Next k Text2 Text=ch End Sub 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键运行程序，先单击 “取数 ”按钮，再单击 “排序 ”按钮，最后单击“存盘 ”按钮。 【试题解析】 本题的 “取数 ”按钮的单击事件首先利用 Open语句打开考生目录下的 in5 dat文件，然后使用 For循环结合 Input语句将 50个整数读到数组中，并在 Textl中显示出来。 “排序 ”按钮的单击事件过程可以采用选择排序算法，其程序设计思路是：第一趟排序在数组中选出最小的记录 a(k)，将它与第一个记录 a(1)交换，然后第二趟排序在 a(2)a(n)中找出最小的元素，令其与 a(2)交换，以此类推，第 i次排序就是在 a(i) a(n)中找出最小的元素令其与 a(i)交换。这样， n个记录的文件的直接选择排序可经过 n-1趟直接选择排序得到有序结果。