1、国家二级 VB机试（上机操作）模拟试卷 101及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “显示记录 ”的窗体上画一个名称为 Text1的文本框，其初始内容为空；再画一个名称为 Commandl的命令按钮数组 (下标从 0开始，有 4个按钮，其对应的标题分别为 “上一条记录 ”、 “下一条记录 ”、 “第一条记录 ”、 “最后一条记录 ”)，程序执行时的效果如图 3-183所示，且程序执行时按下回车键则相当于、单击 “下一条记录 ”按钮。请设 置相应属性。注意：存盘时，将文件保存至考
2、生文件夹下，且窗体文件名为 sjtl frm，工程文件名为 sitl vbp。(2)在名称为 Forml的窗体上，画一个名称为 Labell的标签，其标题为 “等级考试 ”，能根据标题内容自动调整标签的大小，外观如图 3 184所示。再画一个名称为 Timerl的计时器，其 Interval属性设为 0， Enabled属性设为True。要求：编写窗体 I oad事件过程和计时器 Timer事件过程，使得程序运行时，每隔一秒标签交替隐藏或显示一次。注意：存盘时，将文件保存至考生文件夹下，窗体 文件名为 sit2 frm，工程文件名为 sit2 vbp。要求程序中不得使用变量，每个事件过程中只能
3、写一条语句 (不得使用选择语句或循环语句 )。二、简单应用题 2 (1)在考生文件夹中有工程文件 sjt3 vbp，其巾的窗体如图 3 127所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中 “查找最大值 ”(或 “查找最小值 ”)单选按钮，再单击 “查找 ”按钮，则找出数组中的最大值 (或最小值 )，并显示在标签 Label2中。请去掉程序中的注释符，把程序巾的 ?改为正确的内容。注意：考生不得修改窗体文件中已经存在 的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件 sit4 vbp。窗体上已有控件，如图 3一 128所示。请在属性窗口中将 List
4、l设置为可以多项选择 (允许使用Shift键或 Ctrl键进行选择 )列表项。要求：双击 List1中的某一项时，该项目被添加到 List2中，同时在 List1中清除该项目。若单击 “”按钮， List1中所有的项目显示在 List2中 (List2中已有项目不变 )， List1中的内容不变。要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的 ?改为正确的内容 。注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是：
5、 如果单击 “读数据 ”命令按钮，则把考生文件夹下 in5 dat文件中两组已按升序方式排列的数 (每组 30个数 )分别读入数组 A和 B，并分别将它们显示在 Text1、 Text2中； 如果单击 “合并 ”命令按钮，则将 A、 B两个数组合并为另一个按升序方式排列的数组 C，并将合并后数组 C中的数据依升序方式 显示在 Text3中。窗体中给出了所有控件 (如图 3 142所示 )以及 “读数据 ”命令按钮的 Click事件过程，请完善 “合并 ”命令按钮的 Click事件过程，使其实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右
6、上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 101答案与解析 一、基本操作题 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，窗体中用 “复制 ”和 “粘贴 ”画出控件数组并按要求设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口编写窗体的 Load事件和计时器的 Thner事件过程。 参考代码： Private Sub Form Load() Timerl Int
7、erval=1000 End Sub Private Sub Timerl Timer() Labell ViSible=Not Labell Visible End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Optionl Value=True Then If a(i)=X Then X=a(i) End If ElseIf a(i)y Then Y=a(i) End If 步
8、骤 2：按要求 将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： L2 AddItem L1 LiSt(L1 LiStIndex) L1 RemoveItem L1 LiStIndex For i=0 To Listl LiStCount一 1 Call MoveItem(LiSt1， LiSt2) 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步 骤】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp。
9、 步骤 2：编写 “合并 ”按钮的单击事件过程。 参考代码： Private Sub Command2 Cl ick() 考生编写程序开始 ia=1： ib=1： ic=1 Do While ia=30 And ib=3 0 If a(ia) b(ib)Then c(ic)=a(ia)： ia=ia+1 Else c(ic) =b(ib)： ib=ib+1 End If ic= ic+ 1 Loop Do While ia=30 c(ic)=a(ia)： ia=ia+1： ic=ic+1 Loop Do While ib=3 0 c(ic) =b(ib) ： ib=ib+1 ： ic=ic+1 Loop 考生编写程序结束 -以下程序将合并后的数组 c显示在 Text3中 For k=1 To 60 Text3=Text3+Str(c(k)+Space(2) Next k End Sub 步骤 3：运行程序，单击 “读数据 ”按钮，然后单击 “合并 ”按钮获得结果，然后通过窗体右上角的 “关闭 ”按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
