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

在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个支本框、两个单选按钮及两个命令按钮。文本框的名称为Text1，内空；两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”；单选按钮的名称分别为Option1和Option2，标题分别为“3”和“5”。单击“读取”，程序将读入考生文件夹下的文本支件in5．txt，单击“加密”，加密过的文本显示在Text1中。根据单选按钮中的不同的数字，加密的方法不同。例如，选择Option1，则逐一把读入的字符串改为它前面的第3 个字母。程序运行时效果如图5-5所示。

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

在考生文件起下有工程文件sj3．vbp及窗体文件sj3．frm，在窗体上画一个名称为

Text1的文本框和两个名称分别为Command1和Command2、标题分别为“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的故值在文本框中显示相应数量的大写字符串A；如果单击“小写a”命令按钮，也弹出对话框．输入要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。

程序运行时的窗体界面如图5-3所示。

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

在考生文件夹下有一个工程文件sj4．vbp，要求程序运行后，如果多次单击列表框List1中的项，则可同时选择这些项。而如果单击“导出”按钮，则在列表框List2中输出所有选中的列表项，如图1—4所示。

注意：修改列表框List1的适当属性，使得运行时单击可以多选，并去掉程序中的注释符“b’，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。

在窗体上绘制一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名

称为0p。该菜单有两个子菜单，其标题分别为“显示”和“退出”，其名称分别为Dis和Exit，

编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则程序结束。程序的运行情况如图4—1所示。

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

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

• A.系统总体结构图支持软件系统的详细设计
• B.软件设计是将软件需求转换为软件表示的过程
• C.数据结构与数据库设计是软件设计的任务之一
• D.PAD图是软件详细设计的表示工具

在窗体上画1个命令按钮，并编写如下事件过程：

Private Sub Command1 Click（　　）

Dim a(3，3)

For m=1 To 3

For n=1 To 3

If n=m or n=4—m Then

• a(m．n)=m+n
• Else
• a(m，n)=0
• End If    Print a(m，n)；    Next n    Print    Next m
• End Sub    运行程序，单击命令按钮，窗体上显示的内容为（　　）。
• A.2 0 0    0 4 0    0 0 6
• B.2 0 4    0 4 0    4 0 6
• C.2 3 0    3 4 0    0 0 6
• D.2 0 0    0 4 5    0 5 6

在名为Form1的窗体上绘制一个名为Cmd1、标题为“显示”的命令按钮。编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“计算机等级考试Vis—ual Basic课程”。程序运行情况如图4-2所示。

注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为sj2．frm，工程文件名为sj2．vbp。

设程序中有如下数组定义和过程调用语句：

Dim a(10)As Integer

…

Call D(a)

如下过程定义巾，正确的是（　　）。

• A.Private Sub p(a As Integer)
• B.Private Sub p(a（　　）As Integer)
• C.Private Sub p(a(10)As Integer)
• D.Private Sub p(a(n)As Integer)

窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：

Private Sub Command1 Click（　　）

XzInputBox("输入X："，，0)

y=InputBox("输入y："，，0)

Label1．Caption=x+y

End Sub

运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是（　　）。

• A.程序运行有错误，数据类型不匹配
• B.程序运行有错误，InputBox函数的格式不对
• C.在Label1中显示5
• D.在Label1中显示23

数据库设计中反映用户对数据要求的模式是（　　）。

• A.内模式
• B.概念模式
• C.外模式
• D.设计模式

在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Label1标签，窗体外观如图a所示，要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图b所示。实现上述功能的程序如下：

Private Sub Text1_Change（　　）

Call ShowText(Text1)

End Sub

Private Sub Text2_Change（　　）

Call ShowText(Text2)

End Sub

Private Sub ShowText(T As TextBox)

Labell．Caption="文本框中的内容是："＆T．Text

End Sub

关于上述程序，以下叙述中错误的是（　　）。

• A.ShowText过程的参数类型可以是Control
• B.ShowText过程的参数类型可以是Variant
• C.两个过程调用语句有错，应分别改为Call ShowText(Text1，Text)、Call Show Text    (Text2，Text)
• D.ShowText过程中的T是控件变量

设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：

Eunction fun(a As Integer，b As Integer)

While a>b

• a=a—b    Wend
• fun=a
• End Function    在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是（　　）。
• A.把a=a-b改为a=b-a
• B.把a=a-b改为a=a＼b
• C.把While a>b改为While a％b
• D.把While a>b改为While a>=b

数据库管理系统是（　　）。

• A.操作系统的一部分
• B.在操作系统支持下的系统软件
• C.一种编译系统
• D.一种操作系统

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

• A.线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的
• B.线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构
• C.线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构
• D.上述三种说法都不对

设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是（　　）。

• A.Private Sub Command1 Click（　　）    List1，Clear
• End Sub
• 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

假定一个滚动条的LargeChange属性值为100，则100表示（　　）。

• A.单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量
• B.滚动框位置的最大值
• C.拖动滚动框位置的变化量
• D.单击滚动条箭头时滚动框位置的变化量

在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（　　）。

• A.Load
• B.Show
• C.Hide
• D.Unload

软件详细设计产生的图如下：

该图是（　　）。

• A.N—S图
• B.PAD图
• C.程序流程图
• D.E—R图

下面的语句用 Array函数组变量a的各元素赋整数值：

• a=Array(1，2，3．4，5，6，7，8，9)    针对a的声名语句应该是（　　）。
• A.Dim a
• B.Dim a As Integer
• C.Dim a(9)As Integer
• D.Dim a（　　）As Integer

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

其中关系T由关系R和S通过某种操作得到，该操作为（　　）。

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

软件设计中划分模块的一个准则是（　　）。

• A.低内聚低耦合
• B.高内聚低耦合
• C.低内聚高耦合
• D.高内聚高耦合

下面程序计算并输出的是（　　）。

Private Sub Command1 Click（　　）

• a=10    s=0
• Do    s=s+a*a*a
• a=a-1    Loop Until a<=0    Print s
• End Sub
• A.13+23+33+…+103的值
• B.10!+…+3!+2!+1!的值
• C.(1+2+3+…+10)3的值
• D.10个103的和

设有以下函数过程：

Function fun(a As Integer，b As Integer)

Dim c As Integer

If ac=a：a=b：b=C

End IF

c=0

Do

c=c+a

Loop Until c Mod b=0

fun=c

End Function

若调用函数fun时的实际参数都是自然数，则函数返回的是（　　）。

• A.a、b的最大公约数
• B.a、b的最小公倍数
• C.a除以b的余数
• D.a除以b的商的整数部分

阅读程序：

Private Sub Command1_Click（　　）

Dim arr

Dim i As Integer

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

下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str="ABCDABCD"，ch="B"，则函数的返回值为："ACDACD"

Function delchar(str As String，ch As String)As String

Dim k As Inlegcr，temp As String，ret As String

ret=""

For k=1 To Len(str)

temp=Mid(str，k，1)

If temp=ch Then

ret=ret＆temp

End If

Next k

delchar=ret

En d Function

但实际上函数有错误，需要修改，下面的修改方案中正确的是（　　）。

• A.把ret=ret＆temp改为ret=temp
• B.把If temp=ch Then改为If temp<>ch Then
• C.把delchar=ret改为delchar=temp
• D.把ret=""改为temp=""

数据流程图(DFD图)是（　　）。

• A.软件概要设计的工具
• B.软件详细设计的工具
• C.结构化方法的需求分析工具
• D.面向对象方法的需求分析工具

下列说法正确的是（　　）。

• A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器
• B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
• C.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
• D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器

数据库设计中，用E—R图来描述信息结构但不涉及信息在计算机中的表示，它属于。数据库设计的（　　）。

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

设窗体上有1个水平滚动条，已经通过属性窗V1把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是（　　）。

• A.程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
• B.程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
• C.由于滚动条的Max属性值小于Min属性值，程序会出错
• D.由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动

标准模块中有如下程序代码：

Public x As Integer，y As Integer

Sub var pub（　　）

x=10：y=20

End Sub

在窗体上有1个命令按钮，并有如事件过程：

Private Sub Command1 Click（　　）

Dim x As Integer

Call var pub

x=x+100

y=y+100

Print x；y

End Sub

运行程序后单击命令按钮，窗体上显示的是（　　）。

• A.100 100
• B.100 120
• C.110 100
• D.110 120

假定有以下程序：

Private Sub Form. Click（　　）

• a=1：b=a
• Do Until a>=5    x=a*b    Print b；X
• a=a+b
• b=b+a    Loop
• End Sub    程序运行后，单击窗体，输出结果是（　　）。
• A.1 1    2 3
• B.1 1    2 4
• C.1 1    3 8
• D.1 1    3 6

以下变量名中合法的是（　　）。

• A.x2-1
• B.print
• C.str_n
• D.2x

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程：

Private Sub Command1 Click（　）

x=0

DO While x<50

x=(x+2)*(x+3)

n=n+1

Loop

Text1．Text=Str(n)

Text2．Text=Str(x)

End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（　）。

• A.1和0
• B.2和72
• C.3和50
• D.4和168

某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是（　）。

• A.10
• B.8
• C.6
• D.4

设窗体上有一个名称为HSI的水平滚动条，如果执行了语句：HS1．Value=(HS1．Max·HS1．Min)2+HS1．Min，则（　　）。

• A.滚动块处于最左端
• B.滚动块处于最右端
• C.滚动块处于中间位置
• D.滚动块可能处于任何位置。具体位置取决于Max、Min属性的值

在利用菜单编辑设计菜单时，为了把组合键"Alt+X"设置为”退出(X)”菜单项的访问键，可以将该菜单项的标题设置为（　　）。

• A.退出(X＆)
• B.退出(＆X)
• C.退出(X#)
• D.退出(#X)

现有以下程序：

Private Sub Command1 Click（　　）

c1=0

c2=0

For i=1 To 100

If i Mod 3=0 Then

c1=c1+1

Else If i Mod 7=0 Then

c2=c2+1

End If

Next i

Print c1+c2

End Sub

此程序运行后输出的是在1～100范围内（　　）。

• A.同时能被3和7整除的整数个数
• B.能被3或7整除的整数个数(同时被3和7整除的数只记一次)
• C.能被3整除，而不能被7整除的整数个数
• D.能被7整除，而不能被3整除的整数个数

下列程序的运行结果是（　　）。

Private Function myfun(m，n)

Do while m>n

 Do While m>n：m=m-n：Loop

 Do While n>m：n=n-m：Loop

Loop

myfun=m

End Function

Private Sub Command1_Click（　　）

print myfun(9，8)

End Sub

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

下面程序的执行结果是（　　）。

Private Sub Command1Click（　　）

• a=10
• For k=1 To 5 Step-I
• a=a-k    Next k     Print a；k
• End Sub
• A.-5 6
• B.-5 -5
• C.10 0
• D.10 1

设有如下程序：

Option Base 1

Private Sub Form. Click（　）

Dim a(5)As String，i As Integer

For i=1 To 5

• a(i)=Chr(Asc("A")+i)
• Call f(a，i)    Next i
• End Sub    Sub f(ta（　）As String，n As．Integer)
• Dim i As Integer
• For i=1 To n    Print ta(i)；    Next i    Print
• End Sub    对上述程序．以下叙述中正确的是（　）。
• A.程序有错，因为在过程f的定义中数组参数格式不正确
• B.程序可正常运行，输出内容的第一行是一个字母“A”
• C.程序可正常运行，输出内容的第一行是一个字母“B”
• D.程序可正常运行，输出内容的第一行是数字65

在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是（　　）。

Private S．b p1(n As Integer)

   For i=n To 1 Step=1

     x=String(i，"*")

    Print x

   Next i

End Sub

Private Sub Command1 Click（　　）

   pl(3)

EndSub

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

目录列表框Path属性所表示的含义是（　）。

• A.当前驱动器或指定驱动器上的路径
• B.当前驱动器或指定驱动器上的某目录下的文件列表
• C.根目录下的文件列表
• D.指定路径下的文件列表

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是（　　）。

• A.Private Sub Text1 Change（　　）    Label1．Caption=Text1．Text
• End Sub
• B.Private Sub Label1 Change（　　）    Label1．Caption=Text1．Text
• End Sub
• C.Private Sub Text1 Click（　　）    Label1．Capnon=Text1．text
• End Sub
• D.Private Sub Label1 Click（　　）    Label1．Caption=Text1．Text
• End sot

在文本框中输人字符时，通过（　　）事件过程可以得到字符的ASCII码值。

• A.Change
• B.GotFocus
• C.KeyPress
• D.LostFocus

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

• A.算法就是程片
• B.设计算法时只需要考虑数据结构的设计
• C.设计算法时只需要考虑结果的可靠性
• D.以上三种说法都不对