1、国家二级 VB机试（上机操作）模拟试卷 105及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称 checkl的复选框数组 (Index属性从 0开始 )，含三个复选框，其标题分别为 “语文 ”、 “数学 ”、 “体育 ”，利用属性窗口设置适当的属性，使 “语文 ”未选， “数学 ”被选中， “体育 ”为灰色，再把窗体的标题设置为 “选课 ”，如图 3178所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Fo
2、rml的窗体上画两个文本框，名称分别为 Text1、 Text2，再画两个命令按钮，名称分别为 Command1、Command2，标题分别为 “复制 ”、 “删除 ”。程序运行时，在 Textl中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击 “复制 ”按钮，则被选中的字符被复制到 Text2中 (如图 3179所示 )。若单击 “删除 ”按钮，则被选择的字符从 Textl中被删除。请编写两个命令按钮的 C1ick过程完成上述功能。注意：要求程序中不得使用变量，事件过程巾只能写一条语句。存盘时必 须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sjt2 frm。二
3、、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 20个整数读入数组 a中，同时显示在 Text1文本框中； 单击 “变换 ”按钮，则数组 a中元素的位置自动对调 (即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调 ) ，并将位置调整后的数组显示在文本框 Text2中。在窗体文件中已经给出了全部控件(如图 3一 190所示 )，但程序不完整。要求：完善程序使其实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行“变换 ”操作，且
4、必须用窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4 vbp，窗体上有两个标题分别为 “读数据 ”和 “统计 ”的命令按钮；两个名称分别为 Text1和 Text2、初始值为空的文本框，如图 3一 191所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in4 dat文件的内容 (该文件中仅含有字母和空 格 )显示在 Text1文本框中； 在 Text1文本框中选中内容后，单击 “统计 ”按钮，则自动统计选中文本中从未出现过的字母 (统计过程中不区分大小写 )，并将这些字母以大写形式显示在 Text2文本框
5、内。请将 “统计 ”按钮的 Click事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，窗体如图 3 25所示。运行程序时，从数据文件中读取学生的成绩 (均为整数 )。要求编写程序，统计总人数，并统计不及格、 60 69、 70 79、 80 89及 90 100各分数段的人数，将统计结果湿示在相应的文本框中。结束程序之前，必须单击 “保存 ”按钮，保存统计结果。注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将
6、统计结果显示在文本框中，再按 “保存 ”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 105答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Forml中加入一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含三个元素的复选框数组。 步骤 3：按要求分别设置窗体和复选框数组中各元素的相关属性。 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编
7、辑窗口， 分别编写 “复制 ”和 “删除 ”按钮的单击事件过程。 参考代码： Private Sub Commandl Click() Text2=Text 1 SelText End Sub Private Sub Command2 Click() Forml Text1 SelText=“” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开考生文件夹中的工程文件 sjt3 vbp 步骤 2：打开代码编辑窗口，编写 “变换 ”按钮的单击事件过程。 参考代码： Private Sub Command2 Cli
8、ck() 考生编写 For i=1 To 1 0 temp=a(i) a(i) =a(2 0 一 i + 1) a(2 0一 i+1)=temp Next i 以下程序段将已变换的数组元素显示在 Text2文本框中 For k=1 T0 2 0 Text2=Text2+Str(a(k) +SpaCe(2) Next k End Sub 步骤 3：按 键运行程序，先单击 “读数据 ”按钮，然后单击 “变换 ”按钮。 步骤 4：单击窗体右上角的关闭按钮以结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：打开考生文件下的本题工程文件 sjt4 vbp，在代码
9、编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If sl=0 Then For i=1 To s1 a(n) =a(n) + 1 For i=1 To 2 6 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Textl Text=n Courtt1=0 count2=0 count3=0 count4=0 count5=0 Count6=0 For i=1 To n Y=Int(arr(i) 10) Sel
10、ect Case y Case 1 ,2 , 3 , 4 , 5 count1=count 1+1 CaSe 6 count2=count2+1 CaSe 7 count3=count3+1 CaSe 8 count4=count4+1 Case 9， 10 count5=count5+1 End Select Next Text2 Text=count1 Text3 Text=count2 Text4 Text=count3 Text5 Text=count4 Text6 Text=count5 步骤 2：按 键运行程序，先单击 “统计 ”按钮，再单击 “保存 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
