2003年9月全国计算机等级考试二级VB语言笔试试题含答案

2003年9月全国计算机等级考试二级VB语言笔试试题含答案一、选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）（1）以下叙述中错误的是A）VisualBasic是事件驱动型可视化编程工具B）VisualBasic应用程序不具有明显的开始和结束语句C）VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D）VisualBasic中控件的某些属性只能在运行时设置（2）以下叙述中错误的是A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.BAS为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件（3）以下叙述中错误的是A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定（4）以下不属于VisualBasic系统的文件类型是A）.frmB）.batC）.vbgD）.vbp（5）以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存VisualBasic程序时，应分别保存窗体文件及工程文件C）VisualBasic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（6）以下能正确定义数据类型TelBook的代码是A）TypeTelBookB）TypeTelBookNameAsString*10NameAsString*10TelNumAsIntegerTelNumAsIntegerEndTypeEndTelBookC）TypeTelBookD）TypedefTelBookNameString*10NameString*10TelNumIntegerTelNumIntegerEndTypeTelBookEndType（7）以下声明语句中错误的是A）Constvar1=123B）Dimvar2=’ABC’C）DefInta-zD）Staticvar3AsInteger（8）设窗体上有一个列表框控件Lis选中的列表项内容的是t1，且其中含有若干列表项。则以下能表示当前被A）List1.ListB）List1.ListIndexC）List1.IndexD）List1.Text（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是A）MouseDownB）MouseUpC）LoadD）Click（10）设a=10，b=5，c=1，执行语句Printabc后，窗体上显示的是A）TrueB）FalseC）1D）出错信息（11）如果要改变窗体的标题，则需要设置的属性是A）CaptionB）NameC）BackColorD）BorderStyle（12）以下能判断是否到达文件尾的函数是A）BOFB）LOCC）LOFD）EOF（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）如果工程中含有SubMain过程，则程序一定首先执行该过程B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体（14）窗体的MouseDown事件过程Form_MouseDown(ButtSingle)onAsInteger,ShiftAsInteger,XAsSingle,YAs有4个参数，关于这些参数，正确的描述是A）通过Button参数判定当前按下的是哪一个鼠标键B）Shift参数只能用来确定是否按下Shift键C）Shift参数只能用来确定是否按下Alt和Ctrl键D）参数x,y用来设置鼠标当前位置的坐标（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是A）Combo1.RemoveItemTextB）Combo1.RemoveItem2C）Combo1.RemoveItem3D）Combo1.RemoveItemCombo1.Listcount（16）以下关于焦点的叙述中，错误的是A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据B）当文本框失去焦点时，触发LostFocus事件C）当文本框的Enabled属性为False时，其Tab顺序不起作用D）可以用TabIndex属性改变Tab顺序（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A）=B）*C）&D）-（18）执行语句Open数据能够执行的操作是Tel.datForRandomAs#1Len=50后，对文件Tel.dat中的A）只能写，不能读B）只能读，不能写C）既可以读，也可以写D）不能读，不能写（19）在窗体上画一个本框，然后编写如下事件过名称为Command1的命令按钮和两程：个名称分别为Text1、Text2的文PrivateSubCommand1_Click()n=Text1.TextSelectCasenCase1To20x=10Case2,4,6x=20CaseIs10x=30Case10x=40EndSelectText2.Text=xEndSub程序运行后，如果在文内容是本框Text1中输入10，然后单击命令按钮，则在Text2中显示的A）10B）20C）30D）40（20）设有以下循环结构Do循环体LoopWhile条件则以下叙述中错误的是A）若条件是一个为0的常数，则一次也不执行循环体B）条件可以是关系表达式、逻辑表达式或常数C）循环体中可以使用ExitDo语句D）如果条件总是为True，则不停地执行循环体（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum6Printnum;num=num+2.4LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是A）13.45.8B）135C）147D）无数据输出（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1Dos=s+aa=a－1LoopWhilea=0Prints;aEndSub程序运行后，单击命令按钮，则窗体上显示的内容是A）79B）340C）97D）死循环（23）设有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunction在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerx=10y=5y=f(x)Printx;yEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）105B）205C）2040D）1040（24）设有如下通用过程：PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本下的事件过程：框和一个名称为Command1的命令按钮，然后编写如PrivateSubCommand1_Click()Dimarr(5)AsVariantFori=1To5arr(i)=iNextn=10CallFun(arr(),n)Text1.Text=nEndSub程序运行后，单击命令按钮，则在文本框中显示的内容是A）10B）15C）25D）24（25）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()d=0c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)cThend=d+x(i)c=x(i)Elsed=d－cEndIfNextiPrintdEndSub程序运行后，如果单击命令按钮，则在窗体上输出的内容为A）89B）99C）23D）77（26）在窗体上画两个别为Label1、Label2、Labe显示A、B、A*B等文Label3显示A*B的计算结果。当单击命令按钮计算时Label3中。以下不能实现上滚动条，名称分别为Hscroll1l3、Label4、Label5、Label6，字信息，标签Label1、Label2分。如图所示。当移动滚动框时，，对标签Label1、Label2中显示述功能的事件过程是、Hscroll2；六个标签，名称分其中标签Label4~Label6分别显示其右侧的滚动条的数值，在相应的标签中显示滚动条的值的两个值求积，并将结果显示在A）PrivateSubCommand1_Click()Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))EndSubB）PrivateSubCommand1_Click()Label3.Caption=HScroll1.Value*HScroll2.ValueEndSubC）PrivateSubCommand1_Click()Label3.Caption=HScroll1*HScroll2EndSubD）PrivateSubCommand1_Click()Label3.Caption=HScroll1.Text*HScroll2.TextEndSub（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Forn=1To20IfnMod30Thenm=m+n\3NextnPrintnEndSub程序运行后，如果单击命令按钮，则窗体上显示的内容是A）15B）18C）21D）24（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：PrivateSubForm_Load()ShowText1.Text=Text1.SetFocusEndSubPrivateSubForm_MouYAsSingle)seUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,Print程序设计EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintVisualBasic;EndSub程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是A）VisualBasicB）程序设计C）A程序设计D）VisualBasic程序设计（29）设有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub该程序通过For循环计算一个表达式的值，这个表达式是A）1+1/2+2/3+3/4+4/5B）1+1/2+2/3+3/4C）1/2+2/3+3/4+4/5D）1+1/2+1/3+1/4+1/5（30）以下有关数组定义的语句序列中，错误的是A）Staticarr1(3)arr1(1)=100arr1(2)=Helloarr1(3)=123.45B）Dimarr2()AsIntegerDimsizeAsIntegerPrivateSubCommand2_Click()size=InputBox(输入：)ReDimarr2(size)．．．．．．EndSubC）OptionBase1PrivateSubCommand3_Click()Dimarr3(3)AsInteger．．．．．．EndSubD）DimnAsIntegerPrivateSubCommand4_Click()Dimarr4(n)AsInteger．．．．．．EndSub