精品文檔-下載后可編輯年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.以上3種說法都不對

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

A.數據的邏輯結構與存儲結構必定是一一對應的

B.由于計算機存儲空間是向量式的存儲結構，因此，數據的存儲結構一定是線性結構

C.程序設計語言中的數據一般是順序存儲結構，因此，利用數組只能處理線性結構

D.以上3種說法都不對

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

A.n(n+1)/2

B.nlog2n

C.n(n-1)/2

D.n/2

8.一棵二叉樹中共有70個葉子結點與80個度為１的結點，則該二叉樹中的總結點數為（）。[2分]

A.219

B.221

C.229

D.231

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

A.數據庫系統是一個獨立的系統，不需要操作系統的支持

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

C.數據庫管理系統就是數據庫系統

D.以上3種說法都不對

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

A.為了建立一個關系，首先要構造數據的邏輯關系

B.表示關系的二維表中各元組的每一個分量還可以分成若干數據項

C.一個關系的屬性名表稱為關系模式

D.一個關系可以包括多個二維表

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

A.Enabled

B.MultiLine

C.MaxLenth

D.Width

12.在窗體上有一個名為Textl的文本框。當光標在文本框中時，如果按下字母“A”，則可被調用的事件過程是（）。[2分]

A.Form_KeyPress()

B.Textl_LostFocus()

C.Textl_Click()

D.Textl_Change()

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

A.PrivateSubCommandl_Click()Textl.GotFocusEndSub

B.PrivateSubCommandl_Click()Commandl.GotFocusEndSub

C.PrivateSubCommandl_Click()Textl.SetFocusEndSub

D.PrivateSubCommandl_Click()Commandl.SetFocusEndsub

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

A.CDEFGH

B.ABCD

C.FG

D.AB

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

A.PrivateSubList1_Click()PrintList1.TextEndSub

B.PrivateSubForm1_Click()PrintList1.TextEndSub

C.PrivateSubList1_Click()PrintForm1.TextEndSub

D.PrivateSubForm1_Click()List1.PrintList1.TextEndSub

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

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

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

C.按鈕中心點到窗體左端的距離

D.按鈕中心點到圖片框左端的距離

17.為使程序運行時通用對話框CD1上顯示的標題為“對話框窗口”。若通過程序設置該標題，則應使用的語句是（）。[2分]

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

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

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

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

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

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

A.PrivateSubCommand1_Click()ListlClearEndSub

B.PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSub

C.PrivateSubCommand1_Click()List1.RemoveItemList1.ListIndexEndSub

D.PrivateSubCommand1_Click()List1.RemoveItemEndSub

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

A.把t=0改為t=1

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

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

D.把Next改為Nextk

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

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

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

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

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

22.窗體上有文本框Textl和一個菜單，菜單標題、名稱如表，結構見圖。要求程序執行時單擊“保存”菜單項，則把其標題顯示在Textl文本框中。下面可實現此功能的事件過程是（）。[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.某人在窗體上畫了一個名稱為Timer1的計時器和一個名稱為Label1的標簽，計時器的屬性設置為Enabled=True，Interval=0，并編程下列。希望在程序運行時，可以每2秒在標簽上顯示一次系統當前時間。PrivateSubTimer1_Timer()Label1.Caption=Time＄EndSub在程序執行時發現未能實現以上目的，那么，他應做的修改是（）。[2分]

A.通過屬性窗口把計時器的Interval屬性設置為2000

B.通過屬性窗口把計時器的Enabled屬性設置為False

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

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

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

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

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

B.打開隨機文件時采用的文件存取方式應該是Random

C.向隨機文件中寫數據應使用語句Print#文件號

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

26.設窗體上有一個圖片框Picture1，要在程序運行期間裝入當前文件夾下的圖形文件File1.jpg，能實現此功能的語句是（）。[2分]

A.Picture1.Picture="File1.jpg"

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

C.LoadPicture("File1.jpg")

D.CallLoadPicture("File1.jpg")

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

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

A.調用swap過程的語句錯誤，應改為Callswapa,b

B.輸出語句錯誤，應改為Print"a","b"

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

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

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

A.a乘以n的乘積

B.a加n的和

C.a減n的差

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

30.下列程序的輸出結果是（）。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.某人編寫了一個能夠返回數組a中10個數中最大數的函數過程，代碼下列：FunctionMaxValue(a()AsInteger)AsIntegerDimmax%∶max=1Fork=2To10Ifa(k)a(max)Thenmax=kEndIfNextkMaxValue=maxEndFunction程序運行時，發現函數過程的返回值是錯的，需要修改，下列的修改方案中正確的是（）。[2分]

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

B.語句Fork=2To10應改為Fork=1To10

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

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

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

A.9!

B.10!

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

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

33.有一個名稱為Fom1的窗體，上面沒有控件，設有下列程序（其中方法PSet(X,Y)的功能是在坐標X、Y處畫一個點）：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.每按下鼠標鍵一次，在鼠標所指位置畫一個點

B.按下鼠標鍵，則在鼠標所指位置畫一個點；放開鼠標鍵，則此點消失

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

D.按下鼠標鍵并拖動鼠標，則沿鼠標拖動的軌跡畫一條線，放開鼠標鍵則結束畫線

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

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

B.把循環條件a\10=0改為a\100

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

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

35.在窗體上有一個名稱為Check1的復選框數組（含4個復選框），還有一個名稱為Text1的文本框，初始內容為空。程序運行時，單擊任何復選框，則把所有選中的復選框后面的文字羅列在文本框中，如圖所示。下列能實現此功能的事件過程是（）。[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.軟件需求規格說明書應具有完整性、無歧義性、正確性、可驗證性、可修改性等特性，其中最重要的是___。[每空2分]

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

3.線性表的存儲結構主要分為順序存儲結構和鏈式存儲結構。隊列是一種特殊的線性表，循環隊列是隊列的___存儲結構。[每空2分]

4.對下列二叉樹進行中序遍歷的結果為___。[每空2分]

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

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

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

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