2013年9月全国计算机等级《二级VB》命题预测试卷二

在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后，如果单击“读取”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来，运行界面如图6-5所示。如果单击“保存”按钮，则把数组中的前30个数据在文本框Textl中显示出来，并存入考生文

件夹中的文件result．txt中。(考生文件夹中有标准模块mode5．bas，其中的writeData过程可以把指定个数的数组元素存人result．txt文件。)

注意：在考生乏件夹中有工程文件si5．vbp及其窗体文件sj5．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“b”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sis．frm，工程文件名为sj5．vbp，结果存入result．txt文件，否则没有成绩。

在考生文件夹中有工程文件sis．vbp及其窗体文件sis．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图4-5所示。

窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。

注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。

在名为Form1的窗体上画一个框架，名称为Frame1，标题为“框架”，高度为2 500，宽度为3 500，框架内建立一文本框，距左边框500，距框架的上边框1 000，文本框中的初始内容设置为“文本框”。运行界面如图8—2所示。

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

在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图4-3所，示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放人整型变量a中，然后汁算a!．(提示：运算结果应放人Lon9型变量中)，在文本框中显示结果，如图4—4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。

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

在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1、标题为“判断”。编写适当的事件过程，要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图7-2所示。要求：不得使用任何变量。

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

设窗体文件中有下面的事件过程：

Private sub Command1 Click（　　）

 Dim S

• a%=100    Print a
• End Sub    其中变量a和s的数据类型分别是（　　）。
• A.整型，整型
• B.变体型，变体型
• C.整型，变体型
• D.变体型，整型

设R是一个二元关系，S是一个三元关系，则下列运算中正确的是（　　）。

• A.R-S
• B.R×S
• C.R∩S
• D.R∪S

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：

Diln S1 As String，S2 As String

Private Sub Form. Load（　　）

Text1．Text=""

Text2．Text=""

Text1．Enabled=False

Text2．Enabled=False

End Sub

Private Sub Form. KeyDown(KeyCode As Integer，Shift As Integer)

S2=S2＆Chr(KeyCode)

End Sub

Pri vate Sub Form. KeyPress(KeyAscii As Integer)

S1=S1＆Chr(KeyAscii)

End Sub

Private Sub Command1 Click（　　）

Text1．Text=S1

Text2．Text=S2

S1=""

S2=""

End Sub

程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（　　）。

• A.abc和ABC
• B.空白
• C.ABC和abc
• D.出错

为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（　　）。

• A.把这2组单选按钮设置为名称不同的2个控件数组
• B.使2组单选按钮的Index属性分别相同
• C.使2组单选按钮的名称分别相同
• D.把2组单选按钮分别画到2个不同的框架中

在程序运行时，下面的叙述中正确的是（　　）。

• A.用鼠标右键单击窗体中任何无控件部分，会执行窗体的Form—Load事件过程
• B.用鼠标左键单击窗体的标题栏，会执行窗体的Form—Click事件过程
• C.只装入而不显示窗体，也会执行窗体的Form—Load事件过程
• D.装入窗体后，每次显示该窗体时，都会执行窗体的Form—Click事件过程

设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（　　）。

• A.Text1的SetFocus事件
• B.Text1的GotFocus事件
• C.Text1的LostFocus事件
• D.窗体的GotFocus事件

下列选项中不属于面向对象程序设计特征的是（　　）。

• A.继承性
• B.多态性
• C.类比性
• D.封装性

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，下列说法中错误自是（　）。

• A.数组中每个命令按钮的名称(Name属性)均为Command1
• B.若未做修改，数组中每个命令按钮的大小都一样
• C.数组中各个命令按钮使用同一个Click事件过程
• D.数组中每个命令按钮的Index属性值都相同

以下说法中错误的是（　　）。

• A.如果把一个命令按钮的Default属性设置为True，则按回车健与单击该命令按钮的作用相同
• B.可以用多个命令按钮组成命令按钮数组
• C.命令按钮只能识别单击(Click)事件
• D.通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用

在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程

Option Base 1

Private Sub，Command1 Click（　　）

Dim a(5，5)ks Integer

For i=1 To j

For j=1 To 5

• a(i，j)=(i+j)*5＼10    Next j    Next i    S=0
• For i=1 To j    s=s+a(i，i)    Next i    Print s
• End Sub    程序运行后，单击命令按钮，输出结果是（　　）。
• A.15
• B.13
• C.11
• D.9

下列数据结构中，属于非线性结构的是（　　）。

• A.循环队列
• B.带链队列
• C.二叉树
• D.带链栈

请阅读程序．

0ption Base 1

Private Sub Fo,m Click（　　）

Dim Arr(4，4)As Integer

For i=1 To 4

For j=1 To 4

• Arr(i，j)=(i=1)*2+j    Next j    Next i
• For i=3 To 4
• For j=3 To 4    Print Arr(j，i)；    Next j    Print    Next i
• End Sub    程序运行后，单。旨窗体，则输出结果是（　　）。
• A.5 7    6 8
• B.6 8    7 9
• C.7 9    8 10
• D.8 10    8 11

在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：

Private Sub Command1Click（　）

C=1234

c1=Trim(Str(c))

For i=1 To 4

Print

Next

End Sub

程序运行后，单击命令按钮，要求在窗体上显示下列内容：1

12

123

1234

则在横线处应填入的内容为（　）。

• A.Right(c1，i)
• B.Left(c1，i)
• C.Mid(c1，i，1)
• D.Mid(c1，i，i)

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Coinmand1 Click（　　）

 Dim a$，b$，c$，k％

• a="ABCD"
• b="123456"
• c=""    k=1
• Do While k<=Len(a)Or k<=Len(b)
• If k<=Len(a)Then
• c=c＆Mid(a，k，1)
• End If
• If k<=Len(b)Then
• c=c＆Mid(a，k，1)
• End If    k=k+1    Loop    Print c

软件生命周期是指（　　）。

• A.软件产品从提出、实现、使用维护到停止使用退役的过程
• B.软件从需求分析、设计、实现到测试完成的过程
• C.软件的开发过程
• D.软件的运行维护过程

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：

Dim SaveAll As String

Private Sub Form. Load（　）

Show

Text1．Text=""

Text1．SetFocus

End Sub

Private Sub Command1 Click（　）

Text1．Text=LCase(SaveAll)+SaveAll

End Sub

Private Sub Form. KeyPress(KeyAscii As Integer)

SaveAll=SaveAll+Chr(KeyAscii)

End Sub

程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为（　）。

• A.vbVB
• B.不显示任何信息
• C.VB
• D.出错

假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。

Model1代码如下：

Public X As Integer

Public Y As Integer

Sub S1（　　）

x=1

S2

End Sub

Sub S2（　　）

y=10

Form1．Show

End Sub

Model2的代码如下：

Sub Main（　　）

S1

End Sub

其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（　　）。

• A.Form1→Model1→Model2
• B.Model1→Model2→Form1
• C.Model2→Model1→Form1
• D.Model2→Form1→Model1

如果执行一个语句后弹出如图所示的窗口，则这个语句是（　　）。

• A.InputBox("输人框"，"请输入VB数据")
• B.x=InputBox("输入框"，"请输入VB数据")
• C.InputBox("请输入VB数据"，"输入框")
• D.x=InputBox("清输入VB数据"，"输入框")

以下关予多窗体的叙述中，正确的是（　　）。

• A.任何时刻，只有一个当前窗体
• B.向一个工程添加多个窗体，存盘后生成一个窗体文件
• C.打开一个窗体时，其他窗体自动关闭
• D.只有第一个建立的窗体才是启动窗体

假定有下列程序段

For i=1 TO 3

For j=5 TO 1 Step-1

Print i*j

Next j

Next i

则语句Print i*j的执行次数是（　）。

• A.15
• B.16
• C.17
• D.18

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：

Private Sub Command1 Click（　　）

Dim a

• a=Array(1，2，3，4)
• i=3：j=1
• Do While>=0    s=s+a(i)*j
• i=i-1
• j=j*10    Loop    Print S
• End Sub    运行上面的程序，单击命令按钮，则输出结果是（　　）。
• A.4321
• B.123
• C.234
• D.1234

层次型、网状型和关系型数据库划分原则是（　　）。

• A.记录长度
• B.文件的大小
• C.联系的复杂程度
• D.数据之间的联系方式

在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：

Private Sub Form. Load（　　）

Command2．Enabled=False

Check1．Value=1

End Sub

刚运行程序时，看到的窗体外观是（　　）。

• A.
• B.
• C.
• D.

下列关于文件的叙述中，错误的是（　　）。

• A.使用Append方式打开文件时，文件指针被定位于文件尾
• B.当以Input打开文件时，如果文件不存在，则自动建立一个新文件
• C.顺序文件的各个记录的长度可以不同
• D.随机文件打开后，既可以进行读操作，也可以进行写操作

设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（　　）。

• A.Name
• B.Index
• C.Caption
• D.Left

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Public Enum S

• a=4
• b=3
• End Enum    Private Sub Command1 Click（　）
• Dim x As Integer    x=a
• If x>=3 Then MsgBox"Pass!"
• End Sub    运行程序，其结果是（　）。
• A.运行错误．因为Enum定义有错
• B.运行错误．因为x=a类型不匹配
• C.运行正常结束，不显示任何信息
• D.运行正常．显示内容为“Pass!”的信息框

有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，…

要求编写程序输出该数列中所有不超过1000的数。

某人编写程序如下：

Private Sub Form. Click（　　）

 Dim i As Intender，a As Integer，b As Integer

 Dim C As Integer，d As Integer

• a=0：b=1：c=1
• d=a4-b4-c
• i=5    While d<=1C00    Print d；
• a=b：b=c：c=d
• d=a+b+c
• i=i+1    Wend
• End Sub    运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（　　）。
• A.把While d<=1000改为while d>1000
• B.把i=5改为i=4
• C.把i=i+1移到While d<=1000的下面

下列关于函数过程的叙述中，正确的是（　）。

• A.函数过程形参的类型与函数返回值的类型没有关系
• B.在函数过程中，过程的返回值可以有多个
• C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
• D.如果不指明函数过程参数的类型，则该参数没有数据类型

假定用下面的语句打开文件：

Open"Filcl．txt"For Input As#1

则不能正确读文件的语句是（　　）。

• A.Input#1，ch$
• B.Line Input#1，ch$
• C.ch$一Input$(5，#1)
• D.Read#1，ch$

要求生产10个随机整致，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：

Option Base 1

Privare Sub Command1 Click（　　）

Dim arr(10)As Integer

For i=1To 10循环1

• Arr(i)，=Int(Rnd*100)    Print arr(i)；    Next i    x=InputBox("输入1—10的一个整数：")
• For i=X+1 To 10循环2
• arr(i-1)=arr(i)    Next i
• For i=x-1 To 10 循环3    Print arr(i)    Next i
• End Sub    程序运行后发现显示的结果不正确，应该进行的修改是（　　）。
• A.产生随机数时不使用Int函数
• B.循环2的初值应为i= x
• C.数组定义改为Dim a(11)As Integer
• D.循环3的循环终值应改为9

设有如下程序段：

Dim a(10)

…

For Each X In a

Print X；

Next x

在上面的程序段中，变量X必须是（　　）。

• A.整型变量
• B.变体型变量
• C.动态数组
• D.静态数组

执行语句Dim X，Y As Integer后，（　）。

• A.X和Y均被定义为整型变量
• B.X和Y均被定义为变体类型变量
• C.X被定义为整型变量，Y被定义为变体类型变量
• D.X被定义为变体类型变量，Y被定义为整型变量

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

• A.按钮左端到窗体左端的距离
• B.按钮左端到图片框左端的距离
• C.按钮中心点到窗体左端的距离
• D.按钮中心点到图片框左端的距离

如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（　　）。

• A.它的Y1、Y2属性的值相等
• B.它的 X1、X2属性的值相等
• C.它的X1、Y1属性的值分别与X2、Y2属性的值相等
• D.它的 X1、X2属性的值分别与Y1、Y2属性的值相等

设有如下变量声明语句：

Dim a，b As Boolean

则下面叙述中正确的是（　　）。

• A.a和b都是布尔型变量
• B.a是变体型变量，b是布尔型变量
• C.a是整型变量，b是布尔型变量
• D.a和b都是变体型变量

Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。

Function Isfab(x As Integer)As Boolean

 Dim ii As Integer，b As Integer，C As Integer，flag As Boolean

 flag=False

• a=1：b=1
• Do While xc=a+b
• a=b
• b=c
• If x=b Then flag=True    Loop
• Isfab=flag
• End Function    测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是（　　）。
• A.把a=b与b=C的位置互换
• B.把c=a+b移到b=C之后
• C.把Do While xb

下面可以产生20～30(含20和30)的随机整数的表达式是（　　）。

• A.Int(Rnd*10+20)
• B.Int(Rnd*11+20)
• C.Int(Rnd*20+30)
• D.Int(Rnd*30+20)

如果一个变量未经定义就直接使用，则该变量的类型为（　　）。

• A.Inieger
• B.Byte
• C.Boolean
• D.Variant

下列关系表达式中，其值为True的是（　）。

• A."XYZ">"XYz"
• B."VisualBasic"<>"visualbasic"
• C."the"="there"
• D."Integer"<"Int"

以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。

Private，Sub Command1_Click（　　）

If Not Check(Combo1．Text)Then

MsgBox("输入错误")

Exit Sub

End If

For k=0 To Comb01．ListCount-1

If Comb01．Text=Combo1．List(k)Then

MsgBOX("添加项目失败")

Exit Sub

End If

Next k

Cornbol．AddItem Combo1．Text

MsgBOX("添加项目成功")

End Sub

Private Function Check(ch As String)As Boolean

n=Len(ch)

For k=1 To n

c$=Ucace(Mid(ch，k，1))

If c<"A"Or c>"Z"Then

Check=False

Exit Function

End If

Next k

Check=True

End Function

程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（　　）。

• A.显示“输入错误”
• B.显示“添加项目失败”
• C.显示“添加项目成功”
• D.没有任何显示