1、VB机试模拟试卷 159及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)请在名称为 Forml的窗体上建立一个二级下拉菜单，第一级共有两个菜单项，标题分别为“文件 ”、 “编辑 ”，名称分别为 file、 edit;在 “编辑 ”菜单下有第二级菜单，含有三个菜单项，标题分别为 “剪切 ”、 “复制 ”、 “粘贴 ”，名称分别为 cut、 copy、 paste。其中 “粘贴 ”菜单项设置：勾无效 (如图 l-206所示 )。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 s
2、jtl frm。 (2)在窗体上画两个文本框，名称分别为 Textl、 Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在 Textl中每输入一个字符，则显示一个 “*”，同时在 Text2中显示输入的内容 (如图 1-207所示 )。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其窗体上有一个名称为 Textl的文本框；一个名称为 Ll的列表框：一个命令按钮，名称为 c1，标题为 “添加 ”(如图 1-1
3、78所示 )。程序的功能是，在运行时，如果在文本框中输入一行内容并单击 “添加 ”按钮，则把文本框中的内容作为列表项添加到列表中。如果单击列表中的某一项，则立即从列表中删除该项。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，请在窗体上画一个文本框，名称为 Textl；画一个命令按钮，名称为 C1，标题为 “确定 ”；再画三个单选按钮，名称分别为Opl、 13102、 Op3，标题分别为 “飞机 ”、 “火车 ”、 “汽车 ”
4、(如图 1-179所示 )。请编写适当的事件过程，使得在运行时，选中一个单选按钮并单击 “确定 ”按钮后，按照表1-5在文本框中显示相应内容。注意：不得修改已经给出的程序。退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须选中一个单选按钮，并单击 “确定 ”按钮。否则无成绩。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp， 窗体上有三个文本框，其名称分别为Textl、 Text2和 Text3，其中 Textl、 Text2可多行显示。请画三个名称分别为Cmdl、 Cmd2和 Cmd3，标题分别为 “产生数组 ”、 “统计 ”和 “退出 ”的
5、命令按钮，如图 1-235所示。程序功能如下： 单击 “产生数组 ”按钮时，用随机函数生成 20个0 10之间 (不含 0和 10)的数值。并将其保存到一维数组 a中，同时也将这 20个数值显示在 Textl文本框内。 单击 “统计 ”按钮时，统计出数组 a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值显示在 Text2文本框内 、出现频率最高的次数显示在 Text3文本框内。 单击 “退出 ”按钮时，结束程序运行。请将程序中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。VB机试模拟试卷 15
6、9答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，利用菜单设计器如表 2-120在窗体上建立一个二级菜单。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一 个 “标准 EXE”工程。 步骤2：在窗体 Forml中加入两个文本框，并分别设置它们的相关属性，属性及值如表2-121所示。 步骤 3：双击 Textl文本框，打开代码编辑窗口，在 Textl的 Change事件过程中输入如下代码： 参考代码： PriVate Sub Text1_Change() Text2 Text=Te
7、xtl Text End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 本题只需按题目要求利用 VB菜单设计器建立一个二级菜单。并且将其中一个菜单项设置为无效 。 第 2小题 为在 Textl中将输入内容显示为 “*”，需将 Textl的 PasswordChar属性值设置为“*”。要实现程序运行时，在 Textl中输入一个字符，就能在 Text2中显示的功能，可在 Textl的 Change事件过程中，加入让 Text2显示内容始终与 Textl保持一致的语句。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题【操作步骤】 步骤 1：打开考生文件下的本
8、题工程文件sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： PriVate Sub C1_Click() L1 Addltem Textl Text End Sub PriVate Sub L1_Click() L1 RemoveItem L1 ListIndex End Sub 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在名为 Forml的窗体上画一个文本框、一个命令按钮和三个单选按钮，并设置它们的相关属性，其属性及值如表 2-101所示。步骤 2：双
9、击 “确定 ”命令按钮，打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： PriVate Sub Cl_Click() If Opl Value Then Textl Text=“需要 1小时 “ ElseIf Op2 Value Then Text1 Text=“需要 10小时 “ ElseIf Op3 Value Then Textl Text=“需要 15小时 “ End If End Sub 步骤 3：按键键运行程序，选择不同选项，单击 “确定 ”按钮，然后单击窗体右上角的关闭按钮退出程序。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 列表框控件 (
10、ListBox)用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List属性设置加入，也可在程序运行时使用AddItem方法加入。在程序运行时删除列表框中的项目可以使用 Removeltem方法，其语法为：列表框 Removeltem索引值。其中， “索引值 ”可以指定插 入项在列表框中的位置，从 0开始计数。 单击命令按钮的时候将文本框中的内容添加到列表框中，可以使用列表框的Addltem方法；单击列表框中的某个项目，将触发其 Click事件。要实现单击列表框中的某一项，该项就从列表中消失的功能，只需在 Click事件过程中编写删除项目的语句即可。列表框的 Li
11、stIndex属性可返回当前选择的项目的索引号，因此删除选中项目的语句为： L1 RemoveItem L1 Listlndex。 第 2小题 本题要求实现当选中不同选项时，单击命令按钮，即在文本框显示出不同信息 的功能。可以在按钮的 Click事件过程中，使用 If语句逐个判断单选按钮当前是否被选中，若选中则在文本框中显示相应内容。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sjt5 vbp，在窗体上画三个命令按钮，属性及其值如表 2-138所示。步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考
12、代码： a(i)=Fix(Rnd*9十 1) For j=1 To i-1 If b(i) fmax Then fmax=b(i) If b(i)=fmax Then End 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 Rnd()函数用于产生一个小于 1但大于或等于 0的随机数值。为了生成某个范围内的随机整数，可使用以下公式： Int(upperbound-lowerbound+1)*Rnd+lowerbound) 这里， upperbound是随机数范围的上限，而 lowerbound则是随机数范围的下限。 本题在 “产生数组 ”按钮的单击事件过程中，通过 For循环生成 20个 0 10之间(不含 0和 10)互不相同的随机数，并存入数组 a，其中生成函数的表达式应为：Fix(Rnd*9+1)。同时初始化 b数组每个元素值为 1。 在 “统计 ”按钮的单击事件过程中，通过双重的 For循环逐一计算出数组 a中的元素重复的次数并计入数组 b的相应元素中，然后从中找出最大值 fmax，循环结束后显示出来。 在 “退出 ”按钮的单击事件过程中，使用 End语句结束整个程序的运行。
