2023年計(jì)算機(jī)等級(jí)考試二級(jí)語言筆試試題及答案

2023年9月

全國計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷

公共基礎(chǔ)知識(shí)和VisualBasic語言程序設(shè)計(jì)

(考試時(shí)間90分鐘，滿分100分)

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

下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中,只有一種選項(xiàng)是對(duì)由請(qǐng)將對(duì)的選項(xiàng)填涂在答題

卡對(duì)應(yīng)位置上，答在試卷上不得分。

(1)下列論述中對(duì)的I的是CO

A.程序設(shè)計(jì)就是編制程序B.程序的測(cè)試必須由程序員自己去完畢

C.程序經(jīng)調(diào)試改錯(cuò)后還應(yīng)進(jìn)行再測(cè)試D.程序經(jīng)調(diào)試改錯(cuò)后不必進(jìn)行再測(cè)試

(2)下列數(shù)據(jù)構(gòu)造中，能用二分法進(jìn)行查找的是A__________。

A.次序存儲(chǔ)的有序線性表B.線性鏈表C.二叉鏈表D.有序線性鏈表

(3)下列有關(guān)棧的描述對(duì)的的是C。

A.在棧中只能插入元素而不能刪除元素

B.在棧中只能刪除元素而不能插入元素

C.棧是特殊的線性表,只能在一端插入或刪除元素

D.棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素

(4)下列論述中對(duì)的的是D。

A.一種邏輯數(shù)據(jù)構(gòu)造只能有一種存儲(chǔ)構(gòu)造

B.數(shù)據(jù)的邏輯構(gòu)造屬于線性構(gòu)造，存儲(chǔ)構(gòu)造屬于非線性構(gòu)造

C.一種邏輯數(shù)據(jù)構(gòu)造可以有多種存儲(chǔ)構(gòu)造，且多種存儲(chǔ)構(gòu)造不影響數(shù)據(jù)處理的效率

D.一種邏輯數(shù)據(jù)構(gòu)造可以有多種存儲(chǔ)構(gòu)造且多種存儲(chǔ)構(gòu)造影響數(shù)據(jù)處理的效率

(5)下列描述中對(duì)的的是C。

A.軟件工程只是處理軟件項(xiàng)目的管理問題

B.軟件工程重要處理軟件產(chǎn)品的生產(chǎn)率問題

C.軟件工程日勺重要思想是強(qiáng)調(diào)在軟件開發(fā)過程中需要應(yīng)用工程化原則

D.軟件工程只是處理軟件開發(fā)中的技術(shù)問題

(6)在軟件設(shè)計(jì)中，不屬于過程設(shè)計(jì)工具的是D。

A.PDL(過程設(shè)計(jì)語言)B.PAD圖C.N-S圖D.DFD圖

(7)下列論述中對(duì)的的是A。

A.軟件交付使用后還需要進(jìn)行維護(hù)B.軟件一旦交付使用就不需要再進(jìn)行維護(hù)

C.軟件交付使用后其生命周期就結(jié)束D.軟件維護(hù)是指修復(fù)程序中被破壞的指令

(8)數(shù)據(jù)庫設(shè)計(jì)的主線目的是要處理A。

A.數(shù)據(jù)共享問題B.數(shù)據(jù)安全問題C.大量數(shù)據(jù)存儲(chǔ)問題D.簡化數(shù)據(jù)維護(hù)

(9)設(shè)有如下關(guān)系表：

RST

ABCABCABC

112313112

223223

313

則下列操作中對(duì)的的I是B。

A.T=RASB.T=RUSC.T=RXSD.T=R/S

（10）數(shù)據(jù)庫系統(tǒng)的關(guān)鍵是B0

A.數(shù)據(jù)模型B.數(shù)據(jù)庫管理系統(tǒng)C.數(shù)據(jù)庫D.數(shù)據(jù)庫管理員

（11）假定一種Visua1Basic應(yīng)用程序由一種窗體模塊和一種原則模塊構(gòu)成。為了保留該

應(yīng)用程序,如下對(duì)日勺的操作是B。

A.只保留窗體模塊文獻(xiàn)B.分別保留窗體模塊、原則模塊和工程文獻(xiàn)

C.只保留窗體模塊和原則模塊文獻(xiàn)D.只保留工程文獻(xiàn)

（12）為了清除窗體上的一種控件，下列對(duì)附時(shí)操作是Co

A.按回車鍵

B.按Esc鍵

C.選擇（單擊）要清除口勺控件,然后按Del鍵

D.選擇（單擊）要清除的控件，然后按回車鍵

（13）如下論述中錯(cuò)誤的是C。

A.打開一種工程文獻(xiàn)時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的）窗體、原則模塊等文獻(xiàn)

B.當(dāng)程序運(yùn)行時(shí)，雙擊一種窗體，則觸發(fā)該窗體的DblClick事件

C.VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行

D.事件可以由顧客引起，也可以由系統(tǒng)引起

(14)設(shè)@=2,b=3,c=4,d=5,下列體現(xiàn)式口勺值是___D____________0

Nota<=cOr4*c=bA2Andboa+c

A.-1B.lC.TrueD.False

(15)設(shè)a=5,b=10,則執(zhí)行c=Int((b-a)*Rnd+a)+1后,c值的)范圍為

Co

A.5-10B.6?9C.6-10D.5?9

(16)在窗體上畫一種命令按鈕,名稱為Command1，然后編寫如下事件過程：

PrivateSubCommandl_Click()

a$="softwareandhardware"

b$=Right(a$,8)

c$=Mid(a$,1,8)

MsgBoxa$,b$,c$,1

EndSub

運(yùn)行程序，單擊命令按鈕，則在彈出的信息框的標(biāo)題欄中顯示的是C。

A.softwareandhardwareB.softwareC.hardwareD.-1

(17)在窗體上畫一種命令按鈕和一種文本框其名稱分別為Command1和Textl,把文本

框的Text屬性設(shè)置為空白，然后編寫如下事件過程：

PrivateSubCommandl_Click()

a=InputBox(nEnteraninteger")

b=InputBox("Enteraninteger")

Textl.Text=b+a

EndSub

程序運(yùn)行后，單擊命令按鈕假如在輸入對(duì)話框中分別輸入8和10,則文本框中顯示的內(nèi)容

是A。

A.108B.18C.810D.出錯(cuò)

(18)在窗體上畫兩個(gè)文本框，其名稱分別為Textl和Text2,然后編寫如下程序：

PrivateSubForm_Load()

Show

Textl.Text="H

Text2.Text=

Textl.SetFocus

EndSub

PrivateSubText1_Change()

Text2.Text=Mid(Textl.Text,8)

EndSub

程序運(yùn)行后,假如在文本框Textl中輸入BeijingChina則在文本框Text2中顯示H勺內(nèi)容是

Bo

A.BeijingChinaB.ChinaC.BeijingD.BeijingC

(19)在窗體上畫一種列表框和一種命令按鈕淇名稱分別為Listl和Commandl,然后編寫

如下事件過程：

PrivateSubForm_Load()

List1.AddItem”Item10

List1.AddItem”Item2”

Listl.AddItem"Item3”

EndSub

PrivateSubCommandl_C1ick()

Listl.List(Lis11.ListCount)="AAAA”

EndSub

程序運(yùn)行后，單擊命令按鈕，其成果為Bo

A.把字符串“AAAA”添加到列表框中，但位置不能確定

B.把字符串“AAAA”添加到列表框的最終(即“Item3”的背面)

C.把列表框中原有的最終一項(xiàng)改為“AAAA”

D.把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)

(20)假定有如下事件過程：

PrivateSubForm_Click()

DimxAsInteger,nAsInteger

1

n0

DoWhilex<28

x=x*3

n=n+1

Loop

Printx,n

EndSub

程序運(yùn)行后，單擊窗體，輸出成果是A

A.814B.563C.281D.2435

(21)有如下程序：

PrivateSubForm_C1ick()

DimCheek,Counter

Check=True

Counter=0

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=Fa1se

ExitDo

EndIf

Loop

LoopUnti1Check=False

PrintCounter,Check

EndSub

程序運(yùn)行后，單擊窗體，輸出成果為Do

A.150B.20-1C.10TrueD.10False

(22)有如下程序：

PrivateSubForm_C1ick()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod2<>0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

程序運(yùn)行后，單擊窗體，輸出成果為Ao

A.12B.30C.24D.18

(23)在窗體上.畫一種名稱為Textl歡)文本框和--種名稱為Commandl的I命令按鈕，然后編寫

如下事件過程:

PrivateSubCommand1_C1ick()

Dimarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

array1(i,j)=i+j

Nextj

Nexti

Textl.Text=array1(2,3)+arrayl(3,4)

EndSub

程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的J值是Ao

A.12B.13C.14D.15

(24)在窗體上畫一種命令按鈕，其名稱為Command］，然后編寫如下事件過程:

PrivateSubCommandl_C1ick()

Dima1(4,4),a2(4,4)

Fori=1To4

Forj=1To4

al(i,j)=i+j

a2(i,j)=al(i,j)+i+j

Nextj

Nexti

Printal(3,3);a2(3,3)

EndSub

程序運(yùn)行后,單擊命令按鈕，在窗體上輸出的是D、

A.66B.105C.721D.612

(25)有如下程序：

0ptionBase1

PrivateSubForm_C1ick()

Dimarr,Sum

Sum=0

arr=Array。，3,5,7,9,11,13,15,17,19)

Fori=1To10

Ifarr(i)/3=arr(i)\3Then

Sum=Sum+arr(i)

EndIf

Nexti

PrintSum

EndSub

程序運(yùn)行后，單擊窗體，輸出成果為C

A.25B.26C.27D.28

(26)在窗體上畫一種命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_C1ick()

Dima(5)AsString

Fori=1TO5

a(i)=Chr(Asc(nAn)+(i-1))

Nexti

ForEachbIna

Printb；

Next

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出成果是A。

A.ABCDEB.12345C.abcdeD.出錯(cuò)信息

(27)如下有關(guān)函數(shù)過程的論述中，對(duì)時(shí)時(shí)是D。

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

B.函數(shù)過程的返回值可以有多種

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

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

(28)函數(shù)過程F1的功能是：假如參數(shù)b為奇數(shù)，則返回值為1,否則返回值為0。如下能

對(duì)的實(shí)現(xiàn)上述功能的I代碼是B

A.FunctionF1(bAsinteger)

IfbMod2=0Then

Retum0

Else

Return1

EndIf

EndFunction

B.FunctionFl(bAsInteger)

IfbMod2=0Then

Fl=0

Else

Fl=1

EndIf

EndFunction

C.FunctionFl(bAsInteger)

IfbMod2=OThen

Fl=1

Else

Fl=0

EndIf

EndFunction

D.FunctionFl(bAsInteger)

IfbMod2<>0Then

Retum0

Else

Return1

EndIf

EndFunction

(29)如下有關(guān)KeyPress事件過程中參數(shù)KeyAscii的論述中對(duì)的的是

Ao

A.KeyAscii參數(shù)是所按鍵曰勺ASCII碼B.KeyAscii參數(shù)日勺數(shù)據(jù)類型為字符串

C.KeyAscii參數(shù)可以省略D.KeyAscii參數(shù)是所按鍵上標(biāo)注的字符

(30)設(shè)窗體上有一種名為Textl的文本框，并編寫如下程序：

PrivateSubForm_Load()

Show

Textl.Text二””

Textl.SetFocus

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAs

Single,YAsSingle)

Print”程序設(shè)計(jì)”

EndSub

PrivateSubTextl_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

PrintnVisualBasic";

EndSub

程序運(yùn)行后，假如在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內(nèi)容是

CO

A.VisualBasicB.程序設(shè)計(jì)C.VisualBasic程序設(shè)計(jì)D.a程序設(shè)計(jì)

（31）假定有下表所列的菜單構(gòu)造：

標(biāo)題名稱層次

顯示appear。1（主菜單）

大圖標(biāo)bigicon?2（子菜單）

小圖標(biāo)smallicon?2（子菜單）

規(guī)定程序運(yùn)行后，假如單擊菜單項(xiàng)“大圖標(biāo)”，則在該菜單項(xiàng)前添加一種如下對(duì)的的

事件過程是C。

A.PrivateSubbigicon_Click()

bigicon.Checked=False

EndSub

B.PrivateSubbigicon_C1ick()

Me.appear.bigicon.Checked=True

EndSub

C.PrivateSubbigicon_Click()

bigicon.Cheeked=True

EndSub

D.PrivateSubbigicon_C1ick()

appear.bigicon.Cheeked=True

EndSub

(32)假定通用對(duì)話框的名稱為CommonDialog1,命令按鈕的名稱為Command1,則單

擊命令按鈕后，能使打開的對(duì)話框的標(biāo)題為“NewTitle"的事件過程是C。

A.PrivateSubCommand1_C1ick()

CommonDialog1.DialogTit1e="NewTitle0

CommonDia1og1.ShowPrinter

EndSub

B.PrivateSubCommandl_Click()

CommonDialogl.DialogTitle=nNewTitle"

CommonDialog1.ShowFont

EndSub

C.PrivateSubCommandl_Click()

CommonDialog1.DialogTitie="NewTitie"

CommonDialogl.ShowOpen

EndSub

D.PrivateSubCommandl_C1ick()

CommonDialogl.DialogTit1e=nNewTitle1'

CommonDia1ogl.ShowCo1or

EndSub

(33)假如一種工程具有多種窗體及原則模塊，則如下論述中錯(cuò)誤的是

Do

A.任何時(shí)刻最多只有一種窗體是活動(dòng)窗體

B.不能把原則模塊設(shè)置為啟動(dòng)模塊

C.用Hide措施只是隱藏一種窗體，不能從內(nèi)存中清除該窗體

D.假如工程中具有SubMain過程,則程序一定首先執(zhí)行該過程

(34)假定在工程文獻(xiàn)中有一種原則模塊，其中定義了如下記錄類型

TypeBooks

NameAsString*10

TeINumAsString*20

EndType

規(guī)定當(dāng)執(zhí)行事件過程Commandl_Click時(shí)，在次序文獻(xiàn)Person.txt中寫入一條記錄。下

列可以完畢該操作的事件過程是Ao

A.PrivateSubCommandl_Click（）

DimBAsBooks

Openuc:\Person.txt"ForOutputAs#1

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

B.TelNum=InputBox（“輸入號(hào)碼”）

Write#1,B.Name,B.Te1Num

C1ose#1

EndSub

B.PrivateSubCommandl_Click（）

DimBAsBooks

Opennc:\Person.txt"ForInputAs#1

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

B.TelNum=InputBox（"輸入號(hào)碼”）

Print#1,B.Name,B.TelNum

Close#1

EndSub

C.PrivateSubCommandl_C1ick（）

DimBAsBooks

Open"c:\Person.txtMForOutputAs#1

Name=InputBox（"輸入姓名”）

TelNum=InputBox（"輸入號(hào)碼”）

Write#1,B

Close#1

EndSub

D.PrivateSubCommandl_Click（）

DimBAsBook

Open"c:\Person.txt"ForInputAs#1

Name=InputBox（"輸入姓名”）

TelNum=InputBox（n輸入號(hào)碼”）

Print#1,B.Name,B.TeINum

Close#1

EndSub

（35）目錄列表框的Path屬性歐|作用是B

A.顯示目前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文獻(xiàn)名

B.顯示目前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄構(gòu)造

C.顯示根目錄下的文獻(xiàn)名

D.顯示指定途徑下的文獻(xiàn)

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

請(qǐng)將每空的對(duì)的答案寫在答題卡【1】~[15]序號(hào)的橫線上，答在試卷上不得分。

（1）數(shù)據(jù)管理技術(shù)發(fā)展過程通過人工管理、文獻(xiàn)系統(tǒng)和數(shù)據(jù)庫系統(tǒng)三個(gè)階段，其中數(shù)據(jù)獨(dú)立

性最高的階段是11】.

（2）算法復(fù)雜度重要包括時(shí)間復(fù)雜度和【2】復(fù)雜度。

（3）在進(jìn)行模塊測(cè)試時(shí)，要為每個(gè)被測(cè)試的模塊此外設(shè)計(jì)兩類模塊：驅(qū)動(dòng)模塊和承接模塊（樁

模塊）。其中【3】的作用是將測(cè)試數(shù)據(jù)傳送給被測(cè)試的模塊，并顯示被

測(cè)試模塊所產(chǎn)生的成果。

（4）一棵二叉樹第六層（根結(jié)點(diǎn)為第一層）的結(jié)點(diǎn)數(shù)最多為【4】個(gè)。

（5）數(shù)據(jù)構(gòu)造分為邏輯構(gòu)造和存儲(chǔ)構(gòu)造循環(huán)隊(duì)列屬于【5】構(gòu)造。

（6）設(shè)有如下函數(shù)過程：

Functionfun（mAsInteger）AsInteger

DimkAsInteger,sumAsInteger

sum=0

Fork=mTo1Step-2

sum=sum+k

Nextk

fun=sum

EndFunction

若在程序中用語句S=fun(10)調(diào)用此函數(shù)，則s的值為【6】。

(7)在窗體上畫一種命令按鈕和一種文本楣然后編寫命令按鈕的Click事件過程。程序運(yùn)

行后，在文本框中輸入一串英文字母(不辨別大小寫)，單擊命令按鈕，程序可找出未在文

本框中輸入的其他所有英文字母，并以大寫方式降序顯示到Text1中。例如，若在Textl中輸

入H勺是abDfdb,則單擊Commandl按鈕后Textl中顯示的字符串是ZYXWVUTSRQP

ONMLKJIHGECo請(qǐng)?zhí)羁铡?/p>

PrivateSubCommandl_Click()

DimstrAsS(ring,sAsString,cAsString

str=UCase(Text1)

s二"”

c二"Z"

Whilec>="A”

IfInStr(str,c)=0Then

s=[7]

EndIf

c=Chr$(Asc(c)[8])

Wend

IfsoThen

Textl=s

EndIf

EndSub

(8)在n個(gè)運(yùn)動(dòng)員中選出任意r個(gè)人參與比賽，有諸多種不一樣的選法,選法的個(gè)數(shù)可以用公

n!

式S-r)!r!計(jì)算。下圖窗體中3個(gè)文本框的I名稱依次是Text1、Text2、Text3。

程序運(yùn)行時(shí)在Text1、Text2中分別輸入n和r時(shí)值，單擊Command1按鈕即可求出選

法H勺個(gè)數(shù)，并顯示在Text3文本框中(見下圖)。請(qǐng)?zhí)羁铡?/p>

PrivateSubCommand1_C1ick()

DimrAsInteger,nAsInteger

n=Textl

r=Text2

Text3=fun(n)/fun([9])/fun(r)

EndSub

Functionfun(nAsInteger)as1ong

DimtAsLong

【10】

Fork=1Ton

t=t*k

Next

fun=t

EndFunction

(9)如下是一種比賽評(píng)分程序。在窗體上建立一種名為Textl的文本框數(shù)組，然后畫一種名

為Text2的文本框和名為Command1的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，

單擊“計(jì)算得分”命令按鈕，則最終得分顯示在Text2文本框中(去掉一種最高分和一種最

低分后的平均分即為最終得分)，如圖所示。請(qǐng)?zhí)羁铡?/p>

PrivateSubCommandl_Click()

DimkAsInteger

DimsumAsSing1e,maxAsSingle,minAsSing1e

sum=Text1(0)

max=Text1(0)

min=________【11]___________

Fork=【12】To6

Ifmax<Text1(k)Then

max=Text1(k)

EndIf

If