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