4月全国计算机等级考试二级VB笔试试卷(1).doc

2006年4月世界打算机等级检验二级VB口试试卷一、选择题(每题2分，共70分以下各题A、B、C、D四个选项中，只需一个选项是精确的。请将精确选项填涂在答题卡呼应位置上，答在试卷上不得分。(1以下选项中不属于结构化次第方案办法的是。A自顶向下B逐步求精C模块化D可复用(2两个或两个以上模块之间关系的紧密程度称为。A耦合度B内聚度C复杂度D数据传输特点(3以下表达中精确的选项是。A软件测试该当由次第开拓者来完成B次第经调试后一般不需要再测试C软件爱护只包括对次第代码的爱护D以上三种说法都差错(4按照“落伍先出原那么结构数据的数据结构是。A行列B栈C双向链表D二叉树(5以下表达中精确的选项是。A线性链表是线性表的链式存储结构B栈与行列是非线性结构C双向链表是非线性结构D只需根结点的二叉树是线性结构(6对如下二叉树ABCDEF停顿后序遍历的结果为。AABCDEFBDBEAFCCABDECFDDEBFCA(7在深度为7的满二叉树中，叶子结点的个数为。A32B31 C64D63(8“商品与“顾主两个实体集之间的联系一般是。A一对一B一对多C多对一D多对多(9在E-R图中，用来表示实体的图形是。A矩形B椭圆形C菱形D三角形(10数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是。ADB包括DBS跟DBMSBDBMS包括DB跟DBSCDBS包括DB跟DBMSD不任何关联(11以下关于VisualBasic特点的表达中，差错的选项是。AVisualBasic是采用情况驱动编程机制的语言BVisualBasic次第既可以编译运行，也可以阐明运行C构成VisualBasic次第的多个过程不结实的实行次第DVisualBasic次第不是结构化次第，不存在结构化次第的三种全然结构(12以下表达中，差错的选项是。A一个VisualBasic应用次第可以含有多个标准模块文件B一个VisualBasic工程可以含有多个窗体文件C标准模块文件可以属于某个指定的窗体文件D标准模块文件的扩大年夜名是.bas(13以下表达中，差错的选项是。A在VisualBasic中，东西所能照应的情况是由系统定义的B东西的任何属性既可以通过属性窗口设定，也可以经进次第语句设定CVisualBasic中赞同差异东西应用一样名称的办法DVisualBasic中的东西存在自己的属性跟办法(14设有如下语句：Dima，bAsIntegerc=VisualBasicd=#7202005#以下关于这段代码的表达中，差错的选项是。Aa被定义为Integer典范变量Bb被定义为Integer典范变量Cc中的数据是字符串Dd中的数据是日期典范(15以下能从字符串VisualBasic中开门见山取出子字符串Basic的函数是。ALeftBMidCStringDInstr(16设a=4，b=3，c=2，d=1，以下表达式ab+1Orc=10，Is90ThenExitForNextEndSub关于该情况过程，以下表达中差错的选项是。Aa数组中的数据是30个100以内的整数B语句ForEacharrItemIna有语法差错CIfarrItemMod7=0语句的功能是输出数组中可以被7整除的数DIfarrItem90语句的感染是当数组元素的值大年夜于90时参加For循环(22设有命令按钮Command1的单击情况过程，代码如下：PrivateSubCommand1_Click(Dima(3，3AsIntegerFori=1To3Forj=1To3a(i，j=i*j+iNextjNextiSum=0Fori=1To3Sum=Sum+a(i，4-iNextiPrintSumEndSub运行次第，单击命令按钮，输出结果是。A20B7 C16D17(23在窗体上画1个名称为Command1的命令按钮，然后编写如下情况过程：PrivateSubCommand1_Click(a=0Fori=1To2Forj=1To4IfjMod20Thena=a-1EndIfa=a+1NextjNextiPrintaEndSub次第运行后，单击命令按钮，输出结果是A0B2 C3D4(24窗体上有名称分不为Text1、Text2的2个文本框，有一个由3个单项选择按钮构成的控件数组Option1，如图1所示。次第运行后，假定单击某个单项选择按钮，那么实行Text1中的数值与该单项选择按钮所对应的运算(乘以1、10或100，并将结果表示在Text2中，如图2所示。为了完成上述功能，在次第中的征询号(?处应填入的内容是。图1图2PrivateSubOption1_Click(IndexAsIntegerIfText1.TextThenSelectCase?Case0Text2.Text=Val(Text1.TextCase1Text2.Text=Val(Text1.Text*10Case2Text2.Text=Val(Text1.Text*100EndSelectEndIfEndSubAIndexBOption1.IndexCOption1(IndexDOption1(Index.Value(25在窗体上画1个命令按钮，其名称为Command1，然后编写如下次第：PrivateSubCommand1_Click(Dima(10AsIntegerDimxAsIntegerFori=1To10a(i=8+iNextx=2Printa(f(x+xEndSubFunctionf(xAsIntegerx=x+3f=xEndFunction次第运行后，单击命令按钮，输出结果为。A12B15 C17D18(26以下关于过程的表达中，差错的选项是。A情况过程是由某个情况触发而实行的过程B函数过程的前去值可以有多个C可以在情况过程中调用通用过程D不克不迭在情况过程中定义函数过程(27在窗体上画3个标签、3个文本框(名称分不为Text1、Text2跟Text3跟1个命令按钮(名称为Command1，外表如以下列图。编写如下次第：PrivateSubForm_Load(Text1.Text=Text2.Text=Text3.Text=EndSubPrivateSubCommand1_Click(x=Val(Text1.Texty=Val(Text2.TextText3.Text=f(x，yEndSubFunctionf(ByValxAsInteger,ByValyAsIntegerDoWhiley0tmp=xModyx=yy=tmpLoopf=xEndFunction运行次第，在Text1文本框中输出36，在Text2文本框中输出24，然后单击命令按钮，那么在Text3文本框中表示的内容是。A4B6 C8D12(28窗体上有名称分不为Text1、Text2的2个文本框，恳求文本框Text1中输出的数据小于500，文本框Text2中输出的数据小于1000，否那么重新输出。为了完成上述功能，在以下次第中征询号(?处应填入的内容是PrivateSubText1_LostFocus(CallCheckInput(Text1，500EndSubPrivateSubText2_LostFocus(CallCheckInput(Text2，1000EndSubSubCheckInput(tAs?，xAsIntegerIfVal(t.TextxThenMsgBox请重新输出!EndIfEndSubATextBSelTextCControlDForm(29在窗体上画1个文本框，其名称为Text1，然后编写如下过程：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsIntegerPrintChr(KeyCodeEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger，ShiftAsIntegerPrintChr(KeyCode+2EndSub次第运行后，把中心移到文本框中，现在假定敲击“A键，那么输出结果为。AAABABCACDAD(30为了使列表框中的工程呈多列表示，需要设置的属性为。AColumnsBStyleCListDMultiSelect(31在窗体上画1个命令按钮，名称为Command1，然后编写如下次第：DimFlagAsBooleanPrivateSubCommand1_Click(DimintNumAsIntegerintNum=InputBox(请输出：IfFlagThenPrintf(intNumEndSubFunctionf(XAsIntegerAsIntegerIfX10ThenY=XElseY=X+10EndIff=YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingleFlag=TrueEndSub运行次第，起首单击窗体，然后单击命令按钮，在输出对话框中输出5，那么次第的输出结果为。A0B5 C15D无任何输出(32在菜单编辑器中树破1个名称为Menu0的菜单项，将其“可见属性设置为False，并树破其假定干子菜单，然后编写如下过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingleIfButton=1ThenPopupMenuMenu0EndIfEndSub那么以下表达中差错的选项是。A该过程的感染是弹出一个菜单B单击鼠标右键时弹出菜单CMenu0是在菜单编辑器中定义的弹出菜单的名称D参数X、Y指明鼠标当前位置的坐标(33窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击情况过程如下：PrivateSubCommand1_Click(CD1.FileName=CD1.Filter=AllFiles|*.*|(*.DoC|*.Doc|(*.Txt|*.txtCD1.FilterIndex=2CD1.Action=1EndSub关于以上代码，差错的表达是。A实行以上情况过程，通用对话框被设置为“打开文件对话框B通用对话框的初始道路为当前道路C通用对话框的默认文件典范为*.TxtD以上代码差错文件实行读写把持(34以下表达中差错的选项是。A用Shell函数可以实行扩大年夜名为.exe的应用次第B假定用Static定义通用过程，那么该过程中的局部变量都被默认为Static典范CStatic典范的变量可以在标准模块的声明局部定义D全局变量必须在标准模块中用Public或Global声明(35以下关于文件的表达中，差错的选项是。A应用Append办法打开文件时，文件指针被定位于文件尾B当以输出办法(Input打开文件时，假定文件不存在，那么树破一个新文件C次第文件各记录的长度可以差异D随机文件打开后，既可以停顿读把持，也可以停顿写把持二、填空题(每空2分，共30分请将每空的精确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分。(1对长度为10的线性表停顿冒泡排序，最坏情况下需要比较的次数为【1】。(2在面向东西办法中，【2】描画的是存在相似属性与把持的一组东西。(3在关系模型中，把数据看成是二维表，每一个二维表称为一个【3】。(4次第测试分为静态分析跟静态测试。其中【4】是指不实行次第，而只是对次第文本停顿检查，通过阅读跟讨论，分析跟觉察次第中的差错。(5数据独破性分为逻辑独破性与物理独破性。当数据的存储结构修改时，其逻辑结构可以波动，因此，基于逻辑结构的应用次第不必修改，称为【5】。(6以下语句的输出结果是【6】。PrintFormat(Int(12345.6789*100+0.5100，0000，0.00(7在窗体上画1个命令按钮，其名称为Command1，然后编写如下情况过程：PrivateSubCommand1_Click(Dimarr(1To100AsIntegerFori=1To100arr(i=Int(Rnd*1000NextiMax=arr(1：Min=arr1Fori=1To100If【7】ThenMax=arr(iIf【8】ThenMin=arr(iNextiPrintMax=；Max，Min=；MinEndSub次第运行后，单击命令按钮，将发作100个1000以内的随机整数，放入数组arr中，然后查寻并输出这100个数中的最大年夜值Max跟最小值Min，请填空。(8在窗体上画1个名称为Command1的命令按钮跟2个名称分不为Text1、Text2的文本框，如以下列图，然后编写如下次第：FunctionFun(xAsInteger,ByValyAsIntegerAsIntegerx=x+yIfx0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommand1_Click(DimaAsInteger,bAsIntegera=-10：b=5Text1.Text=Fun(a，bText2.Text=Fun(a，bEndSub次第运行后，单击命令按钮，Text1跟Text2文本框表示的内容分不是【9】跟【10】。(9在窗体上画1个命令按钮跟1个文本框，其名称分不为Command1跟Text1，然后编写如下代码：DimSaveAllAsStringPrivateSubCommand1_Click(Text1.Text=Left(UCase(SaveAll，4EndSubPrivateSubText1_KeyPress(KeyAsciiAsIntegerSaveAll=SaveAll+Chr(KeyAsciiEndSub次第运行后，在文本框中输出abcdefg，单击命令按钮，那么文本框中表示的内容是【11】。(10在窗体上画1个命令按钮跟1个通用对话框，其名称分不为Command1跟CommonDialog1，然后编写如下情况过程：PrivateSubCommand1_Click(CommonDialog1.【12】=打开文件CommonDialog1.Filter=AllFiles(*.*|*.*CommonDialog1.InitDir=C：CommonDialog1.ShowOpenEndSub该次第的功能是，次第运行后，单击命令按钮，将表示“打开文件对话框，其标题是“打开文件，在“文件典范栏内表示“AIlFiles(*.*，并表示C盘根目录下的所有文件，请填空。(11在窗体上画1个文本框，名称为Text1，然后编写如下次第：PrivateSubForm_Load(Opend：tempdat.txtForOutputAs#1Text1.Text=EndSubPrivateSubText1_KeyPress(KeyAsciiAsIntegerlf【13】=13ThenIfUCase(Text1.Text=【14】ThenClose1EndElseWrite#1，【15】Text1.Text=EndIfEndIfEndSub以前次第的功能是，在D盘temp目录下树破1个名为dat.txt的文件，在文本框中输出字符，每次按回车键(回车符的ASCII码是13都把当前文本框中的内容写入文件dat.txt，并去除文本框中的内容；假定输出“END，那么终了次第。请填空。2006年4月世界打算机等级检验二级VB笔试参考答案一、选择题15DADBA610DCDAC1115DCBAB1620DBAAA2125BCDAD2630BDCCA3135BBCCB二、填空题1452类3关系4静态分析静态测试5物理独破性612,345.687【7】Maxarr(i8【9】-5【10】59ABCD10DialogTitle11【13】KeyAscii【14】“END【15】Text1.text