1、VB机试模拟试卷 168及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在标题为 “列表框 ”、名称为。 Form1的窗体上画一个名称为 Listl列表框，通过属性窗口输入四个列表项： “数学 ”、 “语文 ”、 “历史 ”、 “地理 ”，列表项采用 “复选框形式 ”，如图 1-16所示。列表框的宽为 1100，高不限。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上建立一个名称 为 “menul”、标题为 “文件 ”的
2、弹出式菜单，含有三个菜单项，它们的标题分别为 “打开 ”、 “关闭 ”、 “保存 ”，名称分别为 “m1”、 “m2”、“m3”。再画一个命令按钮，名称为 “Commandl”、标题为 “弹出菜单 ”。要求：编写命令按钮的 Crick事件过程，使程序运行时，单击 “弹出菜单 ”按钮即可弹出 “文件 ”菜单 (如图 1-17所示 )。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体上已经有两个文本框，名称分别为
3、 Textl、 Text2;一个命令按钮，名称为 Cl，标题为 “确定 ”；请画两个单选按钮，名称分别为 Opl、 Op2，标题分别为 “男生 ”、 “女生 ”；再画两个复选框，名称分别为 Chl、 Ch2，标题分别为 “体育 ”、 “音乐 ”。请编写适当的事件过程，使得在运行时，单击 “确定 ”按钮后实现下面的操作： 根据选中的单选按钮，在 Textl中显示 “我是男生 ”或 “我是女生 ”。 根据选中的复选框，在 Text2中显示 “我的爱好是体育 ”、 “我的爱好是音乐 ”或 “我的爱好是体育音乐 ”，如图 1-3所示。注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必
4、须选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。 (2)在考生文件夹下有一个工程文件 sjl4 vbp。窗体上有一个名称为 Listl的列表框，名称为 Timerl的计时器，名称为 Labell的标签，如图 1-4所示。请通过属性窗口向列表框添加四个项目，分别是“第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”。程序运行后，将计时器的时间间隔设置为 1秒钟，每 一秒钟从列表框中取出一个项目显示在 Labell的标签中，首先显示“第一项 ”，然后，依次显示 “第二项 ”、 “第三项 ”、 “第四项 ”，如此循环。在给出的窗体
5、文件中已经有了全部控件和程序，但不完整，请添加 Listl中的项目，去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，请先装入该工程文件，然后完成以下操作：在名称为 Forml的窗体上画三个命令按钮，其 名称分别为 Cl、 C2和 C3，标题分别为 “读入数据 ”、 “计算 ”和 “存盘 ”(如图 1-155所示 )。程序运行后，如果单击“读入数据 ”按钮，则调用题目已提供的 ReadDatal和 ReadData2过程读入data
6、inl txt和 datain2 txt文件中的各 20个整数，分别放入 Arrl和 Arr2两个数组中；如果单击 “计算 ”按钮，则把两个数组中对应下标的元素相整除。其结果放入第三个数组中 (即第一个数组的第 n个元素整除第二个数组的第 n个元素，其结果作为第三个数组的第 n个元素。这里的 n为 1， 2， ， 20)，然后计算第三 个数组各元素之和，并把所求得的和在窗体上显示出来：如果单击 “存盘 ”按钮，则调用题目中给出的 WriteData过程将所求得的和存入考生文件夹下的 dataout txt文件中。注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果单击 “存盘 ”按钮存
7、入考生文件夹下的 dataout txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。 VB机试模拟试卷 168答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，如表2-11在窗 体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，选择【工具】 【菜单编辑器】命令，打开菜单设计器。如表 2-12中的设置建立菜单项。步骤 2：在窗体上画一个名为 Commandl，标题为 “弹出菜单 ”的命令按钮，打开代码编辑窗口，编写
8、 “弹出菜单 ”按钮的单击事件过程。 参考代码： PriVate Sub Commandl_Click() Forml PopupMenu menul End Sub 步骤 3：按要求将文件保存至考生文 件夹中。 【试题解析】 第 1小题 本题只需按题目要求画出文本框控件并设置其与窗体相应属性。 第 2小题 本题的考核要求有两项： 设计菜单命令及其相关属性。 调用打开菜单方法。 本题主要考查对菜单编辑器的操作和调用菜单的 Popupmenu方法，该方法调用格式为：对象 Popupment菜单名。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 l：打开考生文件夹下
9、的本题工程文件sjt3 vbp。 步骤 2；在窗体 Forml中加入两个单选按钮 和两个复选框，分别设置它们的相关属性，属性及其值如表 2-3所示。步骤 3：打开代码编辑窗口输入如下代码： 参考代码： Private Sub C1_Click() Dim a As String a=“我是 “ If Opl Value Then Textl Text=a&Opl Caption E1se Textl Text=a&Op2 Caption End If a=“我的爱好是 “ If Chl Value=1 Then Text2 Text=a&Chl Caption a=Text2 Text End
10、 If If Ch2 Value=1 Then Text2 Text=a&Ch2 Caption End If End Sub 步骤 4：按键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 第 2小题 【审题分析】要实现本题中的功能，在窗体的 Load事件过程中，令全局变量 i的初值为 0， 然后设置计时器的 Interval属性为 1000并启用计时器；在计时器的 Timer事件中把列表框的第 i项显示在标签中，接下来令 i+l，一旦 i超过了 3就将其重新置 0以便实现循环显示。
11、【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，通过属性窗口向列表框添加四个项目，分别是： “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”。 步骤 2：在代码编辑窗口，去掉程序中的注释符们 ”，将问号 “?”改为正确的内容。 参考代码： i=0 Timer1 Interval=1000 Label1 Caption=Listl List(i) 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 某容器 (如窗体和框架 )中的单选按钮 (OptionButton)组常用于提供多个选项之间的唯一选择，其 Value属性用于设置或返回每个单选按
12、钮的选中状态：值为 False时表示未被选中，值为 True时表示被选中，其 Caption属性来设置或返回单选按钮的标题内容。 分支控制结构是结构化程序设计的基本结构之一，它所要解决的是根据条件判断的结果决定程序执行的流向。选择控制结构就是其中一种，它是由两个分支构成的，就是说 ，条件要么是真，要么是假，没有其他的选择。在执行结构时按照所指定的条件进行判断并选择其中一组语句来执行。 If语句就是一种选择控制结构，其一般语法为： If条件 Then 语句块 A Else 语句块 B End If 功能：判断条件，如果条件为 “真 ”，则执行语句块 A部分，反之则执行语句块 B部分。 根据题目要
13、求，在本题的程序设计上，首先以 Opl是否选中作为 IfThenElse语句的条件，由此分出两种情况： Opl被选中或 Op2被选中。在条件为真 (即 Op1被选中 )时文本框 l中显示 “我是男 生 ”，否则显示 “我是女生 ”：接下来分别判断两个复选框是否选中并相应在文本框 2上显示内容。以上判断和显示操作均在 Cl的Click事件中完成。 第 2小题 要实现本题中的功能，在窗体的 Load事件过程中，令全局变量 i的初值为 0，然后设置计时器的 Interval属性为 1000并启用计时器；在计时器的 Timer事件中把列表框的第 i项显示在标签中，接下来令 i+l，一旦 i超过了 3就
14、将其重新置 0以便实现循环显示。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sit5 vbp，在窗体中如表 2-87画出控件，并设置其属性。步骤 2：在代码编辑窗口编写以下事件过程。 参考代码： Dim Sum As Integer Private Sub C1_Click() ReadDatal ReadData2 End Sub Private Sub C2_C1ick() Dim Arr3(20)As Integer Sum=0 For i=1 To 20 Arr3(i)=Int(Arrl(i) Arr2(i) Sum=Sum+A
15、rr3(i) Next i Print“Sum=“； Sum End Sub Private Sub C3_Click() WriteData“Dataout txt“， Sum End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，先单击 “读入数据 ”按钮，然后单击 “计算 ”按钮，最后单击 “存盘 ”按钮。 【试题解析】 本题原程序已提供用于读数的 ReadDatal、 ReadData2和用于写盘的 writeData几个自定义过程，只需编写 “读入数据 ”、 “计算 ”和 “存盘 ”命令按钮的单击事件过程，并在事件过程中调用 ReadDatal、 Rea
16、dData2和 Wnt0Dam自定义过程。 程序设计思路：在 “读入数据 ”按钮的 Click事件过程中，通过调用 ReadDatal和ReadDam2过程将数据从文件 datainl txt和 datain2 txt中读入到数组 Awl和Arr2(窗体变量 )中；在 “计算 ”按钮的 Click事件过程中，利用 For循环语句 (循环变量 i的初值为 l，终值为 20)依次将数组 Awl和 An2同下标的元素相整除放入第三个数组中并累加到变量 Sum，循环结束后将 Sum的值显示在窗体上。在 “保存 ”按钮的 Click事件过程中，通过调用 WriteData过程将 Sum的值写入数据文件dataout txt。 注意：调用 WfiteData过程时需传递参数 dataout txt和 Sum，变量 Sum应声明为窗体变量。
