2023年9月VB筆試試題

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

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

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

（I）下列論述中對(duì)依山、J是（）。

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

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

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

A）次序存儲(chǔ)口勺有序線性表B）線性鏈表

C）二叉鏈表D）有序線性鏈表

（3）下列有關(guān)棧的描述對(duì)1勺的是（）。

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

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

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

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

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

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ù)處理U勺效率

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

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

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

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

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

（6）在軟件設(shè)計(jì)中，不屬F過程設(shè)計(jì)工具的是（）0

A）PDL（過程設(shè)計(jì)語(yǔ)言）B）PAD圖

C）N-S圖D）DFD圖

（7）下列論述中對(duì)時(shí)時(shí)是（）。

A）軟件交付使用后還需要進(jìn)行維護(hù)

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

C）軟件交付使用后其生命周期就結(jié)束

D）軟件維護(hù)是指修復(fù)程序中被破壞的指令

（8）數(shù)據(jù)庫(kù)設(shè)計(jì)的主線目的是要處理（）o

A）數(shù)據(jù)共享問題B）數(shù)據(jù)安全問題

C）大量數(shù)據(jù)存儲(chǔ)問題D）簡(jiǎn)化數(shù)據(jù)維護(hù)

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

RST

ABCABCABC

112313112

223223

3I3

則下列操作中對(duì)口勺H勺是（）。

A）T=RPSB）T=RUSC）T=RxSD）T=R/S

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

A）數(shù)據(jù)模型B）數(shù)據(jù)庫(kù)管理系統(tǒng)

C）數(shù)據(jù)庫(kù)D）數(shù)據(jù)庫(kù)管理員

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

序，如下對(duì)的的操作是

（）。

A）只保留窗體模塊文獻(xiàn)

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

C）只保留窗體模塊和原則模塊文獻(xiàn)

D）只保留工程文獻(xiàn)

<12）為了清除窗體上的一種控件，下列對(duì)H勺的操作是（］

A）按回車鍵

B）按Esc鍵

C）選擇（單擊）要清除的控件，然后按Del鍵

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

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

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è)a=2,b=3,c=4,d=5,下列體現(xiàn)式的I值是（）。

Nota<=cOr4*c=bA2Andb<>a+c

A）-1B）1C）TrueD）False

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

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$,I

EndSub

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

A)softwareandhardwareB)softwareC)hardwareD)1

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

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

PrivateSubCommandl_CIick()

a=Inpu(Box("Enteraninteger*')

b=InputBox("Enteraninteger")

Text1.Text=b+a

EndSub

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

()。

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

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

PrivateSubForm_Load()

Show

Textl.Text='M,

Text2.Text="n

Textl.SetFocus

EndSub

PrivateSubTextl_Change()

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

EndSub

程序運(yùn)行后，假如在文本框Textl中輸入BeijingChina,貝I」在文本框Texl2中顯示的內(nèi)容是()。

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

(19)在窗體上畫一種列表框和一種命令按鈕，其名稱分別為L(zhǎng)istl和Commandl,然后編寫如下

事件過程：

PrivateSubForm_Load()

List1.Additem"Item1"

Listl.Additem"Item2"

Listl.Addllem"Item3"

EndSub

PrivateSubCommandl_Click()

Listl.List(Lisll.ListCount)="AAAA"

EndSub

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

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

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

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

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

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

PrivateSubFonn_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<28

x=x*3

n=n+1

Loop

Printx,n

EndSub

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

A)814B)563

C)281D)2435

(21)有如下程序：

PrivateSubForm_Click()

DimCheck,Counter

Check=True

Counter=0

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter,Check

EndSub

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

A)150B)20-1

C)10TrueD)10False

(22)有如下程序：

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod2<>0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

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

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

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

下事件過程：

PrivateSubCommandl_Click()

Dimarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

arrayl(i,j)=i+j

Nextj

Nexti

Text1.Text=array1(2.3)+array1(3.4)

EndSub

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

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

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

PrivateSubCommandl_Click()

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)行后，單擊命令按鈕，在窗體上輸出口勺是()。

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

(25)有如下程序：

OptionBaseI

PrivateSubForm_Click()

Dimair.Sum

Sum=0

arr=Array(l,3,5,7,9,11,13,15,17,19)

Fori=1To10

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

Sum=Sum+arr(i)

EndIf

Nexti

PrintSum

EndSub

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

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

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

PrivateSubCommandl_Click()

Dima(5)AsString

Fori=1To5

a(i)=Chr(Asc("A")+(i-l))

Nexti

ForEachbIna

Printb;

Next

EndSub

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

A)ABCDEB)12345

C)abcdeD)出錯(cuò)信息

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

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

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

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

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

(28)函數(shù)過程F1的功能是：假如參數(shù)b為奇數(shù)，則返回值為I,否則返回值為伍如下能對(duì)的

實(shí)現(xiàn)上述功能II勺代碼是()。

A)FunctionFl(bAsInteger)

IfbMod2=OThen

Return0

Else

Return1

EndIf

EndFunction

B)FunctionFl(bAsInteger)

IfbMod2=0Then

Fl=0

Else

Fl=1

EndIf

EndFunction

C)FunctionFl(bAsInteger)

IfbMod2=0Then

Fl=1

Else

Fl=0

EndIf

EndFunction

D)FunctionFl(bAsInteger)

IfbMod2<>0Then

Return0

Else

Return1

EndIf

EndFunction

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

A)KeyAscii參數(shù)是所按鍵的ASCII碼

B)KeyAscii參數(shù)的數(shù)據(jù)類型為字符串

C)KeyAscii參數(shù)可以省略

D)KcyAscii參數(shù)是所按鍵上標(biāo)注的字符

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

PrivateSubForni_Load()

Show

Textl.Text=,"'

Tcxtl.SetFocus

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

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

EndSub

PrivateSubTextI_KeyDowr(KeyCodeAsInteger,ShiftAsInteger)

Print"VisualBasic";

EndSub

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

A)VisualBasicB)程序設(shè)計(jì)

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

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

標(biāo)題名稱層次

顯示appear1（主菜單）

大圖標(biāo)bigicon2（子菜單〕

小圖標(biāo)smallicon2（,子菜心）

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

過程是()。

A)PrivateSubbigicon_Click()

bigicon.Checked=False

EndSub

B)PrivateSubbigicon_Click()

Me.appear.bigicon.Checked=True

EndSub

C)PrivateSubbigicon_Click()

bigicon.Checked=True

EndSub

D)PrivateSubbigicon_Click()

appear.higicon.Checked=Tme

EndSub

(32)假定通用對(duì)話框的J名稱為CommonDialogl,命令按鈕依J名稱為Command!,則單擊命令按

鈕后，能使打開的對(duì)話框的標(biāo)題為“NewTitle”R勺事件過程是()。

A)PrivateSubCommandl_Click()

CommonDialogl.DialogTitlc="NewTitle"

CommonDialog1.ShowPrinter

EndSub

B)PrivateSubCommandl_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialog1.ShowFont

EndSub

C)PrivateSubCommandl_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialog1.ShowOpen

EndSub

D)PrivateSubCuiniiiaiidl_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialog!.ShowColor

EndSub

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

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

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

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

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

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

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

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

該操作的事件過程是（）。

A）PrivateSubCommandl_Click（）

DimBAsBooks

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

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

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

Write#1,B.Name,B.TelNum

Close#1

EndSub

B）PrivateSubCommandl_Click（）

DimBAsBooks

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

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

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

Print#1,B.Name,B.TelNum

Close#I

EndSub

C）PrivateSubCommandl_Click（）

DimBAsBooks

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

Name=InputBox（"輸入姓名”）

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

Write#I,B

Close#1

EndSub

D）PrivateSubCommandl_Click（）

DimBAsBook

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

Name=InputBox（"輸入姓名”）

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

Print#1,B.Namc,B.TclNum

Close#1

EndSub

（35）目錄列表框『、JPalh屬性的J作用是（）。

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

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

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

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

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

請(qǐng)將每空H勺對(duì)H勺答案寫在答題卡［1】?【15】序號(hào)時(shí)橫線上，答在試卷上不得分。

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

高的階段是11】。

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

（3）在進(jìn)行模塊測(cè)試時(shí)，要為每個(gè)被測(cè)試H勺模塊此外設(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

若在程序中用語(yǔ)句s=fun(IO)調(diào)用此函數(shù)，則s的值為【610

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

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

H勺其他所有英文字母，并以大寫方式降序顯示到Textl中。例如，若在Tex〔l中輸入的是abDfdb,

則單擊Command1按鈕后Textl中顯示IJ勺字符串是ZYXWVUTSRQPONMLKJIHGEC。請(qǐng)?zhí)羁铡?/p>

PrivateSubCommandI_Click()

DimstrAsString,sAsString,cAsString

str=UCase(Textl)

s=""

c="Z"

Whilec>="A"

IfInStr(str,c)=0Then

s=[7]

EndIf

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

Wend

Ifs<>,,,rThen

Textl=s

EndIf

EndSub

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

計(jì)算。下圖窗體中3個(gè)文本框的名稱依次是Texti.Text2.Text3o程序運(yùn)行時(shí)在Textl.Texl2中分別

輸入n和rU勺值，單擊Command1按鈕即可求出選法的個(gè)數(shù)，并顯示在Text3文本框中(見下圖)。

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

PrivateSubCommandl_Click()

DimrAsInteger,nAsInteger

n=Textl

r=Text2

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

EndSub

Functionfun(nAsInteger)aslong

DimtAsLong

[10]

Fork=ITon

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>

PrivateSubCommandI_Click()

DinikAsInteger

DimsumAsSingle,maxAs