04-10全国计算机等级考试二级VB笔试试卷（含参考答案）

2004-2010全国计算机等级考试量量试试卷及参考答案目录TOC\o"1-5"\h\z新版二级VB考试大纲（含公共基础知识） 3\o"CurrentDocument"2004年4月全国计算机二级VB笔试题及答案 8\o"CurrentDocument"2004年9月全国计算机二级VB笔试题及答案 19\o"CurrentDocument"2005年4月全国计算机二级VB笔试题及答案 32\o"CurrentDocument"2005年9月全国计算机二级VB笔试题及答案 44\o"CurrentDocument"2006年4月全国计算机二级VB笔试题及答案 57\o"CurrentDocument"2006年9月全国计算机二级VB笔试题及答案 73\o"CurrentDocument"2007年4月全国计算机二级VB笔试题及答案 88\o"CurrentDocument"2007年9月全国计算机二级VB笔试题及答案 100\o"CurrentDocument"2008年4月全国计算机二级VB笔试题及答案 113\o"CurrentDocument"2008年9月全国计算机二级VB笔试题及答案 126\o"CurrentDocument"2009年3月全国计算机二级VB笔试题及答案 140\o"CurrentDocument"2009年9月全国计算机二级VB笔试题及答案 152\o"CurrentDocument"2010年3月全国计算机二级VB笔试题及答案 162新版NCRE二级VisualBasic考试大纲（-）公共基础知识基本要求.掌握算法的基本概念。.掌握基本数据结构及其操作。.掌握基本排序和査找算法。.掌握逐步求精的结构化程序设计方法。.掌握软件工程的基本方法,具有初步应用相关技术进行软件开发的能力。.掌握数据库的基本知识,了解关系数据库的设计。考试内容一、基本数据结构与算法.算法的基本概念;算法复杂度的概念和意义（时间复杂度与空间复杂度）。.数据结构的定义;数据的逻辑结构与存储结构;数据结构的图形表示;线性结构与非线性结构的概念。.线性表的定义;线性表的顺序存储结构及其插入与删除运算。.栈和队列的定义;栈和队列的顺序存储结构及其基本运算。.线性单链表、双向链表与循环链表的结构及其基本运算。.树的基本概念;ニ叉树的定义及其存储结构;ニ叉树的前序、中序和后序遍历。.顺序查找与二分法查找算法;基本排序算法（交换类排序,选择类排序,插入类排序）。二、程序设计基础.程序设计方法与风格。.结构化程序设计。.面向对象的程序设计方法,对象,方法,属性及继承与多态性。三、软件工程基础.软件工程基本概念,软件生命周期概念,软件工具与软件开发环境。.结构化分析方法,数据流图,数据字典,软件需求规格说明书。.结构化设计方法,总体设计与详细设计。.软件测试的方法，白盒测试与黑盒测试，测试用例设计,软件测试的实施，单元测试、集成测试和系统测试。.程序的调试，静态调试与动态调试。四、数据库设计基础.数据库的基本概念:数据库,数据库管理系统,数据库系统。.数据模型,实体联系模型及E-R图,从E-R图导出关系数据模型。.关系代数运算，包括集合运算及选择、投影、连接运算,数据库规范化理论。.数据库设计方法和步骤:需求分析、概念设计、逻辑设计和物理设计的相关策略。考试方式公共基础知识有10道选择题和5道填空题共三十分。（二）VisualBasic语言程序设计基本要求1、熟悉VisualBasic集成开发环境。2、了解VisualBasic中对象的概念和事件驱动程序的基本特性。3、了解简単的数据结构和算法。4、能够编写和调试简单的VisualBasic程序。考试内容ー、VisualBasic程序开发环境1、VisualBasic的特点和版本。VisualBasic的启动与退出。3、主窗口:(1)标题和菜单。(2)工具栏。4、其他窗口:(1)窗体设计器和工程资源管理器。(2)属性窗口和工具箱窗口。二、对象及其操作1、对象:(1)VisualBasic的对象。(2)对象属性设置。2、窗体:(1)窗体的结构与属性。(2)窗体事件。3、控件:(1)标准控件。(2)控件的命名和控件值。4、控件的画法和基本操作。5、事件驱动。三、数据类型及其运算1、数据类型:(1)基本数据类型。(2)用户定义的数据类型。(3)枚举类型。2、常量和变量:(1)局部变量与全局变量。(2)变体类型变量。(3)缺省声明。3、常用内部函数。4、运算符与表达式：(D算术运算符。(2)关系运算符与逻辑运算符。(3)表达式的执行顺序。四、数据输入、输出1,数据输出：(l)Print方法。(2)与Print方法有关的函数(Tab、Spc、Space$)。(3)格式输出(Fomat$)。2、InputBox函数。3、MsgBox函数和MsgBox语句。4、字形。5、打印机输出:(1)直接输出。(2)窗体输出。五、常用标准控件1、文本控件:(1)标签。(2)文本框。2、图形控件:(1)图片框,图像框的属性,事件和方法。(2)图形文件的装入。(3)直线和形状。3、按钮控件。4、选择控件:复选框和单选按钮。5、选择控件:列表框和组合框。6、滚动条。7、计时器。8,框架。9、焦点与Tab顺序。六、控制结构1、选择结构：(1)单行结构条件语句。(2)块结构条件语句。)Ilf函数。2、多分支结构。3、For循环控制结构。4、当循环控制结构。Do循环控制结构。6、多重循环。GoTo型控制:GoTo语句。On-GoT。语句。七、数组1、数组的概念:(1)数组的定义。(2)静态数组与动态数组。2、数组的基本操作：(1)数组元素的输入、输出和复制。(2)ForEach...Next语句。(3)数组的初始化。3、控件数组。ハ、过程1、Sub过程:(l)Sub过程的建立。(2)调用Sub过程。(3)通用过程与事件过程。2、Function过程:(l)Function过程的定义。(2)调用Function过程。3,参数传送:(1)形参与实参。⑵引用。(3)传值。(4)数组参数的传送。4、可选参数与可变参数。5、对象参数:(1)窗体参数。(2)控件参数。九、菜单与对话框1、用菜单编辑器建立菜单2、菜单项的控制:(1)有效性控制。(2)菜单项标记。(3)键盘选择。3、菜单项的增减。4、弹出式菜单。5、通用对话框。6、文件对话框。7、其他对话框(颜色、字体、打印对话框)。十、多重窗体与环境应用1、建立多重窗体应用程序。2,多重窗体程序的执行与保存。3、VisualBasic工程结构。(1)标准模块。(2)窗体模块。(3)SubMain过程。4、闲置循环与DoEvents语句。十ー、键盘与鼠标事件过程1,KeyPress事件。2、KeyDown与KeyUp事件。3、鼠标事件。4、鼠标光标。5、拖放。十二、数据文件1、文件的结构和分类。2、文件操作语句和函数。3、顺序文件:(1)顺序文件的写操作。(2)顺序文件的读操作。4、随机文件:(1)随机文件的打开与读写操作。(2)随机文件中记录的增加与删除。(3)用控件显示和修改随机文件。5、文件系统控件：(1)驱动器列表框和目录列表框。(2)文件列表框。6、文件基本操作。(三)考试方式1、笔试：90分钟,满分100分,其中含公共基础知识部分的30分。2、上机操作：90分钟,满分100分。上机操作包括：(1)基本操作。(2)简单应用。(3)综合应用。2004年4月全国计算机等级考试二级

VisualBasic笔试试卷及参考答案(考试时间90分钟,满分100分)ー、选择题((1)〜(20)每小题2分,(21)〜(30)每小题3分,共70分)下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()Move500,500EndSub程序运行后,单击命令按钮,执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B)窗体移动到距屏幕左边界是、上边界各500的位置C)命令按钮向左、上方向各移动500D)窗体向左、上方向各移动500在窗体上有若干控件,其中有一个名称为Textl的文本框。影响Textl的Tab顺序的属性是TabStop B)EnabledC)Visible D)TabIndex(3)以下定义数组或给数组元素赋值的语句中,正确的是A)DimaAsVarianta=Array(l,2,3,4,5)C)Dima%(10)a(l)="ABCDE”A)DimaAsVarianta=Array(l,2,3,4,5)C)Dima%(10)a(l)="ABCDE”D)Dima(3),b(3)AsIntegera(0)=0a(l)=la(2)=2b=a(4)在窗体上画一个名称为Listl的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为Fori=0ToListl.ListCount-1NextFori=0ToListl.Count-1NextFori=lToListl.ListCount-1NextFori=1ToListl.Count-1

Next(5)以下Case语句中错误的是B)CaseIs>10D)Case3,5,Is>10A)Case0B)CaseIs>10D)Case3,5,Is>10C)CaseIs>10AndIs<50(6)以下关于图片框控件的说法中,错误的是A)可以通过Print方法在图片框中输出文本B)清空图片框控件中图形的方法之一是加载ー个空图形C)图片框控件可以作为容器使用D)用Stretch属性可以自动调整图片框中图形的大小(7)执行语句s=Len(Mid("VisualBasic”,l,6))后,s的值是A)Visual B)Basic C)6 D)ll(8)以下叙述中错误的是A)下拉式菜单和弹出式菜单都用菜单编辑器建立B)在多窗体程序中,每个窗体都可以建立自己的菜单系统〇除分隔线外,所有菜单项都能接收Click事件D)如果把ー个菜单项的Enabled属性设置为False,则该菜单项不可见(9)在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:PrivateSubCommand1_Click()a=12345PrintFormat$(a,"000.00”)EndSub程序运行后，单击命令按钮，窗体上显示的是A)123.45 B)12345.00 C)12345 D)00123.45(10)以下叙述中错误的是ー个工程可以包括多种类型的文件VisualBasie应用程序既能以编译方式执行,也能以解释方式执行程序运行后，在内存中只能驻留一个窗体对于事件驱动型应用程序,每次运行时的执行顺序可以不一样(11)以下关于函数过程的叙述中，正确的是函数过程形参的类型与函数返回值的类型没有关系在函数过程中，过程的返回值可以有多个〇 当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递D) 如果不指明函数过程参数的类型，则该参数没有数据类型(12)以下关于变量作用域的叙述中,正确的是窗体中凡被声明为Private的变量只能在某个指定的过程中使用全局变量必须在标准模块中声明〇 模块级变量只能用Private关键字声明D)Static类型变量的作用域是它所在的窗体或模块文件(13)确定一个控件在窗体上的位置的属性是A)Width和Height B)Width或HeightC)Top和Left D)Top或Left(14)在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Textl.Text="VisuaF'Me.Textl="Basic”Text1="Program”EndSub程序运行后,如果单击命令按钮,则在文本框中显示的是A)Visual B)Basic C)Program D)出错(15)以下关系表达式中,其值为False的是A)"ABC'>“AbC" B)“the”〇“they”C)“VISUAL"=Ucase(“Visuaド) D)“Integer”>“Int”(16)语句Print5/4*6\5Mod2的输出结果是A)0 B)1 C)2 D)3(17)在窗体上画一个文本框、ー个标签和一个命令按钮,其名称分别为Textl、Label1和Command1,然后编写如下两个事件过程:PrivateSubCommand1_Click()StrText=InputBox(“请输入”)Textl.Text=strTextEndSubPrivateSubTextl_Change()Label1.Caption=Right(Trim(Text1.Text),3)EndSub程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是A)空 B)abcdef C)abc D)def(18)在窗体上画•个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=-5IfSgn(x)Theny=Sgn(xA2)Elsey=Sgn(x)EndIfPrintyEndSub程序运行后,单击命令按钮,窗体上显示的是A)-5 B)25 C)1 D)-lー个工程中含有窗体Forml、Form2和标准模块Modell,如果在Forml中有语句PublicXAsInteger,SModel!中有语句PublicYAsInteger。则以下叙述中正确的是A)变量X、Y的作用域相同 B)Y的作用域是ModellC)在Forml中可以直接使用X D)在Form2中可以直接使用X和Y(20)在窗体上画一个名称为Drivel的驱动器列表框,ー个名称为Dirl的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在ー个事件过程中,这个事件过程是A)Drivel_ChangeB)Drivel_ClickC)Dirl_Click D)Dirl_Change(21)在窗体上一回事个命令按钮(其中Name属性为Commandl),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimas=0a=Array(l,2,3,4)j=lFori=4ToIStep-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序,单击命令按钮,其输出结果是A)4321 B)1234 C)34 D)12(22)在窗体上画一个名称为Textl的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是PrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii<65OrKeyAscii>90ThenMsgBox"请输入大写字母''KeyAscii=0EndIfEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode<65OrKeyCode>90ThenMsgBox”请输入大写字母''KeyCode=0EndIfEndSubPrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfAsc(Textl.Text)<65OrAsc(Textl.Text>90ThenMsgBox"请输入大写字母”EndIfEndSubPrivateSubTextl_Change()IfAsc(Textl.Text)>64AndAsc(Text1.Text)<91ThenMsgBox"请输入大写字母”EndIfEndSub(23)假定在窗体(名称为Forml)的代码窗口中定义如下记录类型:PrivateTypeanimalanimalNameAsString*20aColorAsStrint*10EndType在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimrecAsanimalOpen"c:\vbTest.dat”ForRandomAs#1Len=Len(rec)rec.animalName="Cat”rec.aColor="White"Put#1,,recClose#1EndSub则以下叙述中正确的是A)记录类型animal不能在Forml中定义,必须在标准模块中定义B)如果文件c:\vbTest.dat不存在,则Open命令执行失败〇由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾D)语句"Put#I,,rec”将animal类型的两个数据元素写到文件中(24)在窗体上画一个名称为Textl的文本框,ー个名称为Commandl的命令按钮,然后编写如下事件过程和通用过程:PrivateSubCommand1_Click()n=Val(Textl.Text)Ifn\2=n/2Thenf=fl(n)ElsefM2(n)EndIfPrintf;nEndSubPublicFunctionfl(ByRefx)x=x*xfl=x+xEndFuntionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是A)72 36 B)10836 C)72 6 D)1086(25)在窗体上画•个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()c=1234cl=Trim(Str©)Fori=lTo4Print NextEndSub程序运行后,单击命令按钮,要求在窗体上显示如下内容:1121231234则在下划线处应填入的内容为A)Right(cl,i)B)Left(cl,i)C)Mid(c1,1,1)D)Mid(cl,i,i)(26)在窗体上画一个名称为Commandl的命令按钮和一个名称Textl的文本框,然后编写如下事件过程:PrivateSubCommand1_Click()n=Val(Text.Text)Fori=2TonForj=2ToSqr(i)IfIModj=0ThenExitForNextjlfj>Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是A)输出n以内的奇数 B)输出n以内的偶数〇输出n以内的素数不清 D)输出n以内能被j整除的数(27)以下描述中正确的是标准模块中的任何过程都可以在整个工程范围内被调用在ー个窗体模块中可以调用在其他窗体中被定义为Public的通用过程如果工程中包含SubMain过程,则程序将首先执行该过程如果工程中包含SubMain过程,则程序一定首先执行第一个建立的窗体(28)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程:PrivateFunctionfi[mAsInteger)IfmMod2=0Thenf=mElsef=lEndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=lTo5s=s+f(i)NextPrintsEndSub程序运行后,单击命令按钮,在窗体上显示的是A)11 B)10 C)9 D)8(29)在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程:PrivateSubCommandl_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=lTo3Forj=2To4Array(ij)=I+jNextjNextiTextl.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是A)15 B)14 C)13 D)12(30)在窗体上画四个文本框(如图所示)，并用这四个文本框建立一个控件数组,名称为Textl(下标从0开始,自左至右顺序增大),然后编写如下事件过程:PrivateSubCommandl_Click()ForEachTextBoxInTextlText1(i)=Text1(i).Indexi=i+lNextEndSub程序运行后,单击命令按钮,四个文本框中显示的内容分别为A)0123 B)1234C)0132 D)出错信息二、填空题(毎空2分,共30分)请将毎空的正确答案写在答题卡［1】〜【15】序号的横线上,答在试卷上不得分。⑴VisualBasic应用程序标准模块文件的扩展名是-LU〇⑵在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False»程序运行后,如果用鼠标右键单击窗体,则弹出与munEdit对应的菜单。以下是实现上述功能的程序，请填空。PrivateSubForm_【2】(ButtomAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then【3】mnuEditEndIfEndSub(3)为了使计时器控件Timerl每隔0.5秒触发一次Timer事件,应将Timer1控件的【4】属性设置为.(5］.(4)与数学表达式cos2(a+b)/3x+5对应的VisualBasic表达式是」纟］_。(5)将C盘根目录下的图形文件moon.jpg装入图片框Picturel的语句是【7】〇(6)在窗体上画一个名称为Textl的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为〇ptionl。程序运行后，如果单击某个单选按钮,则文本框

For・l中的字体将根据所选择的单选按钮切换,如图所示。请填空。For・l二回凶VisuaIBasic等级考试「宋体 fy黑体 r楷体PrivateSubOptionl_Click(IndcxAsInteger)SelectCase【8】Case0a=“宋体”a=“黑体”a="楷体—GB2312”EndSelectTextl,[9]=aEndSub⑺在窗体上画两个组合框,其名称分别为Combol、Combo2,然后画两个标签,名称分别为LabelKLable2,如图所示。程序运行后,如果在某个组合框中选择ー个项目,则把所选中的项目在其下面的标签中显示出来。请填写空。PrivateSubCombol_Click()CallShowItem(Combol,Label1)EndSubPrivateSubCombo2_Click()CallShowItem(Combo,Label2)EndSubPublicSubShowItem(tmpComboAsComboBox,tmpLabe1AsLabel)【10].CaDtion=[11].TextEndSub(8)在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()n=5f=ls=0Fori=lTon4f【12】s=s+fNextPrintsEndSub该事件过程的功能是计算s=l+l/2!+l/3!+-l/n!的值。请填空。(9)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand_Click()Dima(10)AsIntegerFori=lTo10a(i)=iNextCallsw叩(【13])Fori=lTo10Printa(i);NextEndSubSubswap(b()AsInteger)n=[14]Fori=lTon/2t=b(i)b(i)=b(n)b(n)=t[15]1NextEndSub上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(l)与a(10)的值互换,a(2)与a(9)的值互换,……，a(5)与a(6)的值互换。请填空。2004年4月全国计算机等级考试二级VB语言笔试试题答案ー、选择题((1)—(20)每小题2分,(21)—(30)每小题2分,共70分)(1)B ⑵D⑶A(4)A⑸C(6)D⑺C(8)D(9)B(10)C(11)A (12)B (13)C (14)D (15)A (16)B (17)D (18)C (19)CAB (22)A (23)C (24)A (25)B (26)C (27)A (28)C (29)DA二、填空题(每空2分,共30分)⑴【1】,bas⑵【2】mousedown[3]popupmen⑶【4】interval [5]500(4)[6](cos(a+b))*2/(3*x)+5⑸⑺Picturel.picture=loadpicture("c:\moon.jpg")(6)[8]index [9]font(7)[10]tmplabel [11]tmpCombo(8)[12]*(l/i)(9)[13]a() [14]ubound(b)[15]n=n-l2004年9月全国计算机等级考试二级VB笔试试卷(含参考答案)ー、选择题((1)T20)每小题2分,(21)—(30)每小题3分,共70分)(1)设窗体上有一个文本框,名称为textl,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是:A)text1.maxlength=0C)textl.visible=flaseB)text1.enabled=flaseD)textl.width=0(2)以下能在窗体Forml的标题栏中显示“VisualBasic窗体”的语句是Forml.Name="VisualBasic窗体”Forml.Title="VisualBasic窗体"Forml.Caption="VisualBasic窗体"Forml.Text="VisualBasic窗体”(3)在窗体上画一个名称为Textl的文本框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示:以下能实现上述操作的程序段是PrivateSubHScroll_Change()Textl.Text=HScrolll.ValueEndSubPrivateSubHScroll_Click()Textl.Text=HScrolll.ValueEndSubPrivateSubHScroll_Change()Textl.Text=HScroll.CaptionPrivateSubHScroll_Click()Textl.Text=HScroll.CaptionEndSub(4)设菜单中有一个菜单项为〃〇pen"。若要为该菜单命令设计访问键,即按下Alt及字母。时,能够执行"Open"命令,则在菜单编辑器中设置“Open"命令的方式是A)把Caption属性设置为&0penB)把Caption属性设置为0&penC)把Name属性设置为&0penD)把Name属性设置为O&pen(5)在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_C1ick()x=InputBox(，zInputz/)SelectCasexCase1,3Print〃分支1〃CaseIs>4Print"分支2"CaseElsePrint"Else分支”EndSelectEndSub程序运行后,如果在输入对话框中输入2,则窗体上显示的是A)分支1B)分支2〇Else分支D)程序出错(6)以下关于MsgBox的叙述中,错误的是A)MsgBox函数返回ー个整数B)通过MsgBox函数可以设置信息框中图标和按钮的类型0MsgBox语句没有返回值D)MsgBox函数的第一个参数是ー个整数,该参数只能确定对话框中显示的按钮数量(7)在窗体上画一个名称为Timerl的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是Timerl.InterVal=0.5 B)Timerl.Interval=5Timer.Interval=50 D)Timerl.Interval=500(8)在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()StaticxAsIntegerCisFori=lTo2y=y+xx=x+2NextPrintx,yEndSub程序运行后,连续三次单击Commandl按钮后,窗体上显示的是A)42 B)1218 〇1230 D)46(9)以下关于多重窗体程序的叙述中,错误的是A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体B)在多重窗体程序中,各窗体的菜单是彼此独立的〇在多重窗体程序中,可以根据需要指定启动窗体D)对于多重窗体程序中,而且单独保存每个窗体(10)以下关于文件的叙述中,错误的是A)顺序文件中的记录ー个接ー个地顺序存放B)随机文件中记录的长度是随机的〇执行打开文件的命令后,自动生成一个文件指针L0F函数返回给文件分配的字节数(11)以下叙述中错误的是A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法〇对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定(12)以下合法的VisualBasic标识符是A)F(DrLoop B)ConstC)9abcD)a#x(13)当ー个复选框被选中时,它的Value属性的值是A)3B)201D)0(14)表达式5Mod3+3\5*2的值是A)0B)204D)6(15)设x=4,y=8,z=7,以下表达式的值是x<yi《nd(Noty>z)Orz<xA)1B)-1C)TrueD)False(16)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommandlClickOa$="VisualBasic”PrintString(3,a$)EndSub程序运行后,单击命令按钮,在窗体上显示的内容是A)VW B)Vis C)sic D)11(17)设有如下程序段:x=2Fori=lTo10Step2x=x+iNext运行以上程序后,x的值是A)26 B)27 C)38 D)57(18)以下叙述中错误的是A)在KeyPress事件过程中不能识别键盘的按下与释放B)在KeyPress事件过程中不能识别回车键0在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母D)在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的‘’1”被视作不同的字符(19)执行如下两条语句,窗体上显示的是a=9.8596PrintFormat(a,zz$00,00.00")A)0,009.86 B)$9.86 C)9.86 D)$0,009.86(20)在窗体上画一个名称为CommandDialogl的通用对话框,ー个名称为Commandl的命令按钮。然后编写如下事件过程:PrivateSubCommand1_C1ick()CommonDialogl.FileName=""CommonDialogl.Filter="AllfileI*.*(*.Doc)I*.Doc|(*.Txt)I*.Txt"CommonDialogl.Filterlndex=2CommonDialogl.DialogTitle="VBTest"CommonDialogl.Action=lEndSub对于这个程序,以下叙述中错误的是A)该对话框被设置为“打开”对话框B)在该对话框中指定的默认文件名为空〇该对话框的标题为VBTestD)在该对话框中指定的默认文件类型为文本文件(*.Txt)(21)设一个工程由两个窗体组成,其名称分别为Forml和Form2,在Forml上有一个名称为Commandl的命令按钮。窗体Forml的程序代码如下:PrivateSubCommand1_C1ick()DimaAsIntegera=10Callg(Form2,a)EndSubPrivateSubg(fAsForm,xAsInteger)y=IIf(x>10,100,-100)f,Showf.Caption=yEndSub运行以上程序,正确的结果是A)Forml的Caption属性值为!00B)Form2的Caption属性值为TOOC)Form!的Caption属性值为TOO D)Form2的Caption属性值为100(22)在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:PrivateSubCommandl_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callfl(x,y)Printx,yEndSubPrivateSubfl(ByRefxlAsInteger,ylAsInteger)xl=xl+2yl=yl+2EndSub程序运行后,单击命令按钮,在窗体上显示的内容是A)105B)125 〇107 D)127(23)设有如下程序OptionBase1PrivateSubCommandlClick()Dima(10)AsIntegerDimnAsIntegern二InputBox("输入数据〃)Ifn<10ThenCallGetArray(a,n)EndIfEndSubPrivateSubGetArray(b()AsInteger,nAsInteger)Dimc(10)AsIntegerj=0Fori=lTonb(i)=CInt(Rnd()*100)Ifb(i)/2=b(i)\2Thenj=j+lc(j)=b(i)EndIfNextPrintjEndSub以下叙述中错误的是A)数组b中的偶数被保存在数组c中B)程序运行结束后,在窗体上显示的是c数组中元素的个数C)GetArray过程的参数n是按值传送的D)如果输入的数据大于10,则窗体上不显示任何显示(24)在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommandlClick()Dimaa=Array(1,2,3,4,5)Fori=lToUBound(a)a(i)=a(i)+i-lNextPrinta(3)EndSub程序运行后,单击命令按钮,则在窗体上显示的内容是A)4 B)5 〇6 D)7(25)阅读程序OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=lTo10Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后,单击窗体,输入结果为A)13B)14 C)27 D)15(26)在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilelDblClickOx=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是A)x没有实际作用，因此可以将该语句写为:CallShell(Filel,FileName,1)B)双击文件列表框中的文件,将触发该事件过程C)要执行的文件的名字通过Filel.FileName指定D)Filel中显示的是当前驱动器、当前目录下的文件

(27)在窗体上画一个名称为Labell、标题为“VisualBasic考试”的标签,两个名称分别为Commandl和Command2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timerl的计时器控件,并把其Interva!属性设置为500,如图所示。■FofbI畠回区)■FofbIVisualBasic停止编写如下程序:PrivateSubForm_Load()Timerl.Enabled=FalseEndSubPrivateSubCommandl_Click()Timerl.Enabled=TrueEndSubPrivateSubTimerl_Timer()IfLabell.Left<WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序运行后,单击“开始”按钮,标签在窗体中移动。对于这个程序,以下叙述中错误的是A)B)A)B)0D)单击“停止”按钮后再单击“开始”按钮,标签从停止的位置继续移动当标签全部移出窗体后,将从窗体的另一端出现并重新移动标签按指定的时间时隔移动(28)执行以下程序段a$="abbacddcba”Fori=6To2Step-2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(X&Y&z)NextiPrintz输出结果为A)ABAB)BBABBA OABBABA D)AABAAB(29)在窗体上画一个名称为Commandl的命令按钮,然