1、国家二级 VB机试（上机操作）模拟试卷 78及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1，标题为 “考试 ”的窗体上画一个名称为 Combo1、初始内容为空的下拉式组合框。下拉列表中有 “隶书 ”、 “宋体 ”和 “楷体 ”三个项目。运行后的窗体如图 3-188所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上画两个文本框，其名称分别为 Text1、 Text2，初始内容都为空，显示为三号字，且 Text
2、1的初始状态为不可用；再画一个名称为Command1、标题为 “开始 ”的命令按钮，如图 3-189所示。 要求：编写适当的事件过程，使得单击 “开始 ”按钮后， Text1文本框变为可用状态，且在 Text1文本框中输入字母串时， Text2文本框中用大写字母形式显示 Text1文本框中的内容。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 20
3、个整数读入数组 a中，同时显示在 Text1文本框中； 单击 “变换 ”按钮，则数组 a中元素的位置自动对调 (即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调 ) ，并将位置调整后的数组显示在文本框 Text2中。 在窗体文件中已经给出了全部控件 (如图 3-190所示 )，但程序不完整。 要求：完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序 ，在结束程序运行前，必须执行 “变换 ”操作，且必须用窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，窗体上有
4、两个标题分别为 “读数据 ”和“统计 ”的命令按钮：两个名称分别为 Text1和 Text2、初始值为空的文本框，如图3-191所示。 程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in4 dat文件的内容 (该文件中仅含有字母和空格 )显示在 Text1文本框中； 在 Text1文本框中选中内容后，单击 “统计 ”按钮，则自动统计选中文 本中从未出现过的字母 (统计过程中不区分大小写 )，并将这些字母以大写形式显示在 Text2文本框内。 请将 “统计 ”按钮的 Click事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件
5、和程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，在该工程文件中已经定义了一个学生记录类型数据 StudType。有三个标题分别为 “学号 ”、 “姓名 ”和 “平均分 ”的标签；三个初始内容为空，用于接收学号、姓名和平均分的文 本框 Text1、 Text2和 Text3；一个用于显示排序结果的图片框。还有两个标题分别为 “添加 ”和 “排序 ”的命令按钮，如图 3-192所示。程序功能如下： 在 Text1、 Text2和 Text3三个文本框中输入学号、姓名和平均分后，单击 “添加 ”按钮，则将输入内容存入自定义的学生记录类型
6、数组 stud中 (注：最多只能输入 10个学生信息，且学号不能为空 )； 单击 “排序 ”按钮，则将学生记录类型数组 stud中存放的学生信息，按平均分降序排列的方式显示在图片框中，每个学生一行，且显示三项信息。 请将 “添加 ”按钮、 “排序 ”按钮的 Click事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 78答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按要求设计程序界面，并设计相关属性即可。 操作步骤 步骤 1：新建一个
7、 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 选择控件。 2 【正确答案】 审题分析 本题考查考生对文本框控件常用属性和事件的掌握。要使文本框在初始情况下就没有内容，需在设计时通过属性设置窗口将其 Text属性值设置为空白。要实现程序运行时单击按钮即使 Text1变为可用，需要在按钮的单击事件中令Text1 Enabled=True；要想实现在 Text1中输入的任何字符，立即用大写字母显示在 Text2中的功能，可在 Text1的 Change事件过程中，执行将 Text1中显示内容转大写后赋值给 Text2的语句。 操作步骤 步骤
8、 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写 Text1的 Change事件过程和命令按钮的单击事件过程。 参考代码： Private Sub Command1_Click() Text1 Enabled=True End Sub Private Sub TexT1_Change() Text2 Text=UCase(Text1 Text) End Sub 步骤 3：按要求将文件保存至 考生文件夹中。 考点链接 文本控件。 二、简单应用题 3 【正确答案】 审题分析 数组 a中元素的位置自动对调 (即第一个数组元素与最后一个数组元素对调，
9、第二个数组元素与倒数第二个数组元素对调 ) 可以在一个循环中进行，即第 i个元素和第 20-i+1个元素互换，问题的关键是循环的次数应该是 10次而不是 20次。 操作步骤 步骤 1：打开考生文件夹中的工程文件 sjt3 vbp 步骤 2：打开代码编辑窗口，编写 “变换 ”按钮的单击事件过程。 参考代码： Private Sub Command2_Click() 考生编写 For i=1 To 10 temp=a(i) a(i)=a(20-i+1) a(20-i+1)=temp Next i 以下程序段将已变换的数组元素显示在 Text2文本框中 For k=1 To 20 Text2=Tex
10、t2+Str(a(k)+Space(2) Next k End Sub 步骤 3：按 键运行程序，先单击 “读数据 ”按钮，然后单击 “变换 ”按钮。 步骤 4：单击窗体右上角的关闭按钮以结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 考点链接 数组定义与操作、 For循环结构。 4 【正确答案】 审题分析 本题在 “统计 ”按钮的单击事件过程中，先检查是否选中文本框 Text1中的内容 (if语句条件表达式为： s1=0或 st=-“ “)，若没选择内容则弹出提示信息，否则通过For循环逐一取出选中内容的每个字符 (故循环终值为 s1)，并计算出其中每个大写字母在 26个字母中的顺序
11、，赋值给变量 n，数组元素 a(n)则记录顺序号为 n的字母出现的次数。再通过 For循环逐一检查 26个字母 (循环终值为 26)的出现次数是否为 0(即 a(i)=0)，将出现次数为 0的字母显示在文本框 Text2中。 操作步骤 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If s1=0 Then For i=1 To s1 a(n)=a(n)+1 For i=1 To 26 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 数组定义与操作、 For循环结构。 三、综合应用题 5 【正
12、确答案】 审题分析 单击 “添加 ”按钮时先检查当前已输入学生信息数 n是否已达到 10条，若没达到10条，则标记变量 tag in=0表示允许添加信息 (且学生信息数 n增 1)，否则 tag in=1。当 tag in=0时，接着检查是否输入学号，若没输入学号则提示用户输入，且学生信息数 n应减 1(即 n=n1)；若已输入学号，则将该学生信息存入记录数组元素 stud(n)，其中保存学号的语句 为： stud(n) Num=Text1。 在 “排序 ”按钮的单击事件过程中，源程序利用 “冒泡法 ”对记录数组中的元素按平均分从大到小进行排序。故该事件过程中，第一个 ?处应改为： j+1，第二个 ?处应改为： Average，第三个 ?处应改为： stud(j)。最后在 For循环中，用图片框的 Print方法在图片框中显示每个学生的 3项信息。 操作步骤 步骤 1：打开考生文件下的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n=n-1 stud(n) Num=Text1 For k=j+1 To n If stud(k) Average stud(j) AVerage Then stud(k)=stud(j) 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 变量、运算符和表达式、数组定义与操作。
