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