1、国家二级 VB机试（上机操作）模拟试卷 234及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个文本框，其名称分别为 Textl和 Text2，内容分别为 “文本框 1”和 “文本框 2”，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏， Text2显示，如图 2-6(a)所示；如果双击窗体，则 Textl显示， Text2隐藏，如图 2 6(b)所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下， 工程文件名为 sjtl vbo，窗体文件名为 sit1
2、frm。(2)在名称为 Forml的窗体上画一个文本框，其名称为 Text1，初始内容为窄白；再画一个水平滚动条，其名称为HS1， SmallChange属性为 4， LargeChange属性为 10， Min属性为 0， Max属性为200，编写适当的事件过程。程序运行后，如果在文本框内输入一个数值 (0200)，然后单击窗体，则把滚动条的滚动框移到相应的位置，如图 2 7所示。 注意：程序中不要使用变量；存盘时必须存放在考生文件夹下，工程文件名为sit2 vbp，窗 体文件名为 sit2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，请在名称为 Fo
3、rm1的窗体上画一个名称为 Textl的文本框和一个名称为 C1、标题为 “转换 ”的命令按钮，如图 2200所示。在程序运行时，单击 “转换 ”按钮，可以把 Text1中的大写字母转换为小写，把小写字母转换为大写。 窗体文件中已经给出了 “转换 ”按钮的 Click事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。(2)在考生义件夹下有一个工程文件 sjt4 vbp，其功能是： 单击 “读数据 ”命令按钮，把考生文件夹下in4 dat文件中已按升序方式排列的 60个数读入数组 A，并显示在 Text1中
4、； 单击 “输入 ”按钮，弹出一个输入对话框，接收用户输入的任意一个整数；单击 “插入 ”按钮，将输入的数插入 A数组中合适的位置，使其仍保持 A数组的升序排列，最后将 A数组的内容重新显示在 Text1中。在窗体文件中已经给出了全部控件 (如图 2 201所示 )和程序，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。本程序只考 虑插入一个整数的情况。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 三、综合应用题 3 考生文件夹下的工程文件 sjt5 vbp中的窗体如图 2 162所示。考生文件夹下的随机文件 in5 dat中有 20条记录，
5、每条记录含姓名和三个分数 (均为 100以内的正整数 )。在程序中已经定义了类型 Recordtype，此类型变量可以存放一条记录。要求如下： 请为 “计算最大最小值 ”按钮编写 Click事件过程，其功能是：读取文件中的记录，计算每人的总分，找出其中最大总分和最小总分，分别放入变 量maxval， minval中 (这两个变量已经给出，不得修改 )。 运行程序，单击 “计算最大最小值 ”按钮后再单击 “存盘 ”按钮。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须依次单击 “计算最大最小值 ”、 “存盘 ”按钮，否则无成绩。最后，程序按原文件名存盘。国家二级 VB
6、机试（上机操作）模拟试卷 234答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，住窗体中加入两个文本框并设置它们的相关属性，属性及其值如表 33所示。步骤 2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub FormClick() Textl ViSible=False Text2 ViSible=True End Sub Private Sub FormDblClick() Textl ViSible=True Text2 ViSible=False End Sub 步骤 3：按要求将文件保存至考生文件夹
7、中。 第 2小题 【操作步骤】 步骤 1：新建 “标准 EXE”工程，往窗体 Forml中加入一个文本框和一个水平滚动条，分别设置它们的 相关属性，属性及其值如表 3-4所示。步骤 2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub FormClick() HSl Value=Val(Texti Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n
8、=Asc(”a”)一 Asc(”A”) B$=String(1， Asc(B$)+32) Textl TextA 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If nummaxval Then maxval =sumval If sumvalminval Then minval =sumval Next k Close #1 End Sub 步骤 2：运行程序，单击 “计算最大最小值 ”命令按钮，然后单击 “存盘 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中 。
