2013年9月全国计算机等级《二级VB》上机模考试卷(2)

考试总分：45分

考试类型：模拟试题

作答时间：60分钟

已答人数：967

试卷答案：有

试卷介绍： 2013年9月全国计算机等级《二级VB》上机模考试卷(2)

开始答题

试卷预览

0 单选题

1. 在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1、标题为“判断”。编写适当的事件过程，要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图7-2所示。

2. 在名为Form1的窗体上画一个框架，名称为Frame1，标题为“框架”，高度为2500，宽度为3500，框架内建立一文本框，距左边框500，距框架的上边框1000，文本框中的初始内容设置为“文本框”。运行界面如图8—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sjZ．vbp。[8分]

3. 在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图4-3所，示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放人整型变量a中，然后汁算a!．(提示：运算结果应放人Lon9型变量中)，在文本框中显示结果，如图4—4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。[12分]

4. 在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图4-5所示。窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。[12分]

5. 在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars属性为2)。要求程序运行后，如果单击“读取”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来，运行界面如图6-5所示。如果单击“保存”按钮，则把数组中的前30个数据在文本框Textl中显示出来，并存入考生文件夹中的文件result．txt中。(考生文件夹中有标准模块mode5．bas，其中的writeData过程可以把指定个数的数组元素存人result．txt文件。)注意：在考生乏件夹中有工程文件si5．vbp及其窗体文件sj5．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“b”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sis．frm，工程文件名为sj5．vbp，结果存入result．txt文件，否则没有成绩。在考生文件夹中有工程文件sis．vbp及其窗体文件sis．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。[18分]

6. Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。FunctionIsfab(xAsInteger)AsBooleanDimiiAsInteger，bAsInteger，CAsInteger，flagAsBooleanflag=Falsea=1：b=1DoWhilex<Bc=a+ba=bb=cIfx=bThenflag=TrueLoopIsfab=flagEndFunction测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是（）。[1分]

A把a=b与b=C的位置互换

B把c=a+b移到b=C之后

C把DoWhilexb

D把Ifx=bThenflag=True改为Ifx=aThenflagTrue

7. 设有如下变量声明语句：Dima，bAsBoolean则下面叙述中正确的是（）。[1分]

Aa和b都是布尔型变量

Ba是变体型变量，b是布尔型变量

Ca是整型变量，b是布尔型变量

Da和b都是变体型变量

8. 设有如下程序段：Dima(10)…ForEachXInaPrintX；Nextx在上面的程序段中，变量X必须是（）。[1分]

A整型变量

B变体型变量

C动态数组

D静态数组

9. 有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，…要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下：PrivateSubFormClick（）DimiAsIntender，aAsInteger，bAsIntegerDimCAsInteger，dAsIntegera=0：b=1：c=1d=a4-b4-ci=5Whiled<=1C00Printd；a=b：b=c：c=dd=a+b+ci=i+1WendEndSub运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（）。[1分]

A把Whiled1000

B把i=5改为i=4

C把i=i+1移到Whiled<=1000的下面

D在i=5的上面增加一个语句：Printa；b；C；

10. 在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：PrivateSubCommand1Click（）Dimaa=Array(1，2，3，4)i=3：j=1DoWhile>=0s=s+ai)*ji=i-1j=j*1cLoopPrintSEndSub运行上面的程序，单击命令按钮，则输出结果是（）。[1分]

A4321

B123

C234

D1234

11. 以下关予多窗体的叙述中，正确的是（）。[1分]

A任何时刻，只有一个当前窗体

B向一个工程添加多个窗体，存盘后生成一个窗体文件

C打开一个窗体时，其他窗体自动关闭

D只有第一个建立的窗体才是启动窗体

12. 请阅读程序．0ptionBase1PrivateSubFo,mClick（）DimArr(4，4)AsIntegerFori=1To4Forj=1To4Arr(i，j)=(i=1)*2+jNextjNextiFori=3To4Forj=3To4PrintArr(j，i)；NextjPrintNextiEndSub程序运行后，单。旨窗体，则输出结果是（）。[1分]

A5768

B6879

C79810

D810811

13. 下列数据结构中，属于非线性结构的是（）。[1分]

A循环队列

B带链队列

C二叉树

D带链栈

14. 在程序运行时，下面的叙述中正确的是（）。[1分]

A用鼠标右键单击窗体中任何无控件部分，会执行窗体的Form—Load事件过程

B用鼠标左键单击窗体的标题栏，会执行窗体的Form—Click事件过程

C只装入而不显示窗体，也会执行窗体的Form—Load事件过程

D装入窗体后，每次显示该窗体时，都会执行窗体的Form—Click事件过程

15. 为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（）。[1分]

A把这2组单选按钮设置为名称不同的2个控件数组

B使2组单选按钮的Index属性分别相同

C使2组单选按钮的名称分别相同

D把2组单选按钮分别画到2个不同的框架中

16. 如果一个变量未经定义就直接使用，则该变量的类型为（）。[1分]

AInieger

BByte

CBoolean

DVariant

17. 下面可以产生20～30(含20和30)的随机整数的表达式是（）。[1分]

AInt(Rnd*10+20)

BInt(Rnd*11+20)

CInt(Rnd*20+30)

DInt(Rnd*30+20)

18. 下列关于函数过程的叙述中，正确的是（）。[1分]

A函数过程形参的类型与函数返回值的类型没有关系

B在函数过程中，过程的返回值可以有多个

C当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

D如果不指明函数过程参数的类型，则该参数没有数据类型

19. 假定用下面的语句打开文件：Open"Filcl．txt"ForInputAs#1则不能正确读文件的语句是（）。[1分]

AInput#1，ch$

BLineInput#1，ch$

Cch$一Input$(5，#1)

DRead#1，ch$

20. 下列关于文件的叙述中，错误的是（）。[1分]

A使用Append方式打开文件时，文件指针被定位于文件尾

B当以Input打开文件时，如果文件不存在，则自动建立一个新文件

C顺序文件的各个记录的长度可以不同

D随机文件打开后，既可以进行读操作，也可以进行写操作

21. 假定有下列程序段Fori=1TO3Forj=5TO1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是（）。[1分]

A15

B16

C17

D18

22. 如果执行一个语句后弹出如图所示的窗口，则这个语句是（）。[1分]

AInputBox("输人框"，"请输入VB数据")

Bx=InputBox("输入框"，"请输入VB数据")

CInputBox("请输入VB数据"，"输入框")

Dx=InputBox("清输入VB数据"，"输入框")

23. 在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：PrivateSubCommand1Click（）C=1234c1=Trim(Str(c))Fori=1To4PrintNextEndSub程序运行后，单击命令按钮，要求在窗体上显示下列内容：1121231234则在横线处应填入的内容为（）。[1分]

ARight(c1，i)

BLeft(c1，i)

CMid(c1，i，1)

DMid(c1，i，i)

24. 在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程OptionBase1PrivateSub，Command1Click（）Dima(5，5)ksIntegerFori=1TojForj=1To5a(i，j)=(i+j)*5＼10NextjNextiS=0Fori=1Tojs=s+a(i，i)NextiPrintsEndSub程序运行后，单击命令按钮，输出结果是（）。[1分]

A15

B13

C11

D9

25. 在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：DilnS1AsString，S2AsStringPrivateSubFormLoad（）Text1．Text=""Text2．Text=""Text1．Enabled=FalseText2．Enabled=FalseEndSubPrivateSubFormKeyDown(KeyCodeAsInteger，ShiftAsInteger)S2=S2＆Chr(KeyCode)EndSubPrivateSubFormKeyPress(KeyAsciiAsInteger)S1=S1＆Chr(KeyAscii)EndSubPrivateSubCommand1Click（）Text1．Text=S1Text2．Text=S2S1=""S2=""EndSub程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（）。[1分]

Aabc和ABC

B空白

CABC和abc

D出错

26. 设窗体文件中有下面的事件过程：PrivatesubCommand1Click（）DimSa%=100PrintaEndSub其中变量a和s的数据类型分别是（）。[1分]

A整型，整型

B变体型，变体型

C整型，变体型

D变体型，整型

27. 以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。Private，SubCommand1_Click（）IfNotCheck(Combo1．Text)ThenMsgBox("输入错误")ExitSubEndIfFork=0ToComb01．ListCount-1IfComb01．Text=Combo1．List(k)ThenMsgBOX("添加项目失败")ExitSubEndIfNextkCornbol．AddItemCombo1．TextMsgBOX("添加项目成功")EndSubPrivateFunctionCheck(chAsString)AsBooleann=Len(ch)Fork=1Tonc$=Ucace(Mid(ch，k，1))Ifc"Z"ThenCheck=FalseExitFunctionEndIfNextkCheck=TrueEndFunction程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（）。[1分]

A显示“输入错误”

B显示“添加项目失败”

C显示“添加项目成功”

D没有任何显示

28. 下列关系表达式中，其值为True的是（）。[1分]

A"XYZ">"XYz"

B"VisualBasic""visualbasic"

C"the"="there"

D"Integer"<"Int"

29. 设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（）。[1分]

AName

BIndex

CCaption

DLeft

30. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：PublicEnumSa=4b=3EndEnumPrivateSubCommand1Click（）DimxAsIntegerx=aIfx>=3ThenMsgBox"Pass!"EndSub运行程序，其结果是（）。[1分]

A运行错误．因为Enum定义有错

B运行错误．因为x=a类型不匹配

C运行正常结束，不显示任何信息

D运行正常．显示内容为“Pass!”的信息框

31. 层次型、网状型和关系型数据库划分原则是（）。[1分]

A记录长度

B文件的大小

C联系的复杂程度

D数据之间的联系方式

32. 在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：PrivateSubFormLoad（）Command2．Enabled=FalseCheck1．Value=1EndSub刚运行程序时，看到的窗体外观是（）。[1分]

A

B

C

D

33. 以下说法中错误的是（）。[1分]

A如果把一个命令按钮的Default属性设置为True，则按回车健与单击该命令按钮的作用相同

B可以用多个命令按钮组成命令按钮数组

C命令按钮只能识别单击(Click)事件

D通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用

34. 假定通过复制、粘贴操作建立了一个命令按钮数组Command1，下列说法中错误自是（）。[1分]

A数组中每个命令按钮的名称(Name属性)均为Command1

B若未做修改，数组中每个命令按钮的大小都一样

C数组中各个命令按钮使用同一个Click事件过程

D数组中每个命令按钮的Index属性值都相同

35. 设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（）。[1分]

AText1的SetFocus事件

BText1的GotFocus事件

CText1的LostFocus事件

D窗体的GotFocus事件

36. 下列选项中不属于面向对象程序设计特征的是（）。[1分]

A继承性

B多态性

C类比性

D封装性

37. 如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（）。[1分]

A它的Y1、Y2属性的值相等

B它的X1、X2属性的值相等

C它的X1、Y1属性的值分别与X2、Y2属性的值相等

D它的X1、X2属性的值分别与Y1、Y2属性的值相等

38. 若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指（）。[1分]

A按钮左端到窗体左端的距离

B按钮左端到图片框左端的距离

C按钮中心点到窗体左端的距离

D按钮中心点到图片框左端的距离

39. 执行语句DimX，YAsInteger后，（）。[1分]

AX和Y均被定义为整型变量

BX和Y均被定义为变体类型变量

CX被定义为整型变量，Y被定义为变体类型变量

DX被定义为变体类型变量，Y被定义为整型变量

40. 要求生产10个随机整致，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：OptionBase1PrivareSubCommand1Click（）Dimarr(10)AsIntegerFori=1To10循环1Arr(i)，=Int(Rnd*100)Printarr(i)；Nextix=InputBox("输入1—10的一个整数：")Fori=X+1To10循环2arr(i-1)=arr(i)NextiFori=x-1To10循环3Printarr(i)NextiEndSub程序运行后发现显示的结果不正确，应该进行的修改是（）。[1分]

A产生随机数时不使用Int函数

B循环2的初值应为i=x

C数组定义改为Dima(11)AsInteger

D循环3的循环终值应改为9

41. 软件生命周期是指（）。[1分]

A软件产品从提出、实现、使用维护到停止使用退役的过程

B软件从需求分析、设计、实现到测试完成的过程

C软件的开发过程

D软件的运行维护过程

42. 假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下：PublicXAsIntegerPublicYAsIntegerSubS1（）x=1S2EndSubSubS2（）y=10Form1．ShowEndSubModel2的代码如下：SubMain（）S1EndSub其中SubMain被设置为启动过程。程序运行后，各模块的执行顺序是（）。[1分]

AForm1→Model1→Model2

BModel1→Model2→Form1

CModel2→Model1→Form1

DModel2→Form1→Model1

43. 在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：DimSaveAllAsStringPrivateSubFormLoad（）ShowText1．Text=""Text1．SetFocusEndSubPrivateSubCommand1Click（）Text1．Text=LCase(SaveAll)+SaveAllEndSubPrivateSubFormKeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为（）。[1分]

AvbVB

B不显示任何信息

CVB

D出错

44. 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCoinmand1Click（）Dima$，b$，c$，k％a="ABCD"b="123456"c=""k=1DoWhilek<=Len(a)Ork<=Len(b)Ifk<=Len(a)Thenc=c＆Mid(a，k，1)EndIfIfk<=Len(b)Thenc=c＆Mid(a，k，1)EndIfk=k+1LoopPrintcEndSub运行程序，单击命令按钮，输出结果是（）。[1分]

A123456ABCD

BABCD123456

CD6C584A321

DA1B2C3D456

45. 设R是一个二元关系，S是一个三元关系，则下列运算中正确的是（）。[1分]

AR-S

BR×S

CR∩S

DR∪S