1、国家二级 VB 机试（上机操作）-试卷 33 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上面一个名称为 Combol 的组合框，其宽度为 1200，其类型如图 2102 所示(即简单组合框)。要求如下：请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。 设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。 注意：存盘时必须存放在考生文件夹下，上程文件名为 sjtlvbp，窗体文件名为 sjtl
2、frm。 (2)在名称为 Forml 的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为 Command1、Command2，标题分别为“左”、“有”，如图 2103。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 vbsi3vbp，相应的窗体义件为 vbsj3frm，在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组 arr 中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图 255 所示。在窗体的代码窗口中，已给出了部分程序，其中计算数
3、组 arr 中每个元素与其下标干目除所得的和的操作在通用过程 Fun 中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。 说明：数组 arr 中共有 40 个元素，“数组 arr 中每个元素与其下标相除所得的和”，是指：arr(1)1+arr(2)2+arr(3)3+arr(40)40 (2)在考生文件夹下有一个工程文件 vbsj4vbp。程序运行后，如果单击“开始”按钮，
4、则图片自左向右移动，同时滚动条的滑块随之移动，每 05 秒移动一次。当图片完伞移出窗体的右边界时，立即再从窗体的左边界开始重新移动，荇单击“停止”按钮则图片停止移动，如图 256 所示。在窗体义件中已经给出了全部控件，但程序不完整 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，其名称为 Forml 的窗体上已有三个文本框Text1、Text2、Text3，以及程序。请完成以下工作： 在属性窗口中修改 Text3 的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图 2 一 152 所示； 建立下拉式菜单，见表 2-3
5、。 窗体文件中给出了所有事什过程，但不完整，请上掉程序中的注释符，把程序中的?改为正确内容。以便实现以下功能：当光标所在的文本框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到 Text3 中：若 Text3 中无内容，则“粘贴”不能用，否则可以把 Text3 中的内容粘贴在光标所在的文本框中的内容之后。 注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 33 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据
6、以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上面一个名称为 Combol 的组合框，其宽度为 1200，其类型如图 2102 所示(即简单组合框)。要求如下：请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。 设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。 注意：存盘时必须存放在考生文件夹下，上程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forml 的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为 Command1、Comm
7、and2，标题分别为“左”、“有”，如图 2103。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Forml 中画一个组合框，在属性设置窗口中设置其相关属性，属性及其值如表 357 所示。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Forml中画两个文本框和两个命令按钮，分别设置其相关属性，属性及值如表 3-58 所示。程序界面如图 3-6 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 vb
8、si3vbp，相应的窗体义件为 vbsj3frm，在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组 arr 中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图 255 所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr 中每个元素与其下标干目除所得的和的操作在通用过程 Fun 中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最
9、后把修改后的文件按原文件名存盘。 说明：数组 arr 中共有 40 个元素，“数组 arr 中每个元素与其下标相除所得的和”，是指：arr(1)1+arr(2)2+arr(3)3+arr(40)40 (2)在考生文件夹下有一个工程文件 vbsj4vbp。程序运行后，如果单击“开始”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每 05 秒移动一次。当图片完伞移出窗体的右边界时，立即再从窗体的左边界开始重新移动，荇单击“停止”按钮则图片停止移动，如图 256 所示。在窗体义件中已经给出了全部控件，但程序不完整 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：
10、打开考生文件夹下的工程文件 vbsj3vbp。 步骤 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：打开考生文件夹下的工程义件 vbsj4vbp。 步骤 2：进入代码编
11、辑窗口，去掉柙序中的注释符“”，将问号“?”改为正确的内容。 参考代码： TrnrlEnabled=False Tmrlrnterval=500 If Piclr,eftMeWidth Then PiclLeft=0 步骤 3：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，其名称为 Forml 的窗体上已有三个文本框Text1、Text2、Text3，以及程序。请完成以下工作： 在属性窗口中修改 Text3 的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图 2 一 152 所示； 建立下拉式菜
12、单，见表 2-3。 窗体文件中给出了所有事什过程，但不完整，请上掉程序中的注释符，把程序中的?改为正确内容。以便实现以下功能：当光标所在的文本框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到 Text3 中：若 Text3 中无内容，则“粘贴”不能用，否则可以把 Text3 中的内容粘贴在光标所在的文本框中的内容之后。 注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5vbp，选中窗体中的文本框 Text3，将其 Visible 属性为 False。 步骤 2：选择【工具】【菜单编辑器】命令，打开菜单设计器，如表 382 的内容建立窗体菜单。 )解析：
