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