2016年计算机二级考试题以及答案

(1)设有声明语句

Option Base 1

Dimb(-1 To 10， 2 To 9， 20)As Integer

则数组b中全部元素的个数

A)2310

B)1920

C)1500

D)1658

正确答案： B

(2)单击命令按钮，下列事件过程的执行结果为

Private Sub Command1_Click()

Dim x As Integer， y As Integer

x=40： y=72

Call PtoP(x， y)

Print x; y

End Sub

Public SubPtoP(Byval n As Integer， ByVal m As Integer)

n=n 10+2

m=m 10+2

End Sub

A)0 8

B)40 72

C)4 50

D)78 50

正确答案： B

(3)下列程序的.执行结果为

Private Sub Command1_Click()

Dim p AsInteger， q As Integer

p=12： q=20

Call Value(p， q)

Print p;q

End Sub

Private Sub Value(ByVal m As Integer， ByVal n As Integer)

m=m * 2： n=n - 5

Print m; n

End Sub

A)20 12

20 15

B)12 20

12 25

C)24 15

12 20

D)24 12

12 15

考生答案： 正确答案： C

(4)在窗体上画一个命令按钮，然后编写如下程序：

Private SubCommand3_Click()

Cop 2

Cop 3

Cop 4

End Sub

Sub Cop (aAs Integer)

Static x As Integer

x=x + a

Print x;

EndSub

程序运行后，单击命令按钮，输出结果为

A)2 3 4

B)2 5 9

C)3 5 4

D)2 4 3

正确答案： B

(5)有如下事件过程，单击命令按钮扣，输出结果为

Private SubCommand1_Click()

Dim b%(1 To 4)， j%， t#

For j=1 To 4

b(j)=j

Next j

t=Tax(b())

Print "t="; t，

End Sub

FunctionTax (a()As Integer)

Dim t#， i%

t=1

For i=2 To UBound(A)

t=t * a(i)

Next i

Tax=t

End Function

A)t=18

B)t=24

C)t=30

D)t=32

正确答案： B

(6)设在窗体上有一个文本框，然后编写如下的事件过程：

Private Sub Text1_KeyDown(KeyCode As Integer， ShiftAs Integer)

Const Alt=4

Const Key_F2=&H71

altdown%=(ShiftAnd Alt)》 0

f2down%=(KeyCode=Key_F2)

If altdown% And f2down%Then

="abl"

End If

EndSub

程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是

A)Alt+F2

B)abl

C)随机出几个数

D)不发生变化

正确答案： D

(7)设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是

A)Private Sub Form_MouseDown(Button As Integer， Shift As Integer，_

X As Single， Y As Single)

If Button=2Then PopupMenu Bt， 2

End Sub

B)Private Sub Form_MouseDown(Button AsInteger， Shift As Integer，

X As Single， Y AsSingle) PopupMenu Bt

End Sub

C)Private SubForm_MouseDown(Button As Integer， Shift As Integer，_

X As Single， Y As Single)

PopupMenuBt，0

End Sub

D)Private Sub Form_MouseDown(Button As Integer， Shift AsInteger， _

X As Single， Y As Single)

If(Button=vbLeftButton)Or (Button=vbRightButton)Then PopupMenu Bt

End Sub

正确答案： A

(8)在窗体上画一个通用对话框，其Name属性为Cont，再画一个命令按钮，Name属性为Command1，然后编写如下事件过程：

Private SubCommand1_Click()

Name=""

s=vbOFNFileMustExist

er="All Files|*.*"

erIndex=3

ogTitle="Open File"

Co on=1

If Name="" Then

MsgBox "No file selected"

Else

Open Name For Input As #1

Do While Not EOF(1)

Input #1， b$

Print b$

Loop

End If

EndSub

以下各选项，对上述事件过程描述错误的是

A)该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件

B)选择后单击"打开"按钮，所选择的文件名即作为对话框的FileName属性值

C)Open对话框不仅仅用来选择一个文件，还可以打开、显示文件

D)过程中的"on=1"用来建立Open对话框，它与Open等价

正确答案： C

(9)已知使用Show方法的格式为：[窗体名称] [模式]，如果要使窗体是"模态型"窗体，则"模式"值为

A)True

B)0

C)1

D)False

正确答案： C

(10)下面叙述不正确的是

A)对顺序文件中的数据操作只能按一定的顺序操作

B)顺序文件结构简单

C)能同时对顺序文件进行读写操作

D)顺序文件中只能知道第一个记录的位置

正确答案： C