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。

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

在窗体上画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

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

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

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

Dim a(10)As Integer

…

Call D(a)

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

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

Private Sub Command1 Click（　　）

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

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

Label1．Caption=x+y

End Sub

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

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

在窗体上画两个名称分别为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、b都是自然数，为求a除以b的余数，某人编写了以下函数：

Eunction fun(a As Integer，b As Integer)

While a>b

数据库管理系统是（　　）。

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

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

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

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

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

该图是（　　）。

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

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

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

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

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

Private Sub Command1 Click（　　）

设有以下函数过程：

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时的实际参数都是自然数，则函数返回的是（　　）。

阅读程序：

Private Sub Command1_Click（　　）

Dim arr

Dim i As Integer

下面函数的功能应该是：删除字符串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

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

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

下列说法正确的是（　　）。

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

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

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

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

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

假定有以下程序：

Private Sub Form. Click（　　）

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

在窗体上画两个文本框(名称分别为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

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

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

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

在利用菜单编辑设计菜单时，为了把组合键"Alt+X"设置为”退出(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范围内（　　）。

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

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

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

Private Sub Command1Click（　　）

设有如下程序：

Option Base 1

Private Sub Form. Click（　）

Dim a(5)As String，i As Integer

For i=1 To 5

在窗体上画一个命令按钮，其名称为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

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

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

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

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