2015年全国计算机等级《二级VB》命题预测试卷三

在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm，此外在考生文件夹下还有一个名为in5．txt的文本文件，其内容如下：

10，11，12，13，14．15，16，17，18，19，20，21，22，23，24，25，26，27，28，29，30，31，32，33。34

程序运行后，双击窗体，将把文件in5．txt中的数据输入到二维数组Arr中，在窗体上按5行×5列的矩阵形式显示出来，并在其下显示该矩阵左上一右下对角线的右上部分。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行效果如图2—5所示。

要求：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

在考生文件夹中有工程文件sj4．vbp及其窗体文件sj4．frm，该程序是不完整的。

在窗体上有四个复选框，名称分别为Check1、Check2、Check3和Check4，标题分别为“足球”、“篮球”、“羽毛球”和“排球”。一个标签，名称为Label1，还有一个命令按钮，名称为Command1，标题为“选择结果”。要求程序运行后，如果选中某个复选框，当单击“选择结果”命令按钮时，则显示相应的信息。例如，如果选中“足球”和“羽毛球”复选框，单击“选择结果”命令按钮后，在标签上显示“我喜欢的运动是足球羽毛球”，如图8—4所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

在名称为Forml的窗体上建立两个主菜单，其标题分别为“文件”和“编辑”，名称分别为vbFile和VbEdit，在“文件”菜单下有三个子菜单项，标题分别为“打开”、“保存”和“关闭”，名称分别为vbOpen、vbSave和vbClose。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图6-3所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sja．vbp。

将E—R图转换为关系模式时，实体和联系都可以表示为（　）。

• A.属性
• B.键
• C.关系
• D.域

在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Com mand1，标题为“当前时间／日期切换”；每次单击按钮时，Textl就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图1—2所示。

注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2．vbp与sj2．frm。

在窗体Form1上画一个列表框，名称为List1，有“Item1”、“Item2”、“Item3”和“Item4”4个表项。要求编写适当的程序代码，当双击列表中某一项时，弹出一个对话框提示“是否删除”。对话框中只有“是”与“否”两个选择按钮，单击按钮，则继续当前的操作。程序运行时的窗体界面如图5—2所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。

现有如下一段程序：

Option Base 1

Privalc Sub Command1 Click（　　）

 Dim a

• a=Array(3，5，7，9‘)    x=1
• For i=4，10 j Step-1    s=s+a(i)*X    x=x*10    Next i    Print s
• End Sub    执行程序，单击Command1命令按钮键，执行上述事件过程，输出结果是（　　）。
• A.9753
• B.3579
• C.35
• D.79

下列可以打开随机文件的语句是（　　）。

• A.Open"file 1．dat"For Input As#1
• B.Open"file1．dat"For Append As#1
• C.Open"file1．dat"For Output As#1
• D.Open"file1．dat"For Randow As#1 Len=20

有两个关系R和T如下：

则由关系R得到关系T的操作是（　　）。

• A.选择
• B.投影
• C.交
• D.并

下列关于线性链表的叙述中，正确的是（　　）。

• A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致
• B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续
• C.进行插入与删除时，不需要移动表中的元素
• D.以上三种说法都不对

有三个关系R、S和T如下：

则由关系R和S得到关系T的操作是（　　）。

• A.自然连接
• B.交
• C.除
• D.并

设有下列通用过程：

Public Function Fun(xStr As String)As String

Dim tStr As String，strL As Integer

tStr=""

strL=Len(xStr)

i=strL／2

DO While i<=StrL

tStr=tStr＆Mid(xStr，i+1，1)

i=i+1

Loop

Fun=tStr＆tStr

End Function

在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程：

Private Sub Commandl Click（　）

Dim S1 As String

S1="ABCDEF"

Text1．Text=LCase(Fun(S1))

End Sub

程序运行后，单击命令按钮，文本框中显示的是（　）。

• A.ABCDEF
• B.abedef
• C.defdef
• D.defabc

下列关于过程及过程参数的描述中，错误的是（　）。

• A.过程的参数可以是控件名称
• B.调用过程时使用的实参的个数应与过程形参的个数相同
• C.只有函数过程能够将过程中处理的信息返回到调用程序中
• D.窗体可以作为过程的参数

若要获得组合框中输入的数据，可使用的属性是（　　）。

• A.ListIndex
• B.Caption
• C.Text
• D.List

面向对象方法中，继承是指（　　）。

• A.一组对象所具有的相似性质
• B.一个对象具有另一个对象的性质
• C.各对象之间的共同性质
• D.类之间共享属性和操作的机制

下列叙述中正确的是（　）。

• A.MsgBox语句的返回值是一个整数
• B.执行MsgBox,语句并出现信息框后，不用关闭信息框即可执行其他操作
• C.MsgBox语句的第一个参数不能省略
• D.如果省略MsgBox语句的第三个参数(Title)，则信息框的标题为空

窗体上有一个名称为Option1的单选按钮控件，当程序运行时，当单击某个单选按钮时，会调用下面的事件过程：

Private Sub Option1 Click(Index As Integer)

End Sub

下面关于此过程的参数Index的叙述中正确的是（　　）。

• A.Index为1表示单选按钮被选中，为0表示未选中
• B.Index的值可正可负
• C.Index的值用来区分哪个单选按钮被选中
• D.Index表示数组中单选按钮的数量

在窗体上有一个命令按钮，然后编写如下事件过程：

Private Sub Command1Click（　　）

Dim a(5)As String

For i=1，To 5

• a(i)=Chr(Asc("A")+(i-1))    Next i
• For Each b In a    Print b；    Next
• End Sub    程序运行后，单击命令按钮，输出结果是（　　）。
• A.ABCDE
• B.1 2 3 4 5
• C.abcde
• D.出错信息

窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（　　）。

• A.Print Cb1．Selected
• B.Print Cb1．List(Cbl．LisfIndex)
• C.Print Cb1．Selected．Text
• D.Print Cb1．List(ListIndex)

某二叉树共有7个结点，其中叶子结点只有l个，则该二叉树的深度为(假设根结点在第l层)（　　）。

• A.3
• B.4
• C.6
• D.7

请阅读程序：

Private Sub Form. Click（　　）

 m=1

 For i=4To 1 Step-1

   Print Str(m)；

m=m+1

For j=1 To i

Print"*"：

Next j

Print

Next i

End Sub

程序运行后，单击窗体，则输出结果是（　　）。

• A.1****    2***    3**    4*
• B.4****    3***    2**    1*
• C.****    ***    **    *
• D.*    **    ***    ****

语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是（　　）。

• A.-36
• B.1
• C.-1
• D.-72

窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。

Private Sub Command1_Click（　　）

Dim str As String，S As String．k As Integer

s=Text1

str =""

For k=Listl．ListCount-1 To 0 Step-1

If InStr(List1．List(k)，s)>0 Then

str=str ＆ List1．List(k)＆""

End If

Next k

If str=""Then

Text2="没有匹配的项目"

Else

Text2=str

End If

End Sub

程序运行时，在Text1中输入"京"，单击命令按钮，则在Text2中显示的内容是（　　）。

• A.京
• B.北京南京
• C.南京北京
• D.没有匹配的项目

下面循环语句中在任何情况下都至少执行一次循环体的是（　　）。

• A.Do While<条件>    循环体    Loop
• B.While <条件>    循环体    Wend
• C.Do    循环体    Loop Until<条件>
• D.Do Until <条件>    循环体    Loop

下面（　　）属性肯定不是框架控件的属性。

• A.Text
• B.Caption
• C.Left
• D.Enabled

假定在图片框控件Picturel中装入了一个图形，为了在程序运行时清除该图形，则应使用（　　）。

• A.选择图片框控件，然后按键
• B.执行语句Picture 1．Picture=LoadPicture("")
• C.执行语句Picture1．Picture=""
• D.选择图片框控件，在属性窗口中选择Picture属性，然后删除该属性的值

窗体上有名称为Command1的命令按钮和名称为Textl的文本框

Private Sub Command1 Click（　　）

Text1．Text="程序设计"

Text1．SeFocus

End Sub

Private Sub Text1 GotFocus（　　）

Text1．Text="等级考试"

End Sub

运行以下程序，单击命令按钮后（　　）。

• A.文本框中显示的是"程序设计"，且焦点在文本框中
• B.文本框中显示的是"等级考试"，且焦点在文本框中
• C.文本框中显示的是"程序设计"，且焦点在命令按钮上
• D.文本框中显示的是"等级考试"，且焦点在命令按钮上

一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程问的联系是（　　）。

• A.1：1联系
• B.1：m联系
• C.m：1联系
• D.m：n联系

结构化程序所要求的基本结构不包括（　　）。

• A.顺序结构
• B.GOTO跳转
• C.选择(分支)结构
• D.重复(循环)结构

软件(程序)调试的任务是（　　）。

• A.诊断和改正程序中的错误
• B.尽可能多地发现程序中的错误
• C.发现并改正程序中的所有错误
• D.确定程序中错误的性质

以下关于通用对话框的叙述中，错误的是（　　）。

• A.若没有指定InitDir属性值，则起始目录为当前目录
• B.用一个通用对话框控件可以建立几种不同的对话框
• C.File Title属性指明了文件对话框中所选择的文件名
• D.文件对话框用属性FiherIndex指定默认过滤器，它是一个从0开始的整数

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母（　　）。

• A.这3个事件都会触发
• B.只触发KeyPress事件
• C.只触发KeyDown、KeyUp事件
• D.不触发其中任何一个事件

面向对象的设计方法与传统的面向过程的方法有本质不同，它的基本原理是（　　）。

• A.模拟现实世界中不同事物之间的联系
• B.强调模拟现实世界中的算法而不强调概念
• C.使用现实世界的概念抽象地思考问题从而自然地解决问题
• D.鼓励开发者在软件开发的绝大部分中都用实际领域的概念去思考

为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（　　）。

• A.Visible
• B.Timer
• C.Enabled
• D.Interval

对如下二叉树

进行后序遍历的结果为（　　）。

• A.ABCDEF
• B.DBEAFC
• C.ABDECF
• D.DEBFCA

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：

DimY As Integer

Private Sub Command1 Click（　　）

Dim X As Integer

x=2

Text1．Text=p2(p1(X)，Y)

Text2．Text=p1(x)

End Sub

Private Function p1(X As Integer)As Integer

x+x+v: y=x+y

p1=x+y

End Function

Private Function p2(X As Integer，Y As Integer)As Integer

p2=2*x+y

End Function

当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为（　　）。

• A.2 4    2 4
• B.2 4    4 8
• C.4 4    8 8
• D.10 10    58 58

在窗体上建立通用对话框需要先添加的控件是（　　）。

• A.Data控件
• B.From控件
• C.CommonDialog控件
• D.VBComboBox控件

有下列二叉树，对此二叉树前序遍历的结果是（　　）。

• A.ACBEDGFH
• B.ABDGCEHF
• C.HGFEDCBA
• D.ABCDEFGH

下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。空白处应填入的内容是（　　）。

Private Type Ang

K As Integer

Sinx As Single

Cosx As Single

End Type

Private Sub Form_Click（　　）

Dim Y As Single

Dim i As Integer

Dim Ksc As Ang

Open_______

Y=3．14159／180

For i-1 T0 90

   KSC．K-i

   KSC．Sinx=Sin(i*Y)

   KSC．Cosx=Cos(i+Y)

   ________

Next i

Close#2

Elld Stub

• A."．．＼Data1．txt"For RandomAs#1 Len=10 Put#1，i，KSC
• B."．．＼Data1．txt"For Random As#1 Len=10 Put#1，Y，KSC
• C."．．＼Data1．txt"For Random As#1 Put#1，i，KSC
• D."．．＼Data1．txt"For Random As#1 Put#1，Y，KSC

阅读程序：

Function fac(ByVal As Integer)As Integer

 Dim temp As Integer

 temp=1

 For i％=1 To n

   temp=temp*i％

 Next i％

 fac=temp

End Function

Private Sub Form. Click（　　）

 Dim nsum As Integer

 nsum=1

 For i％=2 T0 4

   nsum=nsum+fac(i％)

 Next i％

 Print nsum

End Sub

程序运行后，单击窗体，输出结果是（　　）。

• A.35
• B.31
• C.33
• D.37

设有如下程序

Private Sub Command1 Click（　　）

x=10：Y=0

For i=l To 5

Do

x=x-2

y=y+2

Loop Until y>5 Or x<-l

Nex1

End Sub

运行程序，其中Do循环执行的次数是（　　）。

• A.15
• B.10
• C.7
• D.3

下列关于数据库设计的叙述中，正确的是（　　）。

• A.在需求分析阶段建立数据字典
• B.在概念设计阶段建立数据字典
• C.在逻辑设计阶段建立数据字典
• D.在物理设计阶段建立数据字典

使用白盒测试法时，确定测试数据应该根据（　　）和指定的覆盖标准。

• A.程序的内部逻辑
• B.程序的复杂结构
• C.使用说明书
• D.程序的功能

下面关于标准模块的叙述中错误的是（　　）。

• A.标准模块中可以声明全局变量
• B.标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程
• C.标准模块中可以包含一些Public过程
• D.一个工程中可以包含有多个标准模块

下列说法中正确的是（　）。

• A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程
• B.因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程
• C.若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同
• D.在KeyPress事件过程中，KeyAscii参数可以省略