1、国家二级 VB 机试（上机操作）-试卷 42 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画 1 个命令按钮，其名称为 C1，标题为“等级考试”；再画 1 个文本框，名称为 T1，如图 2-107(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中华显示出来，如图 2107(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为
2、sjtlfrm，上程文件名为 sjtlvbp。 (2)在名称为 Forml、标题为“菜单演示”的窗体上画一个名称为 Label1、标题为空的标签：再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 2108(a)所示。 请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时问(如图2108(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 vbsi3vbp，相应的窗体义件为 vbsj3frm，在窗
3、体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组 arr 中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图 255 所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr 中每个元素与其下标干目除所得的和的操作在通用过程 Fun 中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。 说明：数组 arr
4、中共有 40 个元素，“数组 arr 中每个元素与其下标相除所得的和”，是指：arr(1)1+arr(2)2+arr(3)3+arr(40)40 (2)在考生文件夹下有一个工程文件 vbsj4vbp。程序运行后，如果单击“开始”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每 05 秒移动一次。当图片完伞移出窗体的右边界时，立即再从窗体的左边界开始重新移动，荇单击“停止”按钮则图片停止移动，如图 256 所示。在窗体义件中已经给出了全部控件，但程序不完整 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，其窗体上面有两个名称
5、分别为 Text1、Text2 的义本框，其中 Textl 可多行显示。请画两个名称为 Commandl、Command2，标题为“产生数组”、“查找”的命令按钮。如图 2216 所示。程序功能如下： （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 42 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画 1 个命令按钮，其名称为 C1，标题为“等级考试”；再画 1 个文本框，名称为 T1，如图 2-107(a)所示
6、。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中华显示出来，如图 2107(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjtlfrm，上程文件名为 sjtlvbp。 (2)在名称为 Forml、标题为“菜单演示”的窗体上画一个名称为 Label1、标题为空的标签：再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 2108(a)所示。 请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时问(如图2108(b)所示)
7、。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Form1 中画一个文本框和一个命令按钮，设置相关属性，其属性及值如表 360 所示。 步骤 2：打开代码编辑窗口，编写文本框的 Change 事件过程。 参考代码： Private Sub T1 一 Change() C1ViSible=False T1Text=C1Caption End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按表 36
8、1 在窗体中画出控件并设置其相关属性 步骤 2：选择【工具】【菜单编辑器】命令，打开菜单设计器，按表 362 中的设置建立菜单项。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 vbsi3vbp，相应的窗体义件为 vbsj3frm，在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组 arr 中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图 255 所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr 中每个元素与其下标干目除所得的和的操作在通用过程 Fun 中实现，请编写
9、该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。 说明：数组 arr 中共有 40 个元素，“数组 arr 中每个元素与其下标相除所得的和”，是指：arr(1)1+arr(2)2+arr(3)3+arr(40)40 (2)在考生文件夹下有一个工程文件 vbsj4vbp。程序运行后，如果单击“开始”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每 05 秒移动一次。当图片完伞移出窗
10、体的右边界时，立即再从窗体的左边界开始重新移动，荇单击“停止”按钮则图片停止移动，如图 256 所示。在窗体义件中已经给出了全部控件，但程序不完整 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 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) s
11、um=sum+a(i)i Next Fun=sum End Function 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹下的工程义件 vbsj4vbp。 步骤 2：进入代码编辑窗口，去掉柙序中的注释符“”，将问号“?”改为正确的内容。 参考代码： TrnrlEnabled=False Tmrlrnterval=500 If Piclr,eftMeWidth Then PiclLeft=0 步骤 3：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，其窗体上面有两个名称分别为 Text1、Text2 的义本框，其中 Textl 可多行显示。请画两个名称为 Commandl、Command2，标题为“产生数组”、“查找”的命令按钮。如图 2216 所示。程序功能如下： （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在窗体上画两个命令按钮，属性及其值如表 3114 所示。 )解析：
