2014计算机二级VB考试试题及答案7_计算机等级考试

1.以下能判断指针是否指向文件尾的函数是(D)(单)
A.BOF
B.LOC
C.LOF
D.EOF
2.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单)
A.如果工程中含有Sub Main过程，则程序一定首先执行该过程
B.不能把标准模块设置为启动模块
C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D.任何时刻最多只有一个窗体是活动窗体
3.窗体的过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4个参数，关于这些参数，正确的描述是(D)(单)
A.通过Button参数判定当前按下的是键盘上哪一个键
B.Shift参数只能用来确定是否按下Shift键
C.Shift参数只能用来确定是否按下Alt和Ctrl键
D.参数x,y用来设置鼠标当前位置的坐标
4.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单)
A.Combo1.RemoveItem Text
B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listcount
5.以下关于焦点的叙述中，错误的是(A)(单)
A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据
B.当文本框失去焦点时，触发LostFocus事件
C.当文本框的Enabled属性为False时，其Tab顺序不起作用
D.可以用TabIndex属性改变Tab顺序
6.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单)
A.=
B.*
C.&
D.-
7.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = val(Text1.Text )
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is ＜ 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单)
A.10
B.20
C.30
D.40
8.设有以下循环结构
Do
循环体
Loop While ＜条件＞
则以下叙述中错误的是(A)(单)
A.若"条件"是一个为0的常数，则一次也不执行循环体
B."条件"可以是关系表达式、逻辑表达式或常数
C.循环体中可以使用Exit Do语句
D.如果"条件"总是为True，则不停地执行循环体
9.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim num As Integer
num = 1
Do Until num ＞ 6
Print num;
num = num + 2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是(B)(单)
A.1 3.4 5.8
B.1 3 5
C.1 4 7
D.无数据输出
10.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a ＜＝ 0
Print s; a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是(C)(单)
A.7 9
B.34 0
C.9 7
D.死循环

11.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
Private Sub Command1_Click( )
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单)
A.10 5
B.20 5
C.20 40
D.10 40
12.设有如下通用过程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next I
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click( )
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next I
n = 10
Call Fun(arr( ), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是(A)(单)
A.10
B.15
C.25
D.24
13.在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) ＞ c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单)
A.89
B.99
C.23
D.77
14.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。当移动滚动条时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是(C)(单)
A.Private Sub Command1_Click( ) 　
Label3.Caption = =Str(Val(Label1.Caption)*Val( Label2.Caption))
End Sub
B.Private Sub Command1_Click( ) 　
Label3.Caption = HScroll1.Value *HScroll2.Value
End Sub
C.Private Sub Command1_Click( ) 　
Label3.Caption = HScroll1 * HScroll2
End Sub
D.Private Sub Command1_Click( )
Label3.Caption = HScroll1. Text *HScroll2.Text
End Sub
15.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
For n = 1 To 20
If n Mod 3 ＜＞ 0 Then m = m + n \ 3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是(C)(单)
A.15
B.18
C.21
D.24
16.在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load( )
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)
Print "程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是(A)(单)
A.Visual Basic
B.程序设计
C.A程序设计
D.Visual Basic程序设计
17.设有如下程序：
Private Sub Command1_Click( )
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是(C)(单)
A.1+1/2+ 2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
18.以下有关数组定义的语句序列中，错误的是(D)(单)
A.Static arr1(3) ：arr1(1) = "100" ：
arr1(2) = "Hello" ：arr1(3) = "123.45"
B.Dim arr2( ),size As Integer
Private Sub Command2_Click( )
size =InputBox("输入：") ReDim arr2(size) ......
End Sub
C.Option Base 1 Private Sub Command3_Click( )
Dim arr3(3) As Integer ......
End Sub
D.Dim n As Integer Private Sub Command4_Click( )
Dim arr4(n) As Integer......
End Sub
19.执行下面的程序段后，I的值为【5.6】
s = 2
For I = 3.2 To 4.9 Step 0.8
s = s + 1
Next I
Print i
52170.执行下面的程序段后，S的值为【5】
Private Sub Command1_Click( )
s = 2
For c = 3.2 To 4.9 Step 0.8
s = s + 1
Next c
Print s
End Sub