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

考试总分：45分

考试类型：模拟试题

作答时间：60分钟

已答人数：967

试卷答案：有

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

开始答题

试卷预览

0 单选题

1. 在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时，可以输入6个数值，随后程序对这6个数值进行斗序排序，单击按钮“输出”则把大于平均值的数显示出来，程序运行时的窗体如图7—4所示。注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“¨’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。[12分]

2. 在考生文件夹中有工程文件sj5．vbp及其窗体文件Sj5．frm，该程序是不完整的，请将程序补充完整。在名称为Form1的窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“计算”和“保存”；两个单选按钮，名称分别为Option1和Option2，标题分别为“50～150的素数”和“200～350的素数”；一个文本框，名称为Text1，程序运行界面如图8-5所示。如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“保存”按钮，则把计算结果存人out5．txt文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块mode．bas，其中的isPrimeNum函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，而writeData过程可以把结果存入指定的文件，考生可以将该模块文件添加到自己的工程中。)注意：存盘时不得改变文件名和文件夹。必须把其中一种素数之和存入考生文件夹下的out5．txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp。[18分]

3. 在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为“教授”和“研究员”的单选按钮，再建立一个名称为Label1的标签，实现如下功能：当选中“教授”时，标签上显示“博士学位以上”，如果选中“研究员”，则标签上显示“硕士学位以上”，结果如图7-1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为Sj1．vbp，窗体文件名为Sj1．frm。[10分]

4. 在窗体上建立一个二级菜单，该菜单含有“文件”和“编辑”(名称分别为vbFile和vbEdit)两个主菜单项，其中“文件”菜单包括“打开”、“保存”和“关闭”三个子菜单项(名称分别为vbOpen、vbSave和vbClose)，如图8-1所示。只建立菜单，不必定义其事件过程。注意：保存时必须存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为Sj1．vbp。[8分]

5. 在考生文件夹下有一个工程文件sj4．vbp与窗体文件sj4．frm，在Form1的窗体中有一个标签、两个命令按钮和一个计时器。要求程序运行时实现以下功能：单击“开始”按钮，就开始倒计数，每隔1秒，文本框中的数减1；单击“停止”按钮，则停止计数，初始计数为60，当计数到0时，则重新从60开始倒计数。如图2—4所示。注意：修改适当的控件的属性，并去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。考生完成程序编写后，将-工程文件与窗体文件保存到考生文件夹下，文件名分别为sj4．vbp与sj4．frm。[12分]

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

AVisualBasic只能通过过程调用执行通用过程

B可以在Sub过程的代码中包含另一个Sub过程的代码

C可以像通用过程一样指定事件过程的名字

DSub过程和Function过程都有返回值

7. 下列数据结构中，能够按照“先进后出”原则存取数据的是（）。[1分]

A循环队列

B栈

C队列

D二叉树

8. 在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：SubS(XAsInteger，yAsInteger)StaticzAsIntegery=x*x+Zz=yEndSubPrivateSubCommand1Click（）DimiAsInteger．zAsIntegerm=0z=0Fori=1T03Si，Zm=m+zNextiLabel1．Caption=Str(m)程序运行后，单击命令按钮，在标签中显示的内容是（）。[1分]

A50

B20

C14

D7

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

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

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

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

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

10. 执行下列程序段a$="visualBasicProgramming"b$="C++"C$=UCase(Left$(a$，7))＆b$＆Right$(a$，12)后，变量c$的值为（）。[1分]

AVisualBASICProgramming

BVISUALC++Programming

CVisualC++Programming

DVISUALBASICProgramming

11. 在VisualBasic集成环境中，可以列出工程中所有模块名称的窗口是（）。[1分]

A工程资源管理器窗口

B窗体设计窗口

C属性窗口

D代码窗口

12. 设在工程文件中有一个标准模块，其中定义了下列记录类型：TypeBooksNameAsString*10TelNumAsString*20End，Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1Click时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（）。[1分]

APrivateSubCommand1Click（）DimBASBooksOpen"Persontxt"ForOutputAs#1Name=InputBox(”输入姓名”)relNum=lnputBox(”输入电话号码”)Wlite#1BName，BTelNumCh,se#1EndSub

BPrivateSubCommand1Click（）DimBASBooksOpen"Persontxt"ForInputAs#1>Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#1，B．Name，B．TelNamClose#1EndSub

CPrivateSubCommand1Click（）DimBASBooksOpen"Persontxt"ForOutputAs#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write#1，BClose#1EndSub

DPrivateSubCommandlClick（）Open"Persontxt"ForInputAs#1Name=lnputBox("输入姓名")TelNum=lnputBox("输入电话号码")Prim#1NameTelNumClose#1EndSub

13. 使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是（）。[1分]

ADir1．Path=Drive1．Path

BFile1．Path=Dri1．Path

CFile1．Path=Drive1．Path

DDrive1．Drive=Dri1．Path

14. 在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：FunctionFun1(ByVa1aAsInteger，bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+aFun1=t+bEndFunctionPrivateSubCommand1Click（）DimXAsIntegerx=10PrintFun1(Vun1(X，(Fun1(x，x-1)))，x-1)EndSub程序运行后，单击命令按钮，输出结果是（）。[1分]

A10

B0

C11

D21

15. 下述关于数据库系统的叙述中，正确的是（）。[1分]

A数据库系统减少了数据冗余

B数据库系统避免了一切冗余

C数据库系统中数据的一致性是指数据类型一致

D数据库系统比文件系统能管理更多的数据

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

A125

Bn／2

Cn

Dn+1

17. 窗体上有一-个Text1文本框，一个Command1命令按钮，并有以下程序：PrivateSubCommand1Click（）DimnIfText1．Text"123456"Thenn=n+1Print"口令输入错误”＆n＆”次"EndIfEndSub希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令’’命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是（）。[1分]

A在Dimn语句的下面添加一句：n=0

B把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”+n+“次”

C把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”＆Str(n)＆“次”

D把Dimn改为Staticn

18. 设a=5，b=6，c=7，d=8，执行语句x=IIf((a>b)And(c>d)，10，20)后，X的值是（）。[1分]

A10

B20

C30

D200

19. 如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。PrivateSubCommand1Click（）DimnAsLongDimflagAsBooleann=InputBox("输入一个正整数")S=Trim(Str(n))Fori=2ToLen(s)IfMid(s，i-1，1)NextiIfi=Len(S)Thenflag=TrueElseflag=FalseIfflagThenPrintn；"是降序数"ElsePrintn；"不是降序数"EndIfEndSub运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（）。[1分]

AIfi=Len(s)+1Thenflag=FalseElseflag=True

BIfi=Len(s)+1Thenflag=TrueElseflag=False

CIfi=Len(s)-1Thenflag=FalseElseflag=True

DIfi=Len(s)-1Thenflag=TrueElseflag=False

20. 下列对于软件测试的描述正确的是（）。[1分]

A软件测试的目的是证明程序是否正确

B软件测试的目的是使程序运行结果正确

C软件测试的目的是尽可能多地发现程序中的错误

D软件测试的目的是使程序符合结构化原则

21. 有下面的程序段，其功能是按图1所示的规律输出数据：Dima(3，5)AsIntegerFori=1To3Forj=1To5a(i，j)=i+jPrinta(i，j)；NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是（）。[1分]

AFori=1To5Forj=1To3Printa(j，i)；NextPrintNext

BFori=1T03Forj=1To5Printa(j，i)；NextPrintNext

CForj=lTo5Fori=1To3Printa(j，i)；NextPrintNext

DFori=1To5For=1To3Printa(i，j)：NextPrintNext

22. 有三个关系R、S和T如下：则由关系R和S得到关系T的操作是（）。[1分]

A自然连接

B交

C投影

D并

23. 若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（）。PrivateSubClick—MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Print"VBProgram"EndSub[1分]

A用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程

B用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程

C用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程

D用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程

24. 在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsString，nAsIntegerstr=UCase(Chr(KeyAscii))n=Len(str)。Text1．Text=String(n，str)EndSub程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（）。[1分]

AA.pp

BpP

Cｐｐ

DPp

25. 窗体上有名称为Option1的单选按钮，且程序中有语句：If（）ption1．Value—TrueThen下面语句中与该语句不等价的是（）。[1分]

AIfOption1．ValueThen

BIfOption1一TrueThen

CIfValue=TrueThen

DIfOption1Then

26. 树是结点的集合，它的根结点的数目是（）。[1分]

A有且只有1个

B1或多于1

C0或1

D至少有2个

27. 数据库系统的三级模式不包括（）。[1分]

A概念模式

B内模式

C外模式

D数据模式

28. 下面描述中，不属于软件危机表现的是（）。[1分]

A软件过程不规范

B软件开发生产率低

C软件质量难以控制

D软件成本不断提高

29. 有如下事件过程：PrivateSubFormClick（）DimnAsIntegcrx=0n=InputBox("请输入一个整数")Fori=1Toiforj=1Tojx=x+1NextjNextiPrintxEndsub程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（）。[1分]

A13

B14

C15

D16

30. 下列程序执行后，变量X的值为（）。Dima，b，C，dAsSingleDimXAsSinglef1=10b=30c=400Ifb>flThend=fl：fl=b：b=dEndIfIfb>CThenX=bElseIffl>cThenX=cElseX=aEndIf[1分]

A10

B30

C400

D430

31. 计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n-1)。某人编写下面的程序用此公式计算并输出的近似值：PrivateSubCornmand1Click（）P1=1Sign=1n=20000Fork=3TorSign=-SignPI=PI+SiRn／kNextkPrintPI*4EndSub运行后发现结果勾3．22751，显然，程序需要修改。下面修改方案中正确的是（）。[1分]

A把Fork=3Ton改为Fork=1Ton

B把n=20000改为n=20000000

C把Fork=3Ton改为Fork=3TonStep2

D把PI=1改为P1=0

32. 用来设置文字字体是否斜体的属性是（）。[1分]

AFontUnderline

BFontBold

CFontSlope

DFontItalic

33. 设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是（）。[1分]

AForm1MouseDown

BWinMouseDown

CFormMouseDown

DMouseDown_Form1

34. 窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：PrivateSubCommand1_Click（）CommonDialog．DefaultExt="doc"CommonDialog．FileName="VB．txt"CommonDialog．Filter="All(*．*)|*．*|Word|．Doc|"CommonDialog．FilterIndex=1CommonDialog．ShowSaveEndSub运行上述程序，如下叙述中正确的是（）。[1分]

A打开的对话框中文件“保存类型”框中显示All(*．*)

B实现保存文件的操作，文件名是VB．txt

CDefaultEx1属性与FileName属性所指明的文件类型不一致，程序出错

D对话框的Fiber属性没有指出txt类型，程序运行出错

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

AData控件

BForm控件

CCommonDialog控件

DVBComboBox控件

36. 有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是（）。[1分]

APrivateSubVormClick（）PopupMenucutEndSub

BPrivateSubCommand1Click（）PopupMenueditEndSub

CPrivateSubFormClick（）PopupMenueditEndSub

DPrivateSubFormClick（）PopupMenucutPopupMenupasteEndSub

37. 在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：DimssAsStringPrivateSubText1KeyPress(KeyAsciiAsInteger)IfChr(KeyAscii)""Thenss=ss+Chr(KeyAscii)EndSubPrivateSubCommand1Click（）DimmAsString，iAsIntegerFori=Len(ss)To1Step-1m=m+Mid(SS，i，1)NextText1．Text=UCase(m)EndSub程序运行后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的就是（）。[1分]

ANUMtBERl00

BREBMUN

CREBMUNl00

D001REBMUN

38. 窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下：PrivateSubTimer1Timer（）StaticflagAsIntegerIfFlag=0ThenFlag=1Flag=-flagIfflag=1ThenText1．ForeColor=＆HFF＆＆HFF＆为红色ElseText1．ForeColor=＆HCOO＆＆HCOO＆为绿色EndIfEndSub以下叙述中正确的是（）。[1分]

A每次执行此事件过程时，flag的初始值均为0

Bflag的值只可能取0或1

C程序执行后，文本框中的文字每5秒改变一次颜色

D程序有逻辑错误，Else分支总也不能被执行

39. 耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是（）。[1分]

A提高耦合性降低内聚性有利于提高模块的独立性

B降低耦合性提高内聚性有利于提高模块的独立性

C耦合性是指一个模块内部各个元素问彼此结合的紧密程度

D内聚性是指模块间互相连接的紧密程度

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

AForml．frm

B工程1．frm

CTheFirst．frm

DForm1．vbp

41. 对于循环队列，下列叙述中正确的是（）。[1分]

A队头指针是固定不变的

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

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

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

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

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

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

C程序调试通常也称为Debug

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

43. 在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：OptionBase0PrivateSubCommand1Click（）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

44. 下列各控件不包含滚动条的控件是（）。[1分]

AListBox

BComboBox

CTextBox

DLabel

45. 软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下列属于应用软件的是（）。[1分]

A编译程序

B操作系统

C教务管理系统

D汇编程序