2006年9月全国计算机等级考试二级VB笔试试卷及参考答案

2006年9月全国计算机等级考试二级VB笔试试卷及参考答案

2006年9月全国计算机等级考试二级笔试试卷Visual basic数据库程序设计（考试时间90分钟，满分100分）（1）下列选项中不符合良好程序设计风格的是（）。A）源程序要文档化B）数据说明的次序要规范化C）避免滥用goto语句D）模块设计要保证高耦合、高内聚（2）从工程管理角度，软件设计一般分为两步完成，它们是（）。A）概要设计与详细设计B）数据设计与接口设计C）软件结构设计与数据设计D）过程设计与数据设计（3）下列选项中不属于软件生命周期开发阶段任务的是（）。A）软件测试B）概要设计C）软件维护D）详细设计（4）在数据库系统中，用户所见的数据模式为（）。A）概念模式B）外模式C）内模式D）物理模式（5）数据库设计的4个阶段是：需求分析、概念设计、逻辑设计和（）。A）编码设计B）测试阶段C）运行阶段D）物理设计（6）设有下列3个关系表下列操作中正确的是（）。A）T=R∩SB）T=R∪SC）T=R×SD）T=R/S（7）下列叙述中正确的是（）。A）一个算法的空间复杂度大，则其时间复杂度也必定大B）一个算法的空间复杂度大，则其时间复杂度必定小C）一个算法的时间复杂度大，则其空间复杂度必定小D）上述3种说法都不对（8）在长度为64的有序线性表中进行顺序查找，最坏情况下需要比较的次数为（）。A）63B）64C）6D）7（9）数据库技术的根本目标是要解决数据的（）。A）存储问题B）共享问题C）安全问题D）保护问题（10）对下列二叉树进行中序遍历的结果是（）。A）ACBDFEGB）ACBDFGEC）ABDCGEFD）FCADBEG（11）下列叙述中正确的是（）。A）窗体的Name属性指定窗体的名称，用来标识一个窗体B）窗体的Name属性值是显示在窗体标题栏中的文本nC）可以在运行期间改变窗体的Name属性的值D）窗体的Name属性值可以为空（12）下列叙述中错误的是（）。A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件B）保存VisualBasic程序时，应分别保存窗体文件及工程文件C）VisualBasic应用程序只能以解释方式执行D）窗体文件包含该窗体及其控件的属性（13）设a=2，b=3，c=4，下列表达式的值是（）。Nota<=cOr4*c=b^2Andb<>a+cA）-1B）1C）TrueD）False（14）有下列用户定义类型：TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则下列正确引用该类型成员的代码是（）。A）Student.name="李明"B）DimsAsStudents.name="李明"C）DimsAsTypeStudentD）DimsAsTypes.name="李明"s.name="李明"（15）设a=5,b=6,c=7,d=8,执行下列语句后，x的值为（）。x=IIF((a>b)And(c>d),10,20)A）10B）20C）TrueD）False（16）执行下列程序段后，变量c$的值为（）。a$="VisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)A）VisualBASICProgrammingB）QuickBasicProgrammingC）QUICKBasicProgrammingD）QuickBASICProgramming（17）在窗体上画一个文本框（其名称为Text1）和一个标签（其名称为Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。下列可以实现上述操作的事件过程是（）。A）PrivateSubText1_Click()Label1.Caption=Text1.TextEndSubB）PrivateSubText1_Change()Label1.Caption=Text1.TextEndSubC）PrivateSubLabel1_Change()Label1.Caption=Text1.TextEndSubD）PrivateSubLabel1_Click()Label1.Caption=Text1.TextnEndSub（18）在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写下列事件过程：PrivateSubCommand1_Click()Counter=0Fori=1To4Forj=6To1Step-2Counter=Counter+1NextjNextiLabel1.Caption=Str(Counter)EndSub程序运行后，单击命令按钮，标签中显示的内容是（）。A）11B）12C）16D）20（19）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写下列事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是（）。A）5B）4C）3D）2（20）在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写下列事件过程：PrivateSubCommand1_Click()a=0Fori=1To10a=a+1b=0Forj=1To10a=a+1b=b+2NextjNextiLabel1.Caption=Str(a)Label1.Caption=Str(b)EndSub程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是（）。A）10和20B）20和10C）200和110D）110和20n（21）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是（）。A）PivateSubList1_Click()Label1.Caption=List1.ListIndexList1.RemoveItemList1.TextEndSubB）PrivateSubList1_Click()Label1.Name=List1.ListIndexList1.RemoveItemList1.TextEndSubC）PrivateSubList1_Click()Label1.Caption=List1.TextList1.RemoveItemList1.ListIndexEndSubD）PrivateSubList1_Click()Label1.Name=List1.TextList1.RemoveItemList1.ListIndexEndSub（22）在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsIntegerFori=1To3Forj=1To3a(i,j)=(i-1)*3+jPrinta(i,j);NextjPrintNextiEndSub程序运行后，单击命令按钮，窗体上显示的是（）。A）123B）234246345369456C）147D）123258456369789（23）在窗体上画一个命令按钮，名称为Command1，然后编写下列事件过程：OptionBase0PrivateSubCommand1_Click()DimA(4)AsInteger,B(4)AsIntegerFork=0To2A(k+1)=InputBox("请输入一个整数")nB(3-k)=A(k+1)NextkPrintB(k)EndSub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为（）。A）0B）2C）3D）4（24）有下列程序：OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=1To3Forj=1To2arr(i,j)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3To4arr(3,j)=j+9NextjPrintarr(3,2);arr(3,4)EndSub程序运行后，单击窗体，输出结果为（）。A）813B）013C）712D）00（25）下列叙述中正确的是（）。A）一个Sub过程至少要有一个ExitSub语句B）一个Sub过程必须有一个EndSub语句C）可以在Sub过程中定义一个Function过程，但不能定义Sub过程D）调用一个Function过程可以获得多个返回值（26）有下列程序：SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=5a(2)=6a(3)=7a(4)=8subPa()Fori=1To4nPrinta(i)NextiEndSub运行上面的程序，单击命令按钮，输出结果为（）。A）2B）5466788C）10D）出错121416（27）设有下列通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=""strL=Len(xStr)i=1DoWhilei<=strL/2tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)i=i+1LoopFun=tStrEndFunction在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程：PrivateSubCommand1_Click()DimS1AsStringS1="abcdef"Text1.Text=UCase(Fun(S1))EndSub程序运行后，单击命令按钮，则Text1中显示的是（）。A）ABCDEFB）abcdefC）AFBECDD）DEFABC（28）在窗体上画一个名称为TxtA的文本框，然后编写下列事件过程：PrivateSubTxtA_KeyPress(KeyAsciiAsInteger)……EndSub假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是（）。A）单击鼠标B）双击文本框C）鼠标滑过文本框D）按下键盘上的某个键（29）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写下列事件过程：DimS1AsString,S2AsStringPrivateSubForm_Load()nText1.Text=""Text2.Text=""EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)S2=S2&Chr(KeyCode)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)S1=S1&Chr(KeyAscii)EndSubPrivateSubCommand1_Click()Text1.Text=S2Text2.Text=S1S1=""：S2=""EndSub程序运行后，在Text1中输入"abc"，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（）。A）abc和ABCB）abc和abcC）ABC和abcD）ABC和ABC（30）下列说法中正确的是（）。A）任何时候都可以通过执行"工具"菜单中的"菜单编辑器"命令打开菜单编辑器B）只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C）任何时候都可以通过单击标准工具栏上的"菜单编辑器"按钮打开菜单编辑器D）只有当代码窗口为当前活动窗口时，才能打开菜单编辑器（31）在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写下列事件过程：PrivateSubCommand1_Click()CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&_"(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exe"CommonDialog1.FilterIndex=3CommonDialog1.ShowOpenMsgBoxCommonDialog1.FileNameEndSub程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是（）。A）AllFiles(*.*)B）TextFiles(*.txt)C）ExecutbleFiles(*.exe)D）不确定（32）下列叙述中错误的是（）。A）一个工程中可以包含多个窗体文件B）在一个窗体文件中用Public定义的通用过程不能被其他窗体调用C）窗体和标准模块需要分别保存为不同类型的磁盘文件D）用Dim定义的窗体层变量只能在该窗体中使用（33）下列叙述中错误的是（）。A）语句"Dima,bAsInteger"声明了两个整型变量B）不能在标准模块中定义Static型变量C）窗体层变量必须先声明，后使用D）在事件过程或通用过程内定义的变量是局部变量n（34）设有语句：Open"d:Test.txt"ForOutputAs#1，下列叙述中错误的是（）。A）若d盘根目录下无Test.txt文件，则该语句创建此文件B）用该语句建立的文件的文件号为1C）该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息D）执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息（35）下列叙述中错误的是（）。A）顺序文件中的数据只能按顺序读写B）对同一个文件，可以用不同的方式和不同的文件号打开C）执行Close语句，可将文件缓冲区中的数据写到文件中D）随机文件中各记录的长度是随机的二．填空题（每空2分，共30分）（1）下列软件系统结构图：的宽度为【1】。（2）【2】的任务是诊断和改正程序中的错误。（3）一个关系表的行称为【3】。（4）按"先进后出"原则组织数据的数据结构是【4】。（5）数据结构分为线性结构和非线性结构，带链的队列属于【5】。6）描述"X是小于100的非负整数"的VisualBasic表达式是【6】。（7）在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色），此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。PrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1_【7】()Command1.Enabled=TrueEndSub（8）在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：PrivateSubCommand1_Click()DimaAsStringa="123456789"Fori=1To5PrintSpace(6-i);Mid$(a,【8】,2*i-1)NextiEndSub程序运行后，单击命令按钮，窗体上的输出结果是545634567n2345678123456789请填空。（9）下列程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)到A(10)依次赋给B(1,1)到B(1,10)，把A(11)到A(20)依次赋给B(2,1)到B(2,10),……，把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。OptionBase1PrivateSubForm_Click()DimiAsInteger,jAsIntegerDimA(1To100)AsIntegerDimB(1To10,1To10)AsIntegerFori=1To100A(i)=Int(Rnd*100)NextiFori=1To【9】Forj=1To【10】B(i,j)=【11】PrintB(i,j);NextjPrintNextiEndSub（10）在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为"城市名称"和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示"已成功添加新输入项"，如图所示。如果输入的项目已存在，则在Label2中给出提示"输入项已在组合框中"。请填空。PrivateSubCombol_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=【12】ThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加新输入项"Combo1.【13】Combo1.TextEndIfEndSub（11）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1n，然后编写下列事件过程：PrivateSubCommand1_Click()DiminDataAsStringText1.Text=""Open"d:myfile.txt"For【14】As#1DoWhile【15】Input#1，inDataText1.Text=Text1.Text+inDataLoopClose#1EndSub以上程序的功能是：打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。 一、选择题：01—05 DACBD   06—10   CDBBA11—15 ACDBB   16—20   DBBCD21—25 CDBAB   26—30   ACDCB31—35 CBACD          二、填空题：1、32、调试3、元组4、栈5、线性6、X%<100ANDX%>=07、CHANGE8、6-i9、1010、1011、a((i-1)*10+j)12、combo1.list(i)13、additem14、input15、noteof(1)