精品文檔-下載后可編輯年9月全國計算機等級考試二級VB程序設計2022年9月全國計算機等級考試二級VB程序設計

一、選擇題（每小題2分，共70分）

1.下列敘述中正確的是（）。[2分]

A.線性表的鏈式存儲結構與順序存儲結構所需要的存儲空間是相同的

B.線性表的鏈式存儲結構所需要的存儲空間一般要多于順序存儲結構

C.線性表的鏈式存儲結構所需要的存儲空間一般要少于順序存儲結構

D.上述三種說法都不對

2.下列敘述中正確的是（）。[2分]

A.在棧中，棧中元素隨棧底指針與棧頂指針的變化而動態變化

B.在棧中，棧頂指針不變，棧中元素隨棧底指針的變化而動態變化

C.在棧中，棧底指針不變，棧中元素隨棧頂指針的變化而動態變化

D.上述三種說法都不對

3.軟件測試的目的是（）。[2分]

A.評估軟件可靠性

B.發現并改正程序中的錯誤

C.改正程序中的錯誤

D.發現程序中的錯誤

4.下面描述中，不屬于軟件危機表現的是（）。[2分]

A.軟件過程不規范

B.軟件開發生產率低

C.軟件質量難以控制

D.軟件成本不斷提高

5.軟件生命周期是指（）。[2分]

A.軟件產品從提出、實現、使用維護到停止使用退役的過程

B.軟件從需求分析、設計、實現到測試完成的過程

C.軟件的開發過程

D.軟件的運行維護過程

6.面向對象方法中，繼承是指（）。[2分]

A.一組對象所具有的相似性質

B.一個對象具有另一個對象的性質

C.各對象之間的共同性質

D.類之間共享屬性和操作的機制

7.層次型、網狀型和關系型數據庫劃分原則是（）。[2分]

A.記錄長度

B.文件的大小

C.聯系的復雜程度

D.數據之間的聯系方式

8.一個工作人員可以使用多臺計算機，而一臺計算機可被多個人使用，則實體工作人員與實體計算機之間的聯系是（）。[2分]

A.一對一

B.一對多

C.多對多

D.多對一

9.數據庫設計中反映用戶對數據要求的模式是（）。[2分]

A.內模式

B.概念模式

C.外模式

D.設計模式

10.有三個關系R、S和T如下：則由關系R和S得到關系T的操作是（）。[2分]

A.自然連接

C.投影

11.在VisualBasic集成環境中，要添加一個窗體，可以單擊工具欄上的一個按鈕，這個按鈕是（）。[2分]

12.在VisualBasic集成環境的設計模式下，用鼠標雙擊窗體上的某個控件打開的窗口是（）。[2分]

A.工程資源管理器窗口

B.屬性窗口

C.工具箱窗口

D.代碼窗口

13.下列敘述中錯誤的是（）。[2分]

A.列表框與組合框都有List屬性

B.列表框有Selected屬性，而組合框沒有

C.列表框和組合框都有Style屬性

D.組合框有Text屬性，而列表框沒有

14.設窗體上有一個命令按鈕數組，能夠區分數組中各個按鈕的屬性是（）。[2分]

A.Name

B.Index

C.Caption

D.Left

15.滾動條可以響應的事件是（）。[2分]

A.Load

B.Scroll

C.Click

D.MouseDown

16.設a=5，b=6，c=7，d=8，執行語句x=IIf((ab)And(cd),10,20)后，x的值是（）。[2分]

A.10

B.20

C.30

D.200

17.語句PrintSgn(-6^2)+Abs(-6^2)+Int(-6^2)的輸出結果是（）。[2分]

A.-36

C.-1

D.-72

18.在窗體上畫一個圖片框，再在圖片框中畫一個命令按鈕，位置如圖。則命令按鈕的Top屬性值是（）。[2分]

A.200

B.300

C.500

D.700

19.在窗體上畫一個名稱為Commandl的命令按鈕。單擊命令按鈕時執行如下事件過程：PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub則在彈出的信息框標題欄中顯示的標題是（）。[2分]

A.softwareandhardware

B.hardware

C.software

20.在窗體上畫一個文本框（名稱為Textl）和一個標簽（名稱為Label1），程序運行后，如果在文本框中輸入文本，則標簽中立即顯示相同的內容。以下可以實現上述操作的事件過程是（）。[2分]

A.PrivateSubText1_Change()Label1.Caption=Text1.TextEndSub

B.PrivateSubLabel1_Change()Label1.Caption=Text1.TextEndSub

C.PrivateSubText1_Click()Label1.Caption=Text1.TextEndSub

D.PrivateSubLabel1_Click()Label1.Caption=Text1.TextEndSub

21.以下說法中錯誤的是（）。[2分]

A.如果把一個命令按鈕的Default屬性設置為True，則按回車鍵與單擊該命令按鈕的作用相同

B.可以用多個命令按鈕組成命令按鈕數組

C.命令按鈕只能識別單擊（Click）事件

D.通過設置命令按鈕的Enabled屬性，可以使該命令按鈕有效或禁用

22.以下關于局部變量的敘述中錯誤的是（）。[2分]

A.在過程中用Dim語句或Static語句聲明的變量是局部變量

B.局部變量的作用域是它所在的過程

C.在過程中用Static語句聲明的變量是靜態局部變量

D.過程執行完畢，該過程中用Dim或Static語句聲明的變量即被釋放

23.以下程序段的輸出結果是（）。x=1:y=4DoUntily4x=x*yy=y+lLoopPrintx[2分]

D.20

24.如果執行一個語句后彈出如圖所示的窗口，則這個語句是（）。[2分]

A.InputBox("輸入框","請輸入VB數據")

B.x=InputBox("輸入框","請輸入VB數據")

C.InputBox("請輸入VB數據","輸入框")

D.x=InputBox("請輸入VB數據","輸入框")

25.有如下事件過程：PrivateSubForm_Click()DimnAsIntegerx=0n=InputBox("請輸入一個整數")Fori=1TonForj=1Toix=x+1NextjNextiPrintxEndSub程序運行后，單擊窗體，如果在輸入對話框中輸入5，則在窗體上顯示的內容是（）。[2分]

A.13

B.14

C.15

D.16

26.請閱讀程序：Subsubp(b()AsInteger)Fori=1To4b(i)=2*iNextEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=5:a(2)=6:a(3)=7:a(4)=8subpa()Fori=1To4Printa(i)NextEndSub運行上面的程序，單擊命令按鈕，則輸出結果是（）。[2分]

A.2468

B.5678

C.10121416

D.出錯

27.Fibonacci數列的規律是：前2個數為1，從第3個數開始，每個數是它前2個數之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人編寫了下面的函數，判斷大于1的整數x是否是Fibonacci數列中的某個數，若是，則返回True，否則返回False。FunctionIsfab(xAsInteger)AsBooleanDimaAsInteger,bAsInteger,cAsInteger,flagAsBooleanflag=Falsea=1:b=1DoWhilexbc=a+b:a=b:b=cIfx=bThenflag=TrueLoopIsfab=flagEndFunction測試時發現對于所有正整數x，函數都返回False，程序需要修改。下面的修改方案中正確的是（）。[2分]

A.把a=b與b=c的位置互換

B.把c=a+b移到b=c之后

C.把DoWhilexb

D.把Ifx=bThenflag=True改為Ifx=aThenflag=True

28.在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：PrivateSubCommand1_Click()Dima$,b$,c$,k%a="ABCD"b="123456"c=""k=1DoWhilek=Len(a)Ork=Len(b)Ifk=Len(a)Thenc=cMid(a,k,1)EndIfIfk=Len(b)Thenc=cMid(b,k,1)EndIfk=k+1LoopPrintcEndSub運行程序，單擊命令按鈕，輸出結果是（）。[2分]

A.123456ABCD

B.ABCD123456

C.D6C584A321

D.A1B2C3D456

29.請閱讀程序：PrivateSubForm_Click()m=1Fori=4To1Step-1Printstr(m);m=m+1Forj=1ToiPrint"*";NextjPrintNextiEndSub程序運行后，單擊窗體，則輸出結果是（）。[2分]

A.1****2***3**4*

B.4****3***2*1*

C.************

D.**********

30.在窗體上畫一個命令按鈕（其名稱為Commandl），然后編寫如下代碼：PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)i=3:j=1DoWhilei=0s=s+a(i)*ji=i–1:j=j*10LoopPrintsEndSub運行上面的程序，單擊命令按鈕，則輸出結果是（）。[2分]

A.432l

B.123

C.234

D.1234

31.下列可以打開隨機文件的語句是（）。[2分]

A.Open"file1.dat"ForInputAs#l

B.Open"file1.dat"ForAppendAs#l

C.Open"file1.dat"ForOutputAs#1

D.Open"file1.dat"ForRandomAs#1Len=20

32.有彈出式菜單的結構如右表，程序運行時，單擊窗體則彈出如下圖所示的菜單。下面的事件過程中能正確實現這一功能的是（）。[2分]

A.PrivateSubForm_Click()PopupMenucutEndSub

B.PrivateSubCommand1_Click()PopupMenueditEndSub

C.PrivateSubForm_Click()PopupMenueditEndSub

D.PrivateSubForm_Click()PopupMenucutPopupMenupasteEndSub

33.請閱讀程序：OptionBase1PrivateSubForm_Click()Dimarr(4,4)AsIntegerFori=1To4Forj=1To4arr(i,j)=(i-1)*2+jNextNextFori=3To4Forj=3To4Printarr(j,i);NextjPrintNextEndSub程序運行后，單擊窗體，則輸出結果是（）。[2分]

A.5768

B.6879

C.79810

D.810811

34.下面函數的功能應該是：刪除字符串str中所有與變量ch相同的字符，并返回刪除后的結果。例如：若str=“ABCDABCD”，ch=“B”，則函數的返回值為：“ACDACD”Functiondelchar(strAsString,chAsString)AsStringDimkAsInteger,tempAsString,retAsStringret=""Fork=1ToLen(str)temp=Mid(str,k,1)Iftemp=chThenret=rettempEndIfNextkdelchar=retEndFunction但實際上函數有錯誤，需要修改。下面的修改方案中正確的是（）。[2分]

A.把ret=rettemp改為ret=temp

B.把Iftemp=chThen改為IftempchThen

C.把delchar=ret改為delchar=temp

D.把ret=""改為temp=""

35.在窗體上畫一個命令按鈕和兩個文本框，其名稱分別為Commandl、Textl和Text2，在屬性窗口中把窗體的KeyPreview屬性設置為True，然后編寫如下程序：DimS1AsString,S2AsStringPrivateSubForm_Load()Text1.Text=""Text2.Text=""Text1.Enabled=FalseText2.Enabled=FalseEndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)S2=S2Chr(KeyCode)PrintS2EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)S1=S1Chr(KeyAscii)PrintS1EndSubPrivateSubCommand1_Click()Text1.Text=S1Text2.Text=S2S1=""S2=""EndSub程序運行后，先后按“a”、“b”、“c”鍵，然后單擊命令按鈕，在文本框Textl和Text2中顯示的內容分別為（）。[2分]

A.abe和ABC

B.空白

C.ABC和abc

D.出錯

二、填空題（每空2分，共30分）

1.一個棧的初始狀態為空。首先將元素5，4，3，2，1依次入棧，然后退棧一次，再將元素A，B，C，D依次入棧，之后將所有元素全部退棧，則所有元素退棧（包括中間退棧的元素）的順序為___。[每空2分]

2.在長度為n的線性表中，尋找最大項至少需要比較___次。[每空2分]

3.一棵二叉樹有10個度為1的結點，7個度為2的結點，則該二叉樹共有___個結點。[每空2分]

4.僅由順序、選擇（分支）和重復（循環）結構構成的程序是___程序。[每空2分]

5.數據庫設計的四個階段是：需求分析，概念設計，邏輯設計和___。[每空2分]

6.窗體上有一個名稱為Combol的組合框，其初始內容為空，有一名稱為Commandl、標題為“添加項目”的命令按鈕。程序運行，若單擊命令按鈕，會將給定數組中的項目添加到組合框中，如圖。請填空。OptionBase1PrivateSubCommand1_Click()DimcityAsVariantcity=___("北京","天津","上海","武漢","重慶","西寧")Fori=___ToUBound(city)Combo1.AddItem___NextEndSub[每空2分]

7.窗體上有一個名稱為Textl的文本框和一個名稱為Commandl、標題為“計算”的命令按鈕，如圖所示。函數fun及命令按鈕的單擊事件過程如下，請填空。PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("輸入數據"))Text1=Str(fun(x)+fun(x)+fun(x))EndSubPrivateFunctionfun(ByRefnAsInteger)IfnMod3=0Thenn=n+nElsen=n*nEndIf___=nEndFunction當單擊命令按鈕，在輸入對話框中輸入2時，文本框中顯示的是___[每空2分]

8.窗體上有一個名稱為Listl的列表框，一個名稱為Picturel的圖片框。Form_Load事件過程的作用是，把Datal.txt文件中的物品名稱添加到列表框中。運行程序，當雙擊列表框中的物品名稱時，可以把該物品對應的圖片顯示在圖片框中，如圖所示。以下是類型定義及程序，請填空。PrivateTypePicgNameAsString*10'物品名稱picFileAsStr