精品文檔-下載后可編輯年4月全國計算機二級考試VB語言筆試真題2022年4月全國計算機二級考試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.DYBEAFCZX

B.YDEBFZXCA

C.ABDYECFXZ

D.ABCDEFXYZ

7.某二叉樹中有n個度為2的結點,則該二叉樹中的葉子結點數為()[2分]

A.n+1

B.n-1

C.2n

D.n/2

8.在下列關系運算中,不改變關系表中的屬性個數但能減少元組個數的是()[2分]

C.投影

D.笛卡兒乘積

9.在E—R圖中,用來表示實體之間聯系的圖形是()[2分]

A.矩形

B.橢圓形

C.菱形

D.平行四邊形

10.下列敘述中錯誤的是()[2分]

A.在數據庫系統中,數據的物理結構必須與邏輯結構一致

B.數據庫技術的根本目標是解決數據共享問題

C.數據庫技術是指己有數據管理系統的基礎上建立數據庫

D.數據庫系統需要操作系統的支持

11.下面可以正確定義2個整形變量和1個字符串變量的語句的是()[2分]

A.Dimn,mASInterger,sASString

B.Dima%,b$,cASString

C.DimaASInteger,b,cASString

D.Dimx%,yASInteger,zASString

12.下列表述中不能判斷x是否為偶數的是()[2分]

A.x/2=Int(x/2)

B.xMod2=0

C.Fix(x/2)=x/2

D.x\2=0

13.設在名稱為Myform的窗體上只有1個名稱為C1的命令按鈕,下面敘述中正確的是()[2分]

A.窗體的Click事件過程的過程名是Myform_Click

B.命令按鈕的Click事件過程名是C1_Click

C.命令按鈕的Click事件過程的過程名是Command1_Click

D.上述三種過程名稱都是錯誤的

14.設窗體上有1個滾動條,要求單擊滾動條右端的按鈕一次,滾動條移動一定的刻度值,決定此刻度的屬性是()[2分]

A.Max

B.Min

C.SmallChange

D.LargeChang

15.1個二維數組可以存放1個矩形.在程序開始有語句OptionBase0,則下面定義的數組中正好可以存放1個4*3矩陣(即只有12個元素)的是()[2分]

A.Dima(-2To0,2)ASInteger

B.Dima(3,2)ASIngeger

C.Dima(4,3)ASIngeger

D.Dima(-1To-4,-1To-3)ASIngeger

16.若設置了文本框的屬性PasswordChar=”$”,則運行程序時向文本框中輸入8個任意字符后,文本框中顯示的是()[2分]

A.8個”$”

B.1個”$”

C.8個”*”

D.無任何內容

17.設在窗體上有1個名稱為Combo1的組合框,含有5個項目,要刪除最后一項,正確的語句是()[2分]

A.Combo1.RemoveItemCombo1.Text

B.Combo1.RemoveItem4

C.Combo1.RemoveItemCombo1.ListCount

D.Combo1.RemoveItem5

18.工程中有2個窗體,名稱分別為Form1.Form2,Form1為啟動窗體,該窗體上有命令按鈕Command1,要求程序運行后單擊該命令按鈕時顯示Form2,則按鈕的Click事件過程應該是()[2分]

A.PrivateSubCommand1_Click()Form2.ShowEndSub

B.PrivateSubCommand1_Click()Form2.VisibleEndSub

C.PrivateSubCommand1_Click()LoadForm2EndSub

D.PrivateSubCommand1_Click()Form2.LoadEndSub

19.若在某窗體模塊中有如下事件過程()PrivateSubCommand1_Click(IndexASInteger)……EndSub則以下敘述中正確的是[2分]

A.此事件過程與不帶參數的事件過程沒有區別

B.有1個名稱為Command1的窗體,單擊此窗體則執行此事件過程

C.有1個名稱為Command1的空件數組,數組中有多個不同類型控件

D.有1個名稱為Command1的空件數組,數組中有多個相同類型控件

20.以下循環語句中在任何情況下都至少執行一次循環體的是()[2分]

A.DoWhile條件循環體Loop

B.While條件循環體Wend

C.Do循環體LoopUntil條件

D.DoUntil條件循環體Loop

21.在窗體上有1個名為Cd1的通用對話框,為了在運行程序時打開保存文件對話框,則在程序總應使用的語句是()[2分]

A.Cd1.Action=2

B.Cd1.Action=1

C.Cd1.ShowSave=Ture

D.Cd1.ShowSave=0

22.下面關于菜單的敘述中錯誤的是()[2分]

A.各級菜單中的所有菜單項的名稱必須唯一

B.同一子菜單中的菜單項名稱必須唯一,但不同子菜單中的菜單項名稱可以相同

C.彈出式菜單用Popupmenu方法彈出

D.彈出式菜單也用菜單編輯器編輯

23.已知有下面的過程()PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean)……EndSub正確調用此過程的語句是[2分]

A.Callprocl(5)

B.Callproc15,”abc”,False

C.proc1(12,”abc”,True)

D.proc15,“abc”

24.在窗體上有一個文件名稱為Text1的文本框和1個名稱為Command1的命令按鈕，要求在程序執行時，每單擊命令按鈕一次，文本框向右移動一定距離。下面能夠正確實現上述功能的程序是()[2分]

A.PrivateSubCommand1_Click()Text1.Left=100EndSub

B.PrivateSubCommand1_Click()Text1.Left=Text1.Left-100EndSub

C.PrivateSubCommand1_Click()Text1.Move.Text.Left+100EndSub

D.PrivateSubCommand1_Click()Text1.Move.Text.LeftEndSub

25.某人創建了1個工程，其中的窗體名稱為Form1;之后又添加了1個名為Form2的窗體，并希望程序執行時先顯示Form2窗體，那么，他需要做的工作是()[2分]

A.在工程屬性對話框中把“啟動對象”設置為Form2

B.在Form1的Load事件過程中加入語句LoadForm2

C.在Form2的Load事件過程中加入語句Form2.Show

D.在Form2的TabIndex屬性設置為１，把Form1的TabIndex屬性設置為２

26.窗體上有１個名稱為Text1的文本框和１個名稱為Command1的命令按鈕。要求程序運行時，單擊命令按鈕，就可以把文本框中的內容寫到文件out.txt中，每次寫入的內容附加到文件原有內容之后。下面能夠實現上述功能的程序是()[2分]

A.PrivateSubCommand1_Click()Open“out.txt”ForInpitAs#1Print#1,Text1.TextClose#1EndSub

B.PrivateSubCommand1_Click()Open“out.txt”ForOutpitAs#1Print#1,Text1.TextClose#1EndSub

C.PrivateSubCommand1_Click()Open“out.txt”ForAppendAs#1Print#1,Text1.TextClose#1EndSub

D.PrivateSubCommand1_Click()Open“out.txt”ForRandomAs#1Print#1,Text1.TextClose#1EndSub

27.為計算1+3+5+……+99的值，某人編程如下k=1s=0Whilek=99k=k+2:s=s+kWendPrints在調試時發現運行結果有錯誤，需要修改。下列錯誤原因和修改方案中正確的是()[2分]

A.While…Wend循環語句錯誤，應改為Fork=1To99…Nextk

B.循環條件錯誤，應改為Whliek99

C.循環前的賦值語句k=1錯誤，應改為k=0

D.循環中兩條賦值語句的順序錯誤，應改為s=s+k:k=k+2

28.下面程序在調試時出現了死循環PrivateSubCommand1_Click()n=InputBox(“請輸入一個整數”)DoIfnMod2=0Thenn=n+1Elsen=n+2ElseIfLoopUntiln=1000EndSub下面關于死循環的敘述中正確的是()[2分]

A.只有輸入的n是偶數時才會出現死循環，否則不會

B.只有輸入的n是奇數時才會出現死循環，否則不會

C.只有輸入的n是大于1000的整數時才會出現死循環，否則不會

D.輸入任何整數都會出現死循環

29.在窗體上有1個名稱為CommonDialog1的通用對話框和1個名稱為Command1的命令按鈕，以及其他一些控件。要求在程序運行時，單擊Command1按鈕，則顯示打開文件對話框，并在選擇或輸入了1個文件名后，就可以打開該文件。以下是Command1_Click事件過程的兩種算法算法1：PrivateSubCommand1_Click()CommonDialog1.ShowOpenOpenCommonDialog1.FileNameForInputAs#1EndSub算法2：PrivateSubCommand1_Click()CommonDialog1.ShowOpenIfCommonDialog1.FileName””ThenOpenCommonDialog1.FileNameForInputAs#1EndIfEndSub下面關于這兩種算法的敘述中正確的是()[2分]

A.顯示打開文件對話框后若未選擇或輸入任何文件名，則算法2會出錯，算法1不會

B.顯示打開文件對話框后若未選擇或輸入任何文件名，則算法1會出錯，算法2不會

C.兩種算法的執行結果完全一樣

D.算法1允許輸入的文件名中含有空格，而算法2不允許

30.窗體上有1個名稱為List的列表框，其中已經輸入了若干個項目（如圖所示）：還有2個文本框，名稱分別為Text1、Text2,1個名稱為Command1的命令按鈕，并有以下程序PrivateSubCommand1_Click()DimstrAsString,sAsString,kAsIntegers=Text1Str=””Fork=List1.ListCount-1to0Step-1IfInStr(List.List(k),s)0thenstr=strList.List(k)””EndIfNextkIfstr=””ThenText2=”沒有匹配的項目”ElseText2=strEndIfEndSub程序運行時，在Text1中輸入“京”，單擊命令按鈕，則在Text2中顯示的內容是()[2分]

B.北京南京

C.南京

D.沒有匹配的項目

31.在窗體上畫1一個名稱為Command1的命令按鈕，并編寫以下程序PrivateSubCommand1_Click()Printfun(“ABCDEFG”)EndSubFunctionfun(stAsString)AsStringstlen=Len(st)temp=””Forkfun=tempEndFunction程序運行時，單擊命令按鈕，則窗體上顯示的是()[2分]

A.ABCDEFG

B.AGBFCE

C.GFEDCBA

D.AGBFCED

32.在窗體上先后畫2個圖片框，名稱分別為Picture1和banana,banana中添加了香蕉圖片（見圖1），且將banana.DragMode屬性設置為1。要求程序運行時，可以用鼠標把banana拖拽到Picture1中（見圖2）。能實現此功能的事件過程是()[2分]

A.PriateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSinglebanana.MovePicture1.Left+X,Picture1.Top+Y)EndSub

B.PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Picture1.Top+YEndSub

C.PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Picture1.Top+YEndSub

D.PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)banana.Movebanana.Left+X,banana.Top+YEndSub

33.在窗體上畫1個名稱為Command1的命令按鈕，然后編寫如下事件過程OptionBase1PribateSubCommand1_Click()Dima(5.5)AsIntegerFori=1To5a(I,j)*5\10NextjNextiS=0Fori=1To5S=s+a(i,i)NextiPrintsEndSub程序運行后，單擊命令按鈕，輸出結果是()[2分]

A.15

B.13

C.11

34.在窗體上從左到右有Text1、Text2兩個文本框（見圖），要求程序運行時，在Text1中輸入1個分數后按回車鍵，則判斷分數的合法性，若分數為0~100中的1個數，周圍光標移到Text2中；否則光標不動，并彈出對話框顯示“分數錯”，下面程序中正確的是()[2分]

A.PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then‘回車符的ACSII碼是13a=Val(Text1)Ifa=0ora=100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分數錯”)EndIfEndIfEndSub

B.PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then‘回車符的ACSII碼是13a=Val(Text1)Ifa=0Anda=100ThenText1.SetFocusElseText2.SetFocus;MsgBox(“分數錯”)EndIfEndIfEndSub

C.PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then‘回車符的ACSII碼是13a=Val(Text1)Ifa0Anda100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分數錯”)EndIfEndIfEndSub

D.PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then‘回車符的ACSII碼是13a=Val(Text1)Ifa=0Anda=100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分數錯”)EndIfEndIfEndSub

35.在窗體上畫2個命令按鈕，名稱分別為Command1、command2，并編寫如下程序Constn=5,m=4Dima(m,n)PrivateSubCommand1_Click()K=1Fori=1TomForj=1Tona(i,j)=kk=k+1NextjNextiPrivateSubCommand2_Click()Summ=0Fori=1TomForj=1TonIfi=1Ori=mThenSumm=summ+a(i,j)ElseIfj=IOrj=nThenSumm=summ+a(i,j)EndIfEndIfNextjNextiPrintsummEndSub過程Command1_Click()的作用是二維數組a中存放1個m行n列的矩陣；過程Command2_Click()的作用是()[2分]

A.計算矩陣外圍一圈元素的累加和

B.計算矩陣除外一圈以外的所有元素的累加和

C.計算矩陣第1列和最后一列元素的累加和

D.計算矩陣第1行和最后一行元素的累加和

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

1.在深度為7的滿二叉樹中，度為2的結點個數為___。[每空2分]

2.軟件測試分為白箱（盒）測試和黑箱（盒）測試，等價類劃分法屬于___測試。[每空2分]

3.在數據庫系統中，實現各種數據管理功能的核心軟件稱為___。[每空2分]

4.軟件生命周期可分為多個階段，一般分為定義階段、開發階段和維護階段。編碼和測試屬于___階段。[每空2分]

5.在結構化分析使用的數據流圖（DFD）中，利用___對其中的圖形元素進行確切解釋。[每空2分]

6.1++++…….n最大的n。請填空PrivateSubCommand1__Click()Dims,m,nASIntegerm=Val(InputBox(“請輸入一個大于100的整數”))n=___s=0DoWhilesN=n+1S=s+n*nLoopPrint"滿足不等式的最大n是"___EndSub[每空2分]

7.下面程序的功能是把文件file11.txt中重復字符去掉后（即若有多個字符相同，則只保留1個）寫入文件file2.txt。請填空。PrivateSubCommand1__Click()DimincharASString,tempASString,outcharASStringOutchar=””Open=”file1.txt”ForInputAS#1Open=”file2.txt”ForOutputAS___n=LOF(___)inchar=Input$(n,1)Fork=1Tontemp=Mid(inchar,k,1)IfIn