《2011年9月计算机等级考试二级VB笔试试题及答word.docx》由会员分享,可在线阅读,更多相关《2011年9月计算机等级考试二级VB笔试试题及答word.docx(10页珍藏版)》请在第一文库网上搜索。
1、2011年9月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计一、选择题1、下列叙述中正确的是A)算法是程序B)设计算法时只需要考虑数据结构的设计C)设计算法时只需要考虑结果的可靠性D)以上三种说法都不对2、下列关于线性链表的叙述中,正确的是A)各数据结点的存储空间可以不连续,但它们的存储顺序与逻辑顺序必须一致B)各数据结点的存储顺序与逻辑顺序可以不一致,但它们的存储空间必须连续C)进行插入与删除时,不需要移动表中元素D)以上三种说法都不对3、下列关于二叉树的叙述中,正确的是A)叶子结点总是比度为2的结点少一个B)叶子结点总是比度为2的结点多一个C)叶子结点度为2的结点数的两倍
2、D)度为2的结点数是度为1的结点数的两倍系统软件和支撑软件(或工具软件)。下列属于应用软件4、软件按功能可以分为应用软件、的是A)学生成绩管理系统B)C语言编译程序C)UNIX操作系统D)数据库管理系统5、某系统总体结构图如下图所示:该系统总体结构图的深度是A)7B)6C)3D)26、程序调试的任务是A)设计测试用例B)验证程序的正确性C)发现程序中的错误D)诊断和改正程序中的错误7、下列关于数据库设计的叙述中,正确的是A)在需求分析阶段建立数据字典B)在概念设计阶段建立数据字典C)在逻辑设计阶段建立数据字典D)在物理设计阶段建立数据字典8、数据库系统的三级模式不包括A)概念模式B)内模式C)
3、外模式D)数据模式9、有三个关系R、S和T如下则由关系R和S得到关系T的操作是A)自然连接B)差C)交D)并10、下列选项中属于面向对象设计方法主要特征是A)继承B)自顶向下C)模块化D)逐步求精11、以下描述中错误的是A)窗体的标题通过其Caption属性设置B)窗体的名称(Name属性)可以在运行期间修改C)窗体的背景图形通过其Picture属性设置D)窗体最小化时的图标通过其Icon属性设置12、在设计阶段,当按CW+R键时,所打开的窗口是A)代码窗口B)工具箱窗口C)工程资源管理器窗口D)属性窗口13设有如下变量声明语句:Dima,bAsBoolean,则下面叙述中正确的是A)a和b都
4、是布尔型变量B)a是变体型变量,b是布尔型变量C)a是整型变量,b是布尔型变量D)a和b都是变体型变量14、下列可作为VisualBasic变量名的是A)A#AB)4ABCC)?xyD)Print_Text15、假定一个滚动条的LargeChange属性值为100,贝ij10()表示A)单击滚动条箭头和滚动框之间某个位置时滚动框位置的变化量B)滚动框位置的最大值C)拖动滚动框时滚动框位置的变化量D)单击滚动条箭头时滚动框位置的变化量16、在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()MsgBoxStr(123+321)EndSub程序运行后,
5、单击命令按钮,则在信息框中显示的提示信息为A)字符串”123+321B)字符串444C)数值“444D)空白17、假定有以下程序:PrivateSubForm_Click()a=1:b=aDoUntila=5x=a*bPrintb;xa=a+bb=b+aLoopEndSub程序运行后,单击窗体,输出结果是A)11B)11C)11D)112324383618、在窗体上画一个名称为Listl的列表框,列表框中显示若干城市的名称。当单击列表框中的某个城市句时,该城市名消失。下列在Listl_Click事件过程中能正解实现上述功能的语句是A)Listl.RemoveitemListl.TextB) L
6、istl.RemoveitemListl.ClearC) Listl.RemoveitemListl.ListCountD) Listl.RemoveitemListl.Listindex19、列表框中的项目保存在一个数组中,这个数组的名字是A)ColumnB)StyleC)ListD)MultiSelect20、有人编写了如下程序:PrivateSubForm_Click()DimsAsInteger,xasintegerS=0X=0Dowhiles=10000X=x+1S=s+xA2LoopPrintsEndsub上述程序的功能是:计算s=l+22+3?+M+,直到sl()()()()为止
7、。程序运行后,发现得不到正确的结果,必须进行修改,下列修改中正确的是A)把x=0改为x=lB)把DoWhiles=10000改为DoWhiles1000()D)交换x=x+l和s=s+xA2的位置21、设有如下程序:PrivateSubForm_Click()DimsAsLong,fAsLongDimnAsInteger,IAsIntegerf=ln=4Fori=lTonF=f*is=s+fNextiPrintsEndSub程序运行后,单击窗体,输出结果是A)32B)33C)34D)3522、阅读下面的程序段:a=0Fori=lTo3Forj=lToiForK=jTo3a=a+lnextkne
8、xtjnexti执行上面的程序段后,a的值为A)3B)9C)14D)2123、设有如下程序:PrivateSubForm_Click()12123123412345123456Cisa$=123456”Fori=lTo6PrintTab(12-i);NextiEndSub程序运行后,单击窗体,要求结果如图所示,则在处应填入的内容为A)Left(a$,i)B)Mid(a$,8-i,i)C)Right(a$,i)D)Mid(a$,7,i)24、设有如下程序:PrivateSubForm_click()DimiAsInteger,xAsString,yAsStringx二ABCDEFG”Fori=4
9、to1Step-1y=Mid(x,i,i)+yNextiPrintyEndSub程序运行后,单击窗体,输出结果为A)ABCCDEDEFGB)AABBCDEFGOABCDEFGD)AABBCCDDEEFFGG25、设有如下程序:PrivateSubForm_Click()Dimary(lTo5)AsIntegerDimiAsIntegerDimsumAsIntegerFori=lTo5ary(i)=i+lsum=sum=ary(i)nextiprintsumendsub程序运行后,单击窗体,则在窗体上显示的是A)15B)16C)20D)2526、有一个数列,它的前3个数为0,1,1,此后的每个数
10、都是其前面3个数之和,即0,1,1,2,4,7,13,24要求编写程序输出该数列中所有不超过1000的数,某人编写程序如下:PrivateSubForm_Click()DimIAsInteger,sAsInteger,bAsIntegerDimcAsInteger,dAsIntegera=0:b=l:c=ld=a+b+ci=5Whiled=1000Printd;a=b:b=c:c=dd=a+b+ci=i+lWendEndSub运行上面的程序,发现输出的数列不完整,应进行修改。以下正确的修改是A)把Whiled!000B)把i=5改为i=4C)把i=i+l移动Whiled=1000的下面D)在i
11、=5的上面增加一个语句:Printa;b;c;27、下面的语句用Array函数为数组变量a的各元素赋整数值:a二Array。23,4,5,6,7,8,9)针对a的声明语句应该是A)DimaB)DimaAsIntegerC)Dima(9)AsIntegerD)Dima()AsInteger28、下列描述中正确的是A)VisualBasic只能通过过程调用执行通用过程B)可以在Sub过程的代码中包含另一个Sub过程的代码C)可以像通用过程一样指定事件过程的名字D)Sub过程和Function过程都有返回值29、阅读程序:Functionfac(ByValnAsInteger)AsIntegerDi
12、mtempAsIntegertemp=1Fori%=lTontemp=temp*i%Nexti%fac=tempEndFunctionPrivateSubFurm_Click()DimnsumAsIntegernsum=lFori%=2To4nsum=nsum+fac(i%)nexti%PrintnsumEndSub程序运行后,单击窗体,输出结果是A)35B)31C)33D)373()、在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labell,然后编写如下代码:SubS(xAsInteger,yAsInteger)StaticzAsIntegery=x*x+zz=yEndS
13、ubPrivateSubCommand1_Click()DimIAsInteger,zAsIntegerm=()z=0Fori=lTo3Si,zm=m+zNextiLabel1.Caption=Str(m)EndSub程序运行后,单击命令按钮,在标签中显示的内容是A)50B)20C)14D)731、以下说法中正确的是A)MouseUp事件是鼠标向上移动时触发的事件B)MouseUp事件过程中的x,y参数用于修改鼠标位置C)在MouseUp事件过程可以判断用户是否使用了组合键D)在MouseUp事件过程中不能判断鼠标的位置32、假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单项的名称为a
14、l,其“可见”属性为False。程序运行后,单击鼠标左键或右键都能弹出菜单的事件过程是A) PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=lAndButton=2ThenPopupmenualEndIfEndSubB) PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)PopupmenualEndSubC) PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=lThenPopupmenualEndIfEndSubD) PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsIntege