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图转换为关系模式时，实体和联系都可以表示为（　）。

在窗体上设置一个文本框，名称为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

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

有两个关系R和T如下：

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

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

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

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

设有下列通用过程：

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

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

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

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

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

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

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

Private Sub Option1 Click(Index As Integer)

End Sub

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

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

Private Sub Command1Click（　　）

Dim a(5)As String

For i=1，To 5

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

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

请阅读程序：

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

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

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

窗体上有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中显示的内容是（　　）。

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

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

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

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

Private Sub Command1 Click（　　）

Text1．Text="程序设计"

Text1．SeFocus

End Sub

Private Sub Text1 GotFocus（　　）

Text1．Text="等级考试"

End Sub

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

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

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

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

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

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

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

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

对如下二叉树

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

窗体上有两个文本框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内的值分别为（　　）。

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

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

下列事件过程的功能是：建立一个名为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

阅读程序：

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

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

设有如下程序

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循环执行的次数是（　　）。

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

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

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

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