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

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

一、选择题(每小题2分，共70分)

1.软件是指（）。[2分]

A.程序

B.程序和文档

C.算法加数据结构

D.程序、数据与相关文档的完整集合

2.软件调试的目的是（）。[2分]

A.发现错误

B.改正错误

C.改善软件的性能

D.验证软件的正确性

3.在面向对象方法中，实现信息隐蔽是依靠（）。[2分]

A.对象的继承

B.对象的多态

C.对象的封装

D.对象的分类

4.下列叙述中，不符合良好程序设计风格要求的是（）。[2分]

A.程序的效率第一，清晰第二

B.程序的可读性好

C.程序中要有必要的解释

D.输入数据前要有提示信息

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

A.程序执行的效率与数据的存储结构密切相关

B.程序执行的效率只取决于程序的控制结构

C.程序执行的效率只取决于所处理的数据量

D.以上3种说法都不对

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

A.数据的逻辑结构与存储结构必定是一一对应的

B.由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构

C.程序设计语言中的数据一般是顺序存储结构，因此，利用数组只能处理线性结构

D.以上3种说法都不对

7.冒泡排序在最坏情况下的比较次数是（）。[2分]

A.n(n+1)/2

B.nlog2n

C.n(n-1)/2

D.n/2

8.一棵二叉树中共有70个叶子结点与80个度为１的结点，则该二叉树中的总结点数为（）。[2分]

A.219

B.221

C.229

D.231

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

A.数据库系统是一个独立的系统，不需要操作系统的支持

B.数据库技术的根本目标是要解决数据的共享问题

C.数据库管理系统就是数据库系统

D.以上3种说法都不对

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

A.为了建立一个关系，首先要构造数据的逻辑关系

B.表示关系的二维表中各元组的每一个分量还可以分成若干数据项

C.一个关系的属性名表称为关系模式

D.一个关系可以包括多个二维表

11.要使一个文本框可以显示多行文本，应设置为True的属性是（）。[2分]

A.Enabled

B.MultiLine

C.MaxLenth

D.Width

12.在窗体上有一个名为Textl的文本框。当光标在文本框中时，如果按下字母“A”，则可被调用的事件过程是（）。[2分]

A.Form_KeyPress()

B.Textl_LostFocus()

C.Textl_Click()

D.Textl_Change()

13.设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下列正确的事件过程是（）。[2分]

A.PrivateSubCommandl_Click()Textl.GotFocusEndSub

B.PrivateSubCommandl_Click()Commandl.GotFocusEndSub

C.PrivateSubCommandl_Click()Textl.SetFocusEndSub

D.PrivateSubCommandl_Click()Commandl.SetFocusEndsub

14.执行下列程序后输出的是（）。PrivateSubCommandl_Click()Ch$="ABCDEFGH"∶PrintMid(Right(ch$,6),Len(Left(ch$,4),2)EndSub[2分]

A.CDEFGH

B.ABCD

C.FG

D.AB

15.设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是（）。[2分]

A.PrivateSubList1_Click()PrintList1.TextEndSub

B.PrivateSubForm1_Click()PrintList1.TextEndSub

C.PrivateSubList1_Click()PrintForm1.TextEndSub

D.PrivateSubForm1_Click()List1.PrintList1.TextEndSub

16.若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指（）。[2分]

A.按钮左端到窗体左端的距离

B.按钮左端到图片框左端的距离

C.按钮中心点到窗体左端的距离

D.按钮中心点到图片框左端的距离

17.为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”。若通过程序设置该标题，则应使用的语句是（）。[2分]

A.CD1.DialogTitle="对话框窗口"

B.CD1.Action="对话框窗口"

C.CD1.FileName="对话框窗口"

D.CD1.Filter="对话框窗口"

18.在窗体上有如图所示的控件，各控件的名称与其标题相同，并有下列程序：PrivateSubForm_Load()Command2.Enabled=False∶Check1.Value=1EndSub刚运行程序时，看到的窗体外观是（）。[2分]

19.设在窗体中有一个名称为List1的列表框，其中有若干个项目，如图所示。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是（）。[2分]

A.PrivateSubCommand1_Click()ListlClearEndSub

B.PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSub

C.PrivateSubCommand1_Click()List1.RemoveItemList1.ListIndexEndSub

D.PrivateSubCommand1_Click()List1.RemoveItemEndSub

20.某人设计了下列程序用于计算并输出7!（7的阶乘）：PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPrinttEndSub执行程序时，发现结果是错误的。下列修改方案中能够得到正确结果的是（）。[2分]

A.把t=0改为t=1

B.把Fork=7To2Step-1改为Fork=7To1Step-1

C.把Fork=7To2Step-1改为Fork=1To7

D.把Next改为Nextk

21.若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是（）。[2分]

A.把所有单选按钮的Index属性改为相同值

B.把所有单选按钮的Index属性改为连续的不同值

C.把所有单选按钮的Caption属性值改为相同

D.把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值

22.窗体上有文本框Textl和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Textl文本框中。下面可实现此功能的事件过程是（）。[2分]

A.PrivateSubsave_Click()Text1.Text=file.save.CaptionEndSub

B.PrivateSubsave_Click()Text1.Text=save.CaptionEndSub

C.PrivateSubfile_Click()Text1.Text=file.save.CaptionEndSub

D.PrivateSubfile_Click()Text1.Text=save.CaptionEndSub

23.某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程下列。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。PrivateSubTimer1_Timer()Label1.Caption=Time＄EndSub在程序执行时发现未能实现以上目的，那么，他应做的修改是（）。[2分]

A.通过属性窗口把计时器的Interval属性设置为2000

B.通过属性窗口把计时器的Enabled属性设置为False

C.把事件过程中的Label1.Caption=Time＄语句改为Timer1.Interval=Time＄

D.把事件过程中的Label1.Caption=Time＄语句改为Label1.Caption=Timer1.Time

24.形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是（）。[2分]

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

A.随机文件中各条记录的长度是相同的

B.打开随机文件时采用的文件存取方式应该是Random

C.向随机文件中写数据应使用语句Print#文件号

D.打开随机文件与打开顺序文件一样，都使用Open语句

26.设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是（）。[2分]

A.Picture1.Picture="File1.jpg"

B.Picture1.Picture=LoadPicture("File1.jpg")

C.LoadPicture("File1.jpg")

D.CallLoadPicture("File1.jpg")

27.下列程序执行时，在窗体上显示的是（）。PrivateSubCommand1_Click()Dima(10)Fork=1To10a(k)=11-kNextkPrinta(a(3)\a(7)Moda(5))EndSub[2分]

28.为达到把a、b中的值交换后输出的目的，某人编程下列：PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b):Printa,bEndSubPrivateSubswap(ByValaAsInteger,ByValbAsInteger)c=a:a=b:b=cEndSub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（）。[2分]

A.调用swap过程的语句错误，应改为Callswapa,b

B.输出语句错误，应改为Print"a","b"

C.过程的形式参数有错，应改为swap(ByRefaAsInteger,ByRefbAsInteger)

D.swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a

29.有下列函数：Functionfun(aAsInteger,nAsInteger)AsIntegerDimmAsIntegerWhilea=na=a-n∶m=m+1Wendfun=mEndFunction该函数的返回值是（）。[2分]

A.a乘以n的乘积

B.a加n的和

C.a减n的差

D.a除以n的商（不含小数部分）

30.下列程序的输出结果是（）。PrivateSubCommand1_Click()ch＄="ABCDEF"procch∶PrintchEndSubPrivateSubproc(chAsString)s=““Fork=Len(ch)To1Step-1s=sMid(ch,k,1)Nextkch=sEndSub[2分]

A.ABCDEF

B.FEDCBA

31.某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码下列：FunctionMaxValue(a()AsInteger)AsIntegerDimmax%∶max=1Fork=2To10Ifa(k)a(max)Thenmax=kEndIfNextkMaxValue=maxEndFunction程序运行时，发现函数过程的返回值是错的，需要修改，下列的修改方案中正确的是（）。[2分]

A.语句max=1应改为max=a(1)

B.语句Fork=2To10应改为Fork=1To10

C.If语句中的条件a(k)a(max)应改为a(k)max

D.语句MsxValue=max应改为MaxValue=a(max)

32.在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：PrivateSubCommand1_Click()Dimn%,b,tt=1:b=1:n=2Dob=b*n∶t=t+b∶n=n+1LoopUntiln9PrinttEndSub此程序计算并输出一个表达式的值，该表达式是（）。[2分]

A.9!

B.10!

C.1!+2!+…+9!

D.1!+2!+…+10!

33.有一个名称为Fom1的窗体，上面没有控件，设有下列程序（其中方法PSet(X,Y)的功能是在坐标X、Y处画一个点）：DimcmdmaveAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=TrueEndSubPrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfcmdmaveThenForm1.PSet(X,Y)EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSinggle)cmdmave=FalseEndSub此程序的功能是（）。[2分]

A.每按下鼠标键一次，在鼠标所指位置画一个点

B.按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失

C.不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

D.按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

34.某人设计了下列函数fun，功能是返回参数a中数值的位数Functionfun(aAsInteger)AsIntegerDimn%n=1Whilea\10=0n=n+1∶a=a\10Wendfun=nEndFunction在调用该函数时发现返回的结果不正确，函数需要修改，下列修改方案中正确的是（）。[2分]

A.把语句n=1改为n=0

B.把循环条件a\10=0改为a\100

C.把语句a=a\10改为a=aMod10

D.把语句fun=n改为fun=a

35.在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中，如图所示。下列能实现此功能的事件过程是（）。[2分]

A.PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=““Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.TextCheck1(k).Caption““'双引号中是空格EndIfNextkEndSub

B.PrivateSubCheck1_Click(IndexAsInteger)Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.TextCheck1(k).Caption""'双引号中是空格EndIfNextkEndSub

C.PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(Index).Value=1ThenText1.Text1=Text1.TextCheck1(Index).Caption""'双引号中是空格EndIfNextkEndSub

D.PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheckl(k).Value=1ThenText1.Text=Text1.TextCheckl(k).Caption""'双引号中是空格ExitForEndIfNextkEndSub

二、填空题(每空2分，共30分)

1.软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特性，其中最重要的是___。[每空2分]

2.在两种基本测试方法中，___测试的原则之一是保证所测模块中每一个独立路径至少要执行一次。[每空2分]

3.线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的___存储结构。[每空2分]

4.对下列二叉树进行中序遍历的结果为___。[每空2分]

5.在E-R图中，矩形表示___。[每空2分]

6.窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。如单击图1中的“重庆”，则与“北京”交换，得到图2的结果。以下是可实现此功能的程序，请填空。PrivateSubCombo1_Click()Dimtemptemp=Combo1.Text___=Combo1.List(0)Combo1.List(0)=tempEndSub[每空2分]

7.设窗体有上一个名称为HScrol1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。以下是可实现此功能的程序，请填空。Dim___AsIntegerPrivateSubFrom_Load()pos=HScrol1.ValueEndSubPrivateSubHScroll1_Change()Print___-pospos=HScroll1.ValueEndSub[每空2分]

8.设窗体上有一个名称为CD1的通用对话框、一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操从中选择一个文本文件，并单击对话框中的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。以下是实现此功能的事件过程，请填空。PrivateSubCommand1_Click()CD1.Filtetr="文本文件|*.txt|Word文档|*.doc"CD1.FilterIndex=1∶CD1.ShowOpenIfCD1.FileName““ThenOpen___ForInputAs#1LineInput#1,ch$Close#1∶Text1.Text=___End