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

软件调试的目的是（    ）。

在面向对象方法中，实现信息隐蔽是依靠（    ）。

下列叙述中，不符合良好程序设计风格要求的是（    ）。

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

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

冒泡排序在最坏情况下的比较次数是（    ）。

一棵二叉树中共有70个叶子结点与80个度为１的结点，则该二叉树中的总结点数为（    ）。

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

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

要使一个文本框可以显示多行文本，应设置为True的属性是（    ）。

在窗体上有一个名为Textl 的文本框。当光标在文本框中时，如果按下字母“A”，则可被调用的事件过程是（    ）。

设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下列正确的事件过程是（    ）。

执行下列程序后输出的是（    ）。
Private Sub Commandl_Click( )
Ch$="ABCDEFGH"∶Print Mid(Right(ch$,6),Len(Left(ch$,4),2)
End Sub

设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是（    ）。

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

为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”。若通过程序设置该标题，则应使用的语句是（    ）。

在窗体上有如图所示的控件，各控件的名称与其标题相同，并有下列程序：
 　　
Private Sub Form_Load( )
Command2.Enabled=False∶Check1.Value=1
End Sub
刚运行程序时，看到的窗体外观是（    ）。
　　

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

某人设计了下列程序用于计算并输出7!（7的阶乘）：
Private Sub Command1_Click( )
t=0
Fork=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
执行程序时，发现结果是错误的。下列修改方案中能够得到正确结果的是（    ）。

若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是（    ）。

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

某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程下列。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
Private Sub  Timer1_Timer( )
Label1.Caption=Time＄
End Sub
在程序执行时发现未能实现以上目的，那么，他应做的修改是（    ）。

形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是（    ）。
　　

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

设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是（    ）。

下列程序执行时，在窗体上显示的是（    ）。
Private Sub Command1_Click( )
Dim a(10)
For k=1 To 10
a(k)=11-k
Next k
Print a(a(3)\a(7)Mod a(5))
End Sub

为达到把a、b中的值交换后输出的目的，某人编程下列：
Private Sub Command1_Click( )
a%=10:b%=20
Call swap(a,b):Print a,b
End Sub
Private Sub swap(ByVal a As Integer,ByVal b As Integer)
c=a:a=b:b=c
End Sub
在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（    ）。

有下列函数：
Function fun(a As Integer, n As Integer)As Integer
Dim m As Integer
While a>=n
a=a-n∶m=m+1
Wend
fun=m
End Function
该函数的返回值是（    ）。

下列程序的输出结果是（    ）。
Private Sub Command1_Click( )
ch＄="ABCDEF"
proc ch∶Print ch
End Sub
Private Sub proc(ch As String)
s=“ “
For k=Len(ch) To 1 Step -1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub

某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码下列：
Function MaxValue(a( )As Integer)As Integer
Dim max%∶max=1
For k=2 To 10
If a(k)>a(max)Then
max=k
End If
Next k
MaxValue=max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下列的修改方案中正确的是（    ）。

在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：
Private Sub Command1_Click( )
Dim n%,b,t
t=1:b=1:n=2
Do
b=b*n∶t=t+b∶n=n+1
Loop Until n>9
Print t
End Sub
此程序计算并输出一个表达式的值，该表达式是（    ）。

有一个名称为Fom1的窗体，上面没有控件，设有下列程序（其中方法PSet(X,Y)的功能是在坐标X、Y处画一个点）：
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y AsSingle)
cmdmave =True
End Sub
Private Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle)
If cmdmave Then
Form1.PSet(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Singgle)
cmdmave=False
End Sub
此程序的功能是（    ）。

某人设计了下列函数fun，功能是返回参数a中数值的位数
Function fun(a As Integer)As Integer
Dim n%
n=1
While a\10>=0
n=n+1∶a=a\10
Wend
fun=n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改，下列修改方案中正确的是（    ）。

在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中，如图所示。下列能实现此功能的事件过程是（    ）。
　　

软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特性，其中最重要的是  ＿＿  。

在两种基本测试方法中，＿＿  测试的原则之一是保证所测模块中每一个独立路径至少要执行一次。

线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的＿＿  存储结构。

对下列二叉树进行中序遍历的结果为＿＿  。
　　

在E-R图中，矩形表示＿＿  。

窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。如单击图1中的“重庆”，则与“北京”交换，得到图 2的结果。以下是可实现此功能的程序，请填空。
 　　
Private Sub Combo1_Click( )
Dim temp
temp=Combo1.Text
＿＿  =Combo1.List(0)
Combo1.List(0)=temp
End Sub

设窗体有上一个名称为HScrol1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。以下是可实现此功能的程序，请填空。
Dim  ＿＿  As Integer
Private Sub From_Load( )
pos=HScrol1.Value
End Sub
Private Sub HScroll1_Change( )
Print  ＿＿  -pos
pos=HScroll1.Value
End Sub

设窗体上有一个名称为CD1的通用对话框、一个名称为Text1 的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框中的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。以下是实现此功能的事件过程，请填空。
Private Sub Command1_Click( )
CD1.Filtetr="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1∶CD1.ShowOpen
If CD1.FileName<>“ “ Then
Open  ＿＿ For Input As #1
Line Input #1,ch$
Close #1∶Text1.Text= ＿＿
End If
End Sub

下列程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。如输入7685，则输出5 8 6 7；输入1000，则输出0 0 0 1。请填空。
Private Sub Command1_Click( )
Dim x As Integer
x=InputBox("请输入一个正整数")
While x>  ＿＿
Print x Mod 10;
x=x\10
Wend
Print  ＿＿
End Sub

有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框，如图所示。
 　　
合法编号的组成是：前2个字符是大写英文字母，第3个字符是“_”，后面是数字字符（至少1个）。以下程序可实现此功能，请填空。
Private Sub Text1_LostFocus( )
Dim k%,n%
n=Len(＿＿ )
For k=1 To IIf(n>3,n,4)
c=Mid(Text1.Text,k,1)
Select Case k
Case 1,2
If c<"A" Or c>"Z" Then
MsgBox("第"& k &"个字符必须是大写字母！")
SetPosition k∶Exit For
End If
Case 3
If c<>"_"Then
MsgBox("第"& k &"个字符必须是字符” “_” “)
SetPosition k∶Exit For
End If
Case Else
If c<"0" Or c>"9" Then
MsgBox("第"& k &"个字符必须是数字！")
SetPosition k∶Exit For
End If
End Select
Next k
End Sub
Private Sub SetPosition(pos As Integer)
Text1.SelStart=Pos-1
Text1.SelLength=  ＿＿
Text1.  ＿＿
End Sub