2022年4月全國(guó)計(jì)算機(jī)二級(jí)考試VB語(yǔ)言筆試真題

精品文檔-下載后可編輯年4月全國(guó)計(jì)算機(jī)二級(jí)考試VB語(yǔ)言筆試真題2022年4月全國(guó)計(jì)算機(jī)二級(jí)考試VB語(yǔ)言筆試真題

一、選擇題（每題2分，共計(jì)70分）

1.下列敘述中正確的是()[2分]

A.算法的效率只與問題的規(guī)模有關(guān)，而與數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)無(wú)關(guān)

B.算法的時(shí)間復(fù)雜度是指執(zhí)行算法所需要的計(jì)算工作量

C.數(shù)據(jù)的邏輯結(jié)構(gòu)與存儲(chǔ)結(jié)構(gòu)是一一對(duì)應(yīng)的

D.算法的時(shí)間復(fù)雜度與空間復(fù)雜度一定相關(guān)

2.在結(jié)構(gòu)化程序設(shè)計(jì)中，模塊劃分的原則是()[2分]

A.各模塊應(yīng)包括盡量多的功能

B.各模塊的規(guī)模應(yīng)盡量大

C.各模塊之間的聯(lián)系應(yīng)盡量緊密

D.模塊內(nèi)具有高內(nèi)聚度、模塊間具有低耦合度

3.下列敘述中正確的是()[2分]

A.軟件測(cè)試的主要目的是發(fā)現(xiàn)程序中的錯(cuò)誤

B.軟件測(cè)試的主要目的是確定程序中錯(cuò)誤的位置

C.為了提高軟件測(cè)試的效率，最好由程序編制者自己來(lái)完成軟件的測(cè)試工作

D.軟件測(cè)試是證明軟件沒有錯(cuò)誤

4.下面選項(xiàng)中不屬于面向?qū)ο蟪绦蛟O(shè)計(jì)特征的是()[2分]

A.繼承性

B.多態(tài)性

C.類比性

D.封裝性

5.下列對(duì)隊(duì)列的敘述正確的是()[2分]

A.隊(duì)列屬于非線性表

B.隊(duì)列按“先進(jìn)后出”原則組織數(shù)據(jù)

C.隊(duì)列在隊(duì)尾刪除數(shù)據(jù)

D.隊(duì)列按“先進(jìn)先出”原則組織數(shù)據(jù)

6.對(duì)下列二叉樹()進(jìn)行前序遍歷的結(jié)果為[2分]

A.DYBEAFCZX

B.YDEBFZXCA

C.ABDYECFXZ

D.ABCDEFXYZ

7.某二叉樹中有n個(gè)度為2的結(jié)點(diǎn),則該二叉樹中的葉子結(jié)點(diǎn)數(shù)為()[2分]

A.n+1

B.n-1

C.2n

D.n/2

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

C.投影

D.笛卡兒乘積

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

A.矩形

B.橢圓形

C.菱形

D.平行四邊形

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

A.在數(shù)據(jù)庫(kù)系統(tǒng)中,數(shù)據(jù)的物理結(jié)構(gòu)必須與邏輯結(jié)構(gòu)一致

B.數(shù)據(jù)庫(kù)技術(shù)的根本目標(biāo)是解決數(shù)據(jù)共享問題

C.數(shù)據(jù)庫(kù)技術(shù)是指己有數(shù)據(jù)管理系統(tǒng)的基礎(chǔ)上建立數(shù)據(jù)庫(kù)

D.數(shù)據(jù)庫(kù)系統(tǒng)需要操作系統(tǒng)的支持

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

A.Dimn,mASInterger,sASString

B.Dima%,b$,cASString

C.DimaASInteger,b,cASString

D.Dimx%,yASInteger,zASString

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

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

B.xMod2=0

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

D.x\2=0

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

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

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

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

D.上述三種過程名稱都是錯(cuò)誤的

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

A.Max

B.Min

C.SmallChange

D.LargeChang

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

A.Dima(-2To0,2)ASInteger

B.Dima(3,2)ASIngeger

C.Dima(4,3)ASIngeger

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

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

A.8個(gè)”$”

B.1個(gè)”$”

C.8個(gè)”*”

D.無(wú)任何內(nèi)容

17.設(shè)在窗體上有1個(gè)名稱為Combo1的組合框,含有5個(gè)項(xiàng)目,要?jiǎng)h除最后一項(xiàng),正確的語(yǔ)句是()[2分]

A.Combo1.RemoveItemCombo1.Text

B.Combo1.RemoveItem4

C.Combo1.RemoveItemCombo1.ListCount

D.Combo1.RemoveItem5

18.工程中有2個(gè)窗體,名稱分別為Form1.Form2,Form1為啟動(dòng)窗體,該窗體上有命令按鈕Command1,要求程序運(yùn)行后單擊該命令按鈕時(shí)顯示Form2,則按鈕的Click事件過程應(yīng)該是()[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.此事件過程與不帶參數(shù)的事件過程沒有區(qū)別

B.有1個(gè)名稱為Command1的窗體,單擊此窗體則執(zhí)行此事件過程

C.有1個(gè)名稱為Command1的空件數(shù)組,數(shù)組中有多個(gè)不同類型控件

D.有1個(gè)名稱為Command1的空件數(shù)組,數(shù)組中有多個(gè)相同類型控件

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

A.DoWhile條件循環(huán)體Loop

B.While條件循環(huán)體Wend

C.Do循環(huán)體LoopUntil條件

D.DoUntil條件循環(huán)體Loop

21.在窗體上有1個(gè)名為Cd1的通用對(duì)話框,為了在運(yùn)行程序時(shí)打開保存文件對(duì)話框,則在程序總應(yīng)使用的語(yǔ)句是()[2分]

A.Cd1.Action=2

B.Cd1.Action=1

C.Cd1.ShowSave=Ture

D.Cd1.ShowSave=0

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

A.各級(jí)菜單中的所有菜單項(xiàng)的名稱必須唯一

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

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

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

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

A.Callprocl(5)

B.Callproc15,”abc”,False

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

D.proc15,“abc”

24.在窗體上有一個(gè)文件名稱為Text1的文本框和1個(gè)名稱為Command1的命令按鈕，要求在程序執(zhí)行時(shí)，每單擊命令按鈕一次，文本框向右移動(dòng)一定距離。下面能夠正確實(shí)現(xiàn)上述功能的程序是()[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.某人創(chuàng)建了1個(gè)工程，其中的窗體名稱為Form1;之后又添加了1個(gè)名為Form2的窗體，并希望程序執(zhí)行時(shí)先顯示Form2窗體，那么，他需要做的工作是()[2分]

A.在工程屬性對(duì)話框中把“啟動(dòng)對(duì)象”設(shè)置為Form2

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

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

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

26.窗體上有１個(gè)名稱為Text1的文本框和１個(gè)名稱為Command1的命令按鈕。要求程序運(yùn)行時(shí)，單擊命令按鈕，就可以把文本框中的內(nèi)容寫到文件out.txt中，每次寫入的內(nèi)容附加到文件原有內(nèi)容之后。下面能夠?qū)崿F(xiàn)上述功能的程序是()[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.為計(jì)算1+3+5+……+99的值，某人編程如下k=1s=0Whilek=99k=k+2:s=s+kWendPrints在調(diào)試時(shí)發(fā)現(xiàn)運(yùn)行結(jié)果有錯(cuò)誤，需要修改。下列錯(cuò)誤原因和修改方案中正確的是()[2分]

A.While…Wend循環(huán)語(yǔ)句錯(cuò)誤，應(yīng)改為Fork=1To99…Nextk

B.循環(huán)條件錯(cuò)誤，應(yīng)改為Whliek99

C.循環(huán)前的賦值語(yǔ)句k=1錯(cuò)誤，應(yīng)改為k=0

D.循環(huán)中兩條賦值語(yǔ)句的順序錯(cuò)誤，應(yīng)改為s=s+k:k=k+2

28.下面程序在調(diào)試時(shí)出現(xiàn)了死循環(huán)PrivateSubCommand1_Click()n=InputBox(“請(qǐng)輸入一個(gè)整數(shù)”)DoIfnMod2=0Thenn=n+1Elsen=n+2ElseIfLoopUntiln=1000EndSub下面關(guān)于死循環(huán)的敘述中正確的是()[2分]

A.只有輸入的n是偶數(shù)時(shí)才會(huì)出現(xiàn)死循環(huán)，否則不會(huì)

B.只有輸入的n是奇數(shù)時(shí)才會(huì)出現(xiàn)死循環(huán)，否則不會(huì)

C.只有輸入的n是大于1000的整數(shù)時(shí)才會(huì)出現(xiàn)死循環(huán)，否則不會(huì)

D.輸入任何整數(shù)都會(huì)出現(xiàn)死循環(huán)

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

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

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

C.兩種算法的執(zhí)行結(jié)果完全一樣

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

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

B.北京南京

C.南京

D.沒有匹配的項(xiàng)目

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

A.ABCDEFG

B.AGBFCE

C.GFEDCBA

D.AGBFCED

32.在窗體上先后畫2個(gè)圖片框，名稱分別為Picture1和banana,banana中添加了香蕉圖片（見圖1），且將banana.DragMode屬性設(shè)置為1。要求程序運(yùn)行時(shí)，可以用鼠標(biāo)把banana拖拽到Picture1中（見圖2）。能實(shí)現(xiàn)此功能的事件過程是()[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個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程OptionBase1PribateSubCommand1_Click()Dima(5.5)AsIntegerFori=1To5a(I,j)*5\10NextjNextiS=0Fori=1To5S=s+a(i,i)NextiPrintsEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是()[2分]

A.15

B.13

C.11

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

A.PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then‘回車符的ACSII碼是13a=Val(Text1)Ifa=0ora=100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分?jǐn)?shù)錯(cuò)”)EndIfEndIfEndSub

B.PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then‘回車符的ACSII碼是13a=Val(Text1)Ifa=0Anda=100ThenText1.SetFocusElseText2.SetFocus;MsgBox(“分?jǐn)?shù)錯(cuò)”)EndIfEndIfEndSub

C.PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then‘回車符的ACSII碼是13a=Val(Text1)Ifa0Anda100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分?jǐn)?shù)錯(cuò)”)EndIfEndIfEndSub

D.PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then‘回車符的ACSII碼是13a=Val(Text1)Ifa=0Anda=100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分?jǐn)?shù)錯(cuò)”)EndIfEndIfEndSub

35.在窗體上畫2個(gè)命令按鈕，名稱分別為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()的作用是二維數(shù)組a中存放1個(gè)m行n列的矩陣；過程Command2_Click()的作用是()[2分]

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

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

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

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

二、填空題（每空2分，共計(jì)30分）

1.在深度為7的滿二叉樹中，度為2的結(jié)點(diǎn)個(gè)數(shù)為___。[每空2分]

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

3.在數(shù)據(jù)庫(kù)系統(tǒng)中，實(shí)現(xiàn)各種數(shù)據(jù)管理功能的核心軟件稱為___。[每空2分]

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

5.在結(jié)構(gòu)化分析使用的數(shù)據(jù)流圖（DFD）中，利用___對(duì)其中的圖形元素進(jìn)行確切解釋。[每空2分]

6.1++++…….n最大的n。請(qǐng)?zhí)羁誔rivateSubCommand1__Click()Dims,m,nASIntegerm=Val(InputBox(“請(qǐng)輸入一個(gè)大于100的整數(shù)”))n=___s=0DoWhilesN=n+1S=s+n*nLoopPrint"滿足不等式的最大n是"___EndSub[每空2分]

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