全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷5（含答案）

本文格式為Word版，下載可任意編輯——全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷5（含答案）全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷（含參考答案）

一、選擇題（每題2分，共70分）以下各題A）、B）、C）、D）四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的。請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。（1）以下選項(xiàng)中不符合良好程序設(shè)計(jì)風(fēng)格的是

A)源程序要文檔化B)數(shù)據(jù)說(shuō)明的次序要規(guī)范化C)避免濫用goto語(yǔ)句D)模塊設(shè)計(jì)要保證高耦合、高內(nèi)聚

（2）從工程管理角度，軟件設(shè)計(jì)一般分為兩步完成，它們是

A)概要設(shè)計(jì)與詳細(xì)設(shè)計(jì)B)數(shù)據(jù)設(shè)計(jì)與接口設(shè)計(jì)C)軟件結(jié)構(gòu)設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì)D)過(guò)程設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì)

（3）以下選項(xiàng)中不屬于軟件生命周期開(kāi)發(fā)階段任務(wù)的是A)軟件測(cè)試B)概要設(shè)計(jì)

（4）在數(shù)據(jù)庫(kù)系統(tǒng)中，用戶所見(jiàn)的數(shù)據(jù)模式為A)概念模式B)外模式C)內(nèi)模式D)物理模式

（5）數(shù)據(jù)庫(kù)設(shè)計(jì)的四個(gè)階段是:需求分析、概念設(shè)計(jì)、規(guī)律設(shè)計(jì)和A)編碼設(shè)計(jì)B)測(cè)試階段C)運(yùn)行階段D)物理設(shè)計(jì)

（6）設(shè)有如下三個(gè)關(guān)系表

RAmC)軟件維護(hù)D)詳細(xì)設(shè)計(jì)

SB1C3TAmnB11C33nA)T=R∩SB)T=R∪S

（7）以下表達(dá)中正確的是

C)T=R×SD)T=R/S

A)一個(gè)算法的空間繁雜度大，則其時(shí)間繁雜度也必定大B)一個(gè)算法的空間繁雜度大，則其時(shí)間繁雜度必定小C)一個(gè)算法的時(shí)間繁雜度大，則其空間繁雜度必定小D)上述三種說(shuō)法都不對(duì)

（8）在長(zhǎng)度為64的有序線性表中進(jìn)行順序查找，最壞狀況下需要比較的次數(shù)為A)63B)64C)6D)7

（9）數(shù)據(jù)庫(kù)技術(shù)的根本目標(biāo)是要解決數(shù)據(jù)的

A)存儲(chǔ)問(wèn)題B)共享問(wèn)題C)安全問(wèn)題D)保護(hù)問(wèn)題

（10）對(duì)以下二叉樹(shù)

進(jìn)行中序歷遍的結(jié)果是A)ACBDFEG

B)ACBDFGEC)ABDCGEFD)FCADBEG

ABCDFEG－1－

（11）以下表達(dá)正確的是

A)窗體的Name屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體B)窗體的Name屬性值是顯示在窗體標(biāo)題欄中的文本C)可以在運(yùn)行期間改變窗體的Name屬性的值

（12）以下表達(dá)中錯(cuò)誤的是

A)開(kāi)啟一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體文件B)保存VisualBasic程序時(shí)，應(yīng)分別保存窗體文件及工程文件C)VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D)窗體文件包含該窗體及其控件的屬性

（13）設(shè)a=2,b=3,c=4,以下表達(dá)式的值是Notaa+cA)-1

（14）設(shè)有如下的用戶定義類型：TypeStudent

NumberasStringNameasStringAgeasInteger

B)1

C)True

D)False

D)窗體的Name屬性值可以為空

EndType

則以下正確引用該類型成員的代碼是A)S=〞李明〞

（15）設(shè)a=5,b=6,c=7,d=8,執(zhí)行以下語(yǔ)句后，x的值為x=iif((a>b)And(c>d),10,20)A)10B)20C)TrunD)False

（16）執(zhí)行以下程序段后，變量c$的值為a$=〞VisualBasicProgramming〞b$=〞Quick〞

c$=b$NextjPrintNextiEndSub

程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是______。A)123246369

（23）在窗體上畫(huà)一個(gè)命令按鈕，名稱為Command1，然后編寫(xiě)如下代碼：OptionBase0

PrivateSubCommand1_Click()DimA(4)AsInteger,B(4)AsIntegerFork=0To2A(k+1)=InputBox(“請(qǐng)輸入一個(gè)整數(shù)〞)B(3-k)=A(k+1)NextkPrintB(k)EndSub

程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入2、4、6,輸出結(jié)果為A)0B)2C)3D)4

（24）有以下程序：

OptionBase1

Dimarr()AsInteger

PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1to3Forj=1to2Arr(i,j)=I*2+jNextjNextiReDimPreservearr(3,4)Forj=3to4Arr(3,j)=j+9NextjPrintarr(3,2);arr(3,4)EndSub

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

A)813B)013C)712D)00

（25）以下表達(dá)中正確的是

A)一個(gè)Sub過(guò)程至少要有一個(gè)ExitSub語(yǔ)句

－4－

B)一個(gè)Sub過(guò)程必需有一個(gè)EndSub語(yǔ)句

C)可以在Sub過(guò)程定義一個(gè)Function過(guò)程，但不能定義Sub過(guò)程D)調(diào)用一個(gè)Function過(guò)程可以獲得多個(gè)返回值

B)234345456

C)147258369

D)123456789

（26）有以下程序：

SubsubP(b()AsInteger)

Fori=1To4

b(i)=2*iNexti

EndSub

PrivateSubCommand1_Click()

Dima(1To4)AsInteger

a(1)=5:a(2)=6:a(3)=7:a(4)=8subPa()Fori=1to4

Printa(i)Nexti

EndSub

B)5

678

C)10

121416

D)出錯(cuò)

運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為A)2468

（27）設(shè)有如下通用過(guò)程：

PrivateFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=\strL=Len(xStr)I=1DoWhileI（29）在窗體上畫(huà)一個(gè)命令按鈕和兩個(gè)文本框，其名稱分別為Command1、Text1和Text2,然后編寫(xiě)如下程序：

DimS1AsString,S2AsString

PrivateSubForm_Load()Text1.Text=〞〞Text2.Text=〞〞EndSub

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)S2=S2Mid$(a,__,2*i-1)

ABECDFNexti

5456345672345678123456789

PrintB(i,j);NextjPrintNexti

EndSub

－7－

（10）在窗體上畫(huà)一個(gè)名稱為Combo1的組合框，然后畫(huà)兩個(gè)名稱分別為L(zhǎng)abel1、Label2,標(biāo)題分別為“城市名稱〞和空白的標(biāo)簽。程序運(yùn)行后，在組織框中輸入一個(gè)新項(xiàng)目并按回車鍵，假使輸入的項(xiàng)目在組合框的列表中不存在，則自動(dòng)將其添加到組合框的列表中，并在Label2中給出提醒“已成功添加新輸入項(xiàng)。〞，如下圖。假使輸入的項(xiàng)目已存在，則在Label2中給出提醒“輸入項(xiàng)已在組合框中。〞。請(qǐng)?zhí)羁铡?/p>

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

Fori=0ToCombo1.ListCount-1

IfCombo1.Text=__Then

Label2.Caption=〞輸入項(xiàng)已在組合框中。〞ExitSub

EndIf

Nexti

Label2.Caption=〞已成功添加新輸入項(xiàng)〞Combo1.__Combo1.Text

EndIf

EndSub

（11）在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Command1和Text1,然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

DiminDataAsStringText1.Text=〞〞

DoWhile__

Open\__As#1

Input#1,inData

Text1.Text=Text1.Text+inDataLoopClose#1

EndSub

程序的功能，開(kāi)啟D盤根目錄下的文本文件