全国计算机等级考试二级VB笔试真题-木泉论坛首发手工输入

“://mgzyxz/““://mgzyxz/“计算机等级考试区版主沈安假设手工输入全网首发wrord版，由于手工输入错误请到论坛反响 VisualBasic19页20123月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计〔90100分〕一、选择题〔270分〕以下各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡相应位置上，答在试卷上不得分。以下表达正确的选项是循环队列是队列的一种链式存储构造C〕循环队列是非线性构造D〕循环队列是一种规律构造以下表达正确的选项是栈是一种先进先出的线性表C〕栈和队列都是非线性构造D〕以上三种说法都不对一棵二叉树共有255个是叶子结点，则度为1的结点数为A〕16 B〕10 C〕6 D〕4在以下模式中，能够给出数据库物理存储构造与物理存取方法的是A〕外模式B〕内模式C〕概念模式在满足实体完整性约束的条件下B〕一个关系中只能有一个候选关键字C〕一个关系中不许有多个候选关键字D〕一个关系中可以没有候选关键字R、ST如下：R S TABCABCABCa12a12b21b21d21c31c31RST的操作时A)自然连接 B〕并 C〕交 D〕差软件生命周期中的活动不包括B〕需求分析C〕软件测试A〕确定软件系统的功能需求B〕确定软件系统的性能需求C〕需求规格说明书评审D〕制定软件集成测试打算在测试方法中，设计测试用例的主要依据是B〕程序外部功能C〕程序数据构造D〕程序流程图在软件设计中不使用的工具是图数据流图〔DFD图〕程序流程图以下合法的VB变量名是A〕case B〕name10 C〕t-name D〕x*yx10的非负数。对此陈述，以下正确的VB表达式是A〕0≤x<10B〕0<=x<10C〕x>=0andx<10D〕x>=0orx<=10以下关于窗体的表达中错误的选项是窗体的Name属性用于标识一个窗体Resize大事时，不能响应单击窗体的大事Name属性值A〕Dima%privatea%C〕PrivateaAsIntegerD〕Statica%A〕〔0，50〕B〕〔1，50〕C〕〔0，49〕D〕〔1，49〕设x=5，执行语句Print x=x+10，窗体上显示的是A〕15 B〕5 C〕True D〕False设有如下数组声明语句：Dimarr〔-2to2,0to3〕ASInteger该数组所包含的数组元素个数是A〕20 B〕16 C〕15 D〕12现有由多个单项选择按钮构成的控件数组，用于区分该控件数组中各控件的属性是A〕NameB〕IndexC〕CaptionD〕Value设有分段函数：Y=5Y=x*2x*x+1

x<00≤x≤5x>5以下表示上述分段函数的语句序列中错误的选项是SelectCasexCaseIs<0Y=5CaseIs<=5,Is>0Y=2*xCaseelseY=x*x+1endselect

Ifx<0Theny=5elseifx<=5theny=2*xelsey=x*x+1endif｝D〕Ifx<0Theny=5Ifx<=5andx>=0theny=2*xIfx>5theny=x*x+1设程序中有如下语句：X=inputbox(“输入”,“数据”,100)PrintX运行程序，执行上述语句，输入5并单击输入对话框上的“取消“按钮，则窗体上输出A〕0 B〕5 C〕100 D〕空白现有如下一段程序：OptionBase1PrivateSubCommand1_ClickDimaa=Array(3,5,7,9)x=1Fori=4to1Step-1S=s+a(i)*xx=x*10NextPrintsEndSubCommand1命令按钮，执行上述大事过程，输出结果是A〕9753 B〕3579 C〕35 D〕79设有一个命令按钮Commsand1的大事过程以及一个函数过程。程序如下：PrivateSubCommand1_Click(0StaticxAsIntegerx=f(x+5)ClsPrintxEndSubPrivateFuntionf(xAsinteger)AsIntegerF=x+xEndFuntion令按钮后，窗体上显示的计算结果是A〕10 B〕30 C〕60 D〕70A〕各菜单项可以构成控件数组B〕每个菜单项可以看成是一个控件(E),表示该菜单项不显示D〕菜单项只响应单击大事以下关于多窗体的表达中，正确的选项是A〕任何时刻，只有一个当前窗体C〕翻开一个窗体时，其他窗体自动关闭D〕只有第一个建立的窗体才是启动窗体下大事过程：PrivateSubCommand1_ClickCommandDialog1.DefaultExt=”doc”CommandDialog1.FileName=”VB.txt”CommandDialog1.FileName=1CommandDialog1.ShowSaveEndSub运行上述程序，如下表达正确的选项是All(*.*)”VB.txt属性所指明的文件类型不全都，程序出错Filtertxt类型，程序运行出错设程序中有如下数组定义和过程调用语句：Dima(10)AsInteger„„Callp(a)如下过程定义中，正确的选项是PrivateSubp(a AsInteger)PrivateSubp(a AsInteger)PrivateSubp(a(10) AsInteger)PrivateSubp(a(n) AsInteger)假设要获得组合框中输入的数据，可使用的属性是A〕ListindexB〕CaptionC〕TextD〕List在窗体上画两个名称分别为Text、Text2的文本框。Text1Text如下图。现有如下大事过程：PrivateSubText1_ChangeText2.Text=Mid(Text1,1,1)EndSuba，Text2中显示的是：aDataaBase有如下程序：OptionBase!PrivateSubCommand1_ClickDimarr(10)arr=Array(10,35,28,90,54,68,72,90)ForEachaInarrIfa>50ThenSum=Sun+aEndIfNextaEndSub运行上述程序时消灭错误，错误之处是For循环的终值C〕应在For语句之前增加Sum=0Next a应改为Next10个随机整数，存放在数组arr中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：OptionBase1PrivateSubCommand1_ClickDimarr(10)ASIntegerFori=1to10arr(i)=int(Rnd*100)Printarr(i);Next110的一个整数：”)Fori=x+1to10arr(i-1)=arr(i)

„2NextFori=1to10Printarr(i);NextEndSub

„3程序运行后觉察显示的结果不正确，应当进展的修改是Int函数2i=xinteger39使用驱动器列表框Drive1、名目列表框Fiel1时，需要设置控件的同步，以下能够正确设置两个同步的命令是A〕Dir1.path=Drive.pateB〕File1.path=Dir1.pateC〕File1.path=Drive1.pateD〕Drive1.Drive=Dir1.pate以下关于弹出式菜单的表达中，错误的选项是A〕一个窗体只能有一个弹出式菜单B〕弹出式菜单在菜单编辑器中建立FalsePopupMenu方法显示PrivateTypestuXAsStringYAsIntegerEndTypePrivateSubCommand1_ClickDimaAsstua.y=12345PrintaEndSub\程序运行时消灭错误，错误的缘由是赋值语句不对输出语句Print不对在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Lable1的标签。窗体外观如图a所b所示。实现上述功能如下：PivateSubText1_ChangeCallShowText(Text1)EndSubPrivateSubText2ChangeCallShowText(Text2)EndSubprivateSubshowText(TAsTextBox)文本框中的内容是：”&T.TextEnbSub关于上述程序，以下表达中错误的选项是ControlShowTextVariant〕CallShowTex〔Text1.Tex、〔ShowTextT是控件变量设有翻开文件的语句如下：Open“test.dat”ForRandomAs#1a中的数据保存到该文件中，应当使用的语句是Write#1.aC〕Put#1，.aGet#1..a二、填空题〔230分〕请将每空的正确答案写在答题卡【1】~【15】序号的横线上，答在试卷上不得分。〕在长度为n的挨次存储的线性表中删除一个元素，最坏状况下需要移动表中的元素个数为 【1】 。设循环队列的存储空间为〔1：30，初始状态为Front=rear=30.现经过一系列入队与退队运算后front=16，rear=15，则循环队列中有 【2】 个元素。数据库治理系统供给的数据语言中，负责数据的增、删、改和查询的是 【3】 。在将E-R图转换到关系模式时，实体和联系都可以表示成 【4】 。常见的软件工程方法有构造化方法和面对对象方法，类、继承以及多态性等概念属于 【5】 。文本框中的内容写到文件“file1.txt“中去。请填空。PivateSubCommand1_ClickOpen“file1.txt”For 【6】 print 【7】 Text1.TextClose#1EndSubLable1的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标这一功能，请填空。DimDownAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger，Shift AsInteger，xAsSingle，YAsSingle)SelectCase 【8】Case1Down=TrueCase2Down=FalseEndSelectEndSubPrivateSubForm_MouseMove(ButtonAsInteger，Shift AsInteger，XAsSingle，YAsSingle)If 【9】 【10】 =”X=”&X&” Y=”&YElseLabel1.Caption=””EndifSubList1、List21a所示，Command1的“交换”按钮，则把选中的工程互换，互换后的位置不限，如图b所示。下面的程序可实现这一功能，请填空。PrivateSubCommand1_ClickPrivateSubCommand1_ClickIfList1.Text=””orList2.Text=””ThenElse

请选择交换的物品！”List1.AddItemList2.TextList2.RemoveItem 【12】 List1.RemoveItemList1.ListIndexEndIfEndSub命令按钮，并有以下程序：PrivateSubCommand1_ClickIemp$=“”Fork=1ToLen(Text1)Ch$=Mid(Text1,k,1)IfNotfound