家二級(jí)（VB）機(jī)試模擬試卷16（共9

套）

（共366題）

家二級(jí)（VB）機(jī)試模擬試卷第1套

一、選擇題（本題共40題，每題1.0分，共40分。）

1、設(shè)循環(huán)隊(duì)列為其初始狀態(tài)為front=rear=m。經(jīng)過■系列入隊(duì)與退隊(duì)運(yùn)

算后，front=20,rear=15。現(xiàn)要在該循環(huán)隊(duì)列中尋找最小值的元素，最壞情況下需

要比較的次數(shù)為

A、5

B、6

C、m-5

D、m-6

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：循環(huán)隊(duì)列是隊(duì)列的一種順序存儲(chǔ)結(jié)構(gòu)，用隊(duì)尾指針rear指向隊(duì)列中

的隊(duì)尾元素，用排頭指外指向排頭元素的前一個(gè)位置，因此，從排頭指針front指

向的后一個(gè)位置直到隊(duì)尾指針rear指向的位置之間所有的元素均為隊(duì)列中的元

素，隊(duì)列初始狀態(tài)為front=rear=m,當(dāng)front=20,rear=15時(shí)，隊(duì)列中有m-

20+15=m-5個(gè)元素，比較次數(shù)為m-6次,D選項(xiàng)正確。

2、某二叉樹的前序序列為ABCDEFG,中序序列為DCBAEFG,則該二叉樹的后

序序列為

A、EFGDCBA

B、DCBEFGA

C、BCDGFEA

D、DCBGFEA

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：二叉樹遍歷可以分為3種：前序遍歷（訪問根節(jié)點(diǎn)在訪問左子樹和訪

問右子樹之前）、中序遍歷（訪問根節(jié)點(diǎn)在訪問左子樹和訪問右子樹兩者之間）、

后序遍歷（訪問根節(jié)點(diǎn)在訪問左子樹和訪問右子樹之后）。二叉樹的前序序列為

ABCDEFG,A為根節(jié)點(diǎn)。中序序歹為DCBAEFG,可知DCB為左子樹節(jié)點(diǎn)，EFG

為右子樹節(jié)點(diǎn)。同理B為C父節(jié)點(diǎn),C為D父節(jié)點(diǎn)，且CD均為B的同側(cè)子樹節(jié)

點(diǎn)。同理E為F根節(jié)點(diǎn)，F(xiàn)為G根節(jié)點(diǎn)，且FG為E同側(cè)子樹節(jié)點(diǎn)。二叉樹的后序

序列為DCBGFEA,D選項(xiàng)正確。

3、下列敘述中正確的是

A、在鏈表中，如果每個(gè)結(jié)點(diǎn)有兩個(gè)指針域，則該鏈表一定是非線性結(jié)構(gòu)

B、在鏈表中，如果有兩個(gè)結(jié)點(diǎn)的同一個(gè)指針域的值相等，則該鏈表一定是非線性

結(jié)構(gòu)

C、在鏈表中，如果每個(gè)結(jié)點(diǎn)有兩個(gè)指針域，則該鏈表一定是線性結(jié)構(gòu)

D、在鏈表中，如果有兩個(gè)結(jié)點(diǎn)的同一個(gè)指針域的值相等，則該鏈表一定是線性結(jié)

構(gòu)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：一個(gè)非空的數(shù)據(jù)結(jié)構(gòu)如果滿足以下兩個(gè)條件：有且只有一個(gè)根節(jié)點(diǎn)；

每一個(gè)節(jié)點(diǎn)最多有一個(gè)前件，也最多有一個(gè)后件，稱為線性結(jié)構(gòu)。雙向鏈表節(jié)點(diǎn)有

兩個(gè)指針域，指向前一個(gè)節(jié)點(diǎn)的指針和指向后一個(gè)節(jié)點(diǎn)的指針，也是線性結(jié)構(gòu)，A

選項(xiàng)錯(cuò)誤。如果有兩個(gè)節(jié)點(diǎn)的同一個(gè)指針域的值相等，說明一個(gè)節(jié)點(diǎn)有兩個(gè)前件，

屬于非線性結(jié)構(gòu)，B選項(xiàng)正確，D選項(xiàng)正確。非線性結(jié)構(gòu)主要是指樹形結(jié)構(gòu)和網(wǎng)狀

結(jié)構(gòu)，可以滿足每個(gè)節(jié)點(diǎn)有兩個(gè)指針域的條件，C選項(xiàng)正確。

4、下列敘述中錯(cuò)誤的是

A、在帶鏈隊(duì)列中，隊(duì)頭指針和隊(duì)尾指針都是在動(dòng)態(tài)變化的

B、在帶鏈棧中，棧頂指針和棧底指針都是在動(dòng)態(tài)變化的

C、在帶鏈棧中，棧頂指針是在動(dòng)態(tài)變化的，但棧底指針是不變的

D、在帶鏈隊(duì)列中，隊(duì)頭指針和隊(duì)尾指針可以指向同一個(gè)位置

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：帶鏈的隊(duì)列就是用一個(gè)單鏈表來表示隊(duì)列，隊(duì)列中的每一個(gè)元素對(duì)應(yīng)

鏈表中的一個(gè)節(jié)點(diǎn)，在入隊(duì)和退隊(duì)過程中，隊(duì)頭指針和隊(duì)尾指針都是在動(dòng)態(tài)變化

的，A選項(xiàng)敘述正確，循環(huán)隊(duì)列中當(dāng)隊(duì)列滿或者空時(shí)，隊(duì)頭指針和隊(duì)尾指針指向同

一個(gè)位置.D選項(xiàng)敘述iF確.棧也可以采用鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)表示.把棧組織成一個(gè)單

鏈表，這種數(shù)據(jù)結(jié)構(gòu)可禰為帶鏈的棧，入棧和退棧過程中棧底指針不變，棧頂指針

隨之變化，B選項(xiàng)敘述錯(cuò)誤，C選項(xiàng)敘述正確。故選擇B選項(xiàng)。

5、軟件生命周期中，確定軟件系統(tǒng)要做什么的階段是

A、需求分析

B、軟件測(cè)試

C、軟件設(shè)計(jì)

D、系統(tǒng)維護(hù)

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：軟件生命周期各階段的主要任務(wù)是：?jiǎn)栴}定義、可行性研究與計(jì)劃制

定、需求分析、軟件設(shè)計(jì)、軟件實(shí)現(xiàn)、軟件測(cè)試、運(yùn)行維護(hù)。其中需求分析是指對(duì)

待開發(fā)軟件提出的需求進(jìn)行分析并給出詳細(xì)定義，也即是確定軟件系統(tǒng)要做什么，

A選項(xiàng)正確。

6、下面對(duì)軟件測(cè)試和軟件調(diào)試有關(guān)概念敘述錯(cuò)誤的是

A、嚴(yán)格執(zhí)行測(cè)試計(jì)劃，排除測(cè)試的隨意性

B、程序調(diào)試通常也稱為Debug

C、軟件測(cè)試的目的是發(fā)現(xiàn)錯(cuò)誤和改正錯(cuò)誤

D、設(shè)計(jì)正確的測(cè)試用例

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：軟件測(cè)試就是在軟件投入運(yùn)行之前，盡可能多地發(fā)現(xiàn)軟件中的錯(cuò)誤，

但改正錯(cuò)誤又調(diào)試完成，C選項(xiàng)敘述錯(cuò)誤。軟件測(cè)忒應(yīng)在測(cè)試之前制定測(cè)試計(jì)劃，

并嚴(yán)格執(zhí)行，排除測(cè)試隨意性，并且需要設(shè)計(jì)正確的測(cè)試用例，AD選項(xiàng)敘述正

確。調(diào)試（也稱為Debug,排錯(cuò)）是作為成功測(cè)試的后果出現(xiàn)的步驟而調(diào)試是在測(cè)

試發(fā)現(xiàn)錯(cuò)誤之后排除錯(cuò)誤的過程，B選項(xiàng)敘述正確。故選擇C選項(xiàng)。

7、下面屬于系統(tǒng)軟件的是

A、財(cái)務(wù)管理系統(tǒng)

B、編譯軟件

C、編輯軟件Word

D、殺毒軟件

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：計(jì)算機(jī)軟件按功能分為應(yīng)用軟件、系統(tǒng)軟件、支撐軟件（或工具軟

件）。系統(tǒng)軟件是管理計(jì)算機(jī)的資源，提高計(jì)算機(jī)的使用效率，為用戶提供各種服

務(wù)的軟件，如操作系統(tǒng)、數(shù)據(jù)庫管理系統(tǒng)、編譯程序、匯編程序和網(wǎng)絡(luò)軟件等，B

選項(xiàng)正確。A、C、D選項(xiàng)為應(yīng)用軟件。

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

A、屬性

B、鍵

C、關(guān)系

D、域

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：采用E-R方法得到的全局概念模型是對(duì)信息世界的描述，并不適用

于計(jì)算機(jī)處理，為了適合關(guān)系數(shù)據(jù)庫系統(tǒng)的處理，必須將E-R圖轉(zhuǎn)換成關(guān)系模

式。這就是邏輯設(shè)計(jì)的主內(nèi)容。E-R圖是由實(shí)體、屬性和聯(lián)系組成，而關(guān)系模式中

只有一種元素-關(guān)系。C選項(xiàng)正確。

9、有兩個(gè)關(guān)系R與S如下，由關(guān)系R和S得到關(guān)系T,則所使用的操作為

RST

AAlBBlB2

a0f3k2

kJa0n2xl

b1f3k2

b1n2xl

A、并

B、自然連接

C、笛卡爾積

D、交

標(biāo)準(zhǔn)答案：c

知識(shí)點(diǎn)。析：用于查詢的3個(gè)操作無法用傳統(tǒng)的集合運(yùn)算表示，引入的運(yùn)算為投影

運(yùn)算、選擇運(yùn)算、笛卡爾積。常用的擴(kuò)充運(yùn)算有交、除、連接及自然連接等。并：

RS是將S中的記錄追加到R后面。交：RS結(jié)果是既屬于R又屬于S的記錄組成

的集合。上述兩種操作中，關(guān)系R與S要求有相同的結(jié)構(gòu)，故A、D選項(xiàng)錯(cuò)誤。

自然連接：去掉重復(fù)屬性的等值連接。自然連接要求兩個(gè)關(guān)系中進(jìn)行，比較的是相

同的屬性，并且進(jìn)行等值連接，本題中結(jié)果T應(yīng)為空，B選項(xiàng)錯(cuò)誤。若T為笛卡爾

積，結(jié)果為5元關(guān)系，元組個(gè)數(shù)為4,且計(jì)算結(jié)果與題目相符，C選項(xiàng)正確。

10、在數(shù)據(jù)管理的三個(gè)發(fā)展階段中，數(shù)據(jù)的共享性好且冗余度最小的是

A、人工管理階段

B、文件系統(tǒng)階段

C、數(shù)據(jù)庫系統(tǒng)階段

D、面向數(shù)據(jù)應(yīng)用系統(tǒng)階段

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：數(shù)據(jù)管理技術(shù)的發(fā)展經(jīng)歷了3個(gè)階段：人工管理階段、文件系統(tǒng)階段

和數(shù)據(jù)庫系統(tǒng)階段。由下表可知C選項(xiàng)正確。

特點(diǎn)人工管理階段文件系統(tǒng)階段數(shù)據(jù)庫系統(tǒng)階段

管理者人文件系統(tǒng)數(shù)據(jù)庫管理系統(tǒng)

面向?qū)ο竽硞€(gè)應(yīng)用程序某個(gè)應(yīng)用程序現(xiàn)實(shí)世界

共享程度無共享，冗余度大共享性差，冗余度大共享性大，冗余度小

獨(dú)立性不獨(dú)立，完全依賴于獨(dú)立性差具有高度的物理獨(dú)立性和一

程序定的邏輯獨(dú)立性

結(jié)構(gòu)化無結(jié)構(gòu)記錄內(nèi)有結(jié)構(gòu)，整體無結(jié)整體結(jié)構(gòu)化，用數(shù)據(jù)模型描述

構(gòu)

控制能力由應(yīng)用程序控制由應(yīng)用程序控制由DBMS提供數(shù)據(jù)安全性、完整

性、并發(fā)控制和恢復(fù)

11、為了在窗體上畫一個(gè)文件列表框，應(yīng)先在工具箱窗口中選中的圖標(biāo)是

A、—

B、N

C、囿

D、,

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析:A項(xiàng)是DirListBox目錄列表框;B項(xiàng)是DrivcListBox驅(qū)動(dòng)列表框；C

項(xiàng)是FileLisiBox,文件列表框；D項(xiàng)ListBox列表把。故選擇C項(xiàng)。

12、下面能正確定義二維數(shù)組的是

A、Dimx(-l,3)

Dimx(0To3)

C、Dimx(-5To-2,3)

D、Dimx(0To-2,3)

標(biāo)準(zhǔn)答案：c

知識(shí)點(diǎn)解析：數(shù)組定義的下界一定要比上界小，故D錯(cuò)誤，其他各選項(xiàng)符合數(shù)組

的定義。

13、要把數(shù)學(xué)式“7,寫為VisualBasic表達(dá)式,下面正確的寫法是

A、3*x+Sqr(y)/2*y-xA3

B、(3*x+Sqr(y))/(2*y-xA3)

C、(3*x+Sqr(y))?(2*y-xA3)

D、(3x+Sqr(y))/(2y-xA3)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：算術(shù)運(yùn)算符優(yōu)先級(jí)最高是乘方，取負(fù)，乘法和除法運(yùn)算符，整除運(yùn)算

符，加法和減法運(yùn)算符；數(shù)學(xué)函數(shù)的平方根函數(shù)是sqr(x),返回值為自變量x的

平方根。故選擇B選項(xiàng)。

14、某人在窗體模塊中定義了如下自定義類型：TypeRecnumAsIntegernameAs

StringEndType但發(fā)現(xiàn)程序不能運(yùn)行，關(guān)于這一問謝，下面敘述中正確的是

A、自定義類型不能寫在窗體模塊中

B、自定義類型只能寫在標(biāo)準(zhǔn)模塊中

C、在TypeRcc前面添加關(guān)鍵字Public就可解決問題

D、在TypeRec前面添加關(guān)鍵字Private就可解決問題

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：對(duì)于用戶定義的數(shù)據(jù)類型，在標(biāo)準(zhǔn)模塊中定義時(shí)，關(guān)鍵字Type前面

可以有Public(默認(rèn))或者Privale；但當(dāng)在窗體模塊中定義時(shí)，必須在前面加上關(guān)

鍵字Private,故選擇D選項(xiàng)。

15、執(zhí)行語句PrintRight$(Mid$("ABCDEFG';2,5),3)后的輸出是

A、DEF

B、EFG

C、FG

D、BCDEF

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：字符串截取函數(shù)Mid$(s,nl,n2)從字符串s的第nl個(gè)字符開始，向后

截取n2個(gè)字符,Right(s,n)截取字符串s右邊的n個(gè)字符。Mid$("ABCDEFG';2,

5)是從字符串“ABCDEFG”的第2個(gè)字符開始，向后截取5個(gè)字符，得到字符串

"BCDEF"；Right$(Mid$("ABCDEFG",2,5),3)=Right$(nBCDEF",3)="DEF"。故選

擇A項(xiàng)。

16、下列關(guān)于InpulBox函數(shù)的敘述中，錯(cuò)誤的是

A、InputBox函數(shù)用于從鍵盤輸入數(shù)據(jù)，不能從文件輸入數(shù)據(jù)

B.InputBox函數(shù)返回?cái)?shù)據(jù)的類型與從鍵盤輸入數(shù)據(jù)的類型相同

C、不論從鍵盤輸入的是數(shù)值還是字符串，InputBox函數(shù)返回的都是字符串

D、調(diào)用一次InputBox函數(shù)只能從鍵盤輸入一個(gè)數(shù)據(jù)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：InputBox函數(shù)的返回值，即用戶在對(duì)話框中輸入的數(shù)據(jù)，它被默認(rèn)為

一個(gè)字符串，故不與從鍵盤輸入數(shù)據(jù)的類型相同，選項(xiàng)B錯(cuò)誤，C正確。InputBox

的返回值是只能是用戶在對(duì)話框輸入的數(shù)據(jù)，故選項(xiàng)A正確。每次執(zhí)行InputBox

函數(shù)只能輸入一個(gè)值，如果要輸入多個(gè)值，則必須多次調(diào)用該函數(shù)，故選項(xiàng)D正

確。答案為B。

17、如果把Tcxtl文本框的MousePointcr屬性設(shè)置為2(把鼠標(biāo)光標(biāo)設(shè)置為十

字)，則

A、當(dāng)Textl獲得焦點(diǎn)時(shí)，鼠標(biāo)光標(biāo)變?yōu)槭?/p>

B、當(dāng)鼠標(biāo)移動(dòng)到Tcxtl的范圍內(nèi)時(shí)鼠標(biāo)光標(biāo)變?yōu)槭?/p>

C、當(dāng)按下鼠標(biāo)右鍵時(shí)鼠標(biāo)光標(biāo)變?yōu)槭?/p>

D、當(dāng)Textl文本框移動(dòng)時(shí)鼠標(biāo)光標(biāo)變?yōu)槭?/p>

標(biāo)準(zhǔn)答案:B

知識(shí)點(diǎn)解析：鼠標(biāo)光標(biāo)的形狀由MousePoinier屬性決定，當(dāng)MousePoinler屬性為2

時(shí)，光標(biāo)為十字型指針，當(dāng)光標(biāo)在文本框內(nèi)，就顯示十字指針型，即當(dāng)鼠標(biāo)移動(dòng)到

Tcxtl范圍內(nèi)時(shí)，光標(biāo)變?yōu)槭?，故B選項(xiàng)正確。

18、設(shè)有以下程序代碼：PrivateSubCommand1_Click()StaticaAsIntegerproca

PrintaEndSubSubproc(xAsInteger)x=x+1EndSub運(yùn)行程序，3次單擊命令按

鈕，第3次單擊后顯示的是

A、0

R、1

C、3

D、4

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：過程proc中的參數(shù)是按地址傳的，即實(shí)參的地址傳給形參，形參x

的變化也意味著a的變化，形參x增加1,實(shí)參變量a等于x,即也增加1。程序初

始定義靜態(tài)變量a,a將保留上次程序執(zhí)行的值，CommandLClick。的意思就是每

單擊一次命令按鈕，調(diào)用proc過程，使得a增加1,并輸出a的值。三次單擊命令

按鈕，每次a都保留上次程序執(zhí)行的值，a增加了3,故第三次單擊顯示a為3。

19、下面敘述中錯(cuò)誤的是

A、全局變量只能在標(biāo)準(zhǔn)模塊中定義

B、全局變量可以在窗體模塊中定義

C、窗體級(jí)變量可以在窗體的過程中定義

D、局部變量可以在窗體的所有過程前面定義

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：全局變量的作用域最大，可作用于應(yīng)用程序的每個(gè)模塊和過程，全局

變量只能在標(biāo)準(zhǔn)模塊中聲明，不能再窗體模塊或者過程中聲明，所以A選項(xiàng)正

確，B選項(xiàng)錯(cuò)誤。窗體級(jí)變量屬于模塊變量，可以用于該窗體的所有過程，故選項(xiàng)

C正確。局部變量是在過程內(nèi)定義的變量，故選項(xiàng)D正確。答案為B。

20、在程序中發(fā)現(xiàn)有語句：Put#l,2,num并且能夠正確執(zhí)行，因此可以判斷

A、已經(jīng)打開了文件號(hào)為1的順序文件

B、已經(jīng)打開了文件號(hào)為2的順序文件

C、已經(jīng)打開了文件號(hào)為1的隨機(jī)文件或二進(jìn)制文件

D、已經(jīng)打開了文件號(hào)為2的隨機(jī)文件或二進(jìn)制文件

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：在進(jìn)行隨機(jī)文件的讀寫操作之前，需要打開一個(gè)隨機(jī)文件，打開之后

才能進(jìn)行讀操作或?qū)懖僮鳌９蔬x項(xiàng)A,B錯(cuò)誤。寫操作格式：Put#文件號(hào)，［記錄

號(hào)］,變量；功能：把“變量”的內(nèi)容寫入由“文件”號(hào)所指定的磁盤文件中。知文件號(hào)

為1,故D選項(xiàng)錯(cuò)誤，本題正確答案是B。

21、下面關(guān)于單選按鈕的敘述中正確的是

A、一個(gè)窗體上所有單選按鈕是一組，只能有一個(gè)被選中，不能分組

B、在兩個(gè)框架控件中分別各畫一組單選按鈕，則每組單選按鈕中有一個(gè)可以被選

中

C、在窗體上畫兩個(gè)單選按鈕數(shù)組，則每個(gè)數(shù)組中分別有一個(gè)可以被選中

D、上述都是錯(cuò)誤的

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：?jiǎn)芜x按鈕可以根據(jù)需要進(jìn)行分組，故選項(xiàng)A錯(cuò)誤。如果程序界面上

有不止一個(gè)單選按鈕組時(shí)，應(yīng)使用容器控件（通常使用框架（Frame））將組與組

區(qū)分開來，這樣每組單選按鈕中都有一個(gè)可以被選中。故選擇B正確，C錯(cuò)誤。本

題答案為Re

22、下面關(guān)于組合框的敘述中錯(cuò)誤的是

A、組合框Text屬性的值是其編輯區(qū)中的文本

B、組合框Text屬性的值是被選中項(xiàng)目的文本

C、組合框的Text屬性是個(gè)數(shù)組，其中存放著所有項(xiàng)目的文本

D、組合框Style屬性的值決定了組合框的類型

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：Text屬性值是用戶所選擇的項(xiàng)目的文本或者直接從編輯區(qū)輸入的文

本。故A項(xiàng)和B項(xiàng)表述正確，C項(xiàng)表述錯(cuò)誤。組合框的Style屬性的值決定了組合

框的類型，當(dāng)style分別設(shè)為0,1,2時(shí)，組合框分別為下拉式組合框，簡(jiǎn)單組合框，

下拉式列表框，故選項(xiàng)D表述正確。

23、為了使文本框中的文本能夠水平滾動(dòng)，應(yīng)采取的正確方法是

A、把文本框的ScrollBars屬性設(shè)置為1-Horizontal

B＞把文本框的MulliLine屬性設(shè)置為True

C、同時(shí)把文本框的ScrollBars屬性設(shè)置為1-Horizontal,MukiLine屬性設(shè)置為

True

D、在文本框下面畫一個(gè)長度與文本框?qū)挾认嗤乃綕L動(dòng)條控件

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：ScrollBars屬性用來確定文木框中有無滾動(dòng)條，只有當(dāng)MultiLine屬性

設(shè)置為True時(shí)，ScrollBars屬性才有效。只有同時(shí)把文本框的ScrollBars屬性設(shè)置

為1-Horizontal,MultiLine屬性設(shè)置為True時(shí),文本框中的文本才能夠水平滾動(dòng)，

故C正確，A項(xiàng)和B項(xiàng)都錯(cuò)誤。D項(xiàng)不能滿足題目需要，故錯(cuò)誤。

24、下面關(guān)于KcyPress事件的敘述中正確的是

A、按下F1鍵能夠激活KeyPress事件

B、按下字符“A”鍵和按下“a”鍵時(shí)，KeyPress事件過程的KeyAscii參數(shù)的值是不同

的

C、無法在KeyPress事件過程中區(qū)分按下的字母鍵是大寫還是小寫

D^窗體不響應(yīng)KeyPress事件

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：當(dāng)按下某個(gè)鍵，所觸發(fā)的是擁有輸入焦點(diǎn)的那個(gè)控件的KeyPress事

件，該事件可用于窗體、復(fù)選框、文本框等，故D項(xiàng)表述錯(cuò)誤。按下字符“A”建和

按下“a”鍵時(shí)，KeyPress事件過程的KeyAscii參數(shù)的值是不同的，這是因?yàn)?/p>

KeyPress事件帶有一個(gè)參數(shù)，其中一種形式，用來識(shí)別按鍵的ASCH碼，當(dāng)按下

“A”鍵，KeyAseii的值為65,當(dāng)按下鍵,KeyAseii的值為97」故B正確,C錯(cuò)

誤。按下F1鍵不一定能夠激活KeyPress事件，如果沒有定義F1鍵的Keypress事

件過程，就不能激活KeyPress事件。

25、窗體上有Checkl、Check2兩個(gè)復(fù)選框,標(biāo)題分別為“下劃線”、“加粗”,還有

一個(gè)Textl文本框和一個(gè)Command1命令按鈕。程序的功能是：?jiǎn)螕鬋ommand1

按鈕，則根據(jù)復(fù)選框選中的情況對(duì)文本框中的文字做相應(yīng)的修飾，如圖所示。下面

為Command1編寫的事件過程中能正確實(shí)現(xiàn)這一功能的是

A、PrivateSubCommandl_Click()IfCheck1ThenText1.FontUnderline=TrueElse

Text1.FontUnderline=FalseEndIfIfCheck2ThenTextl.FontBold=TrueElse

Textl.FontBold=FalseEndIfEndSub

B、PrivateSubCommand1_Click()IfCheck1ThenTextI.FontUnderline=TrueElse

Textl.FontBold=TrueEndIfEndSub

C、PrivateSubCommandI_Click（）IfCheck1ThenTextl.FontUnderline=Not

Textl.FontUnderlineEndIfIfCheck2ThenTextl.FontBold=NotTextl.FontBoldEnd

IfEndSub

D、PrivateSubCommandl_Click（）IfCheck1ThenText1.FontUnderline=Not

Textl.FontUnderlineElseText1.FontBold=NotTextl.FontBoldEndIfEndSub

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：A項(xiàng)程序滿足題目要求，當(dāng)勾選加粗單擊執(zhí)行后，字體加粗，當(dāng)勾選

下劃線，單擊執(zhí)行后，文本加入下劃線。B項(xiàng)程序甯誤，當(dāng)沒有勾選下劃線，單擊

執(zhí)行按鈕后，文字加粗；C項(xiàng)程序錯(cuò)誤，C項(xiàng)程序會(huì)發(fā)生如下錯(cuò)誤，如果連續(xù)兩次

勾選下劃線（或者加粗）后單擊執(zhí)行兩次，那么笫二次單擊執(zhí)行結(jié)果是文本無下劃

線（或者加粗）。D項(xiàng)程序錯(cuò)誤，D如果連續(xù)兩次勾選下劃線后單擊執(zhí)行兩次，那

么第二次單擊執(zhí)行結(jié)果是文本不僅有下劃線，且文本被加粗。

26、下面關(guān)于控件數(shù)組的敘述中正確的是

A、控件數(shù)組共用同一個(gè)Click事件過程，因此在過程中無法區(qū)分單擊了哪個(gè)控件

B、控件數(shù)組共用同一個(gè)Click事件過程，但在過程中可以區(qū)分單擊了哪個(gè)控件

C、控件數(shù)組中不同控件使用不同的Click事件過程

D、控件數(shù)組中的控件具有相同的名稱，Tabindex屬性的值代表了它們下標(biāo)

標(biāo)準(zhǔn)答案：R

知識(shí)點(diǎn)解析：控件數(shù)組中任意一個(gè)控件的事件都將觸發(fā)整個(gè)控件數(shù)組的事件，不再

作為單獨(dú)控件的事件處理。也就是說，如果建立了一組單選按鈕的控件數(shù)組，那么

無論單擊哪個(gè)單選按鈕，都將觸發(fā)整個(gè)控件數(shù)組的Click事件。為了區(qū)分是控件數(shù)

組中哪個(gè)控件產(chǎn)生的事件，VisualBasic將產(chǎn)生事件控件的索引號(hào)傳遞給控件數(shù)組

的事件過程。而一組單選按鈕構(gòu)成的控件數(shù)組的Click事件過程增加了一個(gè)In加x

參數(shù)：通過Index參數(shù)來判斷是哪一個(gè)單選按鈕觸發(fā)的Click事件。建立控件數(shù)組

之后，無論單擊哪一個(gè)單選按鈕，都將觸發(fā)這個(gè)Click事件過程，故C選項(xiàng)錯(cuò)誤。

控件數(shù)組共用同一個(gè)Click事件過程，但在過程中可以通過Index參數(shù)，區(qū)分單擊

了哪個(gè)控件，故選項(xiàng)A錯(cuò)誤，B正確。些控件共用一個(gè)相同的控件名（即控件數(shù)

組中所有控件的Name屬性相同），控件數(shù)組中的每個(gè)控件元素都有一個(gè)唯一的索

引號(hào)（Index屬性）加以區(qū)分。故D項(xiàng)錯(cuò)誤。

27、在Fonnl窗體上有一個(gè)菜單項(xiàng)，名稱為Menu,它有自己的子菜單。若希望在

鼠標(biāo)右鍵單擊窗體時(shí)能夠彈出Menu的子菜單，某人編寫了下面的事件過程：

PrivateSubForm_MouscDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single）IfButton=2ThenMenuPopupMenuEndIfEndSub但調(diào)試時(shí)發(fā)現(xiàn)不能達(dá)至U

目的，需要修改程序，下面正確的修改方案是

A、把IfButton=2Then改為IfButton=1Then

B、把過程名改為Forml_MouseDown

C^把MenuPopupMenu改為PopupMenu

D、把MenuPopupMenu改為PopupMenuMenu

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：PopupMenu方法用來顯示彈出式菜單，PopupMenu后接菜單名。菜

單名是在菜單編輯器中定義的主菜單項(xiàng)名，故選項(xiàng)D正確，C選項(xiàng)錯(cuò)誤。對(duì)于兩

個(gè)鍵的鼠標(biāo)來說，左鍵的Button參數(shù)值為1,右鍵的Button參數(shù)值為2,因此，若

鼠標(biāo)右鍵單擊窗體時(shí)能夠彈出Menu的子菜單，IfBullon=2條件語句正確，故A選

項(xiàng)錯(cuò)誤。故本題答案為D項(xiàng)。

28、如果要在圖片框Picture1中輸出文本“圖片框”，則正確的語句是

A、Piclurel.Print”圖片框”

B、Picturel.Write”圖片框”

C、Print”圖片框”

D、Write”圖片框”

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：圖片框中用print方法輸出文本信息，故選擇A項(xiàng)。

29、下面關(guān)于鼠標(biāo)拖放操作的敘述中錯(cuò)誤的是

A、源對(duì)象的DragMode屬性用來設(shè)置拖動(dòng)模式

B、當(dāng)鼠標(biāo)拖動(dòng)源對(duì)象到達(dá)目標(biāo)對(duì)象上并放開鼠標(biāo)鍵時(shí)，引發(fā)目標(biāo)對(duì)象的DragDrop

事件

C、控件的Dragicon屬性可以加載一個(gè)圖標(biāo)

D、在自動(dòng)拖放模式下，用鼠標(biāo)把源對(duì)象拖到目標(biāo)位置放開，就實(shí)現(xiàn)了源對(duì)象的移

動(dòng)，不必再編程

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：A、B、C項(xiàng)表述都正確。在自動(dòng)模式下，如果只是修改其屬性，那

么當(dāng)松開鼠標(biāo)鍵后，被泡動(dòng)的控件又回到原來的位置，只有編寫相關(guān)事件過程，才

能實(shí)現(xiàn)了源對(duì)象的移動(dòng)，故D項(xiàng)錯(cuò)誤。

30、窗體上有1個(gè)名稱為CDI的通用對(duì)話框，1個(gè)名稱為Command1的命令按鈕

和1個(gè)Textl文本框，并有如下程序：PrivateSubCommandl_Click()CD1.Action=

3IfCD1.Color>=0ThenText1.ForeColor=CD1.ColorEndIfEndSub運(yùn)行程序并單

擊命令按鈕，下面敘述中錯(cuò)誤的是

A、彈出顏色對(duì)話框

B、在彈出的對(duì)話框中選了一個(gè)顏色并單擊“確定”按鈕后，會(huì)改變文本框中文本的

顏色

C、把代碼CD1.Action=3改為CDl.ShowColor,效果是一樣的

D、在彈出的對(duì)話框中選了一個(gè)顏色并單擊“確定“按鈕后，會(huì)改變文本框的背景色

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：通用對(duì)話框中的Action屈性為3時(shí)或者使用showColor方法，可將通

用對(duì)話框的類型設(shè)置為顏色對(duì)話框，故選項(xiàng)A、C正確。Text1.ForeColor=

CDl.Color是用來改變文本框文本的顏色，故選項(xiàng)B正確，D錯(cuò)誤。

31、有以下函數(shù):Functionfun(xAsInteger,yAsInteger)AsIntegerDoWhilex>=y

x=x-yLoopfun=xEndFunction則下面語高中與語句x=fun(5,2)等效(即為x

賦相同值)的語句是

A、x=5\2

B、x=5/2

C、x=5-2

D、x=5Mod2

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：DoWhile循環(huán)意思是如果x>=y,那么x減去y,并將所得結(jié)果重新

賦值給x,如此執(zhí)行循環(huán)體，直到x小于y為止。Fun(5,2)執(zhí)行過程：5>2,x=5-

2=3；因3>2繼續(xù)執(zhí)行循環(huán)，x=3-2=l,1小于2,循環(huán)終止，故最后返回值為1,5

mod2的值也為1。故選擇D項(xiàng)。

32、下面程序的功能是利用隨機(jī)數(shù)函數(shù)模擬擲骰子。方法是每次隨機(jī)產(chǎn)生一個(gè)1?

6的整數(shù)，相當(dāng)于一次擲骰子。程序運(yùn)行后，在Text2文本框中輸入總投擲次數(shù)

(例如10000),單擊”開始投擲”按鈕則進(jìn)行模擬擲骰子，并把出現(xiàn)1?6的次數(shù)

分別顯示在文本框數(shù)組Textl(從上到下各文本框的下標(biāo)為0—5)的各元素中，如

圖所示PrivateSub

Commandl_Click()Dima(6)Randomizen=Int(Text2.Text)Fork=1Tonn=Int(Rnd

*6)+1a(n)=NextkForn=OTo5Textl(n).Text=a(n+1)

NextnEndSub該程序不完整，在橫線上應(yīng)填寫的是

A、n

a(n)+1

C、a(n)+n

D、a(n)+k

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：所填的是計(jì)數(shù)數(shù)組的自增，每當(dāng)產(chǎn)生一個(gè)在1到6之間的某一隨機(jī)

數(shù)，當(dāng)要在其所對(duì)應(yīng)數(shù)組的下標(biāo)中的元素值加1,,在對(duì)應(yīng)的計(jì)數(shù)數(shù)組

a(n)=a(n)+l,故選擇B項(xiàng)。

33、下面是一個(gè)判斷并瑜出獲得獎(jiǎng)學(xué)金信息的程序：PrivateSub

Commandl_Click()a%=InputBox("請(qǐng)輸入主課成績1")b%=CputBox("請(qǐng)輸入主課

成績2")c%=InputBox，請(qǐng)輸入副課成績")s=(a+b+c)/3Ifs>=85ThenIfa>=

90Andb>=90ThenPrint”獲得一等獎(jiǎng)學(xué)金"ElsePrint”獲得二等獎(jiǎng)學(xué)金"EndIfElse

Ifa>=95Orb>=95ThenPrint”獲得三等獎(jiǎng)學(xué)金"ElsePrint”不獲得獎(jiǎng)學(xué)金"EndIf

EndIfEndSub程序運(yùn)行時(shí),如果輸入的依次是90、91、72,則輸出是

A、獲得一等獎(jiǎng)學(xué)金

B、獲得二等獎(jiǎng)學(xué)金

C、獲得三等獎(jiǎng)學(xué)金

D、不獲得獎(jiǎng)學(xué)金

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：輸入的依次是90、91、72時(shí),a=90,b=91,c=72,平均成績

§二253/3=84；5小于85且不滿足12>=9501/>=95的條件，故輸出是不獲得獎(jiǎng)

學(xué)金。

34、編寫如下程序：PrivateSubCommandl_Click()x=4n=1Dox=2*x-3n=n

+1PrintxLoopUntilx>30PrintnEndSub在保證程序輸出不變的前提下，可以把

循環(huán)條件Untilx>30改為

A、Untilx>40

B、Untilx>20

C、Whilex<40

D、Whilex>20

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：第一次執(zhí)行循環(huán)體得到x=5,n=2；第二次執(zhí)行循環(huán)體得到x=7,

n=3；第三次執(zhí)行循環(huán)體得到x=ll,n=4；第四次執(zhí)行循環(huán)體得到x=19,n=5；第

五次執(zhí)行循環(huán)體得到x=35,x=6,滿足x>30條件退出循環(huán)。若輸出結(jié)果相同，貝

當(dāng)x=35時(shí)，退出循環(huán)，選項(xiàng)中只有B選項(xiàng)，即x=35時(shí)，滿足x>20條件，退出循

環(huán)。故選擇B項(xiàng)。

35、窗體上有一個(gè)Textl文本框和一個(gè)Command1命令按鈕。程序的功能是在文本

框中輸入密碼后單擊命令按鈕則進(jìn)行密碼確認(rèn)，若密碼正確，彈出信息框顯示"密

碼正確”，若密碼錯(cuò)誤，彈出信息框顯示“密碼錯(cuò)誤，請(qǐng)重新輸入”，但最多允許輸

出3次，若還不正確，則彈出信息框顯示"密碼錯(cuò)誤，不能再輸入”，且命令按鈕變

為無效。某人編寫了如下程序：PrivateSubCommandl_Click()DimnumAsInteger

num=num+1IfTextI.Text=M123456"ThenMsgBox"密碼正確"Elselfnum=3

ThenCommand1.Enabled=FalseMsgBox”密碼錯(cuò)誤，不能再輸入"ElseMsgBox”密

碼錯(cuò)誤，請(qǐng)重新輸入”EndIfEndSub調(diào)試時(shí)發(fā)現(xiàn)有錯(cuò)誤需要修改，下面正確的修

改方案是

A、把Elselfnum=3Then改為Elselfnum>3Then

B、把Command1.Enabled=False改為Command1.Enabled=True

C、把DimnumAsInteger改為StaticnumAsInteger

D、把num=num+1改為num=num+3

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：變量，，dim定義的變量稱為“自動(dòng)變量”，當(dāng)引用Dim定義變量時(shí)，

變量值會(huì)被重新設(shè)置(數(shù)值變量重新設(shè)置為0,字符串變量被設(shè)置為空)。也就是

說，下次再使用此變量，其值為初始值；而stalic定義變量，每次運(yùn)用該靜態(tài)變量

后，其值會(huì)繼續(xù)保留，作為下一次引用時(shí)該變量的初始值。每次運(yùn)行

Commandl_Qick()后，num的值都需保留，故選擇D項(xiàng)。

36、編寫如下程序:FunctionFun1(ByVaiaAsInteger,bAsInteger)AsIntegera=b

+ab=2*aFunl=bEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx

=5PrintFunl(Funl(x,x-1),x-2)EndSub程序運(yùn)行后,單擊命令按鈕

Command1,輸出結(jié)果為

A、5

B、42

C、50

D、68

標(biāo)準(zhǔn)答案：B

知識(shí)之解析：函數(shù)Funl參數(shù)a是值傳遞，b是地址傳遞，值傳遞是將實(shí)參變量值

傳遞給形參變量a,地址傳遞是將實(shí)參變量地址傳給形參變量b,這意味著a的變

化不會(huì)改變?cè)兞康闹?，b的變化會(huì)改變?cè)兞康闹怠６x局部變量x,x=5,調(diào)

用函數(shù)Funl(Funl(x,x-1),x-2),首先調(diào)用的Funl(5,4),此時(shí)a=9,b=18,

返回值為18；第二次調(diào)用fun(18,3),a=18+3=21,b=2*a=42,返回值為42,

故輸出結(jié)果為42,選B項(xiàng)。

37、下面程序的功能是：先輸入一個(gè)字符串，再輸入3個(gè)字符，然后統(tǒng)計(jì)這3個(gè)字

符分別在字符串中出現(xiàn)的次數(shù)并輸出PrivateSubCommandl_Click()Dimch$(3),

str$,prompts,count%(3)str=InputBox("請(qǐng)輸入-一個(gè)字符串")Fork=1To3prompt=

”請(qǐng)輸入要查找的第"&k&"個(gè)字符"ch(k)=InputBox(prompt)NextkForj=ITo

Len(str)Fork=1To3Ifch(k)=Thencount(k)=count(k)+1EndIfNextkNextjPrint

strFork=1To3Printch(k);"出現(xiàn)的次數(shù)為";count(k)NextkEndSub程序不完整,

在橫線上應(yīng)該填寫的是

A、Mid(str,k,1)

Mid(str,j,1)

C、str(k)

D、str(j)

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：將輸入對(duì)話框中輸入的第一個(gè)字符串賦值給str,第一個(gè)For循環(huán)，

將輸入3個(gè)字符復(fù)制到數(shù)組ch(3)中；第二個(gè)For的多重循環(huán)，利用數(shù)組couni

記錄字符串str中出現(xiàn)ch(3)數(shù)組元素的個(gè)數(shù)；最后一個(gè)For循環(huán)輸出記錄的次

數(shù)。則在第二個(gè)for的多重循環(huán)中，If條件語句應(yīng)為檢驗(yàn)待查找的字符ch(k)和

字符串str中的每個(gè)字符是否相同，相同時(shí)，條件為真。故應(yīng)該與Mid(str,j,

1)，即與str的j后的第一個(gè)字符比較，看是否相同。由于在For循環(huán)中，保證了

ch(k)每個(gè)元素和str的每個(gè)字符都進(jìn)行了比較。

38、窗體上有一個(gè)名稱為Linel的直線控件，并有如下程序：DimdownAs

Boolean,xI%,y1%PrivateSubForm_Load()Linel.Visible=Falsedown=FalseEnd

SubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,Y

AsSingle)IfButton=1Thendown=Truexl=X：yl=YEndIfEndSubPrivate

SubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If

Button=1Thendown=FalseLine1.xl=xl：Line1yl=y1LineI.x2=X：Linel.y2

=YLinel.Visible=TrueEndIfEndSub運(yùn)行程序，按下鼠標(biāo)左鍵不放，移動(dòng)鼠標(biāo)到

窗體其他位置處放開左鍵，則產(chǎn)生的結(jié)果是

A、以鼠標(biāo)按下和抬起的兩點(diǎn)為端點(diǎn)顯示一條直線

B、鼠標(biāo)按下時(shí)顯示一條直線：鼠標(biāo)抬起時(shí)直線消失

C、直線從鼠標(biāo)按下處移動(dòng)到鼠標(biāo)抬起處

D、鼠標(biāo)按下時(shí)直線消失；鼠標(biāo)抬起時(shí)顯示直線

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：如果光標(biāo)移到某個(gè)位置，按下鼠標(biāo)鍵，則產(chǎn)生MouscDown事件，松

開鼠標(biāo)鍵，產(chǎn)生MouseUp過程。對(duì)于兩個(gè)鍵的鼠標(biāo)來說，左鍵的Bullon參數(shù)值為

1,右鍵的Button參數(shù)值為2,因此IfButtons條件語句保證只有按下左鍵或松開

左鍵才能執(zhí)行IF后面的語句。鼠標(biāo)左鍵按下，執(zhí)行Foirn_MouseDown過程中，

xl,yl分別記錄了鼠標(biāo)按下的坐標(biāo)；鼠標(biāo)抬起，執(zhí)行Form_MouseUp過程，直線

起始點(diǎn)坐標(biāo)為(xl,yl),結(jié)束點(diǎn)坐標(biāo)為鼠標(biāo)左鍵放開時(shí)的坐標(biāo)(x2,y2),又直

線Linel可見屬性為true,故以鼠標(biāo)按下和抬起的兩點(diǎn)為端點(diǎn)顯示一條直線，故選

項(xiàng)A正確。

39、編寫如下程序:PrivateSubCommandl_Click()Dima(2,3)Fori=0To2Forj=

0To3a(i,j)=OputBox("請(qǐng)輸入整數(shù)")NextjNextiFori=0To2a(i,1)=a(i,3)Next

iFori=0To2Forj=0To3Printa(i,j),NextjPrintNextiEndSub程序運(yùn)行后，單

擊命令按鈕Command1,并輸入了12個(gè)整數(shù)：1,2,3,4,5,6,7,8,9,10,

11,12,則輸出結(jié)果為

AI10

B、143458789121112

C、321476581110912

D、3234767811101112

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：第一個(gè)For的多重循環(huán)，將輸入的12個(gè)整數(shù)賦值給數(shù)組a(2,3),

a[0,0]=l,a[0,l]=2,a[0,2]=3；a[l,0]=4,a[l,l]=5,a[l,2]=6：a[2,0]=7,a[2,l]=8,a[2,2]=9；

a[3,0]=10,a[3,l]=ll,a[3,2]=12；o第二個(gè)For循環(huán),將數(shù)組a的第4列的值賦值給第

2列；故輸出結(jié)果如B所示，B正確。

40、有如卜過程：PrivateSubCommandl_Click()DimNameAsString*20Open

"filel.dat"ForRandomAs#lLen=20k=1DoWhileNotEOF(l)Getk,Name

PrintNamek=k+2LoopClose#1EndSub這一過程的功能是

A、讀入文件filel.dal中所有記錄號(hào)為偶數(shù)的記錄并顯示在窗體上

B、讀入文件filel.dat中所有記錄號(hào)為奇數(shù)的記錄并顯示在窗體上

C、讀入文件filel.dat中記錄號(hào)為1的記錄并顯示在窗體上

D、把Name中的數(shù)據(jù)寫進(jìn)文件filel.dat中

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：Open語句兼有打開文件和建立文件兩種功能。Open"filel.dat"For

RandomAs#1Len=20以隨機(jī)方式打開filel.dat,記錄的長度為20個(gè)字節(jié)。EOF

函數(shù)用來返回測(cè)試文件的結(jié)束狀態(tài)，對(duì)于順序文件來說，如果已達(dá)到文件尾，則函

數(shù)返回值為True,否則返回值為False。利用EOF函數(shù)，可以避免在文件輸入時(shí)出

現(xiàn)”輸入超出文件尾”的錯(cuò)誤。EOF(n)的含義是已到達(dá)文件尾，NotEOF(n)的含

義是沒有到達(dá)n所對(duì)應(yīng)文件的末尾。DoWhileNotEOF(l)保證循環(huán)執(zhí)行，直到已

到達(dá)文件號(hào)為1的文件尾。Gel#文件號(hào)，【記錄號(hào)】，變量這一語句實(shí)現(xiàn)的功能是

將一個(gè)打開的磁盤文件的一條記錄讀到一個(gè)變量中。Get#l,k,Name,打開文

件號(hào)1文件，將記錄號(hào)為k的記錄讀到變量Name。PrintName將Name顯示在窗

體上。k的初始值為1,在循環(huán)中k=k+2,保證了循環(huán)中操作的記錄號(hào)為奇數(shù)，即

將讀入文件filel.dat中所有記錄號(hào)為奇數(shù)的記錄顯示在窗體上。故選項(xiàng)B正確，A

項(xiàng)和C項(xiàng)表述錯(cuò)誤。程序中并沒有把Name中的數(shù)據(jù)寫進(jìn)文件filel.dat中的語句，

故D項(xiàng)錯(cuò)誤。故選擇B項(xiàng)。

二、基本操作題(本題共7題，每題7.0分，共I分0)

41、(1)在名稱為Forml、標(biāo)題為“標(biāo)簽”的窗體上添加一個(gè)名稱為Labell的標(biāo)簽，

并設(shè)置適當(dāng)屬性以滿足以下要求：①標(biāo)簽的標(biāo)題為“計(jì)算機(jī)等級(jí)考試"：②標(biāo)簽可

根據(jù)標(biāo)題內(nèi)容自動(dòng)調(diào)整其大小；③標(biāo)簽帶有邊框，且標(biāo)簽標(biāo)題顯示為三號(hào)字。程

序運(yùn)行后的窗體如圖所示。注意：存盤時(shí)

必須存放在考生文件夾下，工程文件名保存為sjtl.vbp,窗體文件名保存為

sjtl.frnio(2)在名稱為Forml的窗體上添加一個(gè)名稱為Hscmlll的水平滾動(dòng)條，

其刻度范圍為1?100；再添加一個(gè)名稱為Textl的文本框，初始文本內(nèi)容為1,程

序開始運(yùn)行時(shí)，焦點(diǎn)在滾動(dòng)條上。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得程序運(yùn)行時(shí)，文本

框中實(shí)時(shí)顯示滾動(dòng)框的當(dāng)前位置。運(yùn)行情況如圖所示。注意：要求程序中不得使

用變最，每個(gè)事件過程中只能寫一條語句。存盤時(shí)必須存放在考生文件夾下，工

程文件名保存為sjl2.vbp,窗體文件名保存為sjt2.frm。

標(biāo)準(zhǔn)答案：步驟1：建立界面，添加相應(yīng)的控件并設(shè)置控件的屬性。程序中用到的

表3.49

*標(biāo)簽窗體

屬

NatnrCaptionAuUxSixeBorderStyleFontSixrCaption

件

設(shè)計(jì)算機(jī)等

ftIsbellTrue1三號(hào)標(biāo)簽

(ft級(jí)考試

控件及屬性見表3.49o

步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）步驟1：新建?個(gè)窗

體，按照題目要求建立控件并設(shè)置其屬性，如表3.50所示。

裊3.50

控件愎動(dòng)條文本梅

屬性NameMaxMinTablndcxNameText

設(shè)置值HScroUI10010Textl1

-----步驟2：打開代碼編輯

窗口，在指定位置編寫如下代碼。PrivateSubHScrolll_hange（）

Textl.Text=HSCr0111.ValueEndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題

目要求存盤。

知識(shí)點(diǎn)解析：⑴標(biāo)簽的Name和Caption屬性設(shè)置標(biāo)簽的名稱和標(biāo)題，AutoSize屬

性設(shè)置控件是否能夠自動(dòng)調(diào)整大小以顯示所有的內(nèi)容，BorderStyle屬性使標(biāo)簽帶

有邊框，F(xiàn)oniSize屬性設(shè)置字體的大小。（2）Tabln出x屬性是當(dāng)前窗體上控件的鍵

切換順序：運(yùn)行時(shí)按鍵會(huì)按照Tabindex值從小到大的順序進(jìn)行切換。將滾動(dòng)條的

Tablndcx屬性設(shè)置為0,可以使程序開始運(yùn)行時(shí)，焦點(diǎn)在滾動(dòng)條_L。當(dāng)滾動(dòng)框的位

置改變時(shí)，觸發(fā)Change事件。通過Texll.Text=HScrolll.ValUe語句可以實(shí)現(xiàn)在

文本框中顯示滾動(dòng)框的當(dāng)前位置。

三、簡(jiǎn)單應(yīng)用題（本題共7題，每題7.0分，共7分。）

42、（1）在考牛文件夾下有一個(gè)工程文件爾3.vbp,窗體上已經(jīng)有一個(gè)標(biāo)簽

Label1,請(qǐng)?zhí)砑右粋€(gè)單選按鈕數(shù)組，名稱為Opl,含三個(gè)單選按鈕，它們的Index

屬性分別為0、1、2,標(biāo)題依次為“飛機(jī)”、“火車”、“汽車”，再添加一個(gè)名稱為

Textl的文本框。窗體文件中已經(jīng)給出了Opl的Click事件過程，但不完整，要求

去掉程序中的注釋符，石程序中的?改為正確的內(nèi)容，使得在程序運(yùn)行時(shí)單擊“飛

機(jī)”或“火車”單選按鈕時(shí)，在Textl中顯示“我坐飛機(jī)去”或“我坐火車去”，單擊“汽

車”單選按鈕時(shí)，在Textl中顯示“我開汽車去”，如圖所示。

rForml

注意：不能修改程序中的其他部分。酸后

將修改后的文件按原文件名存盤。（2）在考生文件夾下有一個(gè)工程文件Bjt4.vbp,

Forml窗體中有一個(gè)文本框，名稱為Textl；請(qǐng)先在窗體上添加兩個(gè)框架控件，名

稱分別為Fl、F2,標(biāo)題分別為“性別”、“身份”：然后在F1中添加兩個(gè)單選按鈕控

件Opl、Op2,標(biāo)題分別為“男”、“女”；其次在F2中添加兩個(gè)單選按鈕控件0p3、

Op4,標(biāo)題分別為“學(xué)生”、“教師”；最后再添加一個(gè)命令按鈕，名稱為C1,標(biāo)題為

“確定”，如圖所示。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時(shí)，在Fl、f2中各選一個(gè)

單選按鈕，然后單擊“確定”按鈕，就可以按照下表把結(jié)果顯示在文本框中。

性別身份在文本框中顯示的內(nèi)容

男學(xué)生我是男學(xué)生

男教師我是男教帥

女學(xué)生我是女學(xué)生

女ttMi我是女教師

最后把修改后的

文件以原來的文件名存盤。注意：考生不得修改窗體文件中已經(jīng)存在的程序和

Texti的屬性，在結(jié)束程序運(yùn)行之前，必須進(jìn)行能夠產(chǎn)生上表中一個(gè)結(jié)果的操作。

必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。

標(biāo)準(zhǔn)答案：步驟1:打開本題工程文件，按照題目要求建市單選按鈕數(shù)組，如身

——________7L__

3.9所示。圖3.9步驟2：按照題目要求建立其

他控件并設(shè)置其屬性，見表3.4O

表3.4

輯窗口，去掉程序中的注釋符將問號(hào)改為正確的內(nèi)容。PrivateSubOpl

Click(TndexAsInteger)DimaAsString,hAsString.C.AsStringa="我坐"h="我開"

SelectCaseIndex'通過Index值決定響應(yīng)哪一個(gè)控件數(shù)組Case0Text!.Text=a+

Me.Op1(0).Caption+"去"Case1Textl.Text=a4-Me.Opl(l).Caption+"去”'

當(dāng)Index值為1時(shí)，選擇“我坐“Case2Textl.Text=b+Me.Op1(2).Caption+"

去"EndSeleclEndSub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

(2)步驟1：打開本題工程文件，按照題目要求建立框架控件并設(shè)置其屬性，如圖

3.10所示。步驟2：按照

步驟1建立其他控件并設(shè)置相關(guān)屬性，程序中用到的控件及屬性見表3.5和表

曜選按鈕I電空按鈕2單電技鈕3小選按鈕4

NameCaptionNameGq4i(mName(]apti<Mi

-6^~A￥±-opTZttW

3.6o步躲3：打開

代碼編輯窗口，在指定位置編寫如下代碼。PrivateSubClClick（）Textl.Text="我

是”‘首先確定不論選什么情況Textl的內(nèi)容一定以“我是“開頭IfOpl.ValueThen

Text2.Text=Textl.Text&Opl.CaptionElseTextl.Texl=Textl.Texl&

Op2.CaptionEndIf'通過單選按鈕的Value值（選攔為true,否則為false）確認(rèn)性

別。最后把其Caption值接至Textl后If0p3.ValueThenTextl.Text=

Textl.Text&Op3.CaptionElseTextl.Text=Textl.Text&Op4.CaptionEndIf

確認(rèn)身份，思路同上EndSub步驟4：詞試并運(yùn)行程序。關(guān)閉程序后按題目要求存

盤。

知識(shí)點(diǎn)解析：（1）通過Name屬性設(shè)置對(duì)象名稱：通過Caplion屬性設(shè)置對(duì)象的標(biāo)

題：設(shè)置兩個(gè)字符型變量a、b,a="我坐“，b="我開"，用于SelectCase選擇語

句的字符串連接；通過對(duì)單選按鈕數(shù)組Index屬性的查詢，實(shí)現(xiàn)單擊單選按鈕完成

字符串連接和文本框顯示操作的功能。（2）在窗體上建立好控件后，先設(shè)置控件屬

性，再編寫事件過程。本題需注意容器中控件的畫法。命令按鈕標(biāo)題由Caption屬

性設(shè)置，單擊命令觸發(fā)Click事件；單選按鈕的標(biāo)題由Caption屬性設(shè)置，程序中

需要檢測(cè)單選按鈕的狀態(tài)，通過VHue屬性來實(shí)現(xiàn)，如果單選按鈕被選中，則

VHue值為1,否則VHue值為0。在文本框中顯示內(nèi)容通過Text屬性實(shí)現(xiàn)，其形

式為：文本框名.Text=顯示的內(nèi)容。在VisuHBasic程序中，Open語句用于打開

順序文什，打開順序文'牛的基本格式為：OpenFileNameFoModeAs#FiIe-

Numberc,其中，F(xiàn)ileName表示要打開的文件的路徑；Mode為打開模式，OutPut

用于輸出，Append用于追加寫入，Input用于讀取；FileNumbct為打開文件時(shí)由定

的句柄。讀文件操作在窗體的Load事件過程中完成，寫文什操作在命令按鈕的

Click事件過程中完成。

四、綜合應(yīng)用題（本題共1題，每題1.0分，共1分0）

43、在考生文件夾下有一個(gè)工程文件sit5.vbp,窗體上有兩個(gè)命令按鈕，標(biāo)題分

別是“讀數(shù)據(jù)”和“統(tǒng)計(jì)”，請(qǐng)?zhí)砑右粋€(gè)名稱為Label1、標(biāo)題為“回文個(gè)數(shù)為”的標(biāo)簽和

一個(gè)名稱為Textl,初始內(nèi)容為空的文本框，如圖所示。程序功能如下：①單擊

“讀數(shù)據(jù)”按鈕，則將考生文件央下in5.dat文件的內(nèi)容讀到變量s中：②單擊“統(tǒng)

計(jì)“