2014年全国计算机等级《二级VB》上机考试冲刺试题(5)

考试总分：43分

考试类型：模拟试题

作答时间：60分钟

已答人数：967

试卷答案：有

试卷介绍： 2014年全国计算机等级《二级VB》上机考试冲刺试题(5)

开始答题

试卷预览

0 单选题

1. （1）在名称为Form1的窗体上画一个名称为Check1的复选框数组，它含4个复选框，它们的标题依次为"Item1"、"Item2"、"Item3"和"Item4"，其索引号分别为0，1，2，3。初始状态下，"Item1"和"Item4"为选中状态。程序运行后的窗体界面如图39-1所示。图39-1注意：存盘时必须存放考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。（2）在名称为Form1的窗体上画一个名称为VScroll1的垂直滚动条，其刻度值范围为1~200；画一个命令按钮，名称为Command1、标题为"向下移动"。请编写适当的事件过程，使得程序运行时，每单击命令按钮一次（假定单击次数少于10次），滚动块向下移动20个刻度。程序运行时的窗体界面如图39-2所示。要求程序中不得使用变量，事件过程中只能写一条语句。图39-2注意：存盘时必须存放在考生文件夹下，工程文件名为sj2.vbp，窗体文件名为sj2.frm。[18分]

2. （1）在考生文件夹下有一个工程文件sj3.vbp，相应的窗体文件名为sj3.frm，请装入该文件，在窗体上画一个命令按钮，名称分别为Command1，标题为"添加项目"，再画一个列表框和一个文本框，名称分别为List1和Text1。编写适当的事件过程，要求程序运行后，如果从键盘上输入某项，再单击"添加项目"命令按钮，则将该添加到列表框中（内容任意，不少于3个），如图4-4所示；如果单击列表框中的某一项则将其从列表框中删除，如图4-5所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。图4-4图4-5

3. 打开考生文件夹下的sj5.vbp，在名称为Form1的窗体上建立一个名为Text1的文本框和两个命令按钮，名称分别为Command1和Command2，命令按钮上分别显示"读入"和"排序"（如图3-6所示）。程序运行时，单击"读入"按钮，将"in.txt"文件中的50个数读入，单击"排序"则把数组a中的数值按照降序排列。请在有"?"号的地方填正确内容，然后删除"?"及代码前的所有注释符（即'号）但不能修改其他部分。图3-6注意：存盘时不得改变文件名和文件夹。[18分]

4. 在C盘当前文件夹下有一个已建立好的顺序文件Alph．txt，文件内容为只含有字母的一个字符串（有双引号界定符）。单击窗体，打开A1ph．txt文件，读取字符串并显示在文本框Textl中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入AlpO．txt文件中（无双引号界定符）。请选择横线处合适的语句（）。PrivateSubForm＿Load（）DimStrInAsString，StrOutAsStringOpen＂C：＼Alph．txt＂ForInputAs＃1________________CloseTextl．Text＝StrIn___________Text2．Text＝StrOutOpen＂C：＼AlpO．txt＂ForOutputAs＃2_______CloseEndSubPrivateFunctionStrSort（sAsString）AsStringDimsArr（）AsString＊1，jAsInteger，JAsInteger，nAsIntegerDimtAsString＊1n＝Len（s）ReDimsArr（n）Fori＝1TonsArr（i）＝Mid（s，i，1）NextiFori＝1Ton．1Forj＝i＋1TonIfsArr（i）＞sArrjThent＝sArr（i）：sArr（i）＝sArr（i）：sArr（j）＝tEndIfNexti，iFori＝1TonStrSort＝StrSort＆sArr（i）NextiEndFunction[1分]

AInput＃1，StrlnStrlnPrint＃2，StrOut

BInput＃1，StrlnStrSort（Strin）Print＃2，StrOut

CInput＃2，StrlnStrSort（Strln）Print＃1，SttOut

DPrint＃1，StrlnStrSort（Strin）Input＃2，StrOut

5. 窗体上有一个名称为Picture1的图片框控件，一个名称为Timerl的计时器控件，其Interval属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：PrivateSubTimer1＿Timer（）StaticnAsIntegern＝n＋1If（n／5）＝Int（n／5）AndPicturel．Left＜Forml．WidthThenPicture1．Left＝Picture1．Left＋100EndIfEndSub分析以上程序，以下叙述中正确的是（）。[1分]

A程序中没有设置5秒钟的时间，所以不能每隔5秒移动图片框一次

B此程序运行时图片框位置保持不动

C此程序运行时图片框移动方向与题目要求相反

DIf语句条件中的"Picture1．Left＜Form1．Width"用于限制图片框移动的范围

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

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

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

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

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

7. 下列各选项说法错误的是（）。[1分]

A文件对话框可分为两种，即打开（Open）文件对话框和保存（SaveAs）文件对话框

B通用对话框的Name属性的默认值为CommonDialogX，此外，每种对话框都有自己的默认标题

C打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件

DDefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性

8. 窗体上有Command1、Command2两个命令按钮。现编写以下程序：OptionBase0Dima（）AsInteger，mAsIntegerPrivateSubCommand1Click（）m＝InputBox（＂请输入一个正整数＂）ReDima（m）EndSubPrivateSubCommand2Click（）m＝InputBox（＂请输入一个正整数＂）ReDima（m）EndSub运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是（）。[1分]

A5

B6

C10

D11

9. 设有如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-i);NextEndSub程序运行后，单击窗体，则在窗体上显示的是（）。[1分]

A4321

B5432

C6543

D7654

10. VisualBasic集成的主窗口中不包括()。[1分]

A属性窗口

B标题栏

C菜单栏

D工具栏

11. 下面排序算法中，平均排序速度最快的是（）。[1分]

A冒泡排序法

B选择排序法

C交换排序法

D堆排序法

12. 设有声明语句：Dimb（－1To10，2To9，20）AsInteger则数组b中全部元素的个数（）。[1分]

A2310

B2016

C1500

D1658

13. 以下叙述中正确的是（）。[1分]

A窗体的Name属性指定窗体的名称，用来标识一个窗体

B窗体的Name属性的值是显示在窗体标题栏中的文本

C可以在运行期间改变对象的Name属性的值

D对象的Name属性值可以为空

14. 下列叙述中，不符合良好程序设计风格要求的是（）。[1分]

A程序的效率第一，清晰第二

B程序的可读性好

C程序中要有必要的注释

D输入数据前要有提示信息

15. 对于循环队列，下列叙述中正确的是()。[1分]

A队头指针是固定不变的

B队头指针一定大于队尾指针

C队头指针一定小于队尾指针

D队头指针可以大于队尾指针，也可以小于队尾指针

16. 有关程序代码窗口的说法错误的是（）。[1分]

A在窗口的垂直滚动条的上面有一个"拆分栏"，利用它可以把窗口分为两个部分，每个窗口显示代码的一部分

B双击控件设计窗体即可打开程序代码窗口

C在程序代码的左下角有两个按钮，可以选择全模块查看或者是过程查看

D默认情况下，窗体的事件是Load

17. 为了计算1＋3＋5＋…＋99的值，某人编程如下：k＝1s＝0Whilek＜＝99k＝k＋2：s＝s＋kWendPrints在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（）。[1分]

AWhile…Wend循环语句错误，应改为Fork＝1To99…Nextk

B循环条件错误，应改为Whilek＜99

C循环前的赋值语句k＝l错误，应改为k＝0

D循环中两条赋值语句的顺序错误，应改为s＝s＋k：k＝k＋2

18. 在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是（）。[1分]

AO（n）

BO（n2）

CO（log2n）

DO（nlog2n）

19. 有如下过程代码：Subvar_dim()staticnumaAsIntegerDimnumbAsIntegernuma=numa+2numb=numb+1printnuma;numbEndSub连续3次调用var_dim过程，第3次调用时的输出是（）。[1分]

A21

B23

C61

D63

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

A顺序文件中的记录一个接一个地顺序存放

B随机文件中记录长度是随机的

C执行打开文件的命令后，自动生成一个文件指针

DLOF函数返回给文件分配的字节数

21. 对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（）。[1分]

A冒泡排序为n／2

B冒泡排序为n

C快速排序为n

D快速排序为n（n－1）／2

22. 下列程序在调试时出现了死循环：PrivateSubCommand1＿Click（）n＝InputBox（＂请输入一个整数＂）DoIfnMod2＝0Thenn＝n＋1Elsen＝n＋2EndIfLoopUntiln＝1000EndSub下列关于死循环的叙述中正确的是（）。[1分]

A只有输入的n是偶数时才会出现死循环，否则不会

B只有输入的n是奇数时才会出现死循环，否则不会

C只有输入的n是大于1000的整数时才会出现死循环，否则不会

D输入任何整数都会出现死循环

23. 使用白盒测试法时，确定测试数据应该根据()和指定的覆盖标准。[1分]

A程序的内部逻辑

B程序的复杂结构

C使用说明书

D程序的功能

24. 某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：FunctionMaxValue（a（）AsInteger）AsIntegerDimmax％max＝1Fork＝2To10Ifa（k）＞a（max）Thenmax＝kEndIfNextkMaxValue＝maxEndFunction程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是（）。[1分]

A语句max＝1应改为max＝a（1）

B语句Fork＝2To10应改为Fork＝1To10

CIf语句中的条件a（k）＞a（max）应改为a（k）＞max

D语句MaxValue＝max应改为MaxValue＝a（max）

25. 窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：PrivateSubCommand1＿Click（）Dima，b（2，3）AsIntegera＝Array（3，7，5，11，31，43，17，62，9，23，37，41）i＝0DoWhilei＜＝UBound（a）Forj＝0To2Fork＝0To3b（j，k）＝a（i）i＝i＋1NextkNextjLoopPrintb（2，2）EndSub运行程序，窗体上显示的是（）。[1分]

A43

B17

C37

D23

26. 设窗体上有一个文体框Text1和一个命令按钮Command1，并有以下事件过程：PrivateSubCommand1＿Click（）DimSAsString，chAsStringS＝＂＂Fork＝1TOLen（Text1）ch＝Mid（Text1，k，l）S＝ch＋SNextkText1．Text＝SEndSub程序执行时，在文本框中输入"Basic"，然后单击命令按钮，则Text1中显示的是（）。[1分]

ABasic

BcisaB

CBASIC

DCISAB

27. 在新建一个VisualBasic工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为（）。[1分]

AForml．frm

B工程1．frm

CTheFirst．frm

DForm1．vbp

28. 在面向对象方法中，实现信息隐蔽是依靠（）。[1分]

A对象的继承

B对象的多态

C对象的封装

D对象的分类

29. 下列程序段的执行结果为（）。I＝9x＝5DoI＝I＋1x＝x＋2LoopUntilI＞＝7Print＂I＝＂；I；Print＂x＝＂；x[1分]

AI＝4x＝5

BI＝7x＝15

CI＝6x＝8

DI＝10x＝7

30. 三种基本结构中，能简化大量程序代码行的是（）。[1分]

A顺序结构

B分支结构

C选择结构

D重复结构

31. 在程序运行期间，当滚动条的滑块被拖动时，则立即触发滚动条的（）事件。[1分]

AClick

BChange

CDblclick

DScroll

32. 以下叙述中错误的是（）。[1分]

A在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母（即具有相同的KeyCode）

B在KeyUp和KeyDown事件过程中，将键盘上的"1"和右侧小键盘上的"1"视作不同的数字（具有不同的KeyCode）

CKeyPress事件中不能识别键盘上某个键的按下与释放

DKeyPress事件中可以识别键盘上某个键的按下与释放

33. 标签控件能够显示文本信息，可设置显示文本内容的属性是（）。[1分]

AAlignment

BCaption

CVisible

DBorderStyle

34. 在窗体上有一个文本框，其名称为Text1，编写下列事件过程：PrivateSubText1＿KeyPress（KeyAsciiAsInteger）DimstrAsStringstr＝Chr（KeyAscii）KeyAscii＝Asc（UCase（str））Text1．Text＝String（2，KeyAscii）EndSub程序运行后，如果在键盘上输入字母"a"，则在文本框Text3中显示的内容为（）。[1分]

Aaaa

BAAA

CAA

Daa

35. 为了使模块尽可能独立，要求（）。[1分]

A模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强

B模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱

C模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱

D模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强

36. 将E－R图转换为关系模式时，实体和联系都可以表示为（）。[1分]

A属性

B键

C关系

D域

37. 下列叙述中，()不属于测试的特征。[1分]

A测试的挑剔性

B完全测试的不可能性

C测试的可靠性

D测试的经济性

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

AInteger

BByte

CBoolean

DVariant

39. 对长度为n的线性表进行顺序查找，在最坏情况下需要比较的次数为()。[1分]

A125

Bn/2

Cn

Dn+1

40. 在窗体上画一个名为Command1的命令按钮，然后编写以下程序：PrivateSubCommand1＿Click（）DimM（10）AsIntegerFork＝lTo10M（k）＝12－kNextkx＝8PrintM（2＋M（x））EndSub运行程序，单击命令按钮，在窗体上显示的是（）。[1分]

A6

B5

C7

D8

41. 某人设计了下面的函数fun，功能是返回参数a中数值的位数Functionfun（aAsInteger）AsIntegerDimn％n＝1Whilea＼10＞＝0n＝n＋1a＝a＼10Wendfun＝nEndFunction在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是（）。[1分]

A把语句n＝1改为n＝0

B把循环条件a＼10＞＝0改为a＼10＞0

C把语句a＝a＼10改为a＝aMod10

D把语句fun＝n改为fun＝a

42. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：PublicEnumsa＝4b＝3EndEnumPrivateSubCommand1＿Click（）DimxAsIntegerx＝aIfx＞＝3ThenMsgBox＂Pass！＂EndSub运行程序，其结果是（）。[1分]

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

B运行错误，因为x＝a类型不匹配

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

D运行正常，显示内容为"Pass！"的信息框

43. 在窗体上画两个单选按钮（名称分别为Optionl、Option2，标题分别为"宋体"和"黑体"）、1个复选框（名称为Checkl，标题为"粗体"）和1个文本框（名称为Text1，Text属性为"改变文字字体"），窗体外观如下图所示。程序运行后，要求"宋体"单选钮和"粗体"复选框被选中，则下列能够实现上述操作的语句序列是（）。[1分]

AOption1．Value＝FalseCheck1．Value＝True

BOptionl．Value＝TrueCheckl．Value＝0

COption2．Value＝FalseCheck1．Value＝2

DOptionl．Value＝TrueCheckl．Value＝1