2024年3月計算機(jī)等級考試二級VB真題

2024年3月計算機(jī)等級考試二級VB筆試試題及答案

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

（1）下列敘述中正確的是

A）棧是先進(jìn)先出的線性表

B）隊(duì)列是“先進(jìn)后出”的線性表

C）循環(huán)隊(duì)列是非線性結(jié)構(gòu)

D）有序線性表即可以采納依次存儲結(jié)構(gòu)，也可以采納鏈?zhǔn)酱鎯Y(jié)構(gòu)

（2）支持子程序調(diào)用的數(shù)據(jù)結(jié)構(gòu)是

A）棧B）樹C）隊(duì)列D）二叉樹

（3）某二叉樹有5個讀為2的結(jié)點(diǎn)，則該二叉樹中的葉子結(jié)點(diǎn)數(shù)是

A）10B）8C）6D）4

（4）下列排序方法中，最壞狀況下比較次數(shù)最少的是

A）冒泡排序B）簡潔選擇排序C）干脆插入排序D）堆排序

（5）軟件按功能可以分為:應(yīng)用軟件、系統(tǒng)軟件和支撐軟件（或工具軟件）。下列

屬于應(yīng)用軟件的是

A）編譯程序B）操作系統(tǒng)C）教務(wù)管理系統(tǒng)D）匯編程序

（6）下面敘述中錯誤的是

A）軟件測試的目的是發(fā)覺錯誤并改正錯誤

B）對被調(diào)試程序進(jìn)行“錯誤定位”是程序調(diào)試的必要步驟

C）程序調(diào)試也成為Debug

D）軟件測試應(yīng)嚴(yán)格執(zhí)行測試安排，解除測試的隨意性

（7）耦合性和內(nèi)聚性是對模塊獨(dú)立性度量的兩個標(biāo)準(zhǔn)。下列敘述中正確的是

A）提高耦合性降低內(nèi)聚性有利「提高模塊的獨(dú)立性

B）降低耦合性提高內(nèi)聚性有利于提高模塊的獨(dú)立性

C）耦合性是指一個模塊內(nèi)部各個元素間彼此結(jié)合的緊密程度

D）內(nèi)聚性是指模塊間相互連接的緊密程度

（8）數(shù)據(jù)庫應(yīng)用系統(tǒng)中的核心問題是

A）數(shù)據(jù)庫設(shè)計B）數(shù)據(jù)庫系統(tǒng)設(shè)計C）數(shù)據(jù)庫維護(hù)D）數(shù)據(jù)庫管理員培訓(xùn)

（9）有兩個關(guān)系R,S如下：

R3

ABCAB

a32a3

b01b0

c21c2

由關(guān)系R通過運(yùn)算得到關(guān)系S,則所運(yùn)用的運(yùn)算為

A）選擇B）投影C）插入D）連接

（10）將E-R圖轉(zhuǎn)換為關(guān)系模式時，實(shí)體和聯(lián)系都可以表示為

A）屬性B）鍵C）關(guān)系D）域

（11）執(zhí)行語句DimX,YAsInteger后，

A）X和Y均被定義為整型變量

B）X和Y均被定義為變體類型變量

C）X被定義為整型變量,Y被定義為變體變量

D）X被定義為變體類型變量,Y被定義為整型變量

(12)以下關(guān)系表達(dá)式中，其值為True的是

A)"XYZ">"XYz"B)"VisualBasic"o"visualbasic"

C)"the"=',there"D)"Integer'"<"Int"

(13)執(zhí)行以下程序段

a$="VisualBasicProgramming"

b$="C++"

C$=UCase(Left$(a$/7))&b$&Right$(a$,12)

后，變量C$的值為

A)VisualBASICProgrammingB)VISUALC++Programming

C)VisualC++ProgrammingD)VISUALBASICProgramming

(14)下列敘述中正確的是

A)MsgBox語句的返回值是一個整數(shù)

B)執(zhí)行MsgBox語句并出現(xiàn)信息框后，不用關(guān)閉信息框即可執(zhí)行其他操作

C)MsgBox語句的第一個參數(shù)不能省略

D)假如省略MsgBox語句的第三個參數(shù)(Title),則信息框的標(biāo)題為空

(15)在窗體上畫一個文本框(名稱為Textl)和一個標(biāo)簽(名稱為Label。程序運(yùn)行后，

在文本框中每輸入一個字符，都會馬上在標(biāo)簽中顯示文本框中字符的個數(shù),以下可

以實(shí)現(xiàn)上述操作的事務(wù)過程是

A)PrivateSubTextl_Change()

Labell.Caption=str(Len(Textl.Text))

EndSub

B)PrivatcSubTcxtl_Click()

Labell.Caption=str(Len(Textl.Text))

EndSub

C)PrivateSubTextl_Change()

Labell.Caption=Textl.Text

EndSub

D)PrivateSubLabell_Change()

Labell.Caption=str(Len(Textl.Text))

EndSub

(16)在窗體上畫兩個單選按鈕(名稱分別為OptionlQption2,標(biāo)題分別為“宋體“和“黑體

"),1個復(fù)選框(名稱為Checkl,標(biāo)題為粗體)和1個文本框(名稱為Textl,Text屬性為"變

更文字字體)窗體外觀如圖所示。程序運(yùn)行后，要求''宋體〃單選按鈕和''粗體〃復(fù)選框被

選中，則以下能夠?qū)崿F(xiàn)上述操作的語句序列是

A)Optionl.Value=Fslse

Checkl.Value=True

B)Optionl.Value=Irue

Checkl.Value=O

C)Option2.Value=Fclse

Checkl.Value=2

D)Optionl.Value=True

Checkl.Value=l

(17)在窗體上畫一個名稱為Commandl的吩咐按鈕，然后編寫如下事務(wù)過程:

PrivateSubCommandl_Click()

c=1234

cl=Trim(Str(c))

Fori=lTo4

Print____

Next

EndSub

程序運(yùn)行后，單擊吩咐按鈕，要求在窗體上顯示如下內(nèi)容：

1

12

123

1234

則在橫線處應(yīng)填入的內(nèi)容為

A)Right(cl,i)

B)Left(clJ)

C)Mid(cl,i,l)

D)Mid(cl,i,l)

(18)假定有一下程序段

Fori=lTo3

Forj=5To1Step-1

Printi*j

Nextj

Nexti

則語句Printi*j的執(zhí)行次數(shù)是

A)15B)16C)17D)18

(19)在窗體上畫兩個文本框(名稱分別為Textl和Text2)和一個吩咐按鈕(名稱為

Commandl),然后編寫如下事務(wù)過程：

PrivateSubCommandl_Click()

x=0

DoWhilex<50

x=(x+2)*(x+3)

n=n+l

Loop

Textl.Text=Str(n)

Text2.Text=Strix)

EndSub

程序運(yùn)行后，單擊吩咐按鈕，在兩個文本框中顯示的值分別為

A)1和0B)2和72C)3和50D)4和168

(20)閱讀程序：

PrivateSubCommandl_Click()

a=0

Forj=lTo15

a=a+jMod3

Nextj

Printa

EndSub

程序運(yùn)行后，單擊窗體，輸出結(jié)果是

A)105B)1C)120D)15

(21)以卜說法中正確的是

A)當(dāng)焦點(diǎn)在某個控件上時，按下一個字母鍵，就會執(zhí)行該控件的KeyPress事務(wù)過程

B)因?yàn)榇绑w不接受焦點(diǎn)，所以窗體不存在自己的KeyPress事務(wù)過程

C)若按下的鍵相同，KeyPress事務(wù)過程中的KeyAscii參數(shù)與KeyDown事務(wù)過程中

的KeyCode參數(shù)的值也相同

D)在KeyPress事務(wù)過程中，KeyAscii參數(shù)可以省略

(22)語句Dima(-3To4,3To6)AsInteger定義的數(shù)組的元素個數(shù)是

A)18B)28C)21D)32

(23)在窗體上畫一個吩咐按鈕，其名稱為Commandl,然后編寫如下代碼：

OptionBase1

PrivateSubCommandl_Click()

Dima

aArray。，2Z3,4)

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

程序運(yùn)行后，單擊吩咐按鈕，其輸出結(jié)果是

A)4321B)1234C)34D)12

(24)假定通過復(fù)制，粘貼操作建立了一個吩咐按鈕數(shù)組Commands以下說法中錯誤

的是

A)數(shù)組中每個吩咐按鈕的名稱(Name屬性)均為Command1

B)若未做修改,數(shù)組中每個吩咐按鈕的大小都一樣

C)數(shù)組中各個吩咐按鈕運(yùn)用同一個Click事務(wù)過程

D)數(shù)組中每個吩咐按鈕的Index屬性值都相同

(25)在窗體上畫一個吩咐按鈕，名稱為Commandl,然后編寫如下代碼：

OptionBase0

PrivateSubCommandl_Click()

DimAl(4)AsInteger,A2(4)AsInteger

Fork=0To2

Al(k+1)=InputBox,請輸入一個整數(shù)”)

A2(3-k)Al(k+1)

Nextk

PrintA2(k)

EndSub

程序運(yùn)行后，單擊吩咐按鈕，在輸入對話框中依次輸入2、4、6則輸出結(jié)果為

A)0B)1C)2D)3

(26)以下關(guān)于函數(shù)過程的敘述中，正確的是

A)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系

B)在函數(shù)過程中，過程的返回值可以有多個

C)當(dāng)數(shù)組作為函數(shù)過程的參數(shù)是，既能以傳值方式傳遞，也能以傳址方式傳遞

D)假如不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型

(27)在窗體上畫兩個標(biāo)簽按鈕和一個吩咐按鈕，其名稱分別為Labell、Label2和

Commandl,

然后編寫如下程序：

PrivateSubfunc(LAsLabel)

L.Caption="1234"

EndSub

PrivateSubForm_Load()

Labell.Caption="ABCDE"

Label2.Caption=10

EndSub

PrivateSubCommandl_Click()

aVal(Labcl2.Caption)

Callfunc(Labell)

Label2,Caption=a

EndSub

程序運(yùn)行后，單擊吩咐按鈕，則在兩個標(biāo)簽中顯示的內(nèi)容分別為

A)ABCD和10B)1234和100C)ABCD和100D)1234和10

(28)在窗體上畫一個吩咐按鈕(名稱為Commandl),并編寫如下代碼：

Functionfunl(ByValaAsInteger,bAsInteger)AsInteger

DimtAsInteger

t=a-b

b=t+a

funl=t+b

EndFunction

PrivateSubCommandl_Click()

DimxAsInteger

x=10

Printfunl(funl(xz(funl(x,x-1))),x-1)

EndSub

程序運(yùn)行后，單擊吩咐按鈕，輸出結(jié)果是

A)10B)0C)llD)21

(29)以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是

A）過程的參數(shù)可以是控件名稱

B)調(diào)用過程時運(yùn)用的實(shí)參的個數(shù)應(yīng)與過程形參的個數(shù)相同

C)只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中

D)窗體可以作為過程的參數(shù)

(30)設(shè)有如下通用過程

PublicFunctionFun(xStrAsString)AsString

DimtStrAsString,strLAsInteger

tStr=""

strL=Len(xStr)

i=strLi2

DoWhilei<=strL

tStr=tStr&Mid(xStr,i+1,1)

i=i+1

Loop

Fun=tStr&tStr

EndFunction

在窗體上畫一個名稱為Textl的文本框和一個名稱為Commandl的吩咐按鈕。然后編

寫如

下事務(wù)過程

PrivateSubCommandl_Click()

DimSIAsString

SI="ABCDEF"

Textl.TextLCasc(Fun(Sl))

EndSub

程序運(yùn)行后，單擊吩咐按鈕，文本框中顯示的是

A)ABCDEFBiabcdefC)defdefD)defabc

(31)在窗體上畫一個吩咐按鈕和一個文本框(名稱分別為Commandl和Textl)，并把

窗體

的KeyPreview屬性設(shè)置為True,然后編寫如下代碼：

DimSaveAIIAsString

PrivateSubForm_Load()

Show

Textl.Text=""

Textl.SetFocus

EndSub

PrivateSubCommandl_Click()

Textl.Text=LCase(SaveAII)+SaveAII

EndSub

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

SaveAII=SaveAII+Chr(KeyAscii)

EndSub

程序運(yùn)行后，干脆用鍵盤輸入：VB,再單擊吩咐按鈕則文本框中顯示的內(nèi)容為

A)vbVBB)不顯示任何信息C)VBD)出錯

(32)設(shè)有以下程序

PrivateSubForm_Click()

X50

Fori=1To4

y=InputBox，請輸入一個整數(shù)”)

y=Val(y)

IfyMod5=0Then

a=a+y

x=y

Else

a=a+x

EndIf

Nexti

Printa

EndSub

程序運(yùn)行后，單擊窗體，在輸入對話框中依次輸入15,24,35,46,輸出結(jié)果為

A)100B)50C)120D)70

(33)以下關(guān)于菜單的敘述中，錯誤的是

A)當(dāng)窗體為活動窗體時，用Ctrl+E鍵可以打開菜單編輯器

B)把菜單項(xiàng)的Enabled屬性設(shè)置為False,則可刪除該菜單項(xiàng)

C)彈出式菜單在菜單編輯器中設(shè)計

D)程序運(yùn)行時，利用控件數(shù)組可以實(shí)現(xiàn)菜單項(xiàng)的增加或削減

（34）以下敘述中錯誤的是

A）在程序運(yùn)行時，通用對話框控件是不行見的

B）調(diào)用同一個通用對話框控件的不同方法（如ShowOpen或ShowSave）可以打開不

同的對話框窗口

C）調(diào)用通用對話框控件的ShowOpen方法，能夠干脆打開在該通用對話框中指定的

文件

D）調(diào)用通用對話框控件的ShowColor方法，可以打開顏色對話框窗口

（35）設(shè)在工程文件中有一個標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型：

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

在窗體上畫一個名為Command1的吩咐按鈕，要求當(dāng)執(zhí)行事務(wù)過程Commandl_Click

時，在依次文件Person.txt中寫入一條Books類型的記錄，下列能夠完成該操作的事務(wù)過

程是

A）PrivateSubCommandl_Click（）

DimBAsBooks

Open"Person.txt"ForOutputAs#1

B.Name=InputBox（"輸入姓名”）

B.Name=InputBox（"輸入電話號碼”）

Write#1,B.Name,B.TelNum

Close#1

EndSub

B)PrivateSubCommandl_Click()

DimBAsBooks

Open"Person.txt"ForOutputAs#1

B.Name=InputBox("輸入姓名”)

B.Name=InputBox("輸入電話號碼”)

Print#1,B.Name,B.TelNum

Close#1

EndSub

C)PrivaleSubCommandl_Click()

DimBAsBooks

Open"Person.txt"ForOutputAs#1

B.Name=InputBox，輸入姓名”)

B.Name=InputBox("輸入電話號碼”)

Write#1,B

Close#1

EndSub

D)PrivateSubCommandl_Click()

DimBAsBooks

Open"Person.txt"ForOutputAs#1

B.Name=InputBox("輸入姓名”)

B.NameInputBox（"輸入電話號碼”）

Print#1,Name,TelNum

Close#1

EndSub

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

(1)假設(shè)用一個長度為50的數(shù)組(數(shù)組元素的下標(biāo)從0到49)作為棧的存儲空間，棧底

指針bottom指向棧底元素，棧頂指針top指向棧頂元素，假如

bottom=49,top=30(數(shù)

租下標(biāo))，則棧中具有【1】個元素

(2)軟件測試可分為白盒測試和黑盒測試?；韭窂綔y試屬于【2】測試

(3)符合結(jié)構(gòu)化原則的三種基本限制結(jié)構(gòu)是:選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)和【3】

(4)數(shù)據(jù)庫系統(tǒng)的核心是【4】

(5)在E-R圖中，圖形包括矩形框、菱形框、橢圓框。其中表示實(shí)體聯(lián)系的是【5】框

(6)窗體如圖所示，其中汽車是名稱為Imagel的圖像框，吩咐按鈕的名稱Commandl,

計時器的名稱為Timerl,直線的名稱為Linel。程序運(yùn)行時，單擊吩咐按鈕，則

汽車每0.1秒向左移動100,車頭到達(dá)左邊的直線時停止移動。請?zhí)羁胀瓿上旅?/p>

的屬性設(shè)置和程序，以便實(shí)現(xiàn)上述功能。

l)Timerl的Interval屬性的值應(yīng)事先設(shè)置為【6】

2)PrivateSubCommandl_Click()

Timerl.Enabled=True

EndSub

3)PrivateSubTimerl_Timer()

IfImagel.Left>[7]Then

Imagel.Left=[8]-100

EndIf

EndSub

7?上題【7】的答案是

8.上一題【8】的答案是

9.⑺設(shè)窗體上有一個名稱為Combol的組合框，并有以下程序:

PrivateSubCombol_KeyPressfKeyAsciiAsInteger)

If[9]=13Then

Fork=0ToCombol.ListCount-1

IfCombol.Text=Combol.List(k)Then

Combol.Text=""

ExitFor

EndIf

Nextk

IfCombol.Text<>""Then

Combol.Additem[10]

EndIf

EndIf

EndSub

程序的功能是：在組合框的編輯區(qū)中輸入文本后按回車鍵，則檢查列表中

有無與此文本相同的項(xiàng)目，若有，則把編輯區(qū)中的文本刪除，否則把編輯

區(qū)中的文本添加到列表的尾部。請?zhí)羁铡?/p>

10.上一題[10]的答案是

11.(8)在當(dāng)前節(jié)目下有一個名為“myfile.txt”的文本文件，其中有若干行文本。下面程序

的

功能是讀入此文件中的全部文本行，按行計算每行字符的ASCII碼之和，并顯示在窗

體上。

請?zhí)羁?/p>

PrivateSubCommandl_Click()

Dimch$,asciiAsInteger

Open"myfile.txt"For[11]As#1

WhileNotEOF(l)

LineInput#1,ch

ascii=toascii([12])

Printascii

Wend

Close#1

EndSub

PrivateFunctiontoascii(mystr$)AsInteger

n=0

Fork=1To[13]

n=n+Asc(Mid(mystrzkz1))

Nextk

toascii=n

EndFunction

12.上一題【12】的答案是

13.上一題[13]的答案是

14.(9)本程序?qū)崿F(xiàn)文本加密。先給定序列:al,a2,…,an,它們的取值范圍是l~n,而且互

不相同。加密算法是:把原文本中第k個字符放到加密后文本的第ak個位置處。若原

文本長度大于n,則只對前面n個字符加密，后面的字符不變；若原文本長度小于n,

在后面補(bǔ)字符"*”使文本長度為n后再加密。

例如：若給定序列al,a2,...a7分別為2,5,3,7,6」,4

當(dāng)文本為''PROGRAM”時,加密后的文本為“APOM