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

考试总分：45分

考试类型：模拟试题

作答时间：60分钟

已答人数：967

试卷答案：有

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

开始答题

试卷预览

0 单选题

1. 在名称为Form1的窗体上建立两个命令按钮，名称分别为Command1和Command2、标题分别为“显示”和“删除”，一个名称为Pic1的图片框。要求程序运行后，每单击一次“显示”按钮，不使用任何变量而直接在图片框中显示“Picture1”；如果单击“删除”按钮，则清除图片框中的文本，如图6-1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为Sj1．vbp。[10分]

2. 在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有一个文本框，名称为Text1，一个列表框，名称为List1，一个命令按钮，名称为Command1、标题为“复制”。要求程序运行后，在列表框中自动建立5个列表项，分别为“Temp1”、“TeTnp2”、“Temp3”、“Temp4”、“Temp5”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图8—3所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。[12分]

3. 本题描述如下：在名称为Form1的窗体上有一个文本框，名称为Textl，MultiLine属性为True，Scr01lBars属性为2；两个命令按钮，名称分别为Command1和Command2、标题分别为“读人数据”和“计算保存”，运行界面如图7-5所示。要求程序运行后，如果单击“读入数据”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则先进行升序排列，计算前25个数的和与后25个数的和之差，并把求得的结果在文本框Text2中显示出来，同时把该结果存入考生文件夹中的out．txt文件中。(在号生文件夹下的标准模块mode．bas中的writedata过程可以把结果存入指定的文件。)注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，计算结果存入out．txt文件，否则没有成绩。[18分]

4. 在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点位于Text1，当按Tab键时，焦点从Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。[8分]

5. 在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体上建立一个名称为Command1，标题为“计算”的命令按钮，再建立一个名称为Text1的文本框。运行界面如图6-4所示。要求程序运行后，若单击“计算”按钮，将计算200～350之间所有素数的和，在文本框中显示结果，同时把结果存人文件out．txt中。(在考生文件夹中有标准模块mode．bas，其中的writedata过程可以把结果存入文件，而isprimenum函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块义件添加到自己的工程中。)注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“b’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。[12分]

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

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

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

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

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

7. 下列有关文件叙述中，正确的是（）。[1分]

A以0utput方式打开一个不存在的文件时，系统将显示出错信息

B以APPend方式打开的文件，即可以进行读操作，也可以进行写操作

C在随机文件中，每个记录的长度是固定的

D无论是顺序文件还是随机文件，其打开的语句和打开方式都是完全相同的

8. 执行如下两条语句后，窗体上显示的是（）。a=9．8596PrintFormat(a，"$00，00．00")[1分]

A0，009．86

B$9．86

C9．86

D$0，009．86

9. 设t=2，b=3，c=4，d=5，则下面语句输出的是（）。Print3>2*bOra=cAndbcOrc>d[1分]

AFalse

B1

CTrue

D-1

10. 算法的时间复杂度是指（）。[1分]

A算法的执行时间

B算法所处理的数据量

C算法程序中的语句或指令条数

D算法在执行过程中所需要的基本运算次数

11. 在窗体上画1个命令按钮，并编写如下事件过程：privateSubCommand1_Click（）Fori=5To1Step-0．8PrintInt(i)；NextiEndSub运行程序，单击命令按钮，窗体上显示的内容为（）。[1分]

A543211

B54321

C43211

D443211

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

AABCabe

Bbl234

C28wed

Dcrud

13. 设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：PrivateSubCommand1Click（）X!=Val(Text1．Text)SelectCascxCaseIs=20Print"输入错误"CaseIs<0Print20-xCaseIs<10Print20CaseIs<=20Printx+10EndSeleetEndSub程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。[1分]

A5

B20

C25

D输入错误

14. 软件测试的目的是（）。[1分]

A评估软件可靠性

B发现并改正程序中的错误

C改正程序中的错误

D发现程序中的错误

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

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

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

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

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

16. 以下说法中正确的是（）。[1分]

AMouseUp事件是鼠标向上移动时触发的事件

BMouseUp事件过程中的X，Y参数用于修改鼠标位置

C在MouseUp事件过程中可以判断用户是否使用了组合键

D在MouseUp事件过程中不能判断鼠标的位置

17. 下面不能在信息框中输出“VB”的是（）。[1分]

AMsgBox"VB"

BMsgBox("VB")

CMsgBox("VB")

DCallMsgBox"VB"

18. 下列排序方法中，最坏情况下比较次数最少的是（）。[1分]

A冒泡排序

B简单选择排序

C直接插入排序

D堆排序

19. 软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于（）。[1分]

A定义阶段

B开发阶段

C维护阶段

D上述三个阶段

20. 结构化程序设计的3种基本结构是（）。[1分]

A过程、子程序和分程序

B顺序、选择和重复

C递归、堆栈和队列

D调用、返回和转移

21. 数据库应用系统中的核心问题是（）。[1分]

A数据库设计

B数据库系统设计

C数据库维护

D数据库管理员培训

22. 窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能：PrivateSubCommandlClick（）Dimn％，k％n=Len(Text1．Text)Fork=0ToList1．ListCount-1IfLeft(List1．List(k)，n)=Text1．TextThenList1．RemoveltemkEndIfNextkEndSub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork=0ToList1．ListCount-1改为（）。[1分]

AFork=List1．ListCount-1To0Step-1

BFork=0ToList1．ListCount

CFork=1ToList1．ListCount-1

DFork=1ToList1．ListCount

23. 程序调试的任务是（）。[1分]

A设计测试用例

B验证程序的正确性

C发现程序中的错误

D诊断和改正程序中的错误

24. 窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：PrivateSubCommand1Click（）StaticxAsVariantn=0x=Array(1，2，3，4，5，6，7，8，9，10)Whilen<=4x(n)=x(n+5)Printx(n)：n=n+1WendEndSub运行程序，单击命令按钮Command1，窗体上显示的是（）。[1分]

A12345

B678910

C23456

D62345

25. 设有如下程序：PrivateSubFormClick（）Dimary(1To5)AsIntegerDimiAsIntegerDimsumAsIntegerFori=1To5ary(i)=i+lsum=sum+ary(i)NextiPrintsumEndSub程序运行后，单击窗体，则在窗体上显示的是（）。[1分]

A15

B16

C20

D25

26. 算法的空间复杂度是指（）。[1分]

A算法在执行过程中所需要的计算机存储空间

B算法所处理的数据量

C算法程序中的语句或指令条数

D算法在执行过程中所需要的临时工作单元数

27. 在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮，运行后的窗体外观如图所示：设有如下的类型和变量声明：PrivateTypePersonnameAsSTRING*8majorAsString*20EndTypeDimPAsPerson设文本框中的数据已正确地赋值给Person类型的变量P，当点击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2．dat中的程序段是（）。[1分]

AOpen"C：＼Test2．dat"ForOutputAs#1Put#1，1，pClose#1

B0pen"c：＼Test2．dat"ForRandomAs#1Get#1，1，PClose#1

COpen”C：＼Test2．dat”ForRandomAs#1Len—Len(p)Put#1，1，PClose#1

DOpen"C：＼Test2．dat"ForRandomAs#1Len=Len(p)Get#1，1，PClose#1

28. 在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序：PrivateSubrune(LASLabe1)Caption="1234"EndSubPrivateSubFormLoad（）Labe11．Caption="ABCDE"Labe12．Caption=10EndSubPrivateSubCommand1Click（）a=Va1(Label2．Caption)Callfunc(Label1)Label2．CaptionaEndSub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（）。[1分]

AABCD和10

B1234和100

CABCD和100

D1234和10

29. 若在窗体模块的声明部分声明了如下自定义类型和数组：PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimart(5)Asrec则下面的输出语句中正确的是（）。[1分]

APrintarr．Code(2)，art．Caption(2)

BPrintart．Code，arr．Caption

CPrintarr(2)．Code，arr(2)．Caption

DPrintCode(2)，Caption(2)

30. 默认情况下，下面声明的数组的元素个数是（）。Dim(5，-2To2)[1分]

A20

B24

C25

D30

31. 下列描述不正确的是(．)。[1分]

A某个子过程中声明的局部变量，其使用范围仅限定于该子过程内

B某个子过程中声明的局部变量，其生命周期仅限于该子过程被执行过程中

C不同子过程中的局部变量可以具有相同的名称

D不同子过程中具有相同的名称的局部变量是同一变量

32. 请阅读程序：SubsubP(b（）AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandlClick（）Dima(1To4)AsIntegera(1)=5:a(2)=6:a(3)=7:a(4)=8subPa（）Fori=1To4Printa(i)NextiEndSub运行上面的程序，单击命令按钮，则输出结果是（）。[1分]

A2468

B5678

C10121416

D出错

33. 设窗体上有一个名为List1的列表框，并编写下面的事件过程：PrivateSubList1_Click（）DimchAsStringch=List1．List(List1．Listlndex)List1．RemoveItemList1．ListlndexList1．AddltemchEndSub程序运行时，单击一个列表项，则产生的结果是（）。[1分]

A该列表项被移到列表的最前面

B该列表项被删除

C该列表项被移到列表的最后面

D该列表项被删除后又在原位置插入

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

A在多窗体应用程序中，可以有多个当前窗体

B多窗体应用程序的启动窗体可以在设计时设定

C多窗体应用程序中每个窗体作为一个磁盘文件保存

D多窗体应用程序可以编译生成一个EXE文件

35. 下列关于二叉树的叙述中，正确的是（）。[1分]

A叶子结点总是比度为2的结点少一个

B叶子结点总是比度为2的结点多一个

C叶子结点数是度为2的结点数的两倍

D度为2的结点数是度为1的结点数的两倍

36. 下面是求最大公约数的函数的首部：Functiongcd(ByValXAsInteger，ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数，下面正确的语句是（）。[1分]

APrintgcd(8，12)，gcd(12，16)，gcd(16，8)

BPrintgcd(8，12，16)

CPrintgcd(8)，gcd(12)，gcd(16)

DPrintgcd(8，gcd(12，16))

37. 滚动条可以响应的事件是（）。[1分]

ALoad

BScroll

CClick

DMouseDown

38. 数据库管理系统中负责数据模式定义的语言是（）。[1分]

A数据定义语言

B数据管理语言

C数据操纵语言

D数据控制语言

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

A列表框和组合框都有List属性

B列表框有Selected属性，而组合框没有

C列表框和组合框都有Style属性

D组合框有Text属性，而列表框没有

40. 设有如下程序：PrivateSubFormClick（）Clsa$="1234j6"Fori=1To6PrintTab(12-i)；________NextiEndSub程序运行后，单击窗体，要求结果如图所示，则在______处填入的内容为（）。[1分]

ALeft(a$，i)

BMid(a$，8-i，i)

CRight(a$，i)

DMid(a$，7，i)

41. 有如下程序：PrivateTypestuXAsStringYAsIntegerEndTypePrivateSubCommand1Click（）DimaAsstuX="ABCD"Y=12345PrintaEndSub程序运行时出现错误，错误的原因是（）。[1分]

AType定义语句没有放在标准模块中

B变量声明语句有错

C赋值语句不对

D输出语句Print不对

42. 阅读下面的程序段：a==0Fori=1To3Forj=1ToiFork=jTo3a=a+lNextkNextjNexti执行上面的程序段后，a的值为（）。[1分]

A3

B9

C14

D21

43. 单击命令按钮时，下列程序段的执行结果是（）。PrivateSubCommand1Click（）DimaAsInteger，bAsInteger，CAsIntegera=2：b=4：c=6CallS1(a．b)Print"a="；a；"b="；b；"c="；cCallS2(a，b)Print"a="；a；"b="；b；"c="；c；EndSubPrivateSubS1(X．AsInteger，YAsInteger)DimCAsIntegerx=2*X：y=y+2：c=x+yEndSubSubS2(xAsInteger，ByValYAsInteger)DimeAsIntegerx=2*x：Y=Y+2：e=x+yEndSub[1分]

Aa=4b=6c=6a=4b=6c=6

Ba=8b=6c=6a=8b=6c=6

Ca=4b=6c=6a=8b=6c=6

Da=8b=6c=6a=4b=6c=6

44. 要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是（）。[1分]

APrivateSubP1MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)PrintXYEndSub

BPrivateSubP1MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Picture．PrintX，YEndSub

CPrivateSubP1MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)P1．PrintX，YEndSub

DPrivateSubFormMouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)P1．PrintX，YEndSub

45. 有如下程序：OptionBase1PrivateSubCommand1Click（）Dimarr(10)arr=Array(10，35，28，90，54，68，72，90)ForEaehaInarrIfa>50ThenSum=Sum+aEndIfNextaEndSub运行上述程序时出现错误，错误之处是（）。[1分]

A数组定义语句不对，应改为Dimarr

B没有指明For循环的终值

C应在For语句之前增加Sum=0

DNexta应改为Next