2009年3月全国计算机等级考试二级VB语言程序设计

支持子程序调用的数据结构是（    ）。

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

下列排序方法中，最坏情况下比较次数最少的是（    ）。

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

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

耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是（    ）。

数据库应用系统中的核心问题是（    ）。

有两个关系R，S如下：
 　　
由关系R通过运算得到关系S，则所使用的运算为（    ）。

将E-R图转换为关系模式时，实体和联系都可以表示为（    ）。

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

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

执行以下程序段
a$ = "Visual Basic Programming"
b$ = "C++"
c$ = UCase(Left$(a$,7)) & b$ & Right$(a$,12)
后，变量c$的值为（    ）。

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

在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是（    ）。

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

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c=1234
c1=Trim（Str（c））
For i=1 To 4
Print __________
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在横线处应填入的内容为（    ）。

假定有以下程序段
For i=1 To 3
For j=5 To 1 Step -1
Print i*j
Next j
Next i
则语句Print i * j的执行次数是（    ）。

在窗体上画两个文本框（名称分别为Textl和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2) * (x+3)
n=n+1
Loop
Textl.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（    ）。

阅读程序：
Private Sub Form_Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是（    ）。

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

语句Dim a(-3 To 4,3 To 6)As Integer定义的数组的元素个数是（    ）。

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
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
程序运行后，单击命令按钮，其输出结果是（    ）。

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

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：
Option Base 0
Private Sub Command1_Click()
Dim A1 (4) As Integer, A2 (4) As Integer
For k=0 To 2
A1 (k+1) = InputBox("请输入一个整数")
A2 (3-k) = A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（    ）。

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

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：
Private Sub func(L As Label)
L.Caption="1234"
End Sub
Private Sub Form_Load()
Label1.Caption="ABCDE"
Label2.Caption=10
End Sub
Private Sub Command1_Click()
a=Val(Label2.Caption)
Call func(Label1)
Label2.Caption=a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为

在窗体上画一个命令按钮（名称为Command1），并编写如下代码：
Function Funl (ByVal a As Integer, b As Integer) As Integer
Dim t As Integer
t=a-b
b=t+a
Funl=t+b
End Function
Private Sub Command1_Click()
Dim x As Integer
x=10
Print Funl (Funl (x, (Funl (x, x-1))), x-1)
End Sub
程序运行后，单击命令按钮，输出结果是（    ）。

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

设有如下通用过程：
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 Command1_Click()
Dim S1 As String
S1="ABCDEF"
Textl.Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是（    ）。

在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Textl），并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load()
Show
Textl.Text=""
Textl.SetFocus
End Sub
Private Sub Command1_Click()
Textl.Text=LCase (SaveAll) +SaveAl1
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为（    ）。

设有以下程序：
Private  Sub  Form_Click()
x=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod 5 = 0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（    ）。

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

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

设在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（    ）。

假设用一个长度为50的数组（数组元素的下标从0到49）作为栈的存储空间，栈底指针bottom指向栈底元素，栈顶指针top指向栈顶元素，如果bottom=49，top=30数组下标），则栈中具有＿＿个元素。

软件测试可分为白盒测试和黑盒测试。基本路径测试属于＿＿测试。

符合结构化原则的三种基本控制结构是：选择结构、循环结构和＿＿。

数据库系统的核心是＿＿。

在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是＿＿框。

窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1，计时器的名称为Timerl，直线的名称为Linel。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。
 　　
1）Timerl的Interval属性的值应事先设置为＿＿
2）Private Sub Command1_Click()
Timerl.Enabled=True
End Sub
Private  Sub Timerl_Timer()
If Imagel.Left>= ＿＿ Then
Imagel.Left= ＿＿ -100
End If
End Sub

设窗体上有一个名称为Combo1的组合框，并有以下程序：
Private Sub Combol_KeyPress (KeyAscii As Integer)
If ＿＿ =13 Then                  ' 回车符的ASCII码是13
For k=0 To Combo1.ListCount-1
If Combo1.Text=Combo1.List(k) Then
Combo1.Text = ""
Exit For
End If
Next k
If Combo1.Text <> "" Then
Combo1.AddItem ＿＿
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。

在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。
Private Sub Command1_Click()
Dim ch$, ascii As Integer
Open "myfile.txt" For ＿＿ As #1
While Not EOF(1)
Line Input #1, ch
ascii=toascii(＿＿ )
Print ascii
Wend
Close #1
End Sub
Private Function toascii (mystr$) As Integer
n=0
For k=1 To ＿＿
n=n+Asc（Mid（mystr,k,1））
Next k
toascii=n
End Function

本程序实现文本加密。先给定序列：al，a2，…，an，它们的取值范围是l～n，且互不相同。加密算法是：把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”使文本长度为n后再加密。
例如：若给定序列al，a2，…，a7分别为2，5，3，7，6，l，4
当文本为“PROGRAM”时，加密后的文本为“APOMRRG”
当文本为“PROGRAMMlNG”时，加密后的文本为“APOMRRGMING”
当文本为“THANK”时，加密后的文本为“*TA*HKN”
下面的过程code实现这一算法。其中参数数组a()中存放给定序列（个数与数组a的元素个数相等）al，a2，a3，…的值，要加密的文本放在参数变量 mystr 中。过程执行完毕，加密后的文本仍放在变量mystr中。请填空。
Option Base 1
Private Sub code (a () As Integer, mystr As String)
Dim ch As String, cl As String
n=UBound(a) -Len(mystr)
If n>0 Then
mystr=mystr & strings(n, "*")
End If
ch = mystr
For k=＿＿ To UBound(a)
cl=Mid(mystr, k, 1)
n= ＿＿
Mid$(ch,n)=c1
Next k
mystr=ch
End Sub