1、国家二级 VB 机试（上机操作）-试卷 141 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称 checkl 的复选框数组(Index 属性从 0 开始)，含三个复选框，其标题分别为“语文”、“数学”、“体育”，利用属性窗口设置适当的属性，使“语文”未选，“数学”被选中，“体育”为灰色，再把窗体的标题设置为“选课”，如图 3178 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为
2、sjtlfrm。(2)在名称为 Forml 的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为 Command1、Command2，标题分别为“复制”、“删除”。程序运行时，在 Textl 中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击“复制”按钮，则被选中的字符被复制到 Text2 中(如图 3179 所示)。若单击“删除”按钮，则被选择的字符从 Textl 中被删除。请编写两个命令按钮的 C1ick 过程完成上述功能。注意：要求程序中不得使用变量，事件过程巾只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sit2vbp，窗体文件名为s
3、jt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，其功能是：单击“读数据”按钮，则把考生文件夹下 in3dat 文件中的 20 个整数读入数组 a 中，同时显示在 Text1 文本框中；单击“变换”按钮，则数组 a 中元素的位置自动对调(即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调)，并将位置调整后的数组显示在文本框 Text2 中。在窗体文件中已经给出了全部控件(如图 3 一 190 所示)，但程序不完整。要求：完善程序使其实现上述功能。注意：考生不得修改窗体文件中已经存在
4、的控件和程序，在结束程序运行前，必须执行“变换”操作，且必须用窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4vbp，窗体上有两个标题分别为“读数据”和“统计”的命令按钮；两个名称分别为 Text1 和Text2、初始值为空的文本框，如图 3 一 191 所示。程序功能如下：单击“读数据”按钮，则将考生文件夹下 in4dat 文件的内容(该文件中仅含有字母和空格)显示在 Text1 文本框中；在 Text1 文本框中选中内容后，单击“统计”按钮，则自动统计选中文本中从未出现过的字母(统计过程中不区分大小写)，并将这些字母以大写
5、形式显示在 Text2 文本框内。请将“统计”按钮的 Click 事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp，窗体如图 325 所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、6069、7079、8089 及 90100各分数段的人数，将统计结果湿示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。 （分数：2.
6、00）_国家二级 VB 机试（上机操作）-试卷 141 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称 checkl 的复选框数组(Index 属性从 0 开始)，含三个复选框，其标题分别为“语文”、“数学”、“体育”，利用属性窗口设置适当的属性，使“语文”未选，“数学”被选中，“体育”为灰色，再把窗体的标题设置为“选课”，如图 3178 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件
7、名为 sjtlfrm。(2)在名称为 Forml 的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为 Command1、Command2，标题分别为“复制”、“删除”。程序运行时，在 Textl 中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击“复制”按钮，则被选中的字符被复制到 Text2 中(如图 3179 所示)。若单击“删除”按钮，则被选择的字符从 Textl 中被删除。请编写两个命令按钮的 C1ick 过程完成上述功能。注意：要求程序中不得使用变量，事件过程巾只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sit2vbp，窗体文件
8、名为sjt2frm。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程。 步骤 2：在窗体Forml 中加入一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。 步骤 3：按要求分别设置窗体和复选框数组中各元素的相关属性。 步骤 4：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口， 分别编写“复制”和“删除”按钮的单击事件过程。 参考代码： Private Sub Commandl Click() Text2
9、=Text 1SelText End Sub Private Sub Command2 Click() FormlText1SelText=“” End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，其功能是：单击“读数据”按钮，则把考生文件夹下 in3dat 文件中的 20 个整数读入数组 a 中，同时显示在 Text1 文本框中；单击“变换”按钮，则数组 a 中元素的位置自动对调(即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调)，并将位置调整后的数
10、组显示在文本框 Text2 中。在窗体文件中已经给出了全部控件(如图 3 一 190 所示)，但程序不完整。要求：完善程序使其实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行“变换”操作，且必须用窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4vbp，窗体上有两个标题分别为“读数据”和“统计”的命令按钮；两个名称分别为 Text1 和Text2、初始值为空的文本框，如图 3 一 191 所示。程序功能如下：单击“读数据”按钮，则将考生文件夹下 in4dat 文件的内容(该文件中仅含有字
11、母和空格)显示在 Text1 文本框中；在 Text1 文本框中选中内容后，单击“统计”按钮，则自动统计选中文本中从未出现过的字母(统计过程中不区分大小写)，并将这些字母以大写形式显示在 Text2 文本框内。请将“统计”按钮的 Click 事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 l：打开考生文件夹中的工程文件 sjt3vbp 步骤2：打开代码编辑窗口，编写“变换”按钮的单击事件过程。 参考代码： Private
12、 Sub Command2 Click() 考生编写 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：打开考生文件下的本题工程
13、文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If sl=0 Then For i=1 To s1 a(n) =a(n) + 1 For i=1 To 2 6 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp，窗体如图 325 所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、6069、7079、8089 及 90100各分数段的人数，将统计结果湿示在相应的文本框中。结束程序之前，必须单击“保存”
14、按钮，保存统计结果。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： TextlText=n Courtt1=0 count2=0 count3=0 count4=0 count5=0 Count6=0 For i=1 To n Y=Int(arr(i)10) Select 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 Text2Text=count1 Text3Text=count2 Text4Text=count3 Text5Text=count4 Text6Text=count5 步骤 2：按F5键运行程序，先单击“统计”按钮，再单击“保存”按钮。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
