2022年9月全國計(jì)算機(jī)等級考試二級VB語言程序設(shè)計(jì)

精品文檔-下載后可編輯年9月全國計(jì)算機(jī)等級考試二級VB語言程序設(shè)計(jì)2022年9月全國計(jì)算機(jī)等級考試二級VB語言程序設(shè)計(jì)

一、選擇題(每小題2分，共70分)

1.軟件是指（）。[2分]

A.程序

B.程序和文檔

C.算法加數(shù)據(jù)結(jié)構(gòu)

D.程序、數(shù)據(jù)與相關(guān)文檔的完整集合

2.軟件調(diào)試的目的是（）。[2分]

A.發(fā)現(xiàn)錯誤

B.改正錯誤

C.改善軟件的性能

D.驗(yàn)證軟件的正確性

3.在面向?qū)ο蠓椒ㄖ?，?shí)現(xiàn)信息隱蔽是依靠（）。[2分]

A.對象的繼承

B.對象的多態(tài)

C.對象的封裝

D.對象的分類

4.下列敘述中，不符合良好程序設(shè)計(jì)風(fēng)格要求的是（）。[2分]

A.程序的效率第一，清晰第二

B.程序的可讀性好

C.程序中要有必要的解釋

D.輸入數(shù)據(jù)前要有提示信息

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

A.程序執(zhí)行的效率與數(shù)據(jù)的存儲結(jié)構(gòu)密切相關(guān)

B.程序執(zhí)行的效率只取決于程序的控制結(jié)構(gòu)

C.程序執(zhí)行的效率只取決于所處理的數(shù)據(jù)量

D.以上3種說法都不對

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

A.數(shù)據(jù)的邏輯結(jié)構(gòu)與存儲結(jié)構(gòu)必定是一一對應(yīng)的

B.由于計(jì)算機(jī)存儲空間是向量式的存儲結(jié)構(gòu)，因此，數(shù)據(jù)的存儲結(jié)構(gòu)一定是線性結(jié)構(gòu)

C.程序設(shè)計(jì)語言中的數(shù)據(jù)一般是順序存儲結(jié)構(gòu)，因此，利用數(shù)組只能處理線性結(jié)構(gòu)

D.以上3種說法都不對

7.冒泡排序在最壞情況下的比較次數(shù)是（）。[2分]

A.n(n+1)/2

B.nlog2n

C.n(n-1)/2

D.n/2

8.一棵二叉樹中共有70個(gè)葉子結(jié)點(diǎn)與80個(gè)度為１的結(jié)點(diǎn)，則該二叉樹中的總結(jié)點(diǎn)數(shù)為（）。[2分]

A.219

B.221

C.229

D.231

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

A.數(shù)據(jù)庫系統(tǒng)是一個(gè)獨(dú)立的系統(tǒng)，不需要操作系統(tǒng)的支持

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

C.數(shù)據(jù)庫管理系統(tǒng)就是數(shù)據(jù)庫系統(tǒng)

D.以上3種說法都不對

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

A.為了建立一個(gè)關(guān)系，首先要構(gòu)造數(shù)據(jù)的邏輯關(guān)系

B.表示關(guān)系的二維表中各元組的每一個(gè)分量還可以分成若干數(shù)據(jù)項(xiàng)

C.一個(gè)關(guān)系的屬性名表稱為關(guān)系模式

D.一個(gè)關(guān)系可以包括多個(gè)二維表

11.要使一個(gè)文本框可以顯示多行文本，應(yīng)設(shè)置為True的屬性是（）。[2分]

A.Enabled

B.MultiLine

C.MaxLenth

D.Width

12.在窗體上有一個(gè)名為Textl的文本框。當(dāng)光標(biāo)在文本框中時(shí)，如果按下字母“A”，則可被調(diào)用的事件過程是（）。[2分]

A.Form_KeyPress()

B.Textl_LostFocus()

C.Textl_Click()

D.Textl_Change()

13.設(shè)在窗體上有一個(gè)名稱為Commandl的命令按扭和一個(gè)名稱為Textl的文本框。要求單擊Commandl按鈕時(shí)可把光標(biāo)移到文本框中。下列正確的事件過程是（）。[2分]

A.PrivateSubCommandl_Click()Textl.GotFocusEndSub

B.PrivateSubCommandl_Click()Commandl.GotFocusEndSub

C.PrivateSubCommandl_Click()Textl.SetFocusEndSub

D.PrivateSubCommandl_Click()Commandl.SetFocusEndsub

14.執(zhí)行下列程序后輸出的是（）。PrivateSubCommandl_Click()Ch$="ABCDEFGH"∶PrintMid(Right(ch$,6),Len(Left(ch$,4),2)EndSub[2分]

A.CDEFGH

B.ABCD

C.FG

D.AB

15.設(shè)在窗體Form1上有一個(gè)列表框List1，其中有若干個(gè)項(xiàng)目。要求單擊列表框中某一項(xiàng)時(shí)，把該項(xiàng)顯示在窗體上，正確的事件過程是（）。[2分]

A.PrivateSubList1_Click()PrintList1.TextEndSub

B.PrivateSubForm1_Click()PrintList1.TextEndSub

C.PrivateSubList1_Click()PrintForm1.TextEndSub

D.PrivateSubForm1_Click()List1.PrintList1.TextEndSub

16.若窗體上的圖片框中有一個(gè)命令按鈕，則此按鈕的Left屬性是指（）。[2分]

A.按鈕左端到窗體左端的距離

B.按鈕左端到圖片框左端的距離

C.按鈕中心點(diǎn)到窗體左端的距離

D.按鈕中心點(diǎn)到圖片框左端的距離

17.為使程序運(yùn)行時(shí)通用對話框CD1上顯示的標(biāo)題為“對話框窗口”。若通過程序設(shè)置該標(biāo)題，則應(yīng)使用的語句是（）。[2分]

A.CD1.DialogTitle="對話框窗口"

B.CD1.Action="對話框窗口"

C.CD1.FileName="對話框窗口"

D.CD1.Filter="對話框窗口"

18.在窗體上有如圖所示的控件，各控件的名稱與其標(biāo)題相同，并有下列程序：PrivateSubForm_Load()Command2.Enabled=False∶Check1.Value=1EndSub剛運(yùn)行程序時(shí)，看到的窗體外觀是（）。[2分]

19.設(shè)在窗體中有一個(gè)名稱為List1的列表框，其中有若干個(gè)項(xiàng)目，如圖所示。要求選中某一項(xiàng)后單擊Command1按鈕，就刪除選中的項(xiàng)，則正確的事件過程是（）。[2分]

A.PrivateSubCommand1_Click()ListlClearEndSub

B.PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSub

C.PrivateSubCommand1_Click()List1.RemoveItemList1.ListIndexEndSub

D.PrivateSubCommand1_Click()List1.RemoveItemEndSub

20.某人設(shè)計(jì)了下列程序用于計(jì)算并輸出7!（7的階乘）：PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPrinttEndSub執(zhí)行程序時(shí)，發(fā)現(xiàn)結(jié)果是錯誤的。下列修改方案中能夠得到正確結(jié)果的是（）。[2分]

A.把t=0改為t=1

B.把Fork=7To2Step-1改為Fork=7To1Step-1

C.把Fork=7To2Step-1改為Fork=1To7

D.把Next改為Nextk

21.若窗體中已經(jīng)有若干個(gè)不同的單選按鈕，要把它們改為一個(gè)單選按鈕數(shù)組，在屬性窗口中需要且只需要進(jìn)行的操作是（）。[2分]

A.把所有單選按鈕的Index屬性改為相同值

B.把所有單選按鈕的Index屬性改為連續(xù)的不同值

C.把所有單選按鈕的Caption屬性值改為相同

D.把所有單選按鈕的名稱改為相同，且把它們的Index屬性改為連續(xù)的不同值

22.窗體上有文本框Textl和一個(gè)菜單，菜單標(biāo)題、名稱如表，結(jié)構(gòu)見圖。要求程序執(zhí)行時(shí)單擊“保存”菜單項(xiàng)，則把其標(biāo)題顯示在Textl文本框中。下面可實(shí)現(xiàn)此功能的事件過程是（）。[2分]

A.PrivateSubsave_Click()Text1.Text=file.save.CaptionEndSub

B.PrivateSubsave_Click()Text1.Text=save.CaptionEndSub

C.PrivateSubfile_Click()Text1.Text=file.save.CaptionEndSub

D.PrivateSubfile_Click()Text1.Text=save.CaptionEndSub

23.某人在窗體上畫了一個(gè)名稱為Timer1的計(jì)時(shí)器和一個(gè)名稱為Label1的標(biāo)簽，計(jì)時(shí)器的屬性設(shè)置為Enabled=True，Interval=0，并編程下列。希望在程序運(yùn)行時(shí)，可以每2秒在標(biāo)簽上顯示一次系統(tǒng)當(dāng)前時(shí)間。PrivateSubTimer1_Timer()Label1.Caption=Time＄EndSub在程序執(zhí)行時(shí)發(fā)現(xiàn)未能實(shí)現(xiàn)以上目的，那么，他應(yīng)做的修改是（）。[2分]

A.通過屬性窗口把計(jì)時(shí)器的Interval屬性設(shè)置為2000

B.通過屬性窗口把計(jì)時(shí)器的Enabled屬性設(shè)置為False

C.把事件過程中的Label1.Caption=Time＄語句改為Timer1.Interval=Time＄

D.把事件過程中的Label1.Caption=Time＄語句改為Label1.Caption=Timer1.Time

24.形狀控件的Shape屬性有6種取值，分別代表6種幾何圖形。下列不屬于這6種幾何圖形的是（）。[2分]

25.下列關(guān)于文件的敘述中錯誤的是（）。[2分]

A.隨機(jī)文件中各條記錄的長度是相同的

B.打開隨機(jī)文件時(shí)采用的文件存取方式應(yīng)該是Random

C.向隨機(jī)文件中寫數(shù)據(jù)應(yīng)使用語句Print#文件號

D.打開隨機(jī)文件與打開順序文件一樣，都使用Open語句

26.設(shè)窗體上有一個(gè)圖片框Picture1，要在程序運(yùn)行期間裝入當(dāng)前文件夾下的圖形文件File1.jpg，能實(shí)現(xiàn)此功能的語句是（）。[2分]

A.Picture1.Picture="File1.jpg"

B.Picture1.Picture=LoadPicture("File1.jpg")

C.LoadPicture("File1.jpg")

D.CallLoadPicture("File1.jpg")

27.下列程序執(zhí)行時(shí)，在窗體上顯示的是（）。PrivateSubCommand1_Click()Dima(10)Fork=1To10a(k)=11-kNextkPrinta(a(3)\a(7)Moda(5))EndSub[2分]

28.為達(dá)到把a(bǔ)、b中的值交換后輸出的目的，某人編程下列：PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b):Printa,bEndSubPrivateSubswap(ByValaAsInteger,ByValbAsInteger)c=a:a=b:b=cEndSub在運(yùn)行時(shí)發(fā)現(xiàn)輸出結(jié)果錯了，需要修改。下面列出的錯誤原因和修改方案中正確的是（）。[2分]

A.調(diào)用swap過程的語句錯誤，應(yīng)改為Callswapa,b

B.輸出語句錯誤，應(yīng)改為Print"a","b"

C.過程的形式參數(shù)有錯，應(yīng)改為swap(ByRefaAsInteger,ByRefbAsInteger)

D.swap中3條賦值語句的順序是錯誤的，應(yīng)改為a=b:b=c:c=a

29.有下列函數(shù)：Functionfun(aAsInteger,nAsInteger)AsIntegerDimmAsIntegerWhilea=na=a-n∶m=m+1Wendfun=mEndFunction該函數(shù)的返回值是（）。[2分]

A.a乘以n的乘積

B.a加n的和

C.a減n的差

D.a除以n的商（不含小數(shù)部分）

30.下列程序的輸出結(jié)果是（）。PrivateSubCommand1_Click()ch＄="ABCDEF"procch∶PrintchEndSubPrivateSubproc(chAsString)s=““Fork=Len(ch)To1Step-1s=sMid(ch,k,1)Nextkch=sEndSub[2分]

A.ABCDEF

B.FEDCBA

31.某人編寫了一個(gè)能夠返回?cái)?shù)組a中10個(gè)數(shù)中最大數(shù)的函數(shù)過程，代碼下列：FunctionMaxValue(a()AsInteger)AsIntegerDimmax%∶max=1Fork=2To10Ifa(k)a(max)Thenmax=kEndIfNextkMaxValue=maxEndFunction程序運(yùn)行時(shí)，發(fā)現(xiàn)函數(shù)過程的返回值是錯的，需要修改，下列的修改方案中正確的是（）。[2分]

A.語句max=1應(yīng)改為max=a(1)

B.語句Fork=2To10應(yīng)改為Fork=1To10

C.If語句中的條件a(k)a(max)應(yīng)改為a(k)max

D.語句MsxValue=max應(yīng)改為MaxValue=a(max)

32.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫下列事件過程：PrivateSubCommand1_Click()Dimn%,b,tt=1:b=1:n=2Dob=b*n∶t=t+b∶n=n+1LoopUntiln9PrinttEndSub此程序計(jì)算并輸出一個(gè)表達(dá)式的值，該表達(dá)式是（）。[2分]

A.9!

B.10!

C.1!+2!+…+9!

D.1!+2!+…+10!

33.有一個(gè)名稱為Fom1的窗體，上面沒有控件，設(shè)有下列程序（其中方法PSet(X,Y)的功能是在坐標(biāo)X、Y處畫一個(gè)點(diǎn)）：DimcmdmaveAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=TrueEndSubPrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfcmdmaveThenForm1.PSet(X,Y)EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSinggle)cmdmave=FalseEndSub此程序的功能是（）。[2分]

A.每按下鼠標(biāo)鍵一次，在鼠標(biāo)所指位置畫一個(gè)點(diǎn)

B.按下鼠標(biāo)鍵，則在鼠標(biāo)所指位置畫一個(gè)點(diǎn)；放開鼠標(biāo)鍵，則此點(diǎn)消失

C.不按鼠標(biāo)鍵而拖動鼠標(biāo)，則沿鼠標(biāo)拖動的軌跡畫一條線

D.按下鼠標(biāo)鍵并拖動鼠標(biāo)，則沿鼠標(biāo)拖動的軌跡畫一條線，放開鼠標(biāo)鍵則結(jié)束畫線

34.某人設(shè)計(jì)了下列函數(shù)fun，功能是返回參數(shù)a中數(shù)值的位數(shù)Functionfun(aAsInteger)AsIntegerDimn%n=1Whilea\10=0n=n+1∶a=a\10Wendfun=nEndFunction在調(diào)用該函數(shù)時(shí)發(fā)現(xiàn)返回的結(jié)果不正確，函數(shù)需要修改，下列修改方案中正確的是（）。[2分]

A.把語句n=1改為n=0

B.把循環(huán)條件a\10=0改為a\100

C.把語句a=a\10改為a=aMod10

D.把語句fun=n改為fun=a

35.在窗體上有一個(gè)名稱為Check1的復(fù)選框數(shù)組（含4個(gè)復(fù)選框），還有一個(gè)名稱為Text1的文本框，初始內(nèi)容為空。程序運(yùn)行時(shí)，單擊任何復(fù)選框，則把所有選中的復(fù)選框后面的文字羅列在文本框中，如圖所示。下列能實(shí)現(xiàn)此功能的事件過程是（）。[2分]

A.PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=““Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.TextCheck1(k).Caption““'雙引號中是空格EndIfNextkEndSub

B.PrivateSubCheck1_Click(IndexAsInteger)Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.TextCheck1(k).Caption""'雙引號中是空格EndIfNextkEndSub

C.PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(Index).Value=1ThenText1.Text1=Text1.TextCheck1(Index).Caption""'雙引號中是空格EndIfNextkEndSub

D.PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheckl(k).Value=1ThenText1.Text=Text1.TextCheckl(k).Caption""'雙引號中是空格ExitForEndIfNextkEndSub

二、填空題(每空2分，共30分)

1.軟件需求規(guī)格說明書應(yīng)具有完整性、無歧義性、正確性、可驗(yàn)證性、可修改性等特性，其中最重要的是___。[每空2分]

2.在兩種基本測試方法中，___測試的原則之一是保證所測模塊中每一個(gè)獨(dú)立路徑至少要執(zhí)行一次。[每空2分]

3.線性表的存儲結(jié)構(gòu)主要分為順序存儲結(jié)構(gòu)和鏈?zhǔn)酱鎯Y(jié)構(gòu)。隊(duì)列是一種特殊的線性表，循環(huán)隊(duì)列是隊(duì)列的___存儲結(jié)構(gòu)。[每空2分]

4.對下列二叉樹進(jìn)行中序遍歷的結(jié)果為___。[每空2分]

5.在E-R圖中，矩形表示___。[每空2分]

6.窗體上有一個(gè)組合框，其中已輸入了若干個(gè)項(xiàng)目。程序運(yùn)行時(shí)，單擊其中一項(xiàng)，即可把該項(xiàng)與最上面的一項(xiàng)交換。如單擊圖1中的“重慶”，則與“北京”交換，得到圖2的結(jié)果。以下是可實(shí)現(xiàn)此功能的程序，請?zhí)羁?。PrivateSubCombo1_Click()Dimtemptemp=Combo1.Text___=Combo1.List(0)Combo1.List(0)=tempEndSub[每空2分]

7.設(shè)窗體有上一個(gè)名稱為HScrol1的水平滾動條，要求當(dāng)滾動塊移動位置后，能夠在窗體上輸出移動的距離（即新位置與原位置的刻度值之差，向右移動為正數(shù)，向左移動為負(fù)數(shù)）。以下是可實(shí)現(xiàn)此功能的程序，請?zhí)羁铡im___AsIntegerPrivateSubFrom_Load()pos=HScrol1.ValueEndSubPrivateSubHScroll1_Change()Print___-pospos=HScroll1.ValueEndSub[每空2分]

8.設(shè)窗體上有一個(gè)名稱為CD1的通用對話框、一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕。程序執(zhí)行時(shí)，單擊Command1按鈕，則顯示打開文件對話框，操從中選擇一個(gè)文本文件，并單擊對話框中的“打開”按鈕后，則可打開該文本文件，并讀入一行文本，顯示在Text1中。以下是實(shí)現(xiàn)此功能的事件過程，請?zhí)羁?。PrivateSubCommand1_Click()CD1.Filtetr="文本文件|*.txt|Word文檔|*.doc"CD1.FilterIndex=1∶CD1.ShowOpenIfCD1.FileName““ThenOpen___ForInputAs#1LineInput#1,ch$Close#1∶Text1.Text=___End