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

考试总分：43分

考试类型：模拟试题

作答时间：60分钟

已答人数：967

试卷答案：有

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

开始答题

试卷预览

0 单选题

1. （1）在名称为Form1的窗体上画一个命令按钮，名称为Command1，标题为"缩小一半"。编写事件过程，程序运行后，如果单击Command1命令按钮，则使Command1按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图25-1所示。图25-1注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。（2）在名称为Form1的窗体上画一个命令按钮和一个水平滚动条，其名称分别为Command1和HScroll1。命令按钮的标题为"滚动条变长"。编写适当的事件过程，使得程序运行后，如果单击Command1命令按钮，则使HScroll1水平滚动条的Width属性减小1000，Min属性为0，LargeChange的属性为100，SmallChange的属性为20，且Command1不可用，移动滚动条，在窗体上显示滚动条的位置值。不得使用任何变量。程序运行时的窗体界面如图25-2所示。图25-2注意：保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。[18分]

2. （1）在窗体上画三个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为"体育"、"音乐"和"美术"，还有一个命令按钮，名称为c1，标题为"显示"。要求程序运行后，如果选中某个复选框，当单击"显示"命令按钮时，则显示相应的信息。例如，如果选中"体育"和"美术"复选框，单击"显示"命令按钮后，在窗体上显示"我的爱好是体育美术"，如图2－4所示。图2-4注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为sj3.vbp。（2）在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有一个标签数组，名为Lab1，该数组有4个控件元素，标题分别是Wait、Edit、Aix和Move，如图2-5所示。图2-5在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。注意：去掉程序中的注释符"'"，把程序中的问号"？"改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。[24分]

3. 在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Command1和Command2、标题分别为"读入数据"和"计算保存"，运行界面如图1-5所示。要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的50个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则先进行升序排列，计算前25个数的和与后25个数的和的差，并把求得的结果在文本框Text2中显示出来，同时把该结果存入考生文件夹中的文件"out.txt"中。（在考生文件夹下的标准模块mode.bas中的writedata过程可以把结果存入指定的文件）图1-5注意：文件必须存放在考生文件夹下，窗体文件名为sj5.frm，工程文件名为sj5.vbp，计算结果存入out.txt文件，否则没有成绩。[18分]

4. 设计数据库的存储结构属于（）[1分]

A需求分析

B概念设计

C逻辑设计

D物理设计

5. 设有如下通用过程：PublicFunctionFun（xStrAsString）AsStringDimtStrAsString，strLAsIntegertStF＝＂＂strL＝Len（xStr）i＝1DoWhilei＜＝strL／2tStr＝Tstr＆Mid（xStr，i，1）＆Mid（xStr，strL－i＋1，1）i＝i＋lLoopFun＝tStrEndFunction在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程：PrivateSubCommandI＿Click（）DimS1AsStringS1＝＂abedef＂PrimUCase（Fun（S1））EndSub程序运行后，单击命令按钮，输出结果是（）。[1分]

AABCDEF

Babcdef

CAFBECD

DDEFABC

6. 下列程序段的运行结果是（）。Subsele（）DimnAsIntegeri＝21：n＝3DoWhilei＞ni＝i－nLoopPrintiEndSub[1分]

A2

B4

C5

D3

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

A在窗体的Form＿Load事件过程中定义的变量是全局变量

B局部变量的作用域可以超出所定义的过程

C在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

D在调用过程时，所有局部变量被系统初始化为0或空字符串

8. 在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：OptionBase0PrivateSubCommand1＿Click（）DimA1（4）AsInteger，A2（4）AsIntegerFork＝0To2A1（k＋1）＝InputBox（＂请输入一个整数＂）A2（3－k）＝A1（k＋1）NextkPrintA2（k）EndSub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（）。[1分]

A0

B1

C2

D3

9. 一个模块内部各个元素彼此结合的紧密程度的度量称为（）[1分]

A耦合性

B内聚性

C复杂性

D数据传输特性

10. 下列程序运行时输出的结果是（）。OptionBase1Consta＝10PrivateSubForm＿Click0Dimx（a）AsIntegerk＝－1Fori＝1Toax（i）＝i＊kk＝（－1）＊kNextiFori＝1To10Printx（i）NextiEndSub[1分]

A1357910

B－1－3－5－7－9

C－12－34－56－78－910

D1－23－45－67－89－10

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

A软件测试的目的是发现错误并改正错误

B对被调试的程序进行"错误定位"是程序调试的必要步骤

C程序调试通常也称为Debug

D软件测试应严格执行测试计划，排除测试的随意性

12. 在文本框中输入字符时，通过（）事件过程可以得到字符的ASCII码值。[1分]

AChange

BGotFocus

CKeyPress

DLostFocus

13. 有两个关系R，S如下：由关系R通过运算得到关系S，则所使用的运算为（）。[1分]

A选择

B投影

C插入

D连接

14. 按照"后进先出"原则组织数据的数据结构是（）。[1分]

A队列

B栈

C双向链表

D二叉树

15. 已知在4行3列的全局数组score（4，3）中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分，某人编写程序如下：OptionBase1PrivateSubCommand1＿Click（）DimsumAsIntegerSum＝0Fori＝1To4Forj＝1To3Sum＝sum＋score（i，j）NextjPrint＂第＂＆i＆＂个学生的总分是：＂；sumNextiEndSub运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是（）。[1分]

A把外层循环语句Fori＝1TO4改为Fori＝1To3内层循环语句Forj＝1TO3改为Forj＝1TO4

B把sum＝0移到Fori＝1TO4和Forj＝1TO3之间

C把sum＝sum＋score（i，j）改为sum＝sum＋score（j，i）

D把sum＝sum＋score（i，j）改为sum＝score（i，j）

16. 某人创建了1个工程，其中的窗体名称为Form1；之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（）。[1分]

A在工程属性对话框中把"启动对象"设置为Form2

B在Forml的Load事件过程中加入语句LoadForm2

C在Form2的Load事件过程中加入语句Form2．Show

D把Form2的TabIndex属性设置为l，把Form1的TabIndex属性设置为2

17. 下列关于栈的描述正确的是（）。[1分]

A在栈中只能插入元素而不能删除元素

B在栈中只能删除元素而不能插入元素

C栈是特殊的线性表，只能在一端插入或删除元素

D栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

18. 编写如下两个事件过程：PrivateSubForm＿KeyDown（KeyCodeAsInteger，ShiftAsInteger）PrintChr（KeyCode）EndSubPrivateSubForm＿KeyPress（KeyAsciiAsInteger）PrintChr（KeyAscii）EndSub在一般情况下（即不按住Shift键也未锁定大写键时）运行程序，如果按键盘上的"A"键，则程序输出的结果是（）。[1分]

AAa

BaA

CAA

Daa

19. 下面语句正确的是（）。[1分]

AIfx＜3＊yAndx＞yTheny＝x＾3

BIfx＜3＊yAndx＞yTheny＝3x

CIfx＜3＊y：x＞yTheny＝x＾3

DIfx＜3＊yAndx＞yTheny＝x＊＊3

20. 用Print方法在Forml窗体中显示出4个＃号的正确代码为（）。[1分]

ADebug．Print＂＃＃＃＃＂

BPrint＂＃＃＃＃＂

CForml-Print＂＃＃＃＃＂

DForml．Print＂＃＃＃＃＂

21. 函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。PrivateTypeAngKAsIntegerSinxAsSingleCosxAsSingleEndTypePrivateSubForm＿Click（）DimYAsSingleDimiAsIntegerDimKscAsAngOpen____________Y＝3．14159／180Fori＝1To90Ksc．K＝iKsc．Sinx＝Sin（i＊Y）Ksc．Cosx＝Cos（i＋Y）________NextiClose＃2ElldStub[1分]

A＂．．＼Datal．txt＂ForRandomAs＃1Len＝10Put＃1，i，Ksc

B＂．．＼Datal．txt＂ForRandomAs＃1Len＝10Put＃1，Y，Ksc

C＂．．＼Datal．txt＂ForRandomAs＃1Put＃1，i，Ksc

D＂．．＼Datal．txt＂ForRandomAs＃1Put＃1，Y，Ksc

22. 一个工程必须包含的文件的类型是（）。[1分]

A＊．vbp＊．frm＊．frx

B＊．vbp＊．cls＊．bas

C＊．bas＊．ocx＊．res

D＊．frm＊．cls＊．bas

23. 在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是（）。[1分]

A并

B交

C投影

D笛卡儿乘积

24. 当一个复选框被选中时，它的Value属性的值是（）。[1分]

A3

B2

C1

D0

25. 设有数组定义语句：Dima（5）AsInteger，List1为列表框控件。下列给数组元素赋值的语句错误的是（）。[1分]

Aa（3）＝3

Ba（3）＝InputBox（＂inputdata＂）

Ca（3）＝List1．ListIndex

Da＝Array（1，2，3，4，5，6）

26. 任何控件都有的属性是()。[1分]

ABackColor

BCaption

CName

DBorderStyle

27. 下面程序的输出结果是（）。PrivateSubCommand1＿Click（）Ch$＝＂ABCDEF＂procch：PrintchEndSubPrivateSubproc（chAsString）s＝＂＂Fork＝Len（ch）To1Step－1s＝s＆Mid（ch，k，1）Nextkch＝sEndSub[1分]

AABCDEF

BFEDCBA

CA

DF

28. 语句Dima（－3To4，3To6）AsInteger定义的数组元素个数是（）。[1分]

A18

B28

C21

D32

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

A一个工程中只能有一个SubMain过程

B窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

C窗体的Hide方法和Unload方法的作用完全相同

D若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

30. 在窗体上先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片，如图1所示，且将banana．DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（）。[1分]

APrivateSubForm＿DragDrop（SourceAsControl，XAsSingle，YAsSingle）banana．MovePicture1．Left＋X，Picture1．Top＋YEndSub

BPrivateSubbanana＿DragDrop（SourceAsControl，XAsSingle，YAsSingle）Source．MovePicture1．Left＋X，Picture1．Top＋YEndSub

CPrivateSubPicture1＿DragDrop（SourceAsControl，XAsSingle，YAsSingle）Source．MovePicture1．Left＋X，Picture1．Top＋YEndSub

DPrivateSubPicture1＿DragDrop（SourceAsControl，XAsSingle，YAsSingle）banana．Movebanana．Left＋X，banana．Top＋YEndSub

31. 一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再一次出栈，则元素出栈的顺序是（）。[1分]

A12345ABCDE

BEDCBA54321

CABCDEl2345

D54321EDCBA

32. 在窗体上建立通用对话框需要添加的控件是（）。[1分]

AData控件

BForm控件

CCommonDialog控件

DVBComboBox控件

33. 在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。Constn＝5，m＝4Dima（m，n）PrivateSubCommand1＿Click（）k＝1Fori＝1TomForj＝1Tona（i，j）＝kk＝k＋1NextjNextiEndSubPrivateSubCommand2＿Click（）summ＝0Fori＝1TomForj＝1TonIfi＝1Ori＝mThensumm＝summ＋a（i，j）ElseIfj＝1Orj＝nThensumm＝summ＋a（i，j）EndIfEndIfNextjNextiPrintsummEndSub过程Command1＿Click（）的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2＿Click（）的作用是（）。[1分]

A计算矩阵外围一圈元素的累加和

B计算矩阵除外围一圈以外的所有元素的累加和

C计算矩阵第1列和最后一列元素的累加和

D计算矩阵第1行和最后一行元素的累加和

34. 下列关于复选框的说法，正确的是（）。[1分]

A复选框的Enabled属性用于决定该复选框是否可见

B复选框的Value属性用于决定该复选框是否被选中

C复选框的Tabindex属性用于决定该复选框在控件数组中的序号

D复选框的Visible属性用于决定该复选框是否可用

35. 复选框的Value属性为0时，表示该复选框（）。[1分]

A未被选中

B被选中

C框内有灰色的勾

D操作有误

36. 在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是（）。[1分]

APrivateSubCheck1＿Click（IndexAsInteger）Text1．Text＝＂＂Fork＝0To3IfCheck1（k）．value＝1ThenText1．Text＝Text1．Text＆Check1（k）．Caption＆＂＂双引号中是空格EndIfNextkEndSub

BPrivateSubCheck1＿Click（IndexAsInteger）Fork＝0To3IfCheck1（k）．Value＝1ThenText1．Text＝Text1．Text＆Check1（k）．Caption＆＂＂双引号中是空格EndIfNextkEndSub

CPrivateSubCheck1＿Click（IndexAsInteger）Text1．Text＝＂＂Fork＝0To3IfCheck1（k）．Value＝1ThenText1．Text＝Text1．Text＆Check1（Index）．Caption＆＂＂双引号中是空格EndIfNextkEndSub

DPrivateSubCheck1＿Click（IndexAsInteger）Text1．Text＝＂＂Fork＝0To3IfCheck1（k）．Value＝1ThenText1．Text＝Text1．Text＆Check1（k）．Caption＆＂＂双引号中是空格ExitForEndIfNextkEndSub

37. 在窗体上添加一个命令按钮，名为Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出（）。Fori＝1To4Forj＝1To3x＝3Fork＝1To2x＝x＋3NextkNextjNextiTextl．Text＝Str（x）[1分]

A3

B6

C9

D12

38. 下列关于Sub过程的叙述正确的是（）。[1分]

A一个Sub过程必须有一个ExitSub语句

B一个Sub过程必须有一个EndSub语句

C在Sub过程中可以定义一个Function过程

D可以用Goto语句退出Sub过程

39. 某人为计算n！（O＜n＜＝12）编写了下面的函数过程：PrivateFunctionfun（nAsInteger）AsLongDimPAsLongP＝lFork＝n－1To2Step－1p＝p＊kNextkfun＝pEndFunction在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是（）。[1分]

A把p＝1改为p＝11

B把Fork＝n－1To2Step－1改为Fork＝1Ton－1

C把Fork＝n－1To2Step－1改为Fork＝1Ton

D把Fork－－n－1To2Step－1改为Fork＝2Ton

40. 要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是（）。[1分]

A设置BorderStyle的值为FixedToolWindow

B设置BorderStyle的值为SizableToolWindow

C设置BorderStyle的值为FixedDialog

D设置BorderStyle的值为Sizable

41. 设在窗体上有一个文本框，然后编写如下的事件过程：PrivateSubText1＿KeyDown（KeyCodeAsInteger，ShiftAsInteger）ConstAlt＝4ConstKey＿F2＝＆H71altdown％＝（ShiftAndAlt）＞0f2down％＝（KeyCode＝Key＿F2）Ifaltdown％Andf2down％ThenText1．Text＝＂abl＂EndIfEndSub程序运行后，清除文本框中原有内容，如果按Shift＋F2键，则在文本框中显示的是（）。[1分]

AAlt＋F2

Babl

C随机出几个数

D不发生变化

42. 在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1），然后编写下列事件过程：PrivateSubCommand1＿Click（）x＝0DOWhilex＜50x＝（x＋2）＊（x＋3）n＝n＋lLoopText1．Text＝Str（n）Text2．Text＝Str（x）EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。[1分]

A1和0

B2和72

C3和50

D4和168

43. 下列（）标识符不能作为VisualBasic的变量名。[1分]

AABCabe

Bb1234

C28wed

Dcrud