1、国家二级 VB机试（上机操作）模拟试卷 217及答案与解析 一、基本操作题 1 请根据以下各小题的要求设讣 Visual Basic应川程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建市一个二级下拉菜单 (菜单项见表 2-2)，运行时的窗体如图2-98所示。 注意：存盘时必须存放在考生文件夹下，上程文件名为 sitl vbp，窗体文件名为 sitl frm。(2)在名称为 Forml的窗体上画两个文本框，名称分别为Text1、 Text2，均无初始内容。要求： 通过属性窗口设置适当的属性，使Text1、 Text2中显示的文本的字体为 “隶书 ”； 编写适当的事件过程，使得在
2、Text1中输入每一个 7符时，立即在 Text2中显示 Text1中的内容，如图 2 99所示。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有名称为 Timer1的定时器，以及名称为 Linel和 Line2的两条水平直线。请用名称为 Shapel的形状控件，在两 条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求： 圆的顶端距窗体 Forml顶端的距离为 360； 圆的颜色
3、为红色 (红色对应的值为 &H000000FF&或 &HFF )，如图 2 70所示。程序运行时， Shapel将在 Line1和 Line2之间运动。当Shapel的顶端到达 Linel时，会自动改变方向而向下运动；当 Shapel的底部到达Line2时，会改变方向而向上运动。 文件中给出的程序不完整，请去抻程序中的注释符，把程序中的 ?改为正确内容，使其实现上述功能。 注意：不 能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 (2)在考生义件灾下有一个工程文件 sjt4 vbp，包含了所有控件和部分程序，如图 2 71所示。程序功能如下： 单击 “读数据 ”按钒
4、，可将考生文件夹下 in4 dat文件中的 100个整数读到数组 a中； 单击 “计算 ”按钮，则根据从名称为 Combol的组合框中选中的项目，对数组 a中的数据计算平均值，并将计算结果四舍五入取整后显示存文本框 Text1中。 “读数据 ”按钮的 Click事件过程已经给出，请为 “计算 ”按钮编写适当的事件过程实现上述 功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体有上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 三、综合应用题 3 在考生目录下有一个工程文件 sit5 vbp。窗休左边的图片框名称为 Picturel，框中
5、还有六个小图片框，它们是一个数组，名称为 Pic，住窗体右边从上到下有三个显示不同物品的图片框，名称分别为 Picture2、 Picture3、 Picture4，还有一个文本框 Text1以及四个标签，如图 2 52(a)所示。 程序运行时，可以用 鼠标拖拽的方法把右边的物品放到左边的图片框中 (右边的物品不动 )，同时把该物品的价格累加到Text1中，如图 2 52(b)所示。最多可放六个物品。实现此功能的方法是：程序刚运行时， Picturel中的图片框数组不显示，当拖拽一次物晶时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。 文件中已经给出了
6、所有控件和程序，但程序不完整，请去掉程序中的沣释符，把程序中的 ?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 217答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】步骤 1：新建一个 “标准 EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表 3 55所示。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画两个文奉框，并分别设置它们的相关属性，其属性及值如表3 56所示。 步骤 2：打开
7、代码编辑窗口，编写 TextI的 Change事件过程。 参考代码： Prvate Sub TextlChange() Text2 Text=Textl Text End Sub 步骤 3：按要求将文件保存币考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的奉题工程文件sit3。 vbp在窗体上两条水平直线间画一个形状控件，并如表 3 42设置其属性。步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=True If Shapel Top=Lin2 Y1 Then 步骤
8、 3：按要求将文 件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，在代码编辑窗口，编写 “计算 ”按钮的单击事件过程以及三个自定义过程。 参考代码： Private Sub Command2一 Click() Select Case Combol ListIndex Case 0 Text： l=lverl() Case 1 Textl=odd() Case 2 Text； 1=all() End Select： End Sub Function even() Dm s As Single， rl As“rnteger s=0 Fo
9、r k=1 To 100 1f a(k) 2=Fix(a(k) 2)Then s=s+a(k) n=n+1 End If Next s=s n even=CInt(s) End Function Function odd() Dim s As Single n As Integer s=0 For k=1 To 100 Tf a(k) 2Fix(a(k) 2)Then s=s+a(k) n=n+1 End Tf Next s=s n odd=CInt(s) End Function Function all() Dim s As Single， n As rnteger s=0 For k=1
10、 To 100 s=s+a(k) Next s=s 100 all=CInt(s) End Function 步骤 2：按键运行程序，先单击 “读数据 ”按钮，然后选择组合框中的一项再单击 “计算 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将义件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sits vbp。 步骤 2：在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Select Case SourCe Name For k=0 To 5 If Pic(k) Visible=FalSe Then Pic(k) Visible=True Textl=Text1+a 步骤 3：按要求将文件保存至考生文件夹中。
