1、国家二级 VB机试（上机操作）模拟试卷 253及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画 1个命令按钮，其名称为 C1，标题为 “等级考试 ”；再画 1个文本框，名称为 T1，如图 2-107(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中华显示出来，如图 2 107(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjtl frm，上程文件名为 sjtl vbp。(2)在名称
2、为Forml、标题为 “菜单演示 ”的窗体上画一个名称为 Label1、标题为空的标签：再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 2 108(a)所示。请编写适当的程序，使得选中 “输出窗体标题 ”菜单项时，就在标签中显示窗体标题；选中 “输出当前时间 ”菜单项时，在标签中显示当前系统时问 (如图 2 108(b)所示 )。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsi3 vbp，相应的窗体义件为 vbs
3、j3 frm，在窗体上有一个标题为 “计算 ”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组 arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图 2 55所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr中每个元素与其下标干目除所得的和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。 说明
4、：数组 arr中共有 40个元素， “数组 arr中每个元素与其下标相除所得的和 ”，是指： arr(1)1+arr(2) 2+arr(3) 3+arr(40) 40 (2)在考生文件夹下有一个工程文件vbsj4 vbp。程序运行后，如果单击 “开始 ”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每 0 5秒移动一次。当图片完伞移出窗体的右边界时，立即再从窗体的左边界开始重新移动，荇单击 “停止 ”按钮则图片停止移动，如图2 56所示。在窗体义件中已经给出了全部控件，但程序不完整要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件
5、属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上面有两个名称分别为Text1、 Text2的义本框，其中 Textl可多行显示。请画两个名称为 Commandl、Command2，标题为 “产生数组 ”、 “查找 ”的命令按钮。如图 2 216所示。程序功能如下： 单击 “产生数组 ”按钮，则用随机函数生成 10个0 100之间 (不含 0和 100)互不相同的数值，并将它们保存到一维数组 a中，同时也将这 10个数值显示在 Text1文本框内； 单击 “查找 ”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组
6、a中查找该数，若查找失败。则在Text2文本框内显示该数 “不存在于数组中 ”；否则显示该数在数组中的位置。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 国家 二级 VB机试（上机操作）模拟试卷 253答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个文本框和一个命令按钮，设置相关属性，其属性及值如表 3 60所示。 步骤 2：打开代码编辑窗口，编写文本框的 Change事件过程。 参考代码： P
7、rivate Sub T1一 Change() C1 ViSible=False T1 Text=C1 Caption End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表361在窗体中画出控件并设置其相关属性步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，按表 3 62中的设置建立菜单项。步骤 3：打开代码编辑窗口，编写两个底层菜单命令的单击事件过稗。 参考代码： Private Sub ClockClick() Labell Caption=Time End Sub Private Sub Titl
8、eClick() Labell Caption=Forml Caption End Sub 步骤 4：按要求将文件保 存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 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
9、) i Next Fun=sum End Function 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的工程义件 vbsj4 vbp。 步骤 2：进入代码编辑窗口，去掉柙序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Trnrl Enabled=False Tmrl rnterval=500 If Picl r,eftMe Width Then Picl Left=0 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sjt5 vbp，在窗体上画两个命令按钮，属性及其值如表 3 114所示。步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： a(i)=Fix(Rnd*99+1) For j=1 To i1 i=i一 1 If a(i)=num Then If i10 Then 步骤 3：按要求将文件保存至考生 文件夹中。
