1、国家二级 VB机试（上机操作）模拟试卷 176及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上面一个名称为 Combol的组合框，其宽度为 1200，其类型如图2 102所示 (即简单组合框 )。要求如下： 请按图中所示，通过属性窗口输入 “北京 ”、 “上海 ”、 “广州 ”、 “深圳 ”。 设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。 注意：存盘时必须存放在考生文件夹下，上程文件名为sjtl vbp，窗体文件 名为 sjtl frm。 (2)在名称为 Forml的窗体
2、上画两个文本框，名称分别为 Text1、 Text2，再画两个命令按钮，名称分别为 Command1、Command2，标题分别为 “左 ”、 “有 ”，如图 2103。要求：编写适当的事件过程，使得程序运行时，单击 “左 ”按钮，则焦点位于 Text1上；单击 “有 ”按钮，则焦点位于 Text2上。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsi3 vbp，相应的窗体义件为 vbsj3 frm，在窗体上有一个标题为 “计算 ”的
3、命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组 arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图 2 55所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr中每个元素与其下标干目除所得的和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编 写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。 说明：数组 arr中共有 40个元素， “数组 a
4、rr中每个元素与其下标相除所得的和 ”，是指： arr(1)1+arr(2) 2+arr(3) 3+arr(40) 40 (2)在考生文件夹下有一个工程文件vbsj4 vbp。程序运行后，如果单击 “开始 ”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每 0 5秒移动一次。当图片完伞移出窗体的右边界时，立即再从窗体的左边界开 始重新移动，荇单击 “停止 ”按钮则图片停止移动，如图2 56所示。在窗体义件中已经给出了全部控件，但程序不完整要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三
5、、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其名称为 Forml的窗体上已有三个文本框 Text1、 Text2、 Text3，以及程序。请完成以下工作： 在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴 板使用，窗体如图 2一152所示； 建立下拉式菜单，见表 2-3。 窗体文件中给出了所有事什过程，但不完整，请上掉程序中的注释符，把程序中的 ?改为正确内容。以便实现以下功能：当光标所在的文本框中无内容时， “剪切 ”、“复制 ”不可用，否则可以把该文本框中的内容剪切或复制到 Text3中：若 Text3中无内容，则 “粘贴 ”不能用，否则可以把
6、 Text3中的内容粘贴在光标所在的文本框中的内容之后。 注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 176答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个组合框，在属性设置窗口中设置其相关属性，属性及其值如表3 57所示。 步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画两个文本框和两个命令按钮，分别设置其相关属性，属性及值如表 3
7、-58所示。程序界面如图 3-6所示。步骤 2：双击 “左 ”命令按钮，打开代码编辑窗口，在按钮 的 Click事件过程中输入代码。 步骤 3：从代码编辑窗口的 “对象 ”下拉列表中选择 Command2，从 “事件 ”下拉列表选择 Click，编写以下事件过程。 参考代码： Private Sub CommandlClick() Textl SetFocus End Sub Private Sub Command2一 C1 ick() Text2 SetFocus End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1
8、：打开考生 文件夹下的工程文件 vbsj3 vbp。 步骤 2：进入代码编辑窗口，在 Function Fun()和 End Function之间输入以下代码： 参考代码： Function Fun(a()As Single)As Single Dim slim As Single Dim i As Integer For i=LBound(a)To UBound(a) sum=sum+a(i) i Next Fun=sum End Function 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的工程义件 vbsj4 vbp。 步骤 2：进入
9、代码编辑窗口，去掉柙序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Trnrl Enabled=False Tmrl rnterval=500 If Picl r,eftMe Width Then Picl Left=0 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确 答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sit5 vbp，选中窗体中的文本框 Text3，将其 Visible属性为 False。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 3 82的内容建立窗体菜单。 步骤 3：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If which=1 Then If which=2 Then Textl Text=Textl Text+Text3 Text Text2 Text=Text2 Text+Text3 Text 步骤 4：按要求将文件保存至考生文件夹中。
