- 相關(guān)推薦
計(jì)算機(jī)二級VB筆試試題(含答案)
2010年9月計(jì)算機(jī)二級VB筆試試題
一、選擇題（每小題2分，共70分）
下列各題A）、B）、C）、D）四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的。請將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。
（1）下列敘述中正確的是
A）線性表的鏈?zhǔn)酱鎯Y(jié)構(gòu)與順序存儲結(jié)構(gòu)所需要的存儲空間是相同的
B）線性表的鏈?zhǔn)酱鎯Y(jié)構(gòu)所需要的存儲空間一般要多于順序存儲結(jié)構(gòu)
C）線性表的鏈?zhǔn)酱鎯Y(jié)構(gòu)所需要的存儲空間一般要少于順序存儲結(jié)構(gòu)
D）上述三種說法都不對
（2）下列敘述中正確的是
A）在棧中，棧中元素隨棧底指針與棧頂指針的變化而動態(tài)變化
B）在棧中，棧頂指針不變，棧中元素隨棧底指針的變化而動態(tài)變化
C）在棧中，棧底指針不變，棧中元素隨棧頂指針的變化而動態(tài)變化
D）上述三種說法都不對
（3）軟件測試的目的是
A）評估軟件可靠性
B）發(fā)現(xiàn)并改正程序中的錯(cuò)誤
C）改正程序中的錯(cuò)誤
D）發(fā)現(xiàn)程序中的錯(cuò)誤
（4）下面描述中，不屬于軟件危機(jī)表現(xiàn)的是
A）軟件過程不規(guī)范
B）軟件開發(fā)生產(chǎn)率低
C）軟件質(zhì)量難以控制
D）軟件成本不斷提高
（5）軟件生命周期是指
A）軟件產(chǎn)品從提出、實(shí)現(xiàn)、使用維護(hù)到停止使用退役的過程
B）軟件從需求分析、設(shè)計(jì)、實(shí)現(xiàn)到測試完成的過程
C）軟件的開發(fā)過程
D）軟件的運(yùn)行維護(hù)過程
（6）面向?qū)ο蠓椒ㄖ�，繼承是指
A）一組對象所具有的相似性質(zhì)
B）一個(gè)對象具有另一個(gè)對象的性質(zhì)
C）各對象之間的共同性質(zhì)
D）類之間共享屬性和操作的機(jī)制
（7）層次型、網(wǎng)狀型和關(guān)系型數(shù)據(jù)庫劃分原則是
1
A）記錄長度
B）文件的大小
C）聯(lián)系的復(fù)雜程度
D）數(shù)據(jù)之間的聯(lián)系方式
（8）一個(gè)工作人員可以使用多臺計(jì)算機(jī)，而一臺計(jì)算機(jī)可被多個(gè)人使用，則實(shí)體工作人員、與實(shí)體計(jì)算機(jī)之間的聯(lián)系是
A）一對一
B）一對多
C）多對多
D）多對一
（9）數(shù)據(jù)庫設(shè)計(jì)中反映用戶對數(shù)據(jù)要求的模式是
A）內(nèi)模式
B）概念模式
C）外模式
D）設(shè)計(jì)模式
（10）有三個(gè)關(guān)系R、S和T如下：
則由關(guān)系R和S得到關(guān)系T的操作是
A）自然連接
B）交
C）投影
D）并
（11）在Visual Basic集成環(huán)境中，要添加一個(gè)窗體，可以單擊工具欄上的一個(gè)按鈕，這個(gè)按鈕是
A） B）
C） D）
（12）在Visual Basic集成環(huán)境的設(shè)計(jì)模式下，用鼠標(biāo)雙擊窗體上的某個(gè)控件打開的窗口是
A）工程資源管理器窗口
B）屬性窗口
C）工具箱窗口
D）代碼窗口
（13）下列敘述中錯(cuò)誤的是
A）列表框與組合框都有List屬性
B）列表框有Selected屬性，而組合框沒有
C）列表框和組合框都有Style屬性
D）組合框有Text屬性、而列表框沒有
2
（14）設(shè)窗體上有一個(gè)命令按鈕數(shù)組，能夠區(qū)分?jǐn)?shù)組中各個(gè)按鈕的屬性是 A）Name B）Index C）Caption D）Left （15）滾動條可以響應(yīng)的事件是 A）Load B）Scroll C）Click D）MouseDown （16）設(shè)a=5, b=6, c=7, d=8，執(zhí)行語句X=Ilf（（a＞b）And （c＞d）, 10, 20）后，x的值是 A）10 B）20 C）30 D）200 （17）語句Print Sgn（-6^2）+ Abs（-6^2）+Int（-6^2）的輸出結(jié)果是 A）-36 B）1 C）-1 D）-72 （18）在窗體上畫一個(gè)圖片框，在圖片框中畫一個(gè)命令按鈕，位置如圖所示。
則命令按鈕的Top屬性值是
A）200 B）300 C）500 D）700
（19）在窗體上畫一個(gè)名稱為Command l的命令按鈕。單擊命令按鈕時(shí)執(zhí)行如下事件過程： Private Sub Command 1_Click（）
a$=”software and hardware"
b$=Right（a$，8）
c$=Mid（a$, 1，8）
MsgBox a$,，b$，c$, 1
End Sub
則在彈出的信息框標(biāo)題欄中顯示的標(biāo)題是
A）software and hardware
B）hardware
C）software
D）1
（20）在窗體上畫一個(gè)文本框（名稱為Text 1）和一個(gè)標(biāo)簽（名稱為Label 1），程序運(yùn)行后，如果在文本框中輸入文本，則標(biāo)簽中立即顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過程是
A）Private Sub Text1_Change（）
Label1.Caption=Text1.Text
End Sub
B）Private Sub Label1_Change（）
Label1.Caption=Text1.Text
End Sub
C）Private Sub Text1_Click（）
Label1.Caption=Text1.Text
End Sub
3
D）Private Sub Label1_Click（）
Label1.Caption=Text1.Text
End Sub
（21）以下說法中錯(cuò)誤的是
A）如果把一個(gè)命令按鈕的Default屬性設(shè)置為True，則按回車鍵與單擊該命令按鈕的作用相同
B）可以用多個(gè)命令按鈕組成命令按鈕數(shù)組
C）命令按鈕只能識別單擊（Click）事件
D）通過設(shè)置命令按鈕的Enabled屬性，可以使該命令按鈕有效或禁用
（22）以下關(guān)于局部變量的敘述中錯(cuò)誤的是
A）在過程中用Dim語句或Static語句聲明的變量是局部變量
B）局部變量的作用域是它所在的過程
C）在過程中用Static語句聲明的變量是靜態(tài)局部變量
D）過程執(zhí)行完畢，該過程中用Dim或Static語句聲明的變量即被釋放
（23）以下程序段的輸出結(jié)果是
x=I
y=4
Do Until y＞4
x=x*y
Y=y＋I(xiàn)
Loop
Print x
A）1 B）4 C）8 D）20
（24）如果執(zhí)行一個(gè)語句后彈出如圖所示的窗口，則這個(gè)語句是
A）InputBox（"輸入框”，”請輸入VB數(shù)據(jù)”）
B）x=InputBox（"輸入框”，”請輸入VB數(shù)據(jù)”）
C）InputB ox（"請輸入VB數(shù)據(jù)”，”輸入框”）
D）x=InputBox（"請輸入VB數(shù)據(jù)”，”輸入框”）
（25）有如下事件過程：
Private Sub Form Click（）
Dim n A s Integer
x=0
n=InputBox（"請輸入一個(gè)整數(shù)”）
For i=1 Ton
For j=1 To i
x=x＋I(xiàn)
Next j
Next i
Print x
4
End Sub 程序運(yùn)行后，單擊窗體，女口果在輸入對話框中輸入：，則在窗體上顯示的內(nèi)容是 A）13 B）14 C）15 D）16 （26）請閱讀程序： Sub subP（b（）As Integer） For i=1 To 4 b（i）=2＊i Next i End Sub Private Sub Command 1_Click（） Dim a（l To 4）As Integer A（l）=5：a（2）=6：a（3）=7：a（4）=8 subP a（） For i=1 To 4 Print a（i） Next i End Sub 運(yùn)行上面的程序，單擊命令按鈕，則輸出結(jié)果是 A）2 B）5 C）10 D）出錯(cuò) 4 6 12 6 7 14
8 8 16
（27）Fibonacci數(shù)列的規(guī)律是：前2個(gè)數(shù)為1，從第3個(gè)數(shù)開始，每個(gè)數(shù)是它前2個(gè)數(shù)之和，即：1，1，2, 3, 5, 8,13, 21，34, 55, 89,…。某人編寫了下面的函數(shù)，判斷大于1的整數(shù)x是否是Fibonacci數(shù)列中的某個(gè)數(shù)，若是，則返回True,否則返回False。
Function Isfab（x As Integer）As Boolean
Dim a As Integer, b As Integer, c As Integer, flag As Boolean
flag=False
a=1：b=I
Do While x＜b
c=a＋b
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
測試時(shí)發(fā)現(xiàn)對于所有正整數(shù)x,函數(shù)都返回False,程序需要修改。下面的修改方案中正確的是
A）把a(bǔ)= b與b=c的位置互換
B）把c=a+b移到b=c之后
C）把Do While x＜b改為Do While x＞b
D）把if x=b Then flag=True改為If x=a Then flag=True
（28）在窗體上畫一個(gè)命令按鈕，其名稱為Commandl，然后編寫如下事件過程：
5
Private Sub Command1_Click（）
Dim a$, b$，c$, k%
a="ABCD”
b=”123456”
c=""
k=1
Do While k＜= Len（a）Or k＜=Len（b）
If k＜=Len（a）Then
c=c＆Mid（a, k, 1）
End If
If k＜=Len（b）Then
c=c＆Mid（b, k, 1）
End If
k=k＋1
Loop
Print c
End Sub
運(yùn)行程序，單擊命令按鈕，輸出結(jié)果是
A）123456ABCD B）ABCD123456 C）D6C5B4A321 D）AlB2C3D456
（29）請閱讀程序：
Private Sub Form_ Click（）
m=1
For i=4 To 1 Step-1
Print Str（m）；
m=m＋1
For j=1 To i
Print”＊”；
Next j
Next i
End Sub
程序運(yùn)行后，單擊窗體，則輸出結(jié)果是
A）1**** B）4**** C）**** D）*
2*** 3*** *** **
3** 2** ** ***
4* 1* * ****
（30）在窗體上畫一個(gè)命令按鈕（其名稱為Commandl），然后編寫如下代碼： Private Sub Command l_Click（）
Dim a
a=Array（1,2,3,4）
I=3：j=1
Do While i＞=0
s=s＋a（i）*j
i=i-1
j=j*10。
6
Loop
Print s
End Sub
運(yùn)行上面的程序，單擊命令按鈕，則輸出結(jié)果是
A）4321 B）123 C）234 D）1234
（31）下列可以打開隨機(jī)文件的語句是
A）Open "file l .dat" For lnput As＃1
B）Open”file l .dat" For Append As＃1
C）Open”file1.dat" For Output As＃1
D）Open”file1.dat" For Random As＃1 Len=20
（32）有彈出式菜單的結(jié)構(gòu)如下表，程序運(yùn)行時(shí)，單擊窗體則彈出如下圖所示的菜單。下面的事件過程中能正確實(shí)現(xiàn)這一功能的是
A）Private Sub Form _Click（） PopupMenu cut End Sub B）Private Sub Command l Click（） PopupMenu edit End Sub C）Private Sub Form_ Click（） PopupMenu edit End Sub End Sub D）Private Sub Form_lick（） PopupMenu cut PopupMenu paste （33）請閱讀程序： Option Base I Private Sub Form_ Click（） Dim Arr（4, 4）As Integer For i=1 To 4 For j=I To 4 Arr（i, j）=（i - 1）*2＋j Next j Next i For i=3To4 For j=3 To 4 Print Arr（j, i）; Next j 7
Next i
End Sub
程序運(yùn)行后，單擊窗體，則輸出結(jié)果是
A）5 7 B）6 8 C）7 9 D）8 10
6 8 7 9 8 10 8 11
（34）一下面函數(shù)的功能應(yīng)該是：刪除字符串str中所有與變量ch相同的字符，并返回刪除后的結(jié)果。例如：若str= "ABCDABCD", ch= "B",則函數(shù)的返回值為："ACDACD"
Function delchar（str As String, ch As String）As String
Dim k As Integer, temp As String, ret As String
ret=""
For k=1 To Len（str）
temp=Mid（str, k, 1）
If temp= ch Then
ret=ret＆temp
End If
Next k
delchar=ret
End Function
但實(shí)際上函數(shù)有錯(cuò)誤，需要修改。下面的修改方案中正確的是
A）把ret=ret＆temp改為ret=temp
B）把If temp=ch Then改為If temp＜＞ ch Then
C）把delchar=ret改為delchar=temp
D）把ret =""改為temp=""
（35）在窗體上畫一個(gè)命令按鈕和兩個(gè)文本框，其名稱分別為Command1、Text I和Text2,在屬性窗口中把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下程序：
Dim S I As String, S2 As String
Private Sub Form Load（）
Text 1 .Text=""
Text2.Text=""
Text 1．Enabled=False
Text2．Enabled=False
End Sub
Private Sub Form_ KeyDown（KeyCode As Integer, Shift As Integer）
S2=S2＆Chr（KeyCode）
End Sub
Private Sub Forin_ KeyPress（KeyAscii As Integer）
S1=S1＆Chr（KeyAscii）
End Sub
Private Sub Command l Click
Text l .Text=Sl
Text2.Text=S2
S1=""
S2=""
8
為
End Sub 程序運(yùn)行后，先后按“a”、“b”、“c”鍵，然后單擊命令按鈕，在文本框Textl和Text2中顯示的內(nèi)容分別A）abc和ABC B）空白 C）ABC和abc D）出錯(cuò)
二、填空題（每空2分，共30分）
請將每空的正確答案寫在答題卡【1】至【15】序號的橫線上，答在試卷上不得分。
（1）一個(gè)棧的初始狀態(tài)為空。首先將元素5，4，3，2，1 依次入棧，然后退棧一次，再將元素A,B,C,D依次入棧，之后將所有元素全部退棧，則所有元素退棧（包括中間退棧的元素）的順序?yàn)開_【1】__。
（2）在長度為n的線性表中，尋找最大項(xiàng)至少需要比較___【2】___次。
（3）一棵二叉樹有10個(gè)度為1的結(jié)點(diǎn)，7個(gè)度為2的結(jié)點(diǎn)，則該二叉樹共有__【3】___個(gè)結(jié)點(diǎn)。
（4）僅由順序、選擇（分支）和重復(fù)（循環(huán)）結(jié)構(gòu)構(gòu)成的程序是_【4】__程序。
（5）數(shù)據(jù)庫設(shè)計(jì)的四個(gè)階段是：需求分析，概念設(shè)計(jì)，邏輯設(shè)計(jì)和_【5】_。
（6）窗體上有一個(gè)名稱為Combo1的組合框， 其初始內(nèi)容為空，有一個(gè)名稱為Command1、標(biāo)題為“添加項(xiàng)目”的命令按鈕。程序運(yùn)行后，如果單擊命令按鈕，會將給定數(shù)組中的項(xiàng)目添加到組合框中，如圖所示。請?zhí)羁铡?/p>
Option Base 1
Private Sub Command 1_ Click（
Dim city As Variant
city=_【6】_（"北京"，"天津"，"上海"，"武漢"，"重慶"，"西寧"）
For i=_【7】_To UBound（citv）
Combo 1.Addltem_【8】_
Next
End Sub
（7）窗體上有一個(gè)名稱為Text 1的文本框和一個(gè)名稱為Command l、標(biāo)題為“計(jì)算”的命令按鈕，如圖所示。函數(shù)fun及命令按鈕的單擊事件過程如下，請?zhí)羁铡?/p>
9
Private Sub Command 1 _Click（）
Dim x As Integer
x=Val（InputBOX（"輸入數(shù)據(jù)"））
Text 1=Str（fun（x）+fun（x）+fun（x））
End Sub
Private Function fun（ByRef n As Integer）
If n Mod 3=0 Then
n=n+n
Else
n=n*n
End If
_【9】_=n
End Function
當(dāng)單擊命令按鈕，在輸入對話框中輸入2時(shí)，文本框中顯示的是_【10】_
（8）窗體上有一個(gè)名稱為List1的列表框，一個(gè)名稱為Picture 1的圖片框。Form_ Load事件過程的作用是，把Datal.txt文件中的物品名稱添加到列表框中。運(yùn)行程序，當(dāng)雙擊列表框中的物品名稱時(shí)，可以把該物品對應(yīng)的圖片顯示在圖片框中如圖所示。以下是類型定義及程序，請?zhí)羁铡?/p>
Private Type Pic gName As String*10 ?物品名稱 picFile As String*20 ?物品圖片的圖片文件名 End Type Dim p（4）As Pic，pRec As Pic Private Sub Form Load（） Open”Datal.txt" For Random As＃1 _【11】_=Len（pRec） For i=0 To 4 Get＃1，i+l，P（i） LIStI.AddItem p（i）.gNaine Next i Close＃1 End Sub Private Sub List I-DbICIickO For i=OTo4 If RTrim（List一List（i））=RTrim（_【12】_）Then 10
Picture l.，Picture=LoadPicture（p（i）．_【13】_）
Exit For
End If
Next
End Sub
（9）窗體上有一個(gè)名稱為CD1的通用對話框。通過菜單編輯器建立如圖1所示的菜單。程序運(yùn)行時(shí)，如果單擊“打開”菜單項(xiàng)，則執(zhí)行打開文件的操作，當(dāng)選定了文件（例如： G:\VB\2010-9\in.txt）并打開后，該文件的文件名會被添加到菜單中，如圖2所示。各菜單項(xiàng)的名稱和標(biāo)題等定義如下表。
以一下是單擊“打開”菜單項(xiàng)的事件過程，請?zhí)羁铡?/p>
Dim mnuCounter As Integer
Private Sub tnnuOpen_ Click（）
CDI．Show0pen
If CD I ．FileName＜＞""Then
Open_【14】_For Input As＃1
mnuCounter=mnuCounter+1
Load FName（mnuCounter）
FName（mnuCounter）.Caption=CD I.FileName
FName（mnuCounter）._【15】_=True
Close＃1
End If
End Sub
11
參考答案
12
【計(jì)算機(jī)二級VB筆試試題(含答案)】相關(guān)文章：
java筆試題，筆試題目分享08-10
中級電工證考試試題(筆試部分)包含答案08-10
計(jì)算機(jī)等級考試筆試題08-10
ITT HR的筆試題目，筆試試題08-09
騰訊筆試題 試題分享08-09
電廠筆試題 試題題目08-10
畢馬威筆試題07-28
瑞星筆試題08-06
微軟筆試題08-13