2014年全国计算机等级《二级VB》上机考试冲刺试题2-1_计算机等级考试

一、选择题
1、在窗体上画一个名称为Label1、标题为"Visual Basic 考试"的标签，两个名称分别为Co mmand1和Co mmand2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称
为Ti mer1的计时器控件，并把其Interval 属性设置为500，如图所示。

编写如下程序：
Private Sub Form＿Load（）
Ti mer1．Enabled ＝false
End Sub
Private Sub Co mmand1＿Click（）
Ti mer1．Enabled ＝True
End Sub
Private Sub Ti mer1＿Ti mer（）
If Label1．Left ＜Width Then
Label1．Left ＝label1．Left ＋20
Else
Label1．Left ＝0
End If
End Sub
程序运行后单击"开始"按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是（　　）。
A．标签的移动方向为自右向左
B．单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动
C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D．标签按指定的时间间隔移动

2、下面程序执行时，在窗体上显示的是（　　）。
Private Sub Co mmand1＿Click（）
Di ma（10）
For k ＝1To 10
a（k）＝11k
Next k
Print a（a（3）＼a（7）Mod a（5））
End Sub
A．3
B．5
C．7
D．9

3、某二叉树中有n 个度为2的结点，则该二叉树中的叶子结点数为（　　）。
A．n ＋1
B．n －1
C．2n
D．n／2

4、要使文本框获得输入焦点，则应采用文本框控件的（）方法。
A．GotFocus
B．LostFocus
C．KeyPress
D．SetFocus

5、Sub过程与Function过程最根本的区别是（　　）。
A．Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
B．Function过程可以有形参，Sub过程不可以
C．Sub过程不能返回值，而Function过程能返回值
D．两种过程参数的传递方式不同

6、已知使用Show 方法的格式为：［窗体名称］．Show［模式］，如果要使窗体是"模态型"窗体，则"模式"值为（　　）。
A．True
B．0
C．1
D．False

7、为计算an 的值，某人编写了函数power 如下：
Private Function power（a As Integer ，n As Integer）
As Long
Di mPAsLong
p ＝a
For k ＝1To n
p ＝p＊a
Next k
power ＝p
End Function
在调试时发现是错误的，例如Print power（5，4）的输出应该是625，但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是（　　）。
A．把For k ＝1To n 改为For k ＝2To n
B．把p ＝p＊a 改为p ＝p＾n
C．把For k ＝1To n 改为For k ＝1To n －1
D．把p ＝a 改为p ＝1

8、以下叙述中错误的是（）。
A．在程序运行时，通用对话框控件是不可见的
B．在同一个程序中，用不同的方法（如ShowOpen 或ShowSave 等）打开的通用对话框具有不同的作用
C．调用通用对话框控件的ShowOpen 方法，可以直接打开在该通用对话框中指定的文件
D．调用通用对话框控件的ShowColor 方法，可以打开颜色对话框

9、在窗体上有一个命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click（） Di ma（5）As Stri ng For i ＝1To 5 a（i）＝Chr（Asc（＂A＂）＋（i －1）） Next i For Each b In a Print b ； Next
End Sub
程序运行后，单击命令按钮，输出结果是（　　）。
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息

10、设在窗体中有一个名称为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．Re movelte m List1．ListIndex
End Sub
D．Private Sub Command1＿Click（）
List1．Re movelte m
End Sub