1、国家二级 VB机试（上机操作）模拟试卷 243及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml，标题为 “考试 ”的窗体上画一个名称为 Combol、初始内容为空的下拉式组合框。下拉列表中有 “隶书 ”、 “宋体 ”和 “楷体 ”三个项目。运行后的窗体如图2 188所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画两个文本框，其名称分别为 Text1、 Text2，初始内容都为空，显示为三号字，且Tex
2、t1的初始状态为不可用；再画一个名称为 Command1、标题为 “开始 ”的命令按钮，如图 2-189所示。 要求：编写适当的事件过程，使得单击 “开始 ”按钮后， Text1文本框变为可用状态，且在 Text1文本框中输入字母串时， Text2文本框中用大写字母彤式显示 Text1文本框中的内容。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，相应的窗体文件为 sjt3 frm。其功能是产生 20个 0 1000
3、的随机整数，放入一个数组中，然后输出这 20个整数中小于 500的所有整数之和。程序运行后，单击命令按钮 (名称为 Commandl，标题为“输出小于 500的整数之和 ”)，即可求出这些整数的和，并在窗体上显示出来 (如图2 224所示 )。这个程序不完整，清把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把科序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原 文件名存盘。(2)在考生文件夹下有一个工程文件 sit4 vbp，相应的窗体文件为 sit4 frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 0 1
4、00范围内所有偶数的平方和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 FunctionFun0和 End Function之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考 生文件夹下有一个工程文件 sit5 vbp，窗体上有两个标题分别是 “读数据 ”和“统计 ”的命令按钮。请画两个标签，名称分别为 Labell和 Label2，标题分别为 “出现次数最多的字母是 ”和 “它出现的次数为 ”；再画两个名称分别为 Text1和 Tex
5、t2、初始值为空的文本框，如图 2 167所示。 程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中 (此过程已给出 )： 单击 “统计 ”按钮，则自动统计 in5 dat文件中所含各字母 (不区分大小写 )出现的次数，并将出现次数最多的字母显示 在 Text1文奉框内，它所出现的次数显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给出，请为 “统计 ”按钮编写适当的事件过程以实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
6、最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 243答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3-99在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体Forml中画两个文本框，并分别设置它们的相关属性，其属性及值如表 3-100所示。 步骤 2：打开代码编辑窗口，编写 Text1的 Change事件过程和命令按钮的单击事件过程。 参考代码： Private Sub CommandlClick()
7、Textl Enabled=True End Sub Private Sub Textl Change() Text2 Text=UCase(Textl Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： arrN(i)=Int(Rnd*1000) Sum=0 If arrN(i)=“A”And CMax Then Max=a(i) t=Chr(AsC(“A”)+i一 1) End If Next i Text1 Text=t Text2 Text=Max End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，先单击 “读数据 ”按钮，接着单击 “统计 ”按钮，然后单击窗体右上角的关闭按钮结束程序。
