1、国家二级 VB机试（上机操作）模拟试卷 218及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 visual Basic应用程序 (包括界而和代码 )。 (1)在名称为 Forml、标题为 “标签 ”的窗体上画一个名称为 Labell的标签，并设置适当属性以满足以下要求： 标签的内容为 “计算机等级考试 ”； 标签可根据显示内容自动调整其大小； 标签带有边框，且标签内容显示为三号字。 运行后的窗体如图2 68所示。 注意：存盘时必须存放在考尘文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个名称为 Hscrolll的
2、水甲滚动条，其刻度范围为 1 100；再画一个名称为 Text1的文本框，初始内容为 1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文奉框中实时显示滚动框的当前位置。运行情况如图 2 69所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sit2 frm。二、简单应用题 2 (1)在考牛目录下有一个工程文件 sit3 vbp，有两个名称分别为 Forml和 Form2的窗体， Forml为启动窗体，程序执行时 Form2不显示。 Forml中有菜单 (如图2 50(a)所
3、示 )，程序运行时，若单击 “格式 ”菜单项，则显示 Form2窗体 (如图2 50(b)所示 )，选中一种字号和字体后单击 “确定 ”按钮，则可改变 Forml上文本框的字号和字体，并使 Form2窗体消失。若单击 “退出 ”菜单项，则结束程序的运行。 文件中已经给出了所有控件和程序，但程序不完整，要求： 1)利用属性窗口设置适当的属性，使 Forml窗体标题栏右上角的最火化按钮、最小化按钮消失 (如图 2 50(a)所示 )： 2)利用属性窗口把 Form2窗体的标题设置为 “格式 ”(如图 2 50(b)所示 )； 3)请去掉程序中的沣释符，把程序中的 ?改为正确的内容。 注意：不能修改
4、程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件 sjt4 vbp，包含了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击 “读入数据 ”按钮，可把考生目录下的文件 in4 dat中的 100个整数读到数组 a中： 2)从名称为 Combol的组合框中选中一项 (如图 2 51所示 )。 3)甲击 “计算 ”按钮，则可按该选项的要求对 a中的数计算平均值 (四舍五入取整或截尾取整 )并放到文本框中。 4)单击窗体右上角的关闭按钮结束程序。 “读入数据 ”按钮的Click事件过程已经给出，请为 “计算 ”按钮编写适当的事什过程实现
5、上述功能。 提示：存放前 n个数之和的变量应使用 Long类型。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。三、综合应用题 3 在考生目录下有一个工程义件 sit5 vbp，其 窗体如图 2 221所示。考生目录下有一个 in5 dat文件，文件中有 5个运动员的姓名、 7个裁判的打分和动作的难度系数。每人的数据占一行，顺序足：姓名、 7个分数、难度系数。程序运行时，单击 “输入 ”按钮，可把 in5 dat文件中的 5个姓名读入数组 athlete中，把 5组得分(每组 7个 )和难度系数读入
6、二维数组 a中 (每行的最后一个元素是难度系数 )，并把这些数据显示在 Text1文本框中；单击 “选出冠军 ”按钳，则把冠军的姓名和成绩分别显示在文本框 Text2、 Text3中。成绩的计算方法是：去掉一个最高分和一个最低分，求 剩下得分的平均分，乘以 3再乘以难度系数；单击 “存盘 ”按钮，则把冠军姓名和成绩存入考生目录下的 out5 dat文件中。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容 (程序中 getmark函数的功能是计算并返回第 n个运动员的最后得分 )，并编写 “选出冠军 ”按钮的 Click事件过程。 注意：不得修改已经存在的程序和控件的属性，在结束程序运行
7、前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 218答案与解析 一、基本操作题 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个标签，并设置它的相关属性，其属性和值如表 3-40所示。步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，存窗体 Form1中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其属件及值如表 3 41所示。步骤 2：打开代码编辑窗口，编写水平滚动条的 Change事件
8、过程。 参考代码： Private Sub HScrolll_Change() Textl Text=HScr0111 Value End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，按表 3 31在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，去掉程序中的注释符一 ”，将问号 “?”改为正确的内容。 参考代码： Form2 ShOW Form1 Textl FontSize； Listl Text Forml Textl FontName=List2 L
9、ist(List2 LiStIndex) Form2 Visible=False 步骤3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，双击 “计算 ”按钮，打开代码编辑窗口编辑计算按钮的单击事件。 参考代码： Private Sub Command2一 Click() Dim i， j As Long If Combol Text=“前 50个数 ”Then j=0 For i=1 To 50 j=j+a(i) Next j=Round(j 50， 0) Text1 Text=j End If If Combol Te
10、xt=“前 80个数 ”Then j=0 For i=1 To 80 j = j +a(i) Next j =Round(j 80， 0) Textl Text=j End If If Combol Text=”所有数 ”Then j=0 For i=1 TO 100 j=j+a(i) Next j=Round(j 100， 0) Textl Text=j End If End Sub 步骤2：按要求将文件保存至考生文件夹中。 步骤 3：运行程序，单击 “读入数据 ”按钮。然后在列表框中选中一项，并单击 “计算 ”按钮获得一个结果，然后使用窗体右 二角的 “关闭 ”按钮结束程序。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： S=a(n， 1) For k=2 To 7 getmark=S*3*a(n， 8) Private Sub Command2 C1ick() 要求考生编写的 程序 Dim k As Integer maxmark=getmark(1) m=1 For k=2 To 5 If maxmark键键运行程序，先单击 “读 入 ”按钮，然后单击 “选出冠军 ”按钮，最后单击 “存盘 ”按钮。
