- 相關(guān)推薦
2016年計(jì)算機(jī)二級(jí)考試題以及答案
(1)設(shè)有聲明語(yǔ)句
Option Base 1
Dimb(-1 To 10， 2 To 9， 20)As Integer
則數(shù)組b中全部元素的個(gè)數(shù)
A)2310
B)1920
C)1500
D)1658
正確答案： B
(2)單擊命令按鈕，下列事件過(guò)程的執(zhí)行結(jié)果為
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)下列程序的執(zhí)行結(jié)果為
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)在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下程序：
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
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為
A)2 3 4
B)2 5 9
C)3 5 4
D)2 4 3
正確答案： B
(5)有如下事件過(guò)程，單擊命令按鈕扣，輸出結(jié)果為
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)設(shè)在窗體上有一個(gè)文本框，然后編寫(xiě)如下的事件過(guò)程：
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
Text1.Text="abl"
End If
EndSub
程序運(yùn)行后，清除文本框中原有內(nèi)容，如果按Shift+F2鍵，則在文本框中顯示的是
A)Alt+F2
B)abl
C)隨機(jī)出幾個(gè)數(shù)
D)不發(fā)生變化
正確答案： D
(7)設(shè)已經(jīng)在菜單編輯器中設(shè)計(jì)了窗體的快捷菜單，其頂級(jí)菜單為Bt，取消其"可見(jiàn)"屬性，運(yùn)行時(shí)，在以下事件過(guò)程中，可以使快捷菜單相應(yīng)鼠標(biāo)右鍵菜單的是
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)在窗體上畫(huà)一個(gè)通用對(duì)話(huà)框，其N(xiāo)ame屬性為Cont，再畫(huà)一個(gè)命令按鈕，Name屬性為Command1，然后編寫(xiě)如下事件過(guò)程：
Private SubCommand1_Click()
Cont.FileName=""
Cont.Flags=vbOFNFileMustExist
Cont.Filter="All Files|*.*"
Cont.FilterIndex=3
Cont.DialogTitle="Open File"
Co nt.Action=1
If Cont.FileName="" Then
MsgBox "No file selected"
Else
Open Cont.FileName For Input As #1
Do While Not EOF(1)
Input #1， b$
Print b$
Loop
End If
EndSub
以下各選項(xiàng)，對(duì)上述事件過(guò)程描述錯(cuò)誤的是
A)該事件過(guò)程用來(lái)建立一個(gè)Open對(duì)話(huà)框，可以在這個(gè)對(duì)話(huà)框中選擇要打開(kāi)的文件
B)選擇后單擊"打開(kāi)"按鈕，所選擇的文件名即作為對(duì)話(huà)框的FileName屬性值
C)Open對(duì)話(huà)框不僅僅用來(lái)選擇一個(gè)文件，還可以打開(kāi)、顯示文件
D)過(guò)程中的"Cont.Action=1"用來(lái)建立Open對(duì)話(huà)框，它與Cont.ShowOpen等價(jià)
正確答案： C
(9)已知使用Show方法的格式為：[窗體名稱(chēng)].Show [模式]，如果要使窗體是"模態(tài)型"窗體，則"模式"值為
A)True
B)0
C)1
D)False
正確答案： C
(10)下面敘述不正確的是
A)對(duì)順序文件中的數(shù)據(jù)操作只能按一定的順序操作
B)順序文件結(jié)構(gòu)簡(jiǎn)單
C)能同時(shí)對(duì)順序文件進(jìn)行讀寫(xiě)操作
D)順序文件中只能知道第一個(gè)記錄的位置
正確答案： C
【計(jì)算機(jī)二級(jí)考試題以及答案】相關(guān)文章：
計(jì)算機(jī)二級(jí)VB考試題及答案02-09
計(jì)算機(jī)二級(jí)《VFP》考試題及答案05-10
計(jì)算機(jī)二級(jí)MSoffice考試題及答案05-17
計(jì)算機(jī)二級(jí)Access考試題及答案03-02
職員培訓(xùn)考試題以及答案07-12
焊工培訓(xùn)考試題以及答案08-11
2017計(jì)算機(jī)二級(jí)《Access》考試題及答案02-18