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

考试总分：45分

考试类型：模拟试题

作答时间：60分钟

已答人数：967

试卷答案：有

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

开始答题

试卷预览

0 单选题

1. 在名称为Form1的窗体中绘制一个名称为Label1的标签，其标题为空，BorderStyle属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图1—1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为Sj1．vbp，窗体文件名为Sj1．frm。[10分]

2. 在Form1的窗体上绘制一个命令按钮，名为Cmd1，标题为Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现；此时如果单击命令按钮，则在窗体上显示VisualBasic。程序运行情况如图3—2和图3-3所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2．vbp，窗体文件名为sj2．frm。[8分]

3. 在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，在窗体上有一个名称为HScroll1的水平滚动条(Min为400，Max为2000)和三个名称分别为Command1、Command2和Command3，标题分别为“减200”、“显示”和“加200”的命令按钮。程序运行后，如果单击“减200”命令按钮，则滚动块向左滚动200单位；如果单击“显示”命令按钮，则显示当前滚动条的值；如果单击“加200”命令按钮，则滚动块向右滚动200单位。程序运行时效果如图5-4所示。注意：请在有“?”的地方正确内容，然后删除“?”及代码前的所有注释符(即“”’号)，但不能修改其他部分。编写程序使程序运行时满足下列的条件。存盘时不得改变文件名和文件夹。[12分]

4. 在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．{rm。其功能是在Text文本框中输入一个数N，单击命令按钮计算从0到N的所有素数的和，并在Text2中显示出来。运行程序如图7-3所示。注意：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。[12分]

5. 在考生文件夹下有工程文件si5．vbp及窗体文件sj5．frm，该程序是不完整的。窗体Forml中有一命令按钮与一个水平滚动条。命令按钮的名称为Command1，标题为“移动”；水平滚动条的名称为HScroll1。单击“移动”按钮后，在弹出的对话框中输人数值。输入一个整数后，单击“移动”，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不再移动，并且在窗体上显示“输入的数值太大”，如果超过了滚动条的最小刻度，则不再移动，并且在窗体上显示“输入的数值太小”，如图1—5所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“¨’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。[18分]

6. 假定有一个菜单项，名为Menultem，为了在运行时使该菜单项不可见，应使用的语句为（）。[1分]

AMenultem．Enabled=False

BMenuItem．Enabled=True

CMenuItem．Visible=True

DMenultem．Visible=Flase

7. 为丫从当前文件夹中读入文件File1．txt，某人编写了下面的程序：PrivateSubCommand1_Click（）Open"File1．txt"ForOutputAs#20DoWhileNotEOF(20)LineInput#20，ch$PrintchLoopClose#20EndSub程序调试时，发现有错误，下面的修改方案中正确的是（）。[1分]

A在Open语句中的文件名前添加路径

B把程序中各处的“20”改为“1”

C把Printch语句改为Print#20，ch

D把Open语句中的0utput改为Input

8. 在设计阶段．当按Ctrl+R键时，所打开的窗口是（）。[1分]

A代码窗口

B工具箱窗口

C工程资源管理器窗口

D属性窗口

9. 已知a=5．b=／，c=12，下列表达式的值为True的是（）。[1分]

Aa>bAndc<A

Ba>bOrc<A

Ca>bXorc<A

Da>aEqvc<A

10. 下列选项中不属于结构化程序设计原则的是（）。[1分]

A可封装

B自顶向下

C模块化

D逐步求精

11. 下列操作不能向工程中添加窗体的是（）。[1分]

A执行“工程”菜单中的“添加窗体”命令

B单击工具栏中的“添加窗体”按钮．

C右击窗体。在弹出的菜单中选择“添加窗体”命令

D右击T程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择：“添加窗体”命令

12. 在VisualBasic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是（）。[1分]

A工程资源管理器窗口

B属性窗口

C工具箱窗口

D代码窗口

13. 有如下过程代码：Subvar_dim（）staticnumaAsIntegerDimnumbAsIntegernuma=numa+2．numb=numb+1printnuma；mubEndSub连续3次调剧var_dim过程，第3次调用时的输出是（）。[1分]

A21

B23

C61

D63

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

A队列

B栈

C双向链表

D二叉树

15. 以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是（）。[1分]

AKeyAscii参数是所按键的ASCII码

BKeyAscii参数的数据类型为字符串

CKeyAscli参数可以省略

DKeyAscii参数是所按键上标注的字符

16. 设有以下函数过程PrivateFunctionFun(a（）AsInteger，bAsString)AsInteger…EndFunction若已有变量声明：Dimx(5)AsInteger，nAsInteger，chAsString则下面正确的过程调用语句是（）。[1分]

Ax(O)=Fun(x．"ch")

Bn=Fun(n．ch)

CCallFunX，"ch"

Dn=Fun(x(5)，ch)

17. 以下关予菜单设计的叙述中错误的是（）。[1分]

A各菜单项可以构成控件数组

B每个菜单项可以看成是一个控件

C设计菜单时，菜单项的“有效”选，即有效，表示该菜单项不显示

D菜单项只响应单击事件

18. 以下程序段的输出结果是（）。x=1y=4DoUntily>4x=x*yy=y+1LoopPrintX[1分]

A1

B4

C8

D20

19. 窗体上有一个名称为Command1的命令按钮，并有如下程序：PrivateSubCommand1Click（）x=14DoWhilex>0x=x-3x=IIf(Int(x／5)=x／5，x+2，x)LoopPrintxEndSub程序运行后，单击命令按钮Command1，输出结果为（）。[1分]

A0

B-l

C-2

D-_3

20. 在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是（）。[1分]

A

B

C

D

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

A在KeyPress事件过程中不能识别键盘的按下与释放

B在KeyPress事件过程中不能识别回车键

C在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同的字母

D在KeyDown和KeyUp事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符

22. 以下关于函数过程的叙述中错误的是（）。[1分]

A函数过程一定有返回值

B函数过程一定有参数

C函数过程可以在窗体模块和标准模块中定义

D函数过程参数的类型与返回值的类型无关

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

A栈是“先进先出”的线性表

B队列是“先进后出”的线性表

C循环队列是非线性结构

D有序线性表既可以采用顺序存储结构，也可以采用链式存储结构

24. 设工程中有2个窗体：Form1、Form2、Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输人口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此．某人在Form1窗体文件中编写如下程序：PrivateSubText1KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfText1．Text="Teacher"ThenForm2．input．Visible=TrueElseForm2．input．VisibleFalseEndIfEndIfForml．HideForm2．ShowEndSub菜单结构标题名称级别成绩管理mark1成绩查询query2成绩录入mput3程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是（）。[1分]

A把Form1中Text1文本框及相关程序放到Form2窗体中

B把Form1．Hide、Form2．Show两行移动2个EndIf之间

C把IfKeyAscii=13Then改为IfKeyAseii="Teacher"Then

D把2个Form2input．Visible中的“Form2．”删去

25. 窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。[1分]

APrivateSubForm1Click（）EndSub•••

BPrivateSubFormCliok（）EndSub•••

CPrivateSubCommand1click（）EndSub•••

DPrivateSubCommandClick（）EndSub•••

26. 把数学表达式表示为正确的VB表达式应该是（）。[1分]

A(5x+3)／(2y-6)

Bx*5+3／2*y-6

C(5*x+3)÷(2*y-6)

D(x*5+3)／(y*2-6)

27. 阅读程序：PrivateSubFormClick（）a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序运行后，单击窗体，输出结果是（）。[1分]

A105

B1

C120

D15

28. 窗体的左右两端各有1直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Linel直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interva1属性设置为1000，并编写了如下程序：PrivateSubTimer1Timer（）Fork=Line1．X1ToLine2．X1Step100IfShape1．Left+Shape1．widthShape1．Left=Shape1．Left+100EndIfNextkEndSub运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是（）。[1分]

A把计时器的Interval属性设置为1

B把Fork=line1．X1ToLine2．X1Step100和Nextk两行删除

C把Fork=Line1．X1ToLine2．X1Step100改为Fork=Line2．X1ToLine1．X1Step100

D把IfShape1．Left+Shepe1．Width

29. 在学生管理的关系数据库中，存取一个学生信息的数据单位是（）。[1分]

A文件

B数据库

C字段

D记录

30. 在窗体上画一个名为Command1的命令按钮，然后编写以下程序：PrivateSubCommand1Click（）Dima(10)AsIntegerFork=10To1Step-1a(k)=20-2*kNextkk=k+7Printa(k-a(k))EndSub运行程序，单击命令按钮，输出结果是（）。[1分]

A18

B12

C8

D6

31. 窗体上有一个名为Command1的命令按钮，并有如下程序：PrivateSubCorqmand1_Click（）DimaAsInteger，bAsIntegera=8b=12PrintFun(a，b)；a；bEndSubPrivateFunctionFun(ByValaAsInteger，bASInteger)AsIntegera=aMod5b=b＼5Fun=aEndFunction程序运行时，单击命令按钮，则输出结果是（）。[1分]

A332

B382

C8812

D3812

32. 索引属于（）。[1分]

A模式

B内模式

C外模式

D概念模式

33. 设有如下程序：PrivateSubFormClick（）DimsAsLong，fAsLongDimnAsInteger，iAsIntegerf=1n=4Fori=1Tonf=f*is=s+fNextiPrintsEndSub程序运行后，单击窗体，输出结果是（）。[1分]

A32

B33

C34

D35

34. 在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图所示，则命令按钮的Top属性值是（）。[1分]

A200

B300

C500

D700

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

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

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

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

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

36. 下列可作为VisualBasic变量名的是（）。[1分]

AA#A

B4ABC

C?xy

DPrint．Text

37. 同一概念在一处为实体而在另一处为属性或联系的冲突，在视图集成中称为（）。[1分]

A命名冲突

B概念冲突

C域冲突

D约束冲突

38. 列表框中的项目保存在一个数组中，这个数组的名字是（）。[1分]

AColumn

BStyle

CList

DMultiSelect

39. 支持子程序调用的数据结构是（）。[1分]

A栈

B树

C队列

D二叉树

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

A一个工程中可以包含多个窗体文件

B在一个窗体文件中用Private定义的通用过程能被其他窗体调用

C在设计VisualBasic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件

D全局变量必须在标准模块中定义

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

A自然连接

B差

C交

D并

42. 设菜单编辑器中各菜单项的属性设置如下表所示：针对上述属性设置，以下叙述中错误的是（）。[1分]

A属性设置有错，存在“标题”与“名称”重名现象

B运行程序，序号为“3”的菜单项不显示

C运行程序，序号为“4”的菜单项不可用

D运行程序，序号为“5”的菜单项前显示“√”

43. 为了使标签具有“透明”的显示效果，需要设置的属性是（）。[1分]

ACaption

BAlignment

CBackStyle

DAuwSize

44. 设窗体j．有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：PrivateSubCommand1=Click（）CD1．DialogTitle="打开文件"CD1．InitDir="C：＼"CD1．Filter="所有文件|*．*|Word文档|*．doc|文本文件|*．txt"CD1．FileName=""CD1．Acti_dj=1IfCD1．FileName=""ThenPrint"未打开文件"ElsePrint"要打开文件"&CD1．FileNameEndIfEndSub但实际显示的对话框中列出了C．＼下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是（）。[1分]

A把CD1．Action=1改为CD1．Action=2

B把“CD1．Filter=”，后面字符串中的“所有文件”改为“文本文件”

C在语句CD1．Action=1的前面添加：CD1．FilterIndex=3

D把CD1．FileName=""改为CD1．FileName=”文本文件”

45. 假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为al，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是（）。[1分]

APrivateSubForm_MouseDown(ButtonAsInteger，_ShiftAsInteger，XAsSingle，YAsSingle)IfButton=1AndBlltton=2ThenPopupMenua1EndIfEndSub

BPrivateStlbForm_MouseDown(ButtonAsInteger，_ShiftAsInteger，XAsSingle，YAsSingle)PopupMenua1EndSub

CPrivateSubForm—MouseDown(ButtonAsInteger，_ShiftAsInteger，XAsSingle，YAsSingle)IfButton=1ThenPopupMenua1EndIfEndSub

DPrivateSubFormMouseDown(ButtonAsInteger，_ShiftAsInteger，XAsSingle，YAsSingle)IfButtcn=2ThenPopupMenua1EndIfEndSub