2006年4月全国计算机等级考试二级笔试试卷VB语言程序设计含答案

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)对如下二叉树ABDECF进行后序遍历的结果为。A)ABCDEFB)DBEAFCC)ABDECFD)DEBFCA(7)在深度为7的满二叉树中，叶子结点的个数为。A)32B)31C)64D)63(8)“商品”与“顾客”两个实体集之间的联系一般是。A)一对一B)一对多C)多对一D)多对多(9)在E-R图中，用来表示实体的图形是。A)矩形B)椭圆形C)菱形D)三角形(10)数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是。A)DB包含DBS和DBMSB)DBMS包含DB和DBSC)DBS包含DB和DBMSD)没有任何关系(11)以下关于VisualBasic特点的叙述中，错误的是。A)VisualBasic是采用事件驱动编程机制的语言B)VisualBasic程序既可以编译运行，也可以解释运行C)构成VisualBasic程序的多个过程没有固定的执行顺序D)VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构(12)以下叙述中，错误的是。A)一个VisualBasic应用程序可以含有多个标准模块文件B)一个VisualBasic工程可以含有多个窗体文件C)标准模块文件可以属于某个指定的窗体文件D)标准模块文件的扩展名是.bas(13)以下叙述中，错误的是。A)在VisualBasic中，对象所能响应的事件是由系统定义的B)对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C)VisualBasic中允许不同对象使用相同名称的方法D)VisualBasic中的对象具有自己的属性和方法(14)设有如下语句：Dima，bAsIntegerc=VisualBasicd=#7／20／2005#以下关于这段代码的叙述中，错误的是。A)a被定义为Integer类型变量B)b被定义为Integer类型变量C)c中的数据是字符串D)d中的数据是日期类型(15)以下能从字符串VisualBasic中直接取出子字符串Basic的函数是。A)LeftB)MidC)StringD)Instr(16)设a=4，b=3，c=2，d=1，下列表达式的值是。ab+1OrcdAndbModcA)TrueB)1C)-1D)0(17)以下可以作为VisualBasic变量名的是。A)A#AB)counstAC)3AD)?AA(18)设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是。A)PrintA=x+yB)PrintA=;x+yC)PrintA=+Str(x+y)D)PrintA=&x+y(19)假定有如下的命令按钮(名称为Command1)事件过程：PrivateSubCommand1_Click()x=InputBox(输入：，输入整数)MsgBox输入的数据是：”，，”输入数据：+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是。A)x的值是数值10B)输入对话框的标题是“输入整数”C)信息框的标题是“输入数据：10”D)信息框中显示的是“输入的数据是：”(20)在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：PrivateSubCommand1_Click()x=Val(Text1.Text)SelectCasexCase1，3y=x*xCaseIs=10，Is=-10y=xCase-10To10y=-xEndSelectEndSub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。A)执行y=x*xB)执行y=-xC)先执行y=x*x，再执行y=-xD)程序出错(21)设有命令按钮Command1的单击事件过程，代码如下：PrivateSubCommand1_Click()Dima(30)AsIntegerFori=1To30a(i)=Int(Rnd*100)NextForEacharrItemInaIfarrItemMod7=0ThenPrintarrItem；IfarrItem90ThenExitForNextEndSub对于该事件过程，以下叙述中错误的是。A)a数组中的数据是30个100以内的整数B)语句ForEacharrItemIna有语法错误C)IfarrItemMod7=0……语句的功能是输出数组中能够被7整除的数D)IfarrItem90……语句的作用是当数组元素的值大于90时退出For循环(22)设有命令按钮Command1的单击事件过程，代码如下：PrivateSubCommand1_Click()Dima(3，3)AsIntegerFori=1To3Forj=1To3a(i，j)=i*j+iNextjNextiSum=0Fori=1To3Sum=Sum+a(i，4-i)NextiPrintSumEndSub运行程序，单击命令按钮，输出结果是。A)20B)7C)16D)17(23)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a=0Fori=1To2Forj=1To4IfjMod20Thena=a-1EndIfa=a+1NextjNextiPrintaEndSub程序运行后，单击命令按钮，输出结果是。A)0B)2C)3D)4(24)窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中。为了实现上述功能，在程序中的问号(?)处应填入的内容是。PrivateSubOption1_Click(IndexAsInteger)IfText1.TextThenSelectCase?Case0Text2.Text=Val(Text1.Text)Case1Text2.Text=Val(Text1.Text)*10Case2Text2.Text=Val(Text1.Text)*100EndSelectEndIfEndSubA)IndexB)Option1.IndexC)Option1(Index)D)Option1(Index).Value(25)在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：PrivateSubCommand1_Click()Dima(10)AsIntegerDimxAsIntegerFori=1To10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序运行后，单击命令按钮，输出结果为。A)12B)15C)17D)18(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.Text)y=Val(Text2.Text)Text3.Text=f(x，y)EndSubFunctionf(ByValxAsInteger,ByValyAsInteger)DoWhiley0tmp=xModyx=yy=tmpLoopf=xEndFunction运行程序，在Text1文本框中输入36，在Text2文本框中输入(28)窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是。PrivateSubText1_LostFocus()CallCheckInput(Text1，500)EndSubPrivateSubText2_LostFocus()CallCheckInput(Text2，1000)EndSubSubCheckInput(tAs?，xAsInteger)IfVal(t.Text)xThenMsgBox请重新输入!EndIfEndSubA)TextB)SelTextC)ControlD)Form(29)在窗体上画1个文本框，其名称为Text1，然后编写如下过程：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubText1_KeyUp(KeyCodeAsInteger，ShiftAsInteger)PrintChr(KeyCode+2)EndSub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。A)AAB)ABC)ACD)AD(30)为了使列表框中的项目呈多列显示，需要设置的属性为。A)ColumnsB)StyleC)ListD)MultiSelect(31)在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：DimFlagAsBooleanPrivateSubCommand1_Click()DimintNumAsIntegerintNum=InputBox(请输入：)IfFlagThenPrintf(intNum)EndIfEndSubFunctionf(XAsInteger)AsIntegerIfX10ThenY=XElseY=X+10EndIff=YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Flag=TrueEndSub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。A)0B)5C)15D)无任何输出(32)在菜单编辑器中建立1个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenPopupMenuMenu0EndIfEndSub则以下叙述中错误的是。A)该过程的作用是弹出一个菜单B)单击鼠标右键时弹出菜单C)Menu0是在菜单编辑器中定义的弹出菜单的名称D)参数X、Y指明鼠标当前位置的坐标(33)窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下：PrivateSubCommand