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

考试总分：43分

考试类型：模拟试题

作答时间：60分钟

已答人数：967

试卷答案：有

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

开始答题

试卷预览

0 单选题

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

2. 请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上放置一个名称为Drive1的驱动列表框控件，一个名称为Dir1的目录列表框控件、一个名称为File1的文件列表框控件。程序运行时，可以对系统中的文件进行浏览。如图46-1所示。图46-1注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。（2）在名称为Form1的窗体上放置一个名为Label1的标签控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，并且显示的字体为四号宋体字，如图46-2所示。图46-2注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。[18分]

3. （1）在窗体上建立一个二级菜单，该菜单含有"文件"和"编辑"（名称分别为vbFile和vbEdit）两个主菜单项，其中"文件"菜单包括"打开"、"保存"和"关闭"3个子菜单项（名称分别为vbOpen、vbSave和vbClose）。在名称为Form1的窗体上建立两个主菜单，其标题分别为"文件"和"编辑"，名称分别为vbFile和vbEdit，在"文件"菜单下有3个子菜单项，标题分别为"打开"、"保存"和"关闭"，名称分别为vbOpen、vbSave和vbClose。要求程序运行后，如果选中"文件"下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图31-3所示。图31-3注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为sj3.vbp。（2）在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。在窗体上建立一个名称为Command1，标题为"计算"的命令按钮，再建立一个名称为Text1的文本框。运行界面如图31-4所示。要求程序运行后，若单击"计算"按钮，将计算200~350之间所有素数的和，在文本框中显示结果，同时把结果存入文件out.txt中。（在考生文件夹中有标准模块mode.bas,其中的writedata过程可以把结果存入文件，而isprimenum函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中。）图31-4[24分]

4. 关于MDI窗体，下列说法正确的是（）。[1分]

A一个应用程序可以有多个MDI窗体

B子窗体可以移到MDI窗体以外

C不可以在MDI窗体上放置按钮控件

DMDI窗体的子窗体不可以拥有菜单

5. 在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：PrivateSubCommand1＿Click（）a＝Text1．Text＋Text2．TextPrintaEndSubPrivateSubForm＿Load（）Text1．Text＝＂＂Text2．Text＝＂＂Endsub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）。[1分]

A444

B321123

C123321

D132231

6. 在C盘当前文件夹下建立一个名为SDat．txt的顺序文件。要求用InputBox函数输入5名学生的学号（StuNo）、姓名（StuName）和英语成绩（StuEng）。则在下列横线处应填入的语句是（）。PrivateSubForm＿Click（）Open＂C：＼SDat．txt＂ForOutputAs1Fori＝1To5StuNo＝InputBox（＂请输入学号＂）StuName＝InputBox（＂请输入姓名＂）StuEng＝Val（InputBox（＂请输入英语成绩＂））NextiClose＃1EndSub[1分]

AInput＃l，StuNo，StuName，StuEn

BPut＃l，StuNo，StuName，StuEn

CWrite＃1，StuNo，StuName，StuEn

DGet＃1，StuNo，StuName，StuEn

7. 目录列表框Path属性所表示的含义是（）。[1分]

A当前驱动器或指定驱动器上的路径

B当前驱动器或指定驱动器上的某目录下的文件列表

C根目录下的文件列表

D指定路径下的文件列表

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

A笛卡儿积

B交

C并

D自然连接

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

Alog2n

Bn／2

Cn

Dn＋1

10. 下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填（）。SubEnSure（）DimyearAsIntegeryear＝Val（InputBox（＂请输入年份：＂））If（yearMod4＝0_________yearMod100＜＞0）________（yearMod400＝0）ThenPrint＂您输入的是闰年＂ElsePrint＂不是闰年，是普通年份＂EndIfEndSub[1分]

AAndAnd

BAndOr

COrOr

DOrOr

11. 设有下列程序PrivateSubForm＿Click（）x＝50Fori＝1To4y＝InputBox（＂请输入一个整数＂）y＝Val（y）IfyMod5＝0Thena＝a＋yx＝yElsea＝a＋xEndIfNextiPrintaEndSub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（）。[1分]

A100

B50

C120

D70

12. 要清除已经在图片框Picturel中打印的字符串而不清除图片框中的图像，应使用语句（）。[1分]

APicture1．Cls

BPicture1．Picture＝LoadPicture（＂＂）

CPicture1．Pint＂＂

DPicture1．Picture＂＂

13. 数据库系统的核心是（）。[1分]

A数据模型

B数据库管理系统

C数据库

D数据库管理员

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

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

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

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

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

15. 下列关于过程及过程参数的描述中，错误的是（）。[1分]

A过程的参数可以是控件名称

B调用过程时使用的实参的个数应与过程形参的个数相同

C只有函数过程能够将过程中处理的信息返回到调用程序中

D窗体可以作为过程的参数

16. 有下列事件过程：PrivateSubCommand1＿Click（）b＝10DoUntilb＝－1a＝InputBox（＂请输入a的值＂）a＝Val（a）b＝InputBox（＂请输入b的值＂）b＝Va（b）a＝a＊bLoopPrintaEndSub程序运行后，依次输入数值30，20，10，－1后，输出结果是（）。[1分]

A600

B－10

C200

D－6000

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

A栈

B树

C队列

D二叉树

18. 要将名为MyForm的窗体显示出来，正确的使用方法是（）。[1分]

AMyForm．Show

BShow．MyForm

CMyFormLoad

DMyFormShow

19. 在面向对象方法中，不属于"对象"基本特点的是（）。[1分]

A一致性

B分类性

C多态性

D标识唯一性

20. 为了使列表框中的项目分为多列显示，需要设置的属性为（）。[1分]

AColumns

BStyle

CList

DMultiSelect

21. 在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。下列是Command1＿Click事件过程的两种算法。算法1：PrivateSubCommand1＿Click（）CommonDialogl．ShowOpenOpenCommonDialogl．FileNameForInputAs＃1EndSub算法2：PrivateSubCommand1＿Click（）CommonDialogl．ShowOpenIfCommonDialogl．FileName＜＞＂＂ThenOpenCommonDialogl．FileNameForInputAs＃1EndIfEndSub下列关于这两种算法的叙述中正确的是（）。[1分]

A显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会

B显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会

C两种算法的执行结果完全一样

D算法1允许输入的文件名中含有空格，而算法2不允许

22. 窗体上有两个文本框Textl、Text2以及一个命令按钮Commandl，编写下列程序：DimYAsIntegerPrivateSubCommandl＿Click（）DimXAsIntegerx＝2Textl．Text＝p2（p1（X），Y）Text2．Text＝pl（x）EndSubPrivateFunctionpl（XAsInteger）AsIntegerx＋x＋y∶y＝x＋ypl＝x＋yEndFunctionPrivateFunctionp2（XAsInteger，YAsInteger）AsIntegerp2＝2＊x＋yEndFunction当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为（）。[1分]

A2424

B2448

C4488

D10105858

23. 窗体文件的扩展名是（）。[1分]

Abas

Bcls

Cfrm

Dres

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

AMsgBox函数返回一个整数

B通过MsgBox函数可以设置信息框中图标和按钮的类型

CMsgBox语句没有返回值

DMsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量

25. 下列选项中不属于软件生命周期开发阶段任务的是（）。[1分]

A软件测试

B概要设计

C软件维护

D详细设计

26. 对关系S和R进行集合运算，结果中既包含S中的所有元组也包含R中的所有元组，这样的集合运算称为（）。[1分]

A并运算

B交运算

C差运算

D积运算

27. 执行以下程序段后，变量c$的值为（）。a$＝＂VisualBasicPrograming＂b$＝＂Quick＂c$＝b$＆UCase（Mid$（a$，7，6））＆Right$（a$，11）[1分]

AVisualBASICPrograming

BQuickBasicPrograming

CQUICKBasicPrograming

DQuickBASICPrograming

28. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。[1分]

A工程资源管理器窗口

B工具箱窗口

C代码窗口

D属性窗口

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

AListBox

BComboBox

CTextBox

DLabel

30. 下列叙述正确的是（）[1分]

A算法的执行效率与数据的存储结构无关

B算法的空间复杂度是指算法程序中指令(或语句)的条数

C算法的有穷性是指算法必须能在执行有限个步骤之后终止

D以上3种描述都不对

31. 在窗体上画一个名称为Command1的命令按钮，并编写以下程序：PrivateSubCommand1＿Click（）Dimn％，b，tt＝1：b＝1：n＝2Dob＝b＊nt＝t＋bn＝n＋1LoopUntiln＞9PrinttEndSub此程序计算并输出一个表达式的值，该表达式是（）。[1分]

A9！

B10！

C1！＋2！＋…＋9！

D1！＋2！＋…＋10！

32. 下列选项中不符合良好程序设计风格的是（）。[1分]

A源程序要文档化

B数据说明的次序要规范化

C避免滥用goto语句

D模块设计要保证高耦合、高内聚

33. 两个或两个以上模块之间关联的紧密程度称为（）。[1分]

A耦合度

B内聚度

C复杂度

D数据传输特性

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

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

B单击工具栏中的"添加窗体"按钮

C右击窗体，在弹出的菜单中选择"添加窗体"命令

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

35. 表达式"4+5/6*7/8Mod9"的值是（）。[1分]

A4

B5

C6

D7

36. 窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。PrivateSubCommand1＿Click（）DimstrAsString，sAsString，kAsIntegers＝Text1str＝＂＂Fork＝List1．ListCount－1To0Step－1IfInStr（List1．List（k），s）＞0Thenstr＝str＆List1．List（k）＆＂＂EndIfNextkIfstr＝＂＂ThenText2＝＂没有匹配的项目＂ElseText2＝strEndIfEndSub程序运行时，在Text1中输入＂京＂，单击命令按钮，则在Text2中显示的内容是（）。[1分]

A京

B北京南京

C南京北京

D没有匹配的项目

37. 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。[1分]

A单选按钮

B图片框

C通用对话框

D文本框

38. 有下列函数过程：FunctionFunc2（aAsInteger，bAsInteger）AsIntegerStaticmAsInteger，iAsIntegerm＝0i＝2a＝i＋m＋1b＝i＋a＋bFunc2＝mEndFunction在窗体上画一个命令按钮，然后编写下列事件过程：PrivateSubCommandl＿Click（）DimPAsInteger，kAsInteger，mAsIntegerk＝4m＝1P＝Func2（k，m）Printk；mP＝Func2（km）Printk＝mEndSub程序运行后，单击命令按钮，输出结果是（）。[1分]

A36＜CR＞36

B36＜CR＞311

C311＜CR＞36

D311＜CR＞311

39. 下列叙述菜单设计的语句正确的是（）。[1分]

A菜单也是一个控件，存在于工具箱中

B菜单也有外观和行为的属性

C菜单设计在"菜单编辑器"中进行，因此它不是一个控件

D菜单的属性也是在"属性窗口"中设置的

40. 在窗体上画一个命令按钮，其名称为Commandl。程序运行后，单击命令按钮，输出结果是（）。PrivateSubpl（nAsInteger）Fori＝nTo1Step＝1x＝String（i，＂＊＂）PrintxNextiEndSubPrivateSubCommandl＿Click（）pl（3）EndSub[1分]

A＊＊＊＊＊＊

B＊＊＊＊＊＊

C＊＊＊

D＊＊＊＊＊＊

41. 在用通用对话框控件建立"保存"文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即．txt文件），则正确的描述格式是（）。[1分]

A＂text（．txt）｜（＊．txt）＂

B＂文本文件（．txt）｜（．txt）＂

C＂text（．txt）｜｜（＊．txt）＂

D＂text（．txt）（＊．txt）＂

42. 下列说法错误的是（）。[1分]

A窗体文件的扩展名为"．frm"

B一个窗体对应一个窗体文件

CVisualBasic中的一个工程只包含一个窗体

DVisualBasic中一个工程最多可以包含255个窗体

43. 假定在工程文件中有一个标准模块，其中定义了如下记录类型：TypeBooksNameAsString＊10TelNumAsString＊20EndType要求在执行事件过程Command1＿Click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操作的事件过程是（）。[1分]

APrivateSubCommand1＿Click（）DintBAsBooksOpen＂c：＼Person．txt＂ForOutputAs＃1B．Name＝InputBox（＂输入姓名＂）B．TelNum＝InputBox（＂输入电话号码＂）Write＃1，B．Name，B．TelNumClose＃1EndSub

BPrivateSubCommand1＿Click（）DimBAsBooksOpen＂c：＼Person．txt＂ForInputAs＃1B．Name＝InputBox（＂输入姓名＂）B．TelNum＝InputBox（＂输入电话号码＂）Print＃1，B．Name，B．TelNumClose＃1EndSub

CPrivateSubCommand1＿Click（）DimBAsBooksOpen＂c：＼Person．txt＂ForOutputAs＃1Name＝InputBox（＂输入姓名＂）TelNom＝InputBox（＂输入电话号码＂）Write＃1，BClose＃1EndSub

DPrivateSubCommand1＿Click（）DimBAsBookOpen＂c：＼Person．txt＂ForInputAs＃1Name＝InputBox（＂输入姓名＂）TelNum－InputBox（＂输入电话号码＂）Print＃1，B．Name．B．TelNumClose＃1EndSub