2013年9月全国计算机等级《二级VB》考前冲刺试卷三

在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“排序并保存”，如图4-6所示。程序运行后，如果单击“读人数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序并保存”按钮，则对这l00 个整数按从小到大进行排序，并把排序后的全部数据在文本框Text1中显示出来，然后存入

考生文件夹中的文件．result．txt中(在程序中的标准模块prog．bas过程可以把指定个数的数组元素存入result．txt文件中)。

注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名称为sj5．vbp，排序结果存入result．txt文件，否则没有成绩。

在考生文件夹中有工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上

有一个标签数组，名为Lab1，该数组有4个控件元素，标题分别是“Wait”、“Edit”、“Aix”和“Move”，如图3-5所示。

在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。

注意：去掉程序中的注释符(即“b’号)，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

在窗体上画三个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为“体育”、“音乐”和“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图3—4所示。

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

在名称为Form1的窗体上建立一个名称为Listl的列表框。在程序运行后，通过Form. _Load事件过程加载窗体时，执行语句Listl．AddItem“Item1”和List1．Addltem“Item2”，每当单击列表项时，就将执行语句List1．AddItem List1．Text一次，如图6-2所示。

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

在名称为Form1的窗体上绘制一个名为HS1的水平滚动条，并在属性窗口中将Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端，如图3-1所示。

注意：只能直接为相应的属性赋值，不得使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为sj1．vbp。

目录列表框的Path属性的作用是（　　）。

• A.显示当前驱动器或指定驱动器上的某目录下的文件名
• B.显示当前驱动器或指定驱动器上的目录结构
• C.显示根目录下的文件名
• D.显示该路径下的文件

窗体上有一个名为Command1的命令按钮，并有下面的程序：

Private Sub Command1 Click（　　）

Dim arr(5)As Integer ．

For k=1 To 5

• art(k)=k    Next k    prog art（　　）
• For k=1 T0 5    Print art(k)；    Next k
• End Sub    Sub prog(a（　　）As Integer)    n=UBound(a)
• For i=n To 2 step-1
• if a(j)t=a(j)：a(1)=a(j+1)；a(j+1)=t
• End If    Next j    Next i
• End Sub    程序运行时，单击命令按钮后显示的是（　　）。
• A.12345
• B.54321
• C.01234

以下描述中错误的是（　　）。

• A.窗体的标题通过其Caption属性设置
• B.窗体的名称(Name属性)可以在运行期间修改
• C.窗体的背景图形通过其Picture属性设置
• D.窗体最小化时的图标通过其Icon属性设置

下面程序运行时，若输入395，则输出结果是（　　）。

Private Sub Command1_Click（　　）

Dim X％

x=InputBox("请输入一个3位整数")

Print x Mod 10，x\100，(x Mod 100)\10

End Sub

• A.3 9 j
• B.5 3 9
• C.5 9 3
• D.3 5 9

以下关于弹出式菜单的叙述中，错误的是（　　）。

• A.一个窗体只能有一个弹出式菜单
• B.弹出式菜单在菜单编辑器中建立
• C.弹出式菜单的莱单名(主菜单项)的“可见”属性通常设置为False
• D.弹出式菜单通过窗体的PopupMenu方法显示

设有如下程序：

Option Base 0

Private Sub Form_Click（　　）

Dim a

Dim i As Integer

• a=Array(1，2，3，4，5，6，7，8，9)
• For i=0 To 3    Print a(5-i)；    Next
• End Sub    程序运行后，单击窗体，则在窗体上显示的是（　　）。
• A.4 3 2 1
• B.5 4 3 2
• C.6 5 4 3
• D.7 6 5 4

在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。

现有如下事件过程

Private Sub Text1_Change（　　）

Text 2．Text=Mid(Text1，1，5)

End Sub

运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（　　）。

• A.DataA
• B.DataB
• C.aData
• D.aBase

在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是（　　）。

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

下面控件中，没有Caption属性的是（　　）。

• A.复选框
• B.单选按钮
• C.组合框
• D.框架

某人设计了如下程序用来计算并输出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 T0 1 Step-1
• C.把For k=7 To 2 Step-1改为For k=1 T0 7
• D.把Next改为Next k

有人编写了如下程序：

Private Sub Form. Click（　　）

 Dim s As Integer，x As Integer

 s=0

 x=0

 Do While S=1000

   x=x+l

   s=s+x^2

 Loop

 Print s

End Sub

上述程序的功能是：计算s=1+22+32+…+n2+…，直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（　　）。

• A.把x=0改为x=1．
• B.把Do While s=10000改为Do While s<=10000
• C.把Do While S=10000改为Do While s>10000
• D.交换x=x+1和s=s+x^2的位置

在E—R图中，用来表示实体联系的图形是（　　）。

• A.椭圆形
• B.矩形
• C.菱形
• D.三角形

软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是（　　）。

• A.学生成绩管理系统
• B.C语言编译程序
• C.UNIX操作系统
• D.数据库管理系统

设有打开义件的语句如下：

Open"test_dat"For Random As#1

要求把变量a中的数据保存到该文件中，应该使用的语句是（　　）。

• A.Input#1 a
• B.Write#1 a
• C.Put#1，a
• D.Get#1，a

设有如下程序：

Private Sub Form. Click（　　）

 Dim i As Integer，x As String，y As String

 x="ABCDEFG"

 For i=4 To 1Step-1

   y=Mid(X，i，i)+y

 Next i

 Print y

End Sub

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

• A.ABCCDEDEFG
• B.AABBCDEFG
• C.ABCDEFG
• D.AABBCCDDEEFFGG

窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称为cmd Draw的控件数组。窗体外观如图所示(从上到下的3个命令按钮的下标值分别为0、1、2)。

有事件过程如下：

Private Sub cmdDraw Click(Index As Integer)

Select Case Index

Case 0

Shape1．Shape=0

Case 1

Shape1．Shape=1

Case 2

Shape1．Shape=3

End Select

End Sub

当单击“画圆”命令按钮时，会执行cmdDraw Click事件过程。以下叙述中正确的是（　　）。

• A.Case 2分支有错，此Case后面表达式的值应该与赋给Shape1．Shape的值一致
• B.程序运行有错，控件数组的下标应该从1开始
• C.Index是形状控件的参数
• D.程序正常运行，形状控件被显示为圆形

不能脱离控件(包括客体)而独立存在的过程是（　　）。

• A.事件过程
• B.通用过程
• C.Sub过程
• D.函数过程

在软件开发中，需求分析阶段产生的主要文档是（　　）。

• A.软中集成测试汁划
• B.软件详细设计说明书
• C.用户手册
• D.软件需求规格说明书

在通用对活框中打开“颜色对话框”的方法是（　　）。

• A.ShowOpen
• B.Menultem．Enabled—True
• C.MenuItem．Visible—True
• D.Menultem．Visible—Flase

在文本框中输入密码时，要求在文本框中只显示(+)号，则应当设置此文本框的（　　）属性。

• A.Text
• B.Caption
• C.Password
• D.PasswordChar

下列关于菜单的叙述中，错误的是（　）。

• A.当窗体为活动窗体时，用键可以打开菜单编辑器
• B.把菜单项的Enabled属性设置为False，则可删除该菜单项
• C.弹出式菜单在菜单编辑器中设计
• D.程序运行时。利用控件数组可以实现菜单项的增加或减少

为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：

Private Sub Command1 Click（　　）

Dim a％，s％，k％

s=1

• a=2
• For k=2 To 10
• a=a*2    s2 s+a    Next k    Text1．Text=s
• End Sub    执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是（　　）。
• A.把s=1改为s=0
• B.把For k=2 T0 10改为For k=1 T0 10
• C.交换语句s=s+a和a=a*2的顺序
• D.同时进行B、C两种修改

窗体上有一个名称为Command1的命令按钮，并有如下程序：

Private Sub Command1Click（　　）

Dim m As Integer，n As Integer

m=InputBox("输入第一个数")

nzInputBox("输入第二个数")

Do While m<>n

Do While m>n

m= m-n

Loop

Do While n>m

n=n-m

Loop

Loop

Print m

End Sub

该程序的功能是（　　）。

• A.求数值m和n的最大公约数
• B.求数值m和n的最小公倍数
• C.求数值m和n中的较大数
• D.求数值m和n中的较小数

Sub过程与Function过程最根本的区别是（　　）。

• A.Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
• B.Function过程可以有形参，Sub过程不可以
• C.Sub过程不能返回值，而Function过程能返回值
• D.两种过程参数的传递方式不同

设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下：

Private Sub Command1 Click（　　）

 Static x A S Integer

 x=f(x+5)

 Cls

 Print X

End Sub

Private Function f(x As Integer)As Integer

 f=x+x

End Function

连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（　　）。

• A.10
• B.30
• C.60
• D.70

下列叙述中错误的是（　）。

• A.在程序运行时，通用对话框控件是不可见的
• B.调用同一个通用对话框控件的不同方法(如ShowOpen或ShowSave)，可以打开不同的对话框窗口
• C.调用通用对话框控件的Showopen方法，能够直接打开在该通用对话框中指定的文件
• D.调用通用对话框控件的ShowColor方法，可以打开颜色对话框窗口

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

• A.Private Sub save Click（　　）    Text1．Text=file．save．Caption
• End Sub
• B.Private Sub save Click（　　）    Text1．Text=save．Caption
• End Sub
• C.Private Sub file Click（　　）    Text1．Text=file．save．Caption
• End Sub
• D.Private Sub file Click（　　）    Text1．Text=save．Caption
• End Sub

可以产生30-50(含30和50)之间的随机整数的表达式是（　　）。

• A.Int(Rnd*21+30)
• B.Int(Rnd*20+30)
• C.Int(Rnd*50—Rnd*30)
• D.Int(RND*30+50)

关于MDI窗体，下列说法正确的是（　　）。

• A.一个应用程序可以有多个MDI窗体
• B.子窗体可以移到MDI窗体以外
• C.不可以在MDI窗体上放置按钮控件
• D.MDI窗体的子窗体不可以拥有菜单

在窗体上画两个单选按钮(名称分别为Option1、Option2，标题分别为“宋体”和“黑体”)、1个复选框(名称为Check1，标题为“粗体”)和1个文本框(名称为Text1，Text属性为“改变文字字体”)，窗体外观如下图所示。程序运行后，要求“宋体”单选钮和“粗体”复选框被选中，则下列能够实现上述操作的语句序列是（　）。

• A.Option1．Valve=False
• Checkl．Vaim=True
• B.Option1．Value=True
• Check1．Value=0
• C.Olption2．Value=False
• Check1．Value=2
• D.Option1．Value=True
• Check1．Value=1

负责数据库中查询操作的数据库语言是（　　）。

• A.数据定义语言
• B.数据管理语言
• C.数据操纵语言
• D.数据控制语言

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

Option Base l

Private Sub Command1 Click（　）

Dim a

• a=Array(1，2，3，4)
• j=1
• For i=4 To 1 Step-1    s=s+a(i)*j
• j=j*10    Next i    Print S
• End Sub    程序运行后，单击命令按钮，其输出结果是（　）。
• A.4321
• B.1234
• C.34
• D.12

对于循环队列，下列叙述中正确的是（　　）。

• A.队头指针是固定不变的
• B.队头指针一定大于队尾指针
• C.队头指针一定小于队尾指针
• D.队头指针可以大于队尾指针，也可以小于队尾指针

下列关于通甩对话框CommonDialogl的叙述中，错误的是（　　）。

• A.只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开
• B.使用('ommoDialog1．ShowColor方法，可以显示“颜色”对话框
• C.CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告
• D.在显示“字体”对话框前，必须先设置CommonDialog1的Flags属性，否则会出错

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

• A.顺序文件中的记录一个接一个地顺序存放
• B.随机文件中记录长度是随机的
• C.执行打开文件的命令后，自动生成一个文件指针
• D.LOF函数返回给文件分配的字节数

在结构化程序设计中，模块划分的原则是（　　）。

• A.各模块应包括尽量多的功能
• B.各模块的规模应尽量大
• C.各模块之间的联系应尽量紧密
• D.模块内具有高内聚度、模块间具有低耦合度

在窗体七画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是（　　）。

• A.List1．Removeltem List1．Text
• B.List1．R(moveItem List1．Clear
• C.List1．R(、moveItem List1．ListCount
• D.List1．Rt-moveItem List1．Listlndex

在数据库设计中，将E-R图转换为关系模式的过程属于（　　）。

• A.需求分析阶段
• B.逻辑设计阶段
• C.概念设计阶段
• D.物理设计阶段

模块独立性是软件模块化所提出的要求，衡量模块独立性的度量标准是模块的（　　）。

• A.抽象和信息隐蔽
• B.局部化和封装化
• C.内聚性和耦合性
• D.激活机制和控制方法

在窗体上画一个名称为CD1的通用对话框，并有如下程序：

Private Sub Form_Load（　　）

 CD1．DefaultExt="doc"

 CD1．FileName="C：＼filel．txt"

 CD1．Filter"应用程序(*．exe)|*．exe"

End Sub

程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是（　　）。

• A.应用程序(*．exe)
• B.*．doc
• C.*．txt
• D.不确定