1、国家二级 VB机试（上机操作）模拟试卷 109及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 VisuaI Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个文本框，名称为 Textl，字体为 “黑体 ”，文本框中的初始内容为 “程序设计 ”；再画一个命令按钮，名称为 C1，标题为 “改变字体 ”(如图3168所示 )。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为 “宋体 ”。程序中不得使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sitl frm。(2)在名称为 F
2、orml的窗体上画一个图片框，名称为 P1，高为1800，宽为 1600，并放入文件名为 picl bmp的图片 (如图 3169所示 )。请编写适当的事件过程，使得在运行时，如果双击窗体，则图片框巾的图片消失。程序中不得使用任何变量。注意：保存时必须放放在考乍文件灾下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsi3 vbp，相应的窗体文件为 vbsi3 frm，在窗体上有一个标题 为 “计算 ”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组 ari。中每个元素与其下标相除所得的和，并在文本框
3、中显示出来，程序的运行情况如图 3-55所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr中每个元素与其下标相除所得的和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。 最后把修改后的文件按原文件名存盘。 说明：数组 art中共有 40个元素， “数组 arr中每个元素与其下标相除所得的和 ”，是指： arr(1) 1+arr(2)2+arr(3) 3+arr(40)
4、 40 程序源码 :Optlon Base 1FunctiOn Fun(a() As Single) As Single 由考生编写 =End FunctionPrivate Sub cmdCal Click() Dim arr Dim arr2(40) As Single arr=Array(12 5， 65 4， 5 6， 73， 4 6 2 3， 58 25， 83 4 9， 9 6， 27 3， 36 7 8， 2 9 2 6， 8 9 4， 34 7， 45 4， 56 9， 67 4， 7 8， 98， 87 5， 7 6 8， 34 6， 55 8， 64 7， 4 3 7， 9
5、 9 4， 8 4 7， 6 6 2， 2 3 9， 5 5 5， 4 4 1， 3 3 2， 4 3 5， 4 1 2， 2 8 3， 7 8 6， 98 3， 5 6 1， 7 3 6， 4 9 3， 4 8 3) For i=1 To UBound(arr) arr2(i)=arr(i) Next i r=Fun(arr2() txtResult Text=Str(r) SaveDataEnd SubSub SaveData() Open “out3 txt” For Output As #1 print #1， txtResult Text Close 1End Sub(2)在考生文件
6、夹下有一个工程文件 vbsj4.vbp。程序运行后，如果单击 “开始 ”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每 0 5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击 “停止 ”按钮，则图片停止移动，如图 3 56所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序源码： Private Sub cmdStart Click() Tmr1 Enabled=TrueEnd SubPrivate
7、 Sub cmdStop Click()Tmr1.Enabled=?End SubPrivate Sub Form IJoad() Hsbl Min=0 Hsbl Ha x=Me WidthTmrl.Interval=?End SubPrivate Sub Tmrl Timer() Picl Left=Picl Left+200If Picl.Left?ThenPicl,Left=? End If HScrolll Value=Picl LeftEnd Sub 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，其名称为 Forml的窗体上已有三个文本框 Textl、 Text
8、2、 Text3，以及程序。请完成以下工作： 在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图3 152所示； 建立下拉式菜单，见表 3 3。 窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确内容。以便实现以下功能：当光标所在的文本框中无内容时， “剪切 ”、 “复制 ”不可用，否则可以把该文本框中的内容剪切或复制到 Text3中；若 Text3中无内容，则 “粘贴 ”不能用，否则可以把 Text3中的内容粘贴在光标所在的文本框中的内容之后。注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件
9、按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 109答案与解析 一、 基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置相应属性。 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub C1 Click() Me Textl Font Name=“宋体 ” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写窗体的双击事件过程。 参考代码：
10、Private Sub Form DblClick() P1 picture = L,oadPicture(“”) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 vbsj3 vbp。 步骤 2：进入代码编辑窗口，在 Function Fun()和 EndFunction之间输入以下代码： 参考代码： Function Fun(a()As Single)As Single Dim sum As Single Dim i AS Inteqer For i=LBound(a)To UBou
11、nd(a) sum=sum+a(i) i Next Fun=Sum End Function 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 vbs4 vbp。 步骤 2：进入代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Tmr1 Enabled=FalSe Tmr1 Interval=500 If Picl LeftMe Width Then Picl Left=0 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5 vbp，选中窗体中的文本框Text3，将其 Visible属性为 False。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，按要求建立窗体菜单。 步骤 3：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： I f which=1 Therl If which=2 Then Text； 1 Text： =Text： 1 Text+Text； 3 Text Text2 Text； =Text2 Text； +Text3 TeXt 步骤 4：按要求将文件保存至考生文件夹中。
