1、国家二级 VB机试（上机操作）模拟试卷 293及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “列表框练习 ”的窗体上画一个名称为 List1的列表框，表项内容依次输入 xxx、 ddd、 mmm和 aaa，且以宋体 14号字显示表项内容，如图 3102(a)所示。最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图 3102(b)所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1 frm，工程文 件名为 sjt1 vbp。(2)在名称为 Form1的窗体
2、上，画一个名称为 Label1的标签，其标题为 “计算机等级考试 ”，字体为宋体，字号为 12号，且能根据标题内容自动调整标签的大小。再画两个名称分别为 Command1、Command2，标题分别为 “缩小 ”和 “还原 ”的命令按钮 (如图 3103所示 )。要求：编写适当的事件过程，使得单击 “缩小 ”按钮， Label1中所显示的标题内容自动减小两个字号；单击 “还原 ”按钮， Label1所显示的标题内容的大小自动恢复到 12号。注意：存盘时，将文件保存至考生文件夹下，窗体文件 名为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写一条语
3、句。二、简单应用题 2 (1)考生文件夹下的工程文件 sjt3 vbp中有一个初始内容为空、且带有垂直滚动条的文本框，其名称为 Text1：两个标题分别为 “读数据 ”和 “查找 ”的命令按钮，其名称分别为 Cmd1、 Cmd2。请画一个标题为 “查找结果 ”的标签 Label1，再画一个名称为 Text2，其初始内容为空的文本框，如图 3104所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in3 dat文件中 已按升序排列的 30个整数读入一维数组 a中，并同时显示在 Text1文本框内； 单击 “查找 ”按钮，将弹出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提
4、示重新输入。如果接收的偶数超出一维数组 a的数值范围，则无须进行相应查找工作，直接在 Text2内给出结果；否则，在一维数组 a中查找该数，并根据查找结果在 Text2文本框内显示相应信息。命令按钮的 Click事件过程已给出，但 “查找 ”按钮的 Click事件过程不完整，请将其中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已 经存在的控件和程序，最后程序按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4 vbp中有一个初始内容为空的文本框Text1，一个包含三个元素的文本框控件数组 Text2，两个标题分别是 “读数据 ”和“统计 ”的命令
5、按钮，两个分别含有三个元素的标签控件数组 Label1和 Label2，如图 3105所示。程序功能如下： 考生文件夹下 in4 dat文件中存有 20个考生的考号及数学和语文单科考试成绩。单击 “读数据 ”按钮，可以将 in4 dat文件内容读入到 20行 3列的二维数组 a中，并同时显示在 Text1文本框内； 单击 “统计 ”按钮，则对考生数学和语文的平均分在 “优秀 ”、 “通过 ”和 “不通过 ”三个分数段的人数进行统计，并将人数统计结果显示在控件数组 Text2中相应位置。其中，平均分在85分以上 (含 85分 )为 “优秀 ”，平均分在 60 85分之间 (含 60分 )为 “通
6、过 ”，平均分在 60分以下为 “不通过 ”。命令按钮的 Click事件过程已经给出，但 “统计 ”按钮的Click事件过程不完整，请将其中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 三、综合 应用题 3 考生文件夹下的工程文件 sjt5 vbp中有一个初始内容为空的文本框 Text1，两个标题分别是 “读数据 ”和 “计算 ”的命令按钮；请画一个标题为 “各行平均数的最大值为 ”的标签 Label2，再画一个初始内容为空的文本框 Text2，如图 3106所示。程序功能： 单击 “读数据 ”按钮，则将
7、考生文件夹下 in5 dat文件的内容读入 20行5列的二维数组 a中，并同时显示在 Text1文本框内； 单击 “计算 ”按钮，则自动统计二维数组 a中各行的平均数，并将这些平均数中的最大值显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给出，请编写 “计算 ”按钮的 Click事件过程实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用 “计算 ”按钮进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 293答案与解析 一、基本操作题 1 【正确答案】 第
8、 1小题步骤 1：新建一个 “标准 EXE”工程，如表 462在窗体中画出控件并设置其相关属性。 步骤2：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE”工程，如表 463在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的 Click事件过程。参考代码： Private Sub Command1_Click()Label1 FontSize=Label1 FontSize-2End SubPrivate Sub Command2_Click()Label1 FontSize=12End Sub步骤 3：按要求将文件保存至考生文件夹中。
9、 【试题解析】 第 1小题：本题只需新建窗体和控件，然后设置相关属性即可。 第 2小题：程序运行时要改变标签的标题的字体大小，可通过修改其 FontSize属性值来实现。 二、简单应用题 2 【正确答案】 第 1小题 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If num 2 Fix(num 2)Then If num a(1)Or num a(30)Then If a(n)=num Then If n 30Then 步骤 2：按要 求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生
10、文件夹中的本题工程文件 sjt4 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Avg=(a(i， 2)+a(i， 3) 2 Case Is =85 Case60To84 End Select Text2(n-1)=x(n) 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：在 “查找 ”按钮的单击事件中，首先使用变量 num接收输入框的值，然后判断 num是否为偶数，如果为奇数 (hum 2 Fix(num 2)则提示错误信息；由于数组 a是升序排列的，因此如果 num的值小于 a(1)或嚣大于 a(30)则意味着超出范围
11、：接下来使用 For循环遍历整个数组，如果某次循环中数组元素等于 num的值则意味着找到，可以退出循环；当循环结束后如果 n的值大于 30则表明循环是正常结束的，没有找到这个元素。 第 2小题：本题要求编写 “统计 ”按钮的单击事件过程。程序设计思路：在一个 For循环中逐一取出存于数组 a中的各学生成绩，将同一行的两个成绩取平均值后用Select Case语句对平均值进行判断，根据成绩所属情况，使对 应的 x数组元素中的数增 1，最后显示在文本框数组中。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在窗体Form1中画一个标签和一个文本框，其
12、属性及值如表 464所示。步骤 2：打开代码编辑窗口，在指定位置编写以下代码。参考代码： For i=1To20Sum=0For j=1To5Sum=Sum+a(i，j)NextAvg=Sum 5If i=1ThenMax=AvgElseIf Max Avg ThenMax=AvgEnd IfNext步骤 3：按 F5键运 行程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 本题可利用一个嵌套的 For循环来完成计算工作：在外循环 (循环变最的取值为 1 20)体中，先初始设置记录每行数据之和的变量 Sum的初值为0，接着通过内循环 (循环变量的取值为 1 5)体完成对每行数据的累加工作。内循环结束后，用表达式 Avg=Sum 5计算出该行的平均值。如果是第一次执行外循环的循环体，则将当前 Avg的值记录在变量 Max中，否则仅在其他行 Avg值大 于Max的值时，才将其记录在变量 Max中。嵌套 For循环结束时，变量 Max的值即为每行平均数中的最大值，将其显示在文本框 Text2中。
