2017年全国计算机二级考试试卷 历年考试真题演练 

B) Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub

C) Private Sub Command1_Click() List1.Removeltem List1.ListIndex End Sub

D) Private Sub Command1_Click() List1.Removeltem End Sub

（20）某人设计了如下程序用来计算并输出7!（7的阶乘） Private Sub Command1_Click() t=0

For k=7 To 2 Step -1 t=t*k Next Print t End Sub

执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是 A）把t=0改为t=1

B）把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1 C）把For k = 7 To 2 Stip-1改为Fork=1 To 7 D）把Next改为Nexi k

（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是 A）把所有单选按钮的Index属性改为相同值

B）把所有单选按钮的Index 属性改为连续的不同值 C）把所有单选按钮的Caption属性值改为相同

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

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

A）Private Sub save_Click() B）Private Sub save_Click() Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub

C）Private Sub file_Click() D）Private Sub file_Click() Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub

（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab

的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub

在程序执行时发现未能实现上述目的，那么，他应做的修改是 A）通过属性窗口把计时器的Interval属性设置为2000 B）通过属性窗口把计时器的Enabled属生设置为False

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

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

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

（25）下面关于文件的叙述中错误的是 A）随机文件中各条记录的长度是相同的]

B）打开随机文件时采用的文件存取方式应该是Random C）向随机文件中写数据应使用语句Print#文件号

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

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

B）Picture1.Picture=LoadPicture(“File1.jpg”) C) LoadPicture(“File1.jpg”)

D）Call LoadPicture(“File1.jpg”)

（27）下面程序执行时，在窗体上显示的是 Private Sub Command1_Click() Dim a(10)

For k = 1 To 10 a(k) = 11 – k Next k

Print a(a(3)\\a(7) Mod a(5)) End Sub

A）3 B）5 C）7

（28）为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click() a% = 10:b% = 20 Call swap(a,b) Print a,b End Sub

Private Sub swap(ByVal a As Integer,ByVal b As Integer) c= a:a=b:b=c End Sub

在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是 A）调用swap过程的语句错误，应改为Call swap a,b B）输出语句错误，应改为：Print ”a”,”b”

C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer) D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a （29）有如下函数：

Function fun(a As Integer,n As Integer) As Integer Dim m As Integer While a >=n

a=a-n m= m+1 Wend fun=m

End Function

该函数的返回值是

A）a乘以n的乘积 B）a加n的和

C）a减n的差 D）a除以n的商（不含小数部分） （30）下面程序的输出结果是 Private Sub Command1_Click() ch$=”ABCDEF” proc ch Print ch End Sub

Private Sub proc(ch As String) S=””

For k=Len(ch) To 1 Step-1 s=s&Mid(ch,k,1) Next k ch=s End Sub

A）ABCDEF B）FEDCBA C）A D）F

（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function Maxvalue(a() As Integer) As Integer Dim max% max=1

For k = 2 To 10 If a(k)>a(max) Then max = k End If Next k

Maxvalue = max End Function

程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 A）语句max = 1应改为max = a(1)

B）语句For k = 2 To 10应改为For k = 1 To 10 C）If语句中的条件a(k)>a(max)应改为a(k)>max D）语句Maxvalue = max 应改为Maxvalue = a(max)

（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Dim n%,b,t t = 1:b = 1:n = 2 Do b = b*n

t = t + b n = n +1

Loop Until n>9 Print t End Sub

此程序计算并输出一个表达式的值，该表达式是

A）9！ B）10！ C）1！+2！+…+9！ D）1！+2！+…+10！

（33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）： Dim cmdmave As Boolean

Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) cmdmave = True End Sub

Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single) If cmdmave Then Form1.Pset(X,Y) End If End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single) cmdmave = False End Sub

此程序的功能是

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

B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线 （34）某人设计了下面的函数fun，功能是返回参数a中数值的位数 Function fun(a As Integer) As Integer Dim n% n = 1

While a \\ 10 >= 0 n = n + 1 a = a \\ 10 Wend fun = n

End Function

在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是 A）把语句n = 1改为n = 0

B）把循环条件a \\ 10 >= 0改为a \\ 10 > 0 C）把语句 a = a \\ 10改为a = a Mod 10 D）把语句fun = n改为 fun = a

（35）在窗体上有一个名称为Check1的复选框数组 （含4个复选框），还有一个名称为Text1的文本 框，初始内容为空。程序运行时，单击任何复选 框，则把所有选中的复选框后面的方字罗列在文

本框中（见图）。下面能实现此功能的事件过程是 A）Private Sub Check1_Click(Indes As Integer) Text1.Text =\For k = 0 To 3

If Check1(k).value = 1 Then

Text1.Text = Text1.Text & Check1(k).Caption & \双引号中是空格 End If Next k End Sub

B）Private Sub Check1_Click(Index As Integer) For k = 0 To 3

If Check1(k).value = 1 Then

Text1.Text = Text1.Text & Check1(k).Caption & \双引号中是空格 End If Next k End Sub

C）Private Sub Check1_Click(Index As Integer) Text1.Text = \For k = 0 To 3

If Check1(k).value = 1 Then

Text1.Text = Text1.Text & Check1(Index).Caption & \双引号中是空格 End If Next k End Sub

D）Private Sub Check1_Click(Index As Integer) Text1.Text = \For k = 0 To 3

If Check1(k).value = 1 Then

Text1.Text = Text1.Text & Check1(k).Caption & \双引号中是空格 Exit For End If Next k End Sub

二、填空题（每空2分，共30分）

请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。

(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】 。 (2)在两种基本测试方法中，【2】 测试的原则之一是保证所测模块中每一个独立路径至少执行一次。

(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】 存储结构。 (4)对下列二叉树进行中序遍历的结果为【4】 。

（5）在E-R图中，矩形表示【5】 。 （6）窗体上有一个组合框，其中已输入了 若干个项目。程序运行时，单击其中一