計算機(jī)VB考試總復(fù)習(xí)題模擬試題

全真模擬試卷（一）

一、選擇題:

（1）數(shù)據(jù)的存儲結(jié)構(gòu)是指（）

（A）存儲在外存中的數(shù)據(jù)（B）數(shù)據(jù)所占的存儲空間量

（C）數(shù)據(jù)的邏輯結(jié)構(gòu)在計算機(jī)中的表示（D）數(shù)據(jù)在計算機(jī)中的順序存儲方式

（2）下列關(guān)于隊列的敘述中正確的是（）

（A）在隊列中只能刪除數(shù)據(jù)（B）在隊列中只能插入數(shù)據(jù)

（C）隊列是先進(jìn)后出的線性表（D）隊列是先進(jìn)先出的線性表

（3）對長度為n的線性表進(jìn)行順序查找，在最壞的情況下所需要的比較次數(shù)為（）

(A)n(B)n+1(C)n/2(D)(n+1)/2

(4)結(jié)構(gòu)化程序設(shè)計的3種結(jié)構(gòu)是（)

（A）順序結(jié)構(gòu)、選擇結(jié)構(gòu)、轉(zhuǎn)移結(jié)構(gòu)（B）順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)

（C）多分支結(jié)構(gòu)、賦值結(jié)構(gòu)、等價結(jié)構(gòu)（D）分支結(jié)構(gòu)、等價結(jié)構(gòu)、循環(huán)結(jié)構(gòu)

（5）編制一個好的程序，首先要保證它的正確性和可靠性，還應(yīng)強(qiáng)調(diào)良好的編程風(fēng)格，在書寫功能性注釋時應(yīng)考慮（）

（A）僅為整個程序作注釋（B）僅為每個模塊作注釋（C）為程序段作注釋（D）為每個語句作注釋

（6）需求分析的最終成果是產(chǎn)生（）

（A）項目開發(fā)計劃（B）需求規(guī)格說明書（C）設(shè)計說明書（D）可行性分析報告

（7）驗證軟件的功能和性能及其他特性是否滿足了需求規(guī)格說明中確定的各種需求以及軟件配置是否完全、正確的過

程是（）

（A）單元測試（B）集成測試（C）確認(rèn)測試（D）系統(tǒng)測試

（8）在數(shù)據(jù)庫管理系統(tǒng)提供的數(shù)據(jù)語言中，負(fù)責(zé)數(shù)據(jù)的模式定義與數(shù)據(jù)的物理存取構(gòu)建的是（）

（A）數(shù)據(jù)定義語言（B）數(shù)據(jù)轉(zhuǎn)換語言（C）數(shù)據(jù)操縱語言（D）數(shù)據(jù)控制語言

（9）數(shù)據(jù)庫系統(tǒng)的三級模式結(jié)構(gòu)中，下列不屬于三級模式的是（）

（A）內(nèi)模式（B）抽象模式（C）外模式（D）概念模式

（10）關(guān)系代數(shù)運算是以（）為基礎(chǔ)的運算

（A）關(guān)系運算（B）謂詞運算（C）集合運算（D）代數(shù)運算

（11）以下不能在工程資源管理器窗口中列出的文件類型是（）

(A).bas(B),res(C).fnn(D).ocx

（12）決定一個窗體或控件的位置的屬性是（）

（A）Top和Width（B）Top和Left（C）Left和Width（D）Width和Height

（13）下列敘述中錯誤的是（）

（A）對象具有屬性、方法等特性，可以識別預(yù)先定義的事件

（B）對象之間可以進(jìn)行通信，方式是通過互傳消息完成

（C）一個對象中包含數(shù)據(jù)及其對這些數(shù)據(jù)的相關(guān)操作

（D）對象的屬性值一經(jīng)初始化，則不能再改變

（14）下面給出的符號中，可以作為VisualBasic的變量名的是（）

（A）Beta（B）nR（C）Print（D）abc-123

（15）以下關(guān)系表達(dá)式中，其值為False的是（）

(A)"XYZ"v"XYz"(B)"the”o"there"(C)"123”>“ABC”(D)Chr(Asc("A"))=Ucase("a”)

(16)在窗體上畫一個命令按鈕，名稱為Command1。單擊命令按鈕時，執(zhí)行如下事件過程：

PrivateSubCommandl_Click()

a$="VisualBasicLanguage"

b$=Right(a$,8)

c$=Mid(aS,1,6)

MsgBoxa$,,b$,c$,1

EndSub

則在彈出的消息框的標(biāo)題欄中顯示的信息是（）

(A)VisualBasicLanguage(B)Visual(C)Language(D)1

(17)設(shè)有以下程序，當(dāng)程序運行時，單擊窗體，則在窗體上輸出結(jié)果為()

PrivateSubFormClick()

DimiAsInteger,jAsInteger

i=100

j=200

Printi=j

EndSub

(A)程序出錯(B)100(C)200(D)False

(18)若在Shape控件內(nèi)以FiHStyle屬性所指定的圖案填充區(qū)域，而填充圖案的線條的顏色由FillColor屬性指定，非

線條的區(qū)域由BackColor屬性填充，則應(yīng)()

(A)將其FillStyle屬性設(shè)置為2?7的某個值，Backstyle屬性設(shè)置為1

(B)將其FillStyle屬性設(shè)置為0或1,Backstyle屬性設(shè)置為1

(C)將其FillStyle屬性設(shè)置為2?7的某個值，Backstyle屬性設(shè)置為0

(D)將其FillStyle屬性設(shè)置為0或1,Backstyle屬性設(shè)置為0

(19)設(shè)窗體有一名稱為Timeri的計時器控件，要使該計時器在程序運行過程中每隔2s自動觸發(fā)一個Timer事件，則

在程序代碼中應(yīng)寫的語句是()

(A)Timer1.Interval=2000(B)Timer1,Interval=200(C)Timer1.Interval=20(D)Timerl.Interval=2

(20)下列選項中，不能將圖片裝入圖片框和圖像框的方法是()

(A)在設(shè)計階段，在屬性窗口中將Picture屬性的值設(shè)置為某個圖片文件

(B)在設(shè)計階段，直接在圖片框和圖像框中手工繪制一幅圖

(C)在設(shè)計階段，把一復(fù)制到剪貼板上的圖橡粘貼到圖片框或圖像框中

(D)在程序代碼中，直接利用LoadPicture函數(shù)將圖像裝入圖片框或圖像框

(21)以下程序段中的執(zhí)行結(jié)果為“OK”的是()

(A)DimyAsInteger(B)DimyAsInteger(C)DimyAsInteger(D)DimyAsInteger

y=10y=20y=6y=10

SelectCaseySelectCaseySelectCaseySelectCasey

Case11to1CaseIs>20,Is<20CaseIs>6,1,2to5Casel,3Js>6

Print“OK”Print"OKMPrintnOK"Print"OKn

EndSelectEndSelectEndSelectEndSelect

(22)以下是窗體的Click事件過程及其程序代碼，則在程序運行時，單擊窗體，程序的輸出結(jié)果為()

PrivateSubFormClick()

DimyAsInteger,1AsInteger,sAsInteger

s="Between2050and3000”

y=Val(Mid(s,InStr(s,M2n),4))

IfyMod400=0Or(yMod100=0AndyMod4<>0)Then

1=1

Else

1=-1

EndIf

PrintI

EndSub

(A)0(B)1(C)-1(D)Null

(23)以下是命令按鈕Command1的Click事件過程代碼：

PrivateSubCommand1Click()

DimiAsInteger,jAsInteger,kAsInteger,sAsInteger

s=0

Fori=1To3

Forj=1Toi

Fork=jTo3

s=s+1

Nextk

Nextj

Nexti

Prints

EndSub

(A)12(B)14(C)16(D)18

(24)以下是窗體模塊的程序代碼，當(dāng)程序運行過程中，單擊窗體后，輸出結(jié)果是()

ConstNUMAsInteger=10

DimaAsInteger,bAsInteger

a=l:b=NUM

DoUntilb>NUM

a=a*b

b=b+1

Loop

Printa

(A)10(B)1(C)11(D)20

(25)語句Print旗2,3,4)的輸出結(jié)果為()

(A)0(B)2(C)3(D)4

(26)下列有關(guān)控件數(shù)組的說法中，正確的是()

(A)控件數(shù)組中所包含的控件必須是同一種類型的，且它們的Name屬性值相同，但每個控件的Index屬性值不同

(B)控件數(shù)組中所包含的控件必須是同一種類型的，且它們的Name屬性值不能相同

(C)可以將窗體上的各種類型的控件創(chuàng)建到一個控件數(shù)組中

(D)程序運行時，對控件數(shù)組中的不同控件操作而觸發(fā)事件時，執(zhí)行的是對應(yīng)于各個控件的事件過程代碼

(27)以下程序段的運行結(jié)果是()

Dima(-lTo5)AsBoolean

flag=False

DimiAsInteger,jAsInteger

DoUntilflag=True

Fori=LBound(a)ToUBound(a)

j=j+l

Ifa(i)=FalseThen

a(i)=True

ExitFor

EndIf

Ifi=5Thenflag=True

Nexti

Loop

Printj

(A)7(B)35(C)20(D)8

(28)在窗體上畫一名稱為Commandl的命令按鈕，然后編寫如下程序代碼：

PrivateSubCommand1Click()

Dimal(lTo10)AsInteger,a2(lTo10)AsInteger

DimnAsInteger,iAsInteger

n=3

Fori=ITo5

al(i)=i

a2(n)=2*n+i

Nexti

Printa2(n)

EndSub

在運行過程中，單擊命令按鈕后，則程序的輸出結(jié)果為()

(A)7(B)9(C)11(D)13

(29)在窗體上加一個命令按鈕，其名稱為Command%然后編寫以下程序代碼：

PrivateSubCommandl_Click()

Dimdata,nl,n2

data=Array(10,30,-20,50,20)

subldata,nl,n2

Printnl;n2

EndSub

PrivateSubsubl(d,ml,m2)

DimiAsInteger

ml=d(LBound(d))

m2=d(LBound(d))

Fori=LBound(d)+1ToUBound(d)

Ifml<d(i)Thenml=d(i)

Ifm2>d(i)Thenm2=d(i)

Nexti

EndSub

當(dāng)程序運行過程中，單擊命令按鈕Commandl后，程序的輸出結(jié)果為()

(A)50-20(B)10-20(C)-2050(D)00

(30)在窗體Forml上添加一個命令按鈕Command1,然后編寫窗體模塊的代碼：

DimxAsInteger

PrivateSubmysub()

DimxAsInteger

Print”x="；x

x=200

EndSub

PrivateSubCommand1_Click()

x=100

Callmysub

Printnx=H;x

EndSub

當(dāng)程序運行過程中，單擊命令按鈕Commandl后，則程序的輸出結(jié)果為()

(A)x=100(B)x=0(C)x=0(D)x=200

x=200x=200x=100x=100

(31)在窗體上加一命令按鈕，其名稱為Commandl,然后編寫以下程序代碼：

PrivateSubCommand1_Click()

DimstrAsString

str=InputBox(”請輸入”)

Printfiinc1(str)

EndSub

PrivateFunctionfunc1(sAsString)AsInteger

DimiAsInteger,dAsInteger

d=0

Fori=Len(s)To1Step-1

d=d*10+Val(Mid(s,i,1))

Nexti

fund=d

EndFunction

當(dāng)程序運行時，單擊命令按鈕Command1后，在出現(xiàn)的輸入對話框中輸入“315”并按回車鍵，則程序的輸出結(jié)果

為()

(A)315(B)5130(C)135(D)513

(32)在窗體Forml上添加一個命令按鈕Command1,然后編寫窗體模塊代碼，代碼如下：

PrivateFunctionmyfunc(ByValarAsInteger)

DimbAsInteger

StaticcAsInteger

b=b+1

c=c+1

myfiinc=ar+b+c

EndFunction

PrivateSubCommand1_Click()

DimaAsInteger,iAsInteger

a=1

Fori=1To3

Printmyfimc(a);

Nexti

EndSub

當(dāng)程序運行過程中，單擊命令按鈕Commandl后，則程序的輸出結(jié)果為()

(A)333(B)345(0555(D)222

(33)要把一個名稱為mnuColor的菜單項設(shè)置為不可見的語句是()

(A)mnuColor.Checked=False(B)mnuColor.Enablcd=False

(C)mnuColor.Visible=False(D)mnuColor.Caption=False

(34)以下有關(guān)多重窗體的敘述中，錯誤的是()

(A)用Hide方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體

(B)在多重窗體程序中，各窗體的菜單是彼此獨立的

(C)在多重窗體中，可以根據(jù)需要指定啟動窗體

(D)對于多重窗體程序，需要單獨保存每個窗體

(35)以下說法中正確的是()

(A)隨機(jī)文件中的記錄號是通過隨機(jī)數(shù)產(chǎn)生的

(B)隨機(jī)文件中的各記錄的長度不一定完全相同

(C)對于隨機(jī)文件，可按記錄號任意讀取或?qū)懭胗涗?/p>

(D)對于隨機(jī)文件，利用Seek函數(shù)可返回文件指針當(dāng)前在文件中的字節(jié)位置

二、填空題：

(1)設(shè)一棵二叉樹的中序遍歷結(jié)果為DBEAFC,前序遍歷結(jié)果為ABDECF,則該二叉樹的后序遍歷結(jié)果為

(2)算法的復(fù)雜度主要包括復(fù)雜度和空間復(fù)雜度。

(3)在面向?qū)ο蠓椒ㄖ校畔㈦[蔽是通過對象的性來實現(xiàn)

(4)數(shù)據(jù)庫管理系統(tǒng)是位于用戶與之間的軟件系統(tǒng)

(5)在關(guān)系模型中，關(guān)系表中的每一行稱為一個

(6)表達(dá)式Rtrim(Lcase("Abed"))&Right("mnopq”,3)的值為

(7)在窗體上畫一個名稱為Labell的標(biāo)簽和一個名稱為Listl的列表框。程序運行后，在列表框中添加若干列表項。

當(dāng)雙擊列表框中的某個項目時，在標(biāo)簽Lablell中顯示所選中的項目，如圖14.1所示。請?zhí)钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)

充完整。

?Forml-1□Ix|

圖14.1程序運行時的用戶界面圖(一)

PrivateSubForm_Load()

List1.Additem”北京”

Listl.Additem”上海”

List1.Additem"河北”

EndSub

PrivateSubListl()

label1.Caption=

EndSub

(8)在窗體上畫?名稱為Command1的命令按鈕，并編寫如下程序代碼：

PrivateSubCommand1Click()

DimsiAsString,s2AsString

DimiAsInteger

si=Trim(InpulBox(“請輸入值”))

i=Len(i)

DoWhile(si)

s2=s2+Mid(sl,i,1)

i=i-1

Loop

Prints2

EndSub

當(dāng)程序運行時，單擊命令按鈕，在出現(xiàn)的輸入對話框中，輸入abed并按回車鍵后，則程序的輸出結(jié)果是

(9)下列程序的功能是產(chǎn)生10個1?100的隨機(jī)數(shù)，然后打印出其中偶數(shù)的個數(shù)，請將程序補(bǔ)充完整。

OptionBase1

PrivateSubCommand1_Click()

Dima(10)AsInteger,iAsInteger

DimsAsInteger

s=0

Fori=1To10

a(i)=Int(l00*Rnd+1)

If=Int(a(i)/2)Then

Nexti

Prints

EndSub

(10)在窗體上畫一個文本框，其名稱為Textl,然后編寫如下事件過程，該程序的功能是當(dāng)程序運行時，輸入焦點在

文本框時，通過按下Ctrl+A組合鍵可以選取文本框內(nèi)所有的文本。請將程序補(bǔ)充完整。

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

If=65And=2Then

Textl.SelStart=0

Text1.SeiLength=Len(Textl.Text)

EndIf

EndSub

(11)在窗體Forml上加入一個通用對話框控件CD1、一個文本框Textl和一個命令按鈕Command1,并將文本框Text1

的Multiline屬性設(shè)置為true,ScorllBars設(shè)置為3。程序的功能是：當(dāng)程序運行時，單擊命令按鈕Command1后，可顯

示一個“打開”文件對話框，如果單擊“文件”對話框中的“打開”按鈕，則可將對話框中選中的文本文件的內(nèi)容顯

示到文本框中。以下是命令按鈕Command1的Click事件過程，請將程序補(bǔ)充完整。

PrivateSubCommandl_Click（）

DimfhAsLong

cdl.FileName="H

cdl.Filter="文本文件

Ifcdl.FileNameoThen

OpenForInputAs#1

fh=LOF(l)

Text1.Text=input(fn,#1)

Close#1

EndIf

EndSub

全真模擬試卷（二）

一、選擇題:

(1)算法的時間復(fù)雜度是指（）

（A）算法程序中的指令條數(shù)（B）算法執(zhí)行過程中所需要的基本運算次數(shù)

（C）算法程序的長度（D）執(zhí)行算法程序所需要的時間

(2)在順序表(2,8,10,15,25,28,30,32,40,45,49)中,用二分法查找鍵碼值18,所需的關(guān)鍵碼比較交數(shù)

是（）

（A）2（B）3（C）4（D）5

（3）在排序方法中，將整個無序序列分割成若干個小的子序列并分別進(jìn)行插入排序的方法，稱為（）

（A）插入排序（B）冒泡排序（C）希爾排序（D）選擇排序

（4）源程序中應(yīng)包含一些內(nèi)部文檔，以幫助閱讀和理解程序。源程序的內(nèi)部文檔通常包括選擇合適的標(biāo)識符、注釋和

（）

（A）設(shè)計良好的輸出報表（B）程序的視覺組織

（C）盡量不用或少用TOGO語句（D）檢查輸入數(shù)據(jù)的有效性

（5）在軟件生命周期中，能準(zhǔn)確地確定軟件系統(tǒng)必須做什么和必須具備哪些功能的階段是（）

（A）概要設(shè)計（B）詳細(xì)設(shè)計（C）可行性分析（D）需求分析

（6）下列對于軟件測試的描述中正確的是（）

（A）軟件測試的目的是證明程序是否正確（B）軟件測試的目的是盡可能多地發(fā)現(xiàn)程序中的錯誤

（C）軟件測試的目的是使程序運行結(jié)果正確（D）軟件測試的目的是使程序符合結(jié)構(gòu)化原則

（7）數(shù)據(jù)流圖用于抽象描述一個軟件的邏輯模型，數(shù)據(jù)流圖由一些特定的圖符構(gòu)成。下列圖符名標(biāo)識的圖符不屬于數(shù)

據(jù)流圖合法圖符的是（）

（A）控制流（B）加工（C）數(shù)據(jù)存儲（D）源源和潭

（8）下面關(guān)于數(shù)據(jù)系統(tǒng)敘述正確的是（）

（A）數(shù)據(jù)庫系統(tǒng)避免了一切冗余（B）數(shù)據(jù)庫系統(tǒng)減少了數(shù)據(jù)冗余

（C）數(shù)據(jù)庫系統(tǒng)比文件能管理更多的數(shù)據(jù)（D）數(shù)據(jù)庫系統(tǒng)中數(shù)據(jù)的一致性是指數(shù)據(jù)類型的?致

（9）單個用戶使用的數(shù)據(jù)視圖的描述稱為（）

（A）內(nèi)模式（B）概念模式（C）外模式（D）存儲模式

（10）用樹形結(jié)構(gòu)表示實體之間聯(lián)系的模型是（）

（A）層次模型（B）網(wǎng)狀模型（C）關(guān)系模型（D）以上都不是

（11）VisualBasic的集成開發(fā)環(huán)境可以（）

（A）編輯、調(diào)試、生成可執(zhí)行程序，但不能運行程序

（B）編輯、調(diào)試、運行程序，也能生成可執(zhí)行程序

（C）編輯、生成可執(zhí)行程序、運行程序，但不能調(diào)試程序

(D)編輯、調(diào)試、運行程序，但不能生成可執(zhí)行程序

(12)如果改變窗體的標(biāo)題信息，則需要設(shè)置的屬性是()

(A)Caption(B)Name(C)BackColor(D)BorderStyle

(13)以下說法中正確的是()

(A)窗體和控件是用來設(shè)計程序用戶界面的，但它們并不是VisualBaic的對象

(B)只有控件才是VisualBasic的對象，窗體只是起“容器”作用而存在的

(C)窗體和控件都是VisualBasic中的對象

(D)只有ActiveX控件才是VisualBasic的對象，標(biāo)準(zhǔn)控件本身就是VisualBasic的一部分，因此，標(biāo)準(zhǔn)控件不是

對象

(14)表示“x+y小于100且x?y大于或等于60”的表達(dá)式是()

(A)x+y<100orx-y60(B)(x+y<100)=(x-y)260(C)x+y<100.and.x-y>=60(D)x+y<100andx-y>=60

(15)表達(dá)式Sin(0)+Abs(-l)+Int(Rnd(l))的值是()

(A)2(B)1(C)0(D)-1

(16)在窗體上添加一文本框(名稱為Textl)和一命令按鈕(名稱為command])，并編寫如下代碼：

PrivateSubCommandl_Click()

si=InputBox("請輸入si的值：”)

s2=InputBox("請輸入s2的值：”)

Text1.Text=s1+s2

EndSub

當(dāng)程序運行過程中，單擊命令按鈕，在兩次出現(xiàn)的輸入對話框聽文本框中分別輸入100和200并按回車鍵后，則文本

框textl中顯示的數(shù)據(jù)為()

(A)300(B)100(C)200(D)100200

(17)若要將窗體中的某一命令按鈕設(shè)置為默認(rèn)命令按鈕(即按回車鍵與單擊該命令按鈕的作用相同)，則應(yīng)()

(A)將其Cancel屬性設(shè)置為false(B)將其Default屬性設(shè)置為false

(C)將其Default屬性.設(shè)置為true(D)將其Cancel屬性設(shè)置為true

(18)高有一列表框Listl,在程序代碼中,要得到該列表框中最后一個列表框的文本值，則應(yīng)書寫的表達(dá)式是()

(A)Listl.List(Listl.ListCount-1)(B)List1.ListListCount-1)

(C)List1.List(ListCount)(D)Listl.List(Listl.ListCount)

(19)當(dāng)一個復(fù)選被選中時，它的Value屬性的值是()

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

(20)在窗體上Olli一個文本框和一個計時器控件，名稱分別為textl和timer1o在屬性窗口中把計時器的interval屬性

設(shè)置為1000,enabled屬性設(shè)置為false。程序運行后，如果單擊命令按鈕，則每隔1s在文本框中顯示一次當(dāng)前的時間。

以下是實現(xiàn)上述操的程序：

PrivateSubCommand1_Click()

Timer1.___________

EndSub

PrivateSubTimerl_Timer()

Textl.Text=Time

EndSub

在下劃線處應(yīng)填入的內(nèi)容是()

(A)enabled=true(B)enabled=false(C)visible=true(D)visible=false

(21)以F是命令按鈕command1的click事件過程。

PrivateSubCommandl_Click()

DimsAsString,nAsInteger,iAsInteger

n=0

s=InputBox("輸入數(shù)據(jù)”)

Fori=1ToLen(s)

If(LCase(Mid(s,i,1))>="anAndLCase(Mid(s,i,1))<=Hz")Then

n=n+1

EndIf

Nexti

Printn

EndSub

程序運行時，單擊命令按鈕commandl,在出現(xiàn)的輸入對話框中輸入"ABCDabcxyzl23”并按回車鍵后，程序的輸出

結(jié)果是()

(A)4(B)10(C)6(D)3

(22)以下是窗體的click事件過程及其程序代碼，在程序運行中，單擊窗體時，程序的輸出結(jié)果為()

PrivateSubForm_Click()

DimscoreAsInteger

score=Int(Rnd*10+80)

SelectCasescore

CaseIs<60

Print"fair,

Case60To79

Print"psaa"

Case80,Is<=89

Print“good”

CaseIs>=90

Print"excellent0

EndSelect

EndSub

(A)excellent(B)good(C)pass(D)fail

(23)在窗體上加一名稱為commandl的命令按鈕和一名稱為textl的文本框，編寫如下程序代碼：

PrivateSubCommand1_Click()

Dimcheck,counter

check=True:counter=0

Do

DoWhilecounter<20

counter=counter+1

Ifcounter=10Then

check=False

ExitDo

EndIf

Loop

LoopUntilcheck=False

Textl.Text=counter

EndSub

程序運行時，單擊命令按鈕，則在文本框中顯示的結(jié)果為（）

(A)true(B)false(C)20(D)10

（24）以下正確的語句是（）

(A)Ifa>bThent=a;a=b;b=t(B)Ifa>bThent=aa=bb=t

(C)Ifa>bThent=a:a=b:b=t(D)Ifa>bThent=a,a=b,b=t

（25）在窗體上畫一個名稱為commandl的命令按鈕,然后編寫如卜程序代碼:

OptionBase1

PrivateSubCommand1_Click()

Dimx,m

DimiAsInteger,posAsInteger

x=Array(-10,-l,20,56,70)

m=Val(InputBox(ninputavalue"))

ReDimPreservex(UBound(x)+1)

i=UBound(x)

DoWhilem<x(i-1)

x(i)=x(i-1)

i=i-1

Ifi=LBound(x)ThenExitDo

Loop

x(i)=m

Printx(UBound(x)\2)

EndSub

在程序運行過程中，單擊命令按鈕，在出現(xiàn)的輸入對話框中輸入?5按回車鍵后，則程序的輸出結(jié)果為()

(A)-10(B)-5(C)20(D)-1

(26)在窗體上添加一個名稱為textl的文本框和一個名稱為commandl的命令按鈕，然后編寫以下事件過程代碼:

OptionBase1

PrivateSubCommandl_Click()

Dimarrl(5,5)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

arrl(i,j)=i+j

Nextj

Nexti

Text1.Text=arr1(2,3)+arrl(3,4)+arrl(l,1)

EndSub

程序運行時，單擊命令按鈕commandl后，在文本框中顯示的值是()

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

(27)控件數(shù)組中的各元素的下標(biāo)是由()屬性指定。

(A)name(B)index(C)tabindex(D)order

(28)以下是窗體的click事件過程form_click的程序代碼：

OptionBase1

PrivateSubForm_Click()

Dima(10)AsInteger,p(3)AsInteger

DimiAsInteger,kAsInteger

k=0

Fori=1To10

a(i)=2*a(i-1)+1

Nexti

Fori=1To3

p(i)=a(i*i)

Nexti

Fori=1To3

k=k+p(i)\2

Nexti

Printk

EndSub

在程序運行過程中，單擊窗體后，程序的輸出結(jié)果為()

(A)5(B)7(C)9(D)11

(29)在窗體上畫一個名稱為commandl的命令按鈕，然后編寫如下代碼：

PrivateSubCommandl_Click()

Dima(3)AsInteger

DimiAsInteger,sAsInteger

i=0:s=0

DoUntili>3

a(i)=(i+1)*(i+2)

s=s+a(i)

i=i+1

Loop

Prints

EndSub

程序運行后，單擊命令按鈕，則程序的輸出結(jié)果是()

(A)18(B)20(C)40(D)6

(30)在窗體上加一命令按鈕，其名稱為commandl,然后編寫以下程序代碼：

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger

a=12:b=2

Printfunc(a,b)

EndSub

PrivateFunctionfunc(ByValxAsInteger,ByVaiyAsInteger)AsInteger

DimtAsInteger

DoWhileyo0

t=x/y

x=y

y=t

Loop

EndFunction

在程序運行過程中，單擊命令按鈕commandl后，在程序上的輸出結(jié)果為()

(A)80(B)6(C)2(D)0

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

(A)在程序設(shè)計過程中可以增加或減少菜單項

(B)如果把一個菜單項的enabled屬性設(shè)置為false,則可刪除該菜單項

(C)快捷菜單在菜單編輯器中設(shè)計

(D)利用控件數(shù)組可以實現(xiàn)菜單項的增加或減少

(32)設(shè)在窗體上添加??個名稱為CD1的通用對話框控件，希望在文件對話框中的“文件類型”列表框中包括“所有

文件”、“Word文件”、“Jpg圖像文件”共3種類型，則在程序代碼中正確的設(shè)置語句是()

(A)CDl.FiIte『”所有文件|*.*|Word文件|*.doc|Jpg圖像文件|*.jpg”

(B)CDl.Filter=”所有文件1Word文件|Jpg圖像文件”

(C)CDLFiCr=所有文件|*.*|Wbrd文件|*.doc|Jpg圖像文件|*.jpg

(D)CDl.Filter="所有文件;*.*;Word文件;*.doc;Jpg圖像文件;*jpg”

(33)以下敘述中正確的是()

(A)在某個Sub過程中定義的局部變量可以與其他事件過程中定義的局部變量同名，但其作用域只限于該過程

(B)局部變量的作用域可以超出所定義的過程

(C)在窗體的Form_click事件過程中定義的變量是全局變量

(D)在調(diào)用過程時，所有局部變量被系統(tǒng)初始化為0或空字符串

(34)以下關(guān)于文件的敘述中，錯誤的是()

(A)順序文件中的記錄一個接一個地順序存放(B)隨機(jī)文件中記錄的長度是隨機(jī)的

(C)執(zhí)行打開文件的命令后，自動生成一個文件指針(D)LOF函數(shù)返回給文件分配的字節(jié)數(shù)

(35)以下程序段執(zhí)行時，兩個Print語句的輸出結(jié)果是()

PrivateSubCommandl_Click()

Open"d:\report.txt”ForRandomAs#5

Seek#5,3

Seek#5,10

Seek#5,7

PrintSeek(5)

PrintLoc(5)

Close#1

EndSub

(A)7和6(B)7和5(C)3和5(D)5和10

二、填空題：

(1)一棵完全二叉樹中共有600個結(jié)點，則在該二叉樹中共有個葉子結(jié)點。

(2)數(shù)據(jù)結(jié)構(gòu)包括數(shù)據(jù)的邏輯結(jié)構(gòu)、數(shù)據(jù)的以及對數(shù)據(jù)的操作運算。

(3)在面向?qū)ο蟮姆椒ㄖ?，類是一個支持集成的抽象數(shù)據(jù)類型，而對象是類的。

(4)數(shù)據(jù)庫系統(tǒng)中，實現(xiàn)數(shù)據(jù)管理功能的核心軟件稱為。

(5)數(shù)據(jù)庫設(shè)計分為以下6個設(shè)計階段：需求分析階段、、邏輯設(shè)計階段、物理設(shè)計階段、實施階段、

運行和維護(hù)階段。

(6)在窗體上畫一個名稱為commandl的命令按鈕和一個名稱為textl的文本框。程序運行后，command1為禁用(灰

色顯示)。當(dāng)向文本框中輸入任何字符時，命令按鈕commandl變?yōu)榭捎谩Ｕ執(zhí)羁铡?/p>

PrivateSubForm_Load()

Command1.Enabled=False

EndSub

PrivateSubTextl()

Command1.Enabled=True

EndSub

(7)在窗體上畫一個名稱為commandl的命令按鈕和一個名稱為textl的文本框，在程序運行過程中，當(dāng)單擊命令按

鈕后，則在文本框中顯示的結(jié)果是o

DimaAsInteger,bAsInteger

Fora=1To5

Forb=1To10

a=a+1

b=b+1

Nextb

Nexta

Textl.Text=a

EndSub

(8)PrivateSubForm_Click()

DimkAsInteger,mAsInteger,nAsInteger

n=5:m=1:k=1

DoWhilek<=n

m=m+2

k=k+2

Loop

Printm

EndSub

當(dāng)程序運行時，單擊窗體的執(zhí)行結(jié)果是O

(9)以下程序是窗體的click事件過程，程序運行時，單擊窗體后的輸出結(jié)果為o

ConstNAsInteger=2

OptionBase1

PrivateSubForm_Click()

Dimx,t

DimiAsInteger

x=Array"0,-4,6,100,18)

Fori=1ToN/2

t=x(i)

x(i)=x(N-i+1)

x(N-i+l)=t

Next

Printx(N\2)

EndSub

(10)已知斐波那契(Fibonacci)數(shù)列的第項和第二項都是1,其后每?項都是其前面兩項的和，形如：1,1,2,3,

5,8,13,…以下編寫了一個通用過程和命令按鈕commandl的click事件過程，能夠求出數(shù)列的前n項，請將程序補(bǔ)

充完整。

Dima()AsInteger

DimmAsInteger,iAsInteger

m=CInt(Val(InputBox(”請輸入數(shù)列的項數(shù)”)))

Ifm>0Then

ReDima(m)

Call______________

Fori=1Tom

Printa(i);

Next

EndIf

EndSub

PrivateSubcalsub(fb()AsInteger,nAsInteger)

DimiAsInteger

Ifn>=1Thenfb(l)=1

Ifn>=2Thenfb(2)=1

Fori=3Ton

Next

EndSub

(11)新建一個工程，向工程中添加兩個窗體，分別為forml和form2,再向工程中添加一個標(biāo)準(zhǔn)模塊module］，并設(shè)定

forml為啟動窗體，分別編寫它們的模塊代碼，如下所示。

窗體form1的窗體模塊代碼：

OptionExplicit

PublicxAsInteger

PrivateSubForm_Click()

x=100

fbrm2.x=200

module1.x=300

form2.Show

EndSub

窗體form2的窗體模塊代碼：

OptionExplicit

PublicxAsInteger

PrivateSubForm_Click()

Printx

EndSub

標(biāo)準(zhǔn)模塊modulel的程序代碼：

OptionExplicit

PublicxAsInteger

請問：

①程序運行時，最先顯示的窗口是(要求寫出窗體的名稱)

②當(dāng)在forml上單擊鼠標(biāo)時，會顯示

③當(dāng)在fbrm2上單擊鼠標(biāo)時，會輸出

(12)以下是對應(yīng)窗體的鍵盤事件過程代碼：

PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

Printn2";

EndSub

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

PrintT;

EndSub

PrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger)

PrintH3H;

EndSub

當(dāng)程序運行時，按下“A”鍵，在窗體上的輸出結(jié)果是

全真模擬試卷（三）

一、選擇題:

(I)下列敘述中正確的是（）

（A）棧與隊列是非線性結(jié)構(gòu)（B）線性表是線性結(jié)構(gòu)

（C）二叉樹是線性結(jié)構(gòu)（D）線性鏈表是非線性結(jié)構(gòu)

(2)在深度為5的滿二叉樹中，葉子結(jié)點的個數(shù)是（