江苏省计算机二级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）下列叙述中正确的是A）数据的逻辑结构与存储结构必定是一一对应的B）由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构C）程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D）以上三种说法都不对（7）冒泡排序在最坏情况下的比较次数是A）ｎ(n＋1)/2B）nlog2nC）n(n－1)/2D）ｎ/2（8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为A）219B）221C）229D）231（9）下列叙述中正确的是A）数据库系统是一个独立的系统，不需要操作系统的支持B）数据库技术的根本目标是要解决数据的共享问题C）数据库管理系统就是数据库系统D）以上三种说法都不对（10）下列叙述中正确的是A）为了建立一个关系，首先要构造数据的逻辑关系B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项C）一个关系的属性名表称为关系模式D）一个关系可以包括多个二维表（11）要使一个文本框可以显示多行文本，应设置为True的属性是A）EnabledB）MultiLineC）MasLenfthD）Width（12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是A）Form_KeyPress()B）Text1_LostFocus()C）Text1_Click()D）Test1_Change()（13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是A）PrivateSubCommand1_Click()B）PrivateSubText1.GotFocusCommand1.GotFocusEndSubEndSubC）PrivateSubCommand1_Click()D）PrivateSubText1.SetFocusCommand1.SetFocusEndSubEndSub（14）执行以下程序后输出的是PrivateSubCommand1_Click()Ch$=”AABCDEFGH”PrintMid(Righ(ch$,6),Len(left(ch$,4)),2)EndSubA)CDEFGHB)ABCDC)FGD)AB（15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是A)PrvateSubList1_Click()B)PrivateSubForm1_Click()PrintList1.TextPrintList1.TextEndSubEndSubC)PrivateSubList1_Click()D)PrivateSubForm1_Click()PrintForm1.TextList1.PrintList1.TextEndSubEndSub（16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指A)按钮左端到窗体左端的距离B)按钮左端到图片框左端的距离C)按钮中心点到窗体左端的距离D)按钮中心点到图片框左端的距离（17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是A)CD1.DialogTitle=“对话框窗口”B)CD1.Action=“对话框窗口”C)CD1.FileName=“对话框窗口”D)CD1.Filter=“对话框窗口”（18）在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：PrivateSubForm_Load()Command2.Enabled=FalseCheck1.Value=1EndSub刚运行程序时，看到的窗体外观是：（19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是A)PrivateSubCommand1_Click()List1.ClearEndSubB)PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSubC)PrivateSubCommand1_Click()List1.RemoveltemList1.ListIndexEndSubD)PrivateSubCommand1_Click()List1.RemoveltemEndSub（20）某人设计了如下程序用来计算并输出7!（7的阶乘）PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPrinttEndSub执行程序时，发现结果是错误的，下面的修改 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 中能够得到正确结构的是A）把t=0改为t=1B）把Fork=7To2Step-1改为Fork=7To1Step-1C）把Fork=7To2Stip-1改为Fork=1To7D）把Next改为Nexik（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是A）把所有单选按钮的Index属性改为相同值B）把所有单选按钮的Index属性改为连续的不同值C）把所有单选按钮的Caption属性值改为相同D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。（22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是：标题名称文件file新建new保存saveA）PrivateSubsave_Click()B）PrivateSubsave_Click()Text1.Text=file.save.CaptionText1.Text=save.CaptionEndSubEndSubC）PrivateSubfile_Click()D）PrivateSubfile_Click()Text1.Text=file.save.CaptionText1.Text=save.CaptionEndSubEndSub（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的属性设置为Enabled=True,Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。PrivateSubTimer1_Timer()Label1.Caption=Time$EndSub在程序执行时发现未能实现上述目的，那么，他应做的修改是A）通过属性窗口把计时器的Interval属性设置为2000B）通过属性窗口把计时器的Enabled属生设置为FalseC)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是（25）下面关于文件的叙述中错误的是A）随机文件中各条记录的长度是相同的]B）打开随机文件时采用的文件存取方式应该是RandomC）向随机文件中写数据应使用语句Print#文件号D）打开随机文件与打开顺序文件一样，都使用Open语句（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是A）Picture1.Picture=”Flie1.jpgB）Picture1.Picture=LoadPicture(“File1.jpg”)C)LoadPicture(“File1.jpg”)D）CallLoadPicture(“File1.jpg”)（27）下面程序执行时，在窗体上显示的是PrivateSubCommand1_Click()Dima(10)Fork=1To10a(k)=11–kNextkPrinta(a(3)\a(7)Moda(5))EndSubA）3B）5C）7（28）为达到把a、b中的值交换后输出的目的，某人编程如下：PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b)Printa,bEndSubPrivateSubswap(ByValaAsInteger,ByValbAsInteger)c=a:a=b:b=cEndSub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是A）调用swap过程的语句错误，应改为Callswapa,bB）输出语句错误，应改为：Print”a”,”b”C）过程的形式参数有错，应改为：swap(ByRefaAsInteger,ByRefbAsInteger)D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a（29）有如下函数：Functionfun(aAsInteger,nAsInteger)AsIntegerDimmAsIntegerWhilea>=na=a-nm=m+1Wendfun=mEndFunction该函数的返回值是A）a乘以n的乘积B）a加n的和C）a减n的差D）a除以n的商（不含小数部分）（30）下面程序的输出结果是PrivateSubCommand1_Click()ch$=”ABCDEF”procchPrintchEndSubPrivateSubproc(chAsString)S=””Fork=Len(ch)To1Step-1s=s&Mid(ch,k,1)Nextkch=sEndSubA）ABCDEFB）FEDCBAC）AD）F（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：FunctionMaxValue(a()AsInteger)AsIntegerDimmax%max=1Fork=2To10Ifa(k)>a(max)Thenmax=kEndIfNextkMaxValue=maxEndFunction程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是A）语句max=1应改为max=a(1)B）语句Fork=2To10应改为Fork=1To10C）If语句中的条件a(k)>a(max)应改为a(k)>maxD）语句MaxValue=max应改为MaxValue=a(max)（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序：PrivateSubCommand1_Click()Dimn%,b,tt=1:b=1:n=2Dob=b*nt=t+bn=n+1LoopUntiln>9PrinttEndSub此程序计算并输出一个表达式的值，该表达式是A）9！B）10！C）1！+2！+…+9！D）1！+2！+…+10！（33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）：DimcmdmaveAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=TrueEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfcmdmaveThenForm1.Pset(X,Y)EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=FalseEndSub此程序的功能是A）每按下鼠标键一次，在鼠标所指位置画一个点B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线（34）某人设计了下面的函数fun，功能是返回参数a中数值的位数Functionfun(aAsInteger)AsIntegerDimn%n=1Whilea\10>=0n=n+1a=a\10Wendfun=nEndFunction在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是A）把语句n=1改为n=0B）把循环条件a\10>=0改为a\10>0C）把语句a=a\10改为a=aMod10D）把语句fun=n改为fun=a（35）在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是A）PrivateSubCheck1_Click(IndesAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格EndIfNextkEndSubB）PrivateSubCheck1_Click(IndexAsInteger)Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格EndIfNextkEndSubC）PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text&Check1(Index).Caption&""'双引号中是空格EndIfNextkEndSubD）PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格ExitForEndIfNextkEndSub二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】。(2)在两种基本测试方法中，【2】测试的原则之一是保证所测模块中每一个独立路径至少执行一次。(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】存储结构。(4)对下列二叉树进行中序遍历的结果为【4】。（5）在E-R图中，矩形表示【5】。（6）窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图1中的“重庆”，则与“北京”交换，得到图2的结果。下面是可实现此功能的程序，请填空。PrivateSubCombo1_Click()Dimtemptemp=Combo1.Text[6]=Combo1.List(0)Combo1.List(0)=tempEndSub（7）设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。Dim[7]AsIntegerPrivateSubForm_Load()pos=HScroIII.ValueEndSubPrivateSubHScroIII_Change()Print[8]-pospos=HScroIII.ValueEndSub（8）设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。PrivateSubCommand1_Click()CD1.Filter="文本文件1*.txt(Word文档)*.doc"CD1.Filterinder=1CD1.ShowOpenIfCD1.FileName<>""ThenOpen[9]ForInputAs#1LineInput#1,ch$Close#1Text1.Text=[10]EndIfEndSub（9）下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。PrivateSubCommand1_Click()DimxAsIntegerx=InputBox(“请输入一个正整数”)Whilex>__[11]___PrintxMod10;x=x\10WendPrint__[12]__EndSub（10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框（见图）。合法编号的组成是：前2个字符是大写英文字母，第3个字符是“-”，后面是数字字符（至少1个）。下面程序可实现此功能，请填空。PrivateSubText1_Lostfocus()Dimk%,n%n=Len([13])Fork=1toif(n>3,n,4)c=Mid(Text1.Text,k,1)SelectCasekCase1,2Ifc<"A"Orc>"Z"ThenMsgBox("第"&k&"个字符必须是大写字母！")SetPositionkExitForEndIfCase3Ifc<>"-"ThenMsgBox("第"&k&"个字符必须是字符"'"-"'")SetPositionkExitForEndIfCaseElseIfc<"0"Orc>"9"ThenMsgBox("第"&k&"个字符必须是数字！")SetPositionkExitForEndIfEndSelectNextkEndSubPrivateSubSetPosition(posAsInteger)Text1.SelStart=pos-1Text.SelLength=[14]Text1.[15]EndSub2007年9月全国计算机等级考试二级VB参考答案一、选择题1-5DBCAA6-10CCABA11-15BDCCA16-20BAACA21-25DBABC26-30BDCDB31-35DCDBA二、填空题1、无歧义性2、白盒测试3、顺序4、ACBDFEHGP5、实体集6、Combol1.List(Combol1.ListIndex)7、pos8、HScroll1.value9、CD1.FileName10、ch11、1012、x13、Text1.Text14、115、SetFocus第二部分VisualBasic程序设计 .     一、选择题(用答题卡答题，答案依次填在21—30答题号内)     21.关于窗体，以下叙述中正确的是   21   。         A.仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点         B.一个VB工程只能从某个指定的窗体开始启动         C.只有窗体可以作为控件的容器         D.UnloadMe和End语句的效果总是等同的     22.若a为长整型变量，则执行a=12:PrintLen(a);Len(Str(a));Len(CStr(a))后，在窗体上看到的是        22   。         A.423   B.2 3 2   C.43 2D.2 2 3     23.数学表达式对应的visualBasic表达式是 23  。         A.Cos(30*3.14159/180)/(4*y+Ln(x))+Exp(2)         B.Cos(30*3.14159/180)/(4*y+Log(x))+Exp(2)         C.Cos(30*3.14159/180)/(4*y+Ln(x))+e^2         D.Cos(30)/(4*y+Log(x))+e^2     24.表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是  24   。         A.-8   B.-7   C.-6   D.-5     25.以下说法中，错误的是  25   。         A.使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小         B.ReDim语句只能出现在过程中         c.使用ReDim语句重新定义的动态数组，只能比原数组大         D.使用ReDim语句可以对动态数组的所有元素进行初始化     26.下列关于菜单的说法中，错误的是.   26   。       A.可以为菜单项选定快捷键       B.若在"标题"文本框中键入连字符(一)，则可在菜单的两个菜单命令项之间加一条分隔线       C.除了Click事件之外，菜单项还可以响应其他事件       D.菜单编辑器的"名称"文本框用于输入菜单项的名称     27.以下有关过程中形式参数的描述中，错误的是 27  。       A.函数过程可以没有形式参数       B.事件过程一定没有形式参数       C.形参数组只能按地址与实参数组结合       D.窗体与控件也可以作为过程的参数     28.以下表达式中，可以表示"A和B之一大于0"的是 28 。         ①A*B<=0 ②A>0XorB>0 ③A>0OrB>0 ④A>0AndB<=0OrB>0AndA<=0         A．①③   B．③④   C．②④   D．①②④     29．设变量A为长整型，则下面不能正常执行的语句是29   。         A．A=32768*2   B．A=2*1.5*16384         C．A=16384*2   D．A=190^2     30．以下有关滚动条控件(ScrollBar)的说法中错误的是  30  。       A．只能在设计时设置Max与Min属性值       B．Value属性返回滚动条内滑块当前所处位置的值       C．拖动滚动条内滑块时，将触发滚动条的Scroll事件       D．单击滚动箭头时，将触发滚动条的Change事件     二:填空题     1.执行下面的程序后,A(1,4)的值是_____,A(2,3)的值是_______,A(3,2)的值是     OptionExplicit     OptionBase1     PrivateSubCommand1_Click()       Dima(4,4)AsInteger,ubAsInteger       DimiAsInteger,jAsInteger,nAsInteger       ub=UBound(a,1)       n=0       Fori=ubTo1Step-1         Forj=1Toub+1-i           n=n+1           a(j,j+i-1)=n         Nextj       Nexti       Fori=ubTo2Step-1         Forj=ubToiStep-1            a(j,j-i+1)=a(5-j,4-j+i)         Nextj       Nexti       Fori=1Toub         Forj=1Toub           Picture1.Printa(i,j);         Nextj         Picture1.Print       Nexti     EndSub     2.在InputBox函数对话框中输入4(或直接单击”确定”按钮)窗体显示的第一行内容__(4)___,第二行是__(5)___,第四行是__(6)___     OptionExplicit     privateSubcommand1_Click()       dimdaysasinteger       Days=InputBox("输入正整数",4)       printfun(days)     EndSub            privatefunctionfun(dasinteger)asinteger       ifD=1then         fun=1       else         fun=2*fun(D-1)+1         printD;fun       endif     EndFunction     3窗体显示的第一行是__(7)_____第三行是__(8)_____最后一行是___(9)__     privatesubcommand1_Click()       Dimiasinteger,kasinteger       Fori=1to5         k=fun(i)+I         printk       nexti       printi     EndSub     FunctionFun(Nasinteger)asInteger       StaticMasinteger       Dimjasinteger       M=M+N       N=N+1       ForJ=1ToM         J=J+2         Fun=Fun+J       NextJ       Fun=Fun+N     EndFunction     4.窗体显示的第一行是__(10)_____第三行是__(11)_____,最后一行是_(12)____     OptionExplicit     PrivateSubCommand1_Click()       DimSasString,NasInteger       S="3AB"       N=14       PrintConvert(S,N)     EndSub     PrivateFunctionConvert(SAsstring,NasInteger)asLong       DimStasstring,LasInteger,Iasinteger       L=Len(s)       DowhileL>=1         st=Left(s,1)        if st>"9"then          st=Asc(st)-55        endif        Covert=Convert+Val(st)*N^(L-1)        printVal(st)*N^(L-1)        L=L-1        s=Right(S,L)       Loop     EndFunction     5.窗体显示的第一行是__(13)___,第二行是__(14)____,第三行是___(15)__     OptionExplicit     PrivateSubCommand1_Click()       Dimsasstring,kasinteger,ch()asstring       DimPasstring,iasinteger       s=Ucase("Meetmeaftertheclass.")       Fori=1toLen(s)         IfMid(s,i,1)<="Z"andMid(s,i,1)>="A"then           p=p&Mid(s,i,1)         ElseIfp<>""then           k=k+1           RedimPreservech(k)           ch(k)=p           p=""         Endif       Nexti       Fori=1toUbound(ch)         iflen(ch(i))<=2then            Callmove_c(ch(i),1)         else            Callmove_c(ch(i),2)         endif         printch(i)       nexti     EndSUb     PrivateSubMove_c(sasstring,kasinteger)        Dimiasinteger,jasinteger,passtring*1        Fori=1tok           p=Right(s,1)           Forj=Len(s)-1to1step-1              Mid(s,j+1,1)=Mid(s,j,1)           Nextj           s=p&Right(s,Len(s)-1)