2022年3月全国计算机等级考试二级VB语言程序设计

精品文档-下载后可编辑年3月全国计算机等级考试二级VB语言程序设计2022年3月全国计算机等级考试二级VB语言程序设计

一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

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

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

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

C.循环队列是非线性结构

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

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

C.队列

D.二叉树

3.某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是（）。[2分]

A.10

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

A.冒泡排序

B.简单选择排序

C.直接插入排序

D.堆排序

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

A.编译程序

B.操作系统

C.教务管理系统

D.汇编程序

6.下面叙述中错误的是（）。[2分]

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

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

C.程序调试通常也称为Debug

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

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

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

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

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

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

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

A.数据库设计

B.数据库系统设计

C.数据库维护

D.数据库管理员培训

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

A.选择

B.投影

C.插入

D.连接

10.将E-R图转换为关系模式时，实体和联系都可以表示为（）。[2分]

A.属性

C.关系

11.执行语句DimX,YAsInteger后，（）。[2分]

A.X和Y均被定义为整型变量

B.X和Y均被定义为变体类型变量

C.X被定义为整型变量，Y被定义为变体类型变量

D.X被定义为变体类型变量，Y被定义为整型变量

12.以下关系表达式中，其值为True的是（）。[2分]

A."XYZ""XYz"

B."VisualBasic""visualbasic"

C."the"="there"

D."Integer""Int"

13.执行以下程序段a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))b$Right$(a$,12)后，变量c$的值为（）。[2分]

A.VisualBASICProgramming

B.VISUALC++Programming

C.VisualC++Programming

D.VISUALBASICProgramming

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

A.MsgBox语句的返回值是一个整数

B.执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作

C.MsgBox语句的第一个参数不能省略

D.如果省略MsgBox语句的第三个参数（Title），则信息框的标题为空

15.在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是（）。[2分]

A.PrivateSubText1_Change()Label1.Caption=Str(Len(Text1.Text))EndSub

B.PrivateSubTextl_Click()Label1.Caption=str(Len(Text1.Text))EndSub

C.PrivateSubTextl_Change()Label1.Caption=Text1.TextEndSub

D.PrivateSubLabel1_Change()Label1.Caption=Str(Len(Text1.Text))EndSub

16.在窗体上画两个单选按钮（名称分别为Optionl、Option2，标题分别为“宋体”和“黑体”）、1个复选框（名称为Checkl，标题为“粗体”）和1个文本框（名称为Textl，Text属性为“改变文字字体”），窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是（）。[2分]

A.Optionl.Value=FalseCheckl.Value=True

B.Optionl.Value=TrueCheckl.Value=0

C.Option2.Value=FalseCheckl.Value=2

D.Optionl.Value=TrueCheckl.Value=1

17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c=1234c1=Trim（Str（c））Fori=1To4Print__________NextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为（）。[2分]

A.Right(c1,i)

B.Left(c1,i)

C.Mid(c1,i,1)

D.Mid(c1,i,i)

18.假定有以下程序段Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是（）。[2分]

A.15

B.16

C.17

D.18

19.在窗体上画两个文本框（名称分别为Textl和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex50x=(x+2)*(x+3)n=n+1LoopTextl.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。[2分]

A.1和0

B.2和72

C.3和50

D.4和168

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

A.105

C.120

D.15

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

A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程

B.因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程

C.若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同

D.在KeyPress事件过程中，KeyAscii参数可以省略

22.语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是（）。[2分]

A.18

B.28

C.21

D.32

23.在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub程序运行后，单击命令按钮，其输出结果是（）。[2分]

A.4321

B.1234

C.34

D.12

24.假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是（）。[2分]

A.数组中每个命令按钮的名称（Name属性）均为Command1

B.若未做修改，数组中每个命令按钮的大小都一样

C.数组中各个命令按钮使用同一个Click事件过程

D.数组中每个命令按钮的Index属性值都相同

25.在窗体上画一个命令按钮，名称为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，则输出结果为（）。[2分]

26.以下关于函数过程的叙述中，正确的是（）。[2分]

A.函数过程形参的类型与函数返回值的类型没有关系

B.在函数过程中，过程的返回值可以有多个

C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

D.如果不指明函数过程参数的类型，则该参数没有数据类型

27.在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：PrivateSubfunc(LAsLabel)L.Caption="1234"EndSubPrivateSubForm_Load()Label1.Caption="ABCDE"Label2.Caption=10EndSubPrivateSubCommand1_Click()a=Val(Label2.Caption)Callfunc(Label1)Label2.Caption=aEndSub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为[2分]

A.ABCD和10

B.1234和100

C.ABCD和100

D.1234和10

28.在窗体上画一个命令按钮（名称为Command1），并编写如下代码：FunctionFunl(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+aFunl=t+bEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=10PrintFunl(Funl(x,(Funl(x,x-1))),x-1)EndSub程序运行后，单击命令按钮，输出结果是（）。[2分]

A.10

C.11

D.21

29.以下关于过程及过程参数的描述中，错误的是（）。[2分]

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

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

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

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

30.设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=""strL=Len(xStr)i=strL/2DoWhilei=StrLtStr=tStrMid(xStr,i+1,1)i=i+1LoopFun=tStrtStrEndFunction在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：PrivateSubCommand1_Click()DimS1AsStringS1="ABCDEF"Textl.Text=LCase(Fun(S1))EndSub程序运行后，单击命令按钮，文本框中显示的是（）。[2分]

A.ABCDEF

B.abcdef

C.defdef

D.defabc

31.在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Textl），并把窗体的KeyPreview属性设置为True，然后编写如下代码：DimSaveAllAsStringPrivateSubForm_Load()ShowTextl.Text=""Textl.SetFocusEndSubPrivateSubCommand1_Click()Textl.Text=LCase(SaveAll)+SaveAl1EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为（）。[2分]

A.vbVB

B.不显示任何信息

C.VB

D.出错

32.设有以下程序：PrivateSubForm_Click()x=50Fori=1To4y=InputBox("请输入一个整数")y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（）。[2分]

A.100

B.50

C.120

D.70

33.以下关于菜单的叙述中，错误的是（）。[2分]

A.当窗体为活动窗体时，用Ctrl+E键可以打开菜单编辑器

B.把菜单项的Enabled属性设置为False，则可删除该菜单项

C.弹出式菜单在菜单编辑器中设计

D.程序运行时，利用控件数组可以实现菜单项的增加或减少

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

A.在程序运行时，通用对话框控件是不可见的

B.调用同一个通用对话框控件的不同方法（如ShowOpen或ShowSave）可以打开不同的对话框窗口

C.调用通用对话框控件的Show()pen方法，能够直接打开在该通用对话框中指定的文件

D.调用通用对话框控件的ShowColor方法，可以打开颜色对话框窗口

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

A.PrivateSubCommand1_Click()DimBASBooksOpen"Person.txt"ForOutputAs#1B．Name=InputBox("输入姓名")B．TelNum=InputBox("输入电话号码")Write#1,B.Name,B.TelNumClose#1EndSub

B.PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForInputAs#1B．Name=InputBox("输入姓名")B．TelNum=InputBox("输入电话号码")Print#1,B.Name,B.TelNureClose#1EndSub

C.PrivateSubCommand1_Click()DimBASBooksOpen"Person.txt"ForOutputAs#1B．Name=InputBox("输入姓名")B．TelNum=InputBox("输入电话号码")Write#1,BClose#1EndSub

D.PrivateSubCommand1_Click()Open"Person.txt"ForInputAs#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#1,Name,TelNumClose#1EndSub

二、填空题（每空2分，共30分）请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

1.假设用一个长度为50的数组（数组元素的下标从0到49）作为栈的存储空间，栈底指针bottom指向栈底元素，栈顶指针top指向栈顶元素，如果bottom=49，top=30数组下标），则栈中具有___个元素。[每空2分]

2.软件测试可分为白盒测试和黑盒测试。基本路径测试属于___测试。[每空2分]

3.符合结构化原则的三种基本控制结构是：选择结构、循环结构和___。[每空2分]

4.数据库系统的核心是___。[每空2分]

5.在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是___框。[每空2分]

6.窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1，计时器的名称为Timerl，直线的名称为Linel。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。1）Timerl的Interval属性的值应事先设置为___2）PrivateSubCommand1_Click()Timerl.Enabled=TrueEndSubPrivateSubTimerl_Timer()IfImagel.Left=___ThenImagel.Left=___-100EndIfEndSub[每空2分]

7.设窗体上有一个名称为Combo1的组合框，并有以下程序：PrivateSubCombol_KeyPress(KeyAsciiAsInteger)If___=13Then'回车符的ASCII码是13Fork=0ToCombo1.ListCount-1IfCombo1.Text=Combo1.List(k)ThenCombo1.Text=""ExitForEndIfNextkIfCombo1.Text""ThenCombo1.AddItem___EndIfEndIfEndSub程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。[每空2分]

8.在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。PrivateSubCommand1_Click()Dimch$,asciiAsIntegerOpen"my