國(guó)家二級(jí)VB機(jī)試（基本操作題）模擬試

卷第1套

一、基本操作題（本題共10題，每題1.0分，共10

分。）

1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。（1）在

名稱為Forml的窗體上建立一個(gè)名稱為cmdArray的命令按鈕數(shù)組，含3個(gè)命令按

鈕，它們的Index屬性分別為0、1、2,標(biāo)題依次為“是”、“否”、“取消”，每個(gè)按

鈕的高、寬均為400、900。窗體的標(biāo)題為“按鈕示例工運(yùn)行后的窗體如圖3—62

所示。圖342注意：存盤時(shí)必須存放在考生文件夾下，工

程文件名為vbsjl.vbp,窗體文件名為vbsjl.frm?（2）在名稱為Forml的窗體上

畫(huà)一個(gè)名稱為Drvl的驅(qū)動(dòng)器列表框，一個(gè)名稱為Dirl的目錄列表框，一個(gè)名稱為

Filel的文件列表框，名稱為L(zhǎng)abcll、標(biāo)題為“文件名”的標(biāo)簽和名稱為L(zhǎng)abcl2、

BorderSlyle為1的標(biāo)簽。窗體的標(biāo)題設(shè)置為“文件系統(tǒng)控件”。請(qǐng)編寫適當(dāng)?shù)某绦颍?/p>

使得這三個(gè)文件系統(tǒng)控件可以同步變化，即當(dāng)驅(qū)動(dòng)器列表框中顯示的內(nèi)容發(fā)生變化

時(shí)，目錄列表框和文件列表框中顯示的內(nèi)容同時(shí)發(fā)生變化。單擊文件列表框時(shí)，將

選中的文件名顯示在Label2中，如圖3—63所示。

注意：要求程序中不得使用變量，事件過(guò)程中只

能寫一條語(yǔ)句。存盤時(shí)必須存放在考生文件夾下，工程文件名為vbsj2.vbp,窗體

文件名為vbsj2.frmo

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，單擊工具

箱中的CommandButton控件圖標(biāo)，在窗體Fomil上拉出一個(gè)命令按鈕，在屬性設(shè)

置窗口中該單選按鈕名稱設(shè)置為cmdArray,Width屬性值設(shè)置為900,Height屬性

值設(shè)置為400。步驟2：選中cmdArray控件，選擇【編輯】【復(fù)制】命令，然

后選擇【編輯】一＞【粘貼】命令，在彈出的詢問(wèn)是否建立控件數(shù)組的對(duì)話框中，選

擇“是"按鈕，如圖4—1所示，則可以建立cmdArray控件數(shù)組的第2個(gè)元素。再次

選擇【編輯】【粘貼】命令，建立cmdArray控件數(shù)組的第3個(gè)元素。

圖

4/步驟3：依次選中cmdArray控件數(shù)組中各個(gè)元

素，設(shè)置它們的相關(guān)屬性，屬性及其值如表4-38所示。

?4-38

對(duì)盆?l性

cmdArray(0)Caption是

cmdArray(1)Caption否

cmdArray(2)Caption取消

窗體Caption按鈕示例

步驟4：按要求將文件保存至考

生文件夾中。第2小題【操作步驟】步驟1：新建“標(biāo)準(zhǔn)EXE”工程，往窗體

Forml中加入驅(qū)動(dòng)器列表框、目錄列表框控件、文件列表框控件各一個(gè)以及兩個(gè)標(biāo)

簽，分別設(shè)置它們的相關(guān)屬性，屬性及其值如表4-39所示。

*4-39

值寸

控件屬性

軀動(dòng)器列表機(jī)NameDrvl

目錄列表框控件NameDirl

文件列程框沖件NameFile!

NameLabel1

標(biāo)簽1

Caplion文件名

NameLabel：

標(biāo)簽2Caption

Borderstyle!

窗體Caption文件系統(tǒng)控件

步驟2：打開(kāi)代碼編輯窗

口，輸入如下代碼。參考代碼:PrivateSubDrvl.Change()Dirl.Path=

DrvI.DriveEndSubPrivateSubDirlChange()Filel.Path=Dir1.PathEndSub

PrivateSubFile!Click()Label2.Caption=File1.FileNameEndSub步驟3：按要

求將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析：暫無(wú)解析

2、（1）在名稱為Forml,標(biāo)題為“練習(xí)”的窗體上添加一個(gè)名稱為Framel、標(biāo)題為

“效果”的框架。框架內(nèi)含有三個(gè)復(fù)選框，其名稱分別為Chkl、Chk2和Chk3,標(biāo)

題分別為“傾斜”、“加粗”和“下劃線”。程序運(yùn)行后。勺窗體如圖所示。要求：存盤

時(shí)必須存放在考生文件夾下，工程文件名保存為m1.vbp,窗體文件名保存為

「博?

r

sjtl.frmo■■■■■■■■■i■■■■■■■■■■■■■■■■■■■（2）在名稱為Form1的窗體

上添加一個(gè)名稱為L(zhǎng)abell的標(biāo)簽，使其初始內(nèi)容為空，且能根據(jù)其標(biāo)題內(nèi)容自動(dòng)

調(diào)整標(biāo)簽的大小；再添加兩個(gè)命令按鈕，標(biāo)題分別為“口期”和“時(shí)間”，名稱分別為

Command1>Command2。請(qǐng)編寫兩個(gè)命令按鈕的Click事件過(guò)程，使得單擊“日期”

按鈕時(shí)，標(biāo)簽內(nèi)顯示系統(tǒng)當(dāng)前日期；單擊“時(shí)間”按鈕時(shí)，標(biāo)簽內(nèi)顯示系統(tǒng)當(dāng)前時(shí)

間。如圖所示。要求：程序中不得使

用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必須存放在考生文件夾

下，工程文件名保存為sjt2.vbp,窗體文件名保存為sit2.frm。

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立控件，程

序中用到的控件及屬性見(jiàn)表3.52o

表3.52

控件屬性設(shè)度值

窗體Caplion

NameFrrnnel

框架

Caption效果

NameChkl

復(fù)選框1

Caption傾斜

NameChk2

復(fù)選框2

Caplion加粗

NameChk3

復(fù)迭他3

Caption下劃線

------------------步驟2：調(diào)試并運(yùn)行程

序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：建立界面，添加相應(yīng)

控件并設(shè)置控件的屬性。程序中用到的控件及屬性見(jiàn)表3.53。

表3.53

設(shè)置值］

控件屬性

NameIsabell

標(biāo)簽Caplion

AutoSizeTure

NameCommand1

命令按鈕】

Caption日期

NamrComman<12

命令按鈕2

Caption時(shí)間

----------------步驟2：打開(kāi)代碼編輯窗

口，在指定位置編寫如下代碼。參考答案PriValesubCommandl_Click（）Labell=

Date'用于返回系統(tǒng)當(dāng)前日期EndSubPriVatesubCommand2_Click（）Label1=

Time，用于返回系統(tǒng)當(dāng)前時(shí)間EndSub步驟3：調(diào)試并運(yùn)行短序，關(guān)閉程序后按題

目要求存盤。

知識(shí)點(diǎn)解析：暫無(wú)解析

3、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。（1）在

名稱為Forml的窗體上建立一個(gè)如下表所示的下拉菜單，其中“設(shè)置”菜單項(xiàng)為灰

色（不可用），如圖3—137所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文

件名為sjt1.vbp，窗體文件名為sjt1.frm。

(2)在名稱為Form1的窗

體上畫(huà)一個(gè)名稱為Hsc⑹II的水平滾動(dòng)條，其最大刻度為100,最小刻度為0：再

畫(huà)兩個(gè)單選按鈕，名稱分別為Oplionl、Option2,標(biāo)題分別為“最大值”、“最小

值”，且都未選中。再通過(guò)屬性窗口設(shè)置適當(dāng)屬性便得程序剛運(yùn)行時(shí)，焦點(diǎn)在滾動(dòng)

條上(如圖3—138所示)。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，單擊“最大

值''單選按鈕，則滾動(dòng)條上的滾動(dòng)框移到最右端；單擊“最小值”單選按鈕，則滾動(dòng)

框移到最左端。注意：程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。存盤

時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為sji2.frm。

標(biāo)準(zhǔn)答案：第1小題步驟1：新建一個(gè)標(biāo)準(zhǔn)EXE”工程，利用菜單設(shè)計(jì)器按表4-

?4-81

標(biāo)題名稱內(nèi)埔符號(hào)有效性

收修ml0True

I.Hm20Tmc

選項(xiàng)al1True

設(shè)置a21False

所助m30True

81在窗體上建立一個(gè)二級(jí)菜單。-

步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：新建一個(gè)“標(biāo)準(zhǔn):

EXE”工程，按表4—82在窗體中畫(huà)出控件并設(shè)置其相關(guān)屬性。

表4€2

對(duì)象屬性值

NameHScn)lll

Max100

水水平動(dòng)條

Min0

Tahlndex0

單選按鈕1NameOpiicn1

Caption

ValueFalse

NunicOp(ion2

單選按鈕2Ciiplion最小值

ValueFalse

步驟2：打開(kāi)代碼編輯窗

口，編寫兩個(gè)單選按鈕的單擊事件過(guò)程。參考代碼：PrivateSubOptionl_Click()

HScrolll.Value=100EndSubPrivateSubOption2_Click()HScrolIl.Value=0End

Sub步驟3：按要求將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析：第1小題：本題只需按題目要求利用VB菜單設(shè)計(jì)器建立一個(gè)二級(jí)菜

單。第2小題：本題需要在窗體上二畫(huà)出水平滾動(dòng)條，并設(shè)置Tabindex屬性為

0：然后在單選按鈕的單擊事件中改變滾動(dòng)條的Value屬性值就能使滑塊處于指定

位置。

4、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在

名稱為Forml、標(biāo)題為“圖片?”的窗體上畫(huà)一個(gè)名稱為Imagel的圖像框，其高為

2500、寬為2000。請(qǐng)通過(guò)屬性窗口設(shè)置適當(dāng)屬性，裝入考生目錄下的圖片文件

picl.jpg,并使圖片適應(yīng)圖像框的大小(如圖3—156所示)。注意：存盤時(shí)必須存

放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frmo

(2)在名稱為Forml的窗體上畫(huà)一個(gè)名稱為L(zhǎng)abell、標(biāo)題為

“口令”的標(biāo)簽；畫(huà)一個(gè)名稱為Textl的文本框；再畫(huà)三個(gè)命令按鈕，名稱分別為

Command1>Command?、Command?,標(biāo)題分別為"顯示口令"、"隱藏口令"、"重

新輸入”。程序運(yùn)行時(shí)，在Textl中輸入若干字符，單擊“隱藏口令”按鈕，則只顯

示同樣數(shù)量的“*”,如圖3—157(b)所示；單擊“顯示口令”按鈕，則顯示輸入的字

符,如圖3—157(a)所示，單擊“重新輸入”按鈕，則清除Textl中的內(nèi)容,并把光

標(biāo)定位到Textl中。要求：請(qǐng)畫(huà)出所有控件，編寫命令按鈕的Click事件過(guò)程，程

序中不得使用變量，在“顯示口令''按鈕、"隱藏口令”按鈕的事件過(guò)程中只能寫一條

語(yǔ)句。存盤時(shí)必須存放在考生文件夾下，工程文件名為疝2.vbp,窗體文件名為

力btnl,宜GSCdmj"

DU嚴(yán)一口令什示一

?<?n..

?1■r?<人

MMUMMaw/wJ:■□??-v?二.1—x1afvoe?nan^?

I“———————--*----------一——.■一■一■?:?I1?

(a)(b)

sjt2.frmo圖3/57

標(biāo)準(zhǔn)答案：第1小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，畫(huà)出控件并設(shè)置相應(yīng)屬

性。步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：新建一個(gè)“標(biāo)

準(zhǔn)EXE”工程，按要求畫(huà)出控件并設(shè)置屬性。步驟2：在代碼編輯窗口，分別編寫

三個(gè)按鈕的單擊事件過(guò)程。參考代碼：PrivateSubCommandl_Click()

Tcxtl.PasswordChar=""EndSubPrivateSubCommand2_Click()

lextl.PasswordChar="*"EndSuhErivateSubCommand3_Click()Texll=n"

Textl.SetFocusEndSub步驟3：按要求將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析：第1小題：本題只需要在窗體上畫(huà)出控件并相應(yīng)設(shè)置其屬性即可。

第2小題：PasswordChar屬性用于設(shè)置屏蔽文本框中內(nèi)容的字符，要去掉對(duì)文本框

中輸入內(nèi)容的屏蔽，需將其PasswordChar屬性值清空，使用SetFocus方法可使文

本獲得焦點(diǎn)。

5、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。

(1)在名稱為Forml的窗體上畫(huà)一個(gè)名稱為C1、標(biāo)題為“變寬”的命令按鈕，窗體

名稱為“改變按鈕大小編寫程序，使得單擊命令按鈕時(shí)，命令按鈕水平方向的寬

度增加100o程序運(yùn)行后的窗體如圖1—212所示。

圖1-212要求：程序中不得使用變量，每個(gè)事件

過(guò)程中只能寫一條語(yǔ)句。存盤時(shí)必須存放在考生文件夾下，工程文件名為

sjtl.vbp,窗體文件名為sjll.frm。(2)在名稱為Forml的窗體上畫(huà)一個(gè)名稱

Shapel的形狀控件，畫(huà)一個(gè)名稱為L(zhǎng)1的列表框，并在屬性窗口中設(shè)置列表項(xiàng)的值

為1、2、3、4、5。將窗體的標(biāo)題設(shè)為“圖形控件”。單擊列表框中的某一項(xiàng)，則按

照所選的值改變形狀控件的形狀。例如，選擇3,則形狀控件被設(shè)為圓形，如用1

—213所小。圖1-213要求：程序中不得使用變量，每個(gè)事

件過(guò)程中只能寫一條語(yǔ)句。存盤時(shí)必須存放在考生文件夾下，工程文件名為

sjt2.vbp,窗體文件名為sjt2.frm。

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2—

102在窗體中畫(huà)出控件并設(shè)置其相關(guān)屬性。

表2?102對(duì)象屬性設(shè)置

對(duì)象屬性值

NameCl

命令按鈕<

Caption變寬

NameForm1

窗體■

Caption改變按鈕大小

步驟2：打開(kāi)代碼編輯

窗口，編寫命令按鈕的單擊事件過(guò)程。參考代碼：PrivateSubCl_Click()

Cl.Width=Cl.Width+100EndSub步驟3：按要求將文件保存至考生文件夾中。

第2小題【操作步驟】步驟I：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程。步驟2：在窗體

Forml中加入一個(gè)列表框和一個(gè)形狀控件，并分別如表2—103設(shè)置它們的相關(guān)屬

裝2-103

對(duì)象屬性值

NameLI

列表框

List1、2、3、4、5

形狀控件NameShape1

窗體Caption圖形控件

性。-一步驟3：打開(kāi)代碼編

輯窗口，編寫列表框的事件過(guò)程：參考代碼：PrivateSubLl_CIick()Shape1.Shape

=LI.TextEndSub步驟4：按要求將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析：暫無(wú)解析

6、在名稱為Forml的窗體上畫(huà)一個(gè)標(biāo)簽，其名稱為L(zhǎng)abelL標(biāo)題為“計(jì)算機(jī)等級(jí)考

試"，Left屬性為0；再畫(huà)一個(gè)水平滾動(dòng)條,其名稱為HScroHL在屬性窗口中設(shè)置

Mto0

Mai3000

SmdlOMnce10

其屬性如卜:一100編寫適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果

移動(dòng)滾動(dòng)條上的滾動(dòng)框，則可使標(biāo)簽向相應(yīng)的方向移動(dòng)，標(biāo)簽距窗體左邊框的距離

等于滾動(dòng)框的位置，程序的運(yùn)行情況如圖2-92所示。要求：程序中不得使用變

量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必須存放在考生文件夾下，

工程文件名為sjt2.vbp,窗體文件名為sjt2.frm。

標(biāo)準(zhǔn)答案：步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體：Forml中加入一個(gè)水平滾

動(dòng)條和一個(gè)標(biāo)簽，在屬性設(shè)置窗口中設(shè)置其相關(guān)屬性，其屬性及值如表3-49所

NameHScroUI

Max3000

水平&動(dòng)條Mm0

UrfeChmte100

Sml(Change10

NameUbdl

梅簽Cfoe計(jì)像機(jī)等f(wàn)it考試

Left0

Zj\o步驟2：雙擊窗體Forml上的水平滾動(dòng)

條，打開(kāi)代碼編輯窗口，在Change事件過(guò)程中輸入以下代碼：參考代碼：Private

SubHScrolll_Change()Label1.Lcft=Mc.HScrollIEndSubPrivateSub

HScrolll_Scroll()Labell.Left=Forml.HScrollIEndSub步驟3：按要求將文件保存

至考生文件夾中。

知識(shí)點(diǎn)解析：暫無(wú)解析

請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。

7、在名稱為Forml的窗體上畫(huà)一個(gè)名稱為Combol的組合框，其寬度為1200,其

類型如圖3-102所示(即簡(jiǎn)單組合框)。要求如下：①請(qǐng)按圖中所示，通過(guò)屬性窗口

輸入“北京”、“上海”、“廣州”、“深圳”。②設(shè)置適當(dāng)?shù)膶傩裕沟眠\(yùn)行時(shí)，窗體

的最大化按鈕和最小化校鈕消失。圖"02注意：存盤時(shí)必須存放在考

生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。

標(biāo)準(zhǔn)答案：審題分析本題只需要在窗體上畫(huà)出相應(yīng)控件并設(shè)置其屬性即可。操作

步驟步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按要求畫(huà)出控件并設(shè)置屬性。步驟2：

按要求將文件保存至考生文件夾中。考點(diǎn)鏈接窗體基本操作、選擇控件。

知識(shí)點(diǎn)解析：暫無(wú)解析

8、在名稱為Forml的窗體上畫(huà)兩個(gè)文本框，名稱分別為Tex"、Text2,再畫(huà)兩個(gè)

命令按鈕，名稱分別為Commandl、Command?,標(biāo)題分別為“左”、“右”，如圖3-

I03o要求：編寫適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，單擊“左”按鈕，則焦點(diǎn)位于

Textl±；單擊"右”按鈕，則焦點(diǎn)位于Text2上。3-103注意：程

序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。存盤時(shí)必須存放在考生文件夾

下，工程文件名為sjt2.vbp,窗體文件名為sjl2.frm。

標(biāo)準(zhǔn)答案：審題分析本題其實(shí)就是在兩個(gè)命令按鈕的單擊事件過(guò)程中，通過(guò)使用

SctFocus方法使對(duì)應(yīng)文本框獲得焦點(diǎn)。操作步驟步驟1：新建一個(gè)“標(biāo)準(zhǔn)。EXE”工

程，按要求畫(huà)出控件并沒(méi)置屬性。步驟2：雙擊“左”命令按鈕，打開(kāi)代碼編輯窗

口，在按鈕的Click事件過(guò)程中輸入代碼。步驟3：從代碼編輯窗口的“對(duì)象”下拉

列表中選擇Command2,從“事件”下拉列表選擇Click,編寫以下事件過(guò)程。參考

代碼：PrivateSubCommandl_Click()Textl.SelFocusEndSubPrivateSub

Command2_Click()Text2.SetFocusEndSub步驟4：按要求將文件保存至考生文件

夾中。考山鏈接框架、焦點(diǎn)和Tab順序。

知識(shí)點(diǎn)解析：暫無(wú)解析

9、在FormI的窗體上面一個(gè)列表框，名稱為L(zhǎng)1,通過(guò)屬性窗口向列表框中添加4

個(gè)項(xiàng)目，分別為“AAAA"、“BBBB"、“CCCC'和"DDDD”，編寫適當(dāng)?shù)氖录^(guò)程，

過(guò)程中只能使用一條命令。程序運(yùn)行后，如果雙擊列表框中的某一項(xiàng)，則把該項(xiàng)添

加到列表框中。程序的運(yùn)行情況如圖2-152所示。注意：存盤時(shí)必須存放在考生

文件夾下，工程文件名為sjt2.vbp,窗體文件名為sjt2.frmo圖。⑻

標(biāo)準(zhǔn)答案：步驟1：新建一個(gè)"標(biāo)準(zhǔn)EXE”工程，在窗體Forml中加入一個(gè)列表框，

在屬性設(shè)置窗口中將其Name屬性設(shè)置為L(zhǎng)1,在其List屬性中添加四個(gè)項(xiàng)目，依

次為“AAAA“、“BBBB"、“CCCC"和“DDDD"。注意：每輸入完一項(xiàng)后按V

Ctrl+Enter＞鍵換行再輸入下一項(xiàng)。步驟2：打開(kāi)代碼編輯窗口，編寫列表框的

DblCliek事件過(guò)程：參考代碼：PrivateSubLl_DbIClick()

LI.Additem.LI.TextEndSub步驟3：按要親將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析：暫無(wú)解析

10、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。在名

稱為Forml的窗體上畫(huà)一個(gè)文本框，其名稱為TI,寬度和高度分別為1400、400：

再畫(huà)兩個(gè)命令按鈕，其名稱分別為C1和C2,標(biāo)題分別為“顯示“和“擴(kuò)大“，編寫適

當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果單擊C1命令按鈕，則在文本框中顯示”等級(jí)考

試”，如圖2-181(a)所示；如果單擊C2命令按鈕，則使文本框在高、寬方向上各增

加一倍，文本框中的字體大小擴(kuò)大到原來(lái)的3倍，如圖2-181(b)所示。注意：要求

程序中不得使用變量。存盤時(shí)必須存放在考生文件夾下，工程文件名為sjtl.vbp,

k-I等級(jí)石法

nr~i■*EDD

(a)<b>

窗體文件名為sjtl.frmc?2,81

標(biāo)準(zhǔn)答案：步驟1：新建一個(gè)"標(biāo)準(zhǔn)EXE”工程，如表3-102在窗體中畫(huà)出控件并設(shè)

置其相關(guān)屬性。步驟2：打開(kāi)代碼編輯窗口，編寫兩個(gè)命令按鈕的單擊事件過(guò)程。

參考代碼：PrivateSubCl_Click()Tl="等級(jí)考試"EndSubPrivateSubC2_Click()

Tl.Height=2*Me.Tl.HeightTl.Width=2*Tl.Width

*3-102

■tl■

Namen

t4?Width1400

Height400

MmeCl

H小

Mmea

T1.ForttSize=3*Forml.Tl.ForttSizeEndSubC<?XMrx

步驟3：按要求將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析：暫無(wú)解析

國(guó)家二級(jí)VB機(jī)試(基本操作題)模擬試

卷第2套

一、基本操作題(本題共70題，每題7.0分，共10

分。)

1、在名稱為Forml的窗體上添加兩個(gè)名稱分別為lextl和Text2的文本框，初始內(nèi)

容均為空；再建立一個(gè)下拉菜單，菜單標(biāo)題為“操作”，名稱為Ml,此菜單下含有

兩個(gè)菜單項(xiàng)，名稱分別為Copy和Clear,標(biāo)題分別為“復(fù)制”、“清除”，請(qǐng)編寫適當(dāng)

的事件過(guò)程，使得在程序運(yùn)行時(shí)，單擊“復(fù)制”選項(xiàng)菜單，則把Textl中的內(nèi)容復(fù)制

到Text2中，單擊“清除”選項(xiàng)菜單，則清除Text2中的內(nèi)容（即在Text2中填入空字

符串）。運(yùn)行時(shí)的窗體如圖所示。要求在程序中不得使用任何變量，每個(gè)事件過(guò)程

中只能寫一條語(yǔ)句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為

U60fmi

sjt2.vbp,窗體文件名為sjt2.frmo

標(biāo)準(zhǔn)答案：|操作步驟|步驟1：新建窗體，按表3.2建立菜單項(xiàng)并設(shè)置其屬性,

表3.2

標(biāo)題操作復(fù)制清除

名稱—MlCopyClear

內(nèi)編符號(hào)011

o

如圖3.7所示。圖3.7步

驟2：同步驟1,輸入第3項(xiàng)的標(biāo)題和名稱，單擊確定即可。步驟3：添加文本框

控件，按表3.3設(shè)置文本框的屬性。

寫程序代碼，如圖3.8所示。

......bBiMBOB*

M(D?BQOxae?Ka>MWMbzikD*M*A)

A

-

圖3.8參考代碼Private

SubClearClick()Text2.Text=""EndSubPrivatesubCopy_Click()

Text2.Text=Textl.Tex【EndSub步驟5：調(diào)試并運(yùn)行程正，關(guān)閉程序后按題目要

求存盤。

知識(shí)點(diǎn)解析：暫無(wú)解析

2、在名稱為Forml的窗體上畫(huà)一個(gè)圖片框，其名稱為Picturel,一個(gè)水平滾動(dòng)

條,名稱為HScrolll,一個(gè)命令按鈕，名稱為Command],標(biāo)題為“設(shè)置屬性”，通

過(guò)屬性窗口在圖片框中裝入一個(gè)圖形(文件名為picl.jpg,位于考生目錄下)，圖片

框的高度與圖形的高度相同，圖片框的寬度任意(如圖1所示)。編寫適當(dāng)?shù)氖录^(guò)

程，程序運(yùn)行后，如果單擊命令按鈕，則設(shè)置水平滾動(dòng)條的屬性如下：Min100

Max1500LargeChange100SmallChange10之后就可以通過(guò)移動(dòng)滾動(dòng)條上的滾動(dòng)塊

來(lái)放大或縮小圖片框。程序運(yùn)行后的窗體如圖2所示。要求程序中不得使用任何變

量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件

名為sjt2.frm0

圖1圖2

標(biāo)準(zhǔn)答案：［操作步驟］步驟1：新建一個(gè)窗體，添加控件并設(shè)置相應(yīng)的屬性。程序

中用到的控件及其屬性見(jiàn)表3.17c

表3.17

控件圖片樞水平滾動(dòng)條命令按鈕

屬性NameAutoSizePictureNameNameCaption

設(shè)置值Picture1Truepicl.jpgHScroIllOxnuiarull設(shè)置屬性

步驟2：打開(kāi)代碼編

輯窗口，在指定位置編寫如下代碼。參考代碼PrivateSubCommand】Click。

HScroIll.Max=150(T設(shè)置滾動(dòng)條的最大值、最小值、最大改變值、最小改變值

HScroll1.Min=100HScroIll.LargeChange=100HScroIll.SmaIlChange=10End

SubPrivateSubHScroIllChange()Picture1.Width=HScrolii.Value'將圖片的width

與滾動(dòng)條的Value保持一致EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目

要求存盤。

知識(shí)點(diǎn)解析：暫無(wú)解析

3、在名稱為Forml的窗體上添加兩個(gè)名稱分別為Framel、Frame2的框架，標(biāo)題

分別為“字號(hào)”、“修飾”；在Framel中添加兩個(gè)單選按鈕，名稱分別為Optionl、

Option2,標(biāo)題分別為“10號(hào)字”、“20號(hào)字”，且標(biāo)題顯示在單選按鈕的左邊；在

Frame2中添加一個(gè)名稱為Checkl的復(fù)選框，標(biāo)題為“下劃線”。程序運(yùn)行后的窗體

如圖所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為

sjtl.vbp,窗體文件名保存為sjll.frmo

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

序中的控件及屬性見(jiàn)表3.43o

表3.43

I

脩般!修犀2果選怯的1前洗捶栩2

Nanw(OptionNameCap<?onNameCaptionNameCaptionNamr"Option

(briunrl

字號(hào)1rujii--2修飾Option110號(hào)字20號(hào)字ChecklF劃線

步驟2：調(diào)試并運(yùn)行程

序，關(guān)閉程序后按題目要求存盤。

知識(shí)點(diǎn)解析?：暫無(wú)解析

4、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。（1）在

名稱為Forml的窗體上畫(huà)一個(gè)名稱為CD1的通用對(duì)話框，通過(guò)屬性窗口設(shè)置CD1

的初始路徑為C：\,默認(rèn)的文件名為None,標(biāo)題為“保存等級(jí)考試”，如圖3—

PI

■J?w?area

JOli^Klk14

20W1WMIM4

M〃SIM充3

,3

*

M14/7/MIMS

miftaiiLu

■TOOUQ、MOV7/141OJ7

.OATAflMJ0W1V11lljM

160所示。圖3“60注

意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為

sjtl.frnio(2)在名稱為Form1的窗體上設(shè)計(jì)?一個(gè)菜單。要求在窗體上添加名為

menu。，標(biāo)題為“菜單命令”的主菜單，再添加兩個(gè)名稱分別為“menul"、“menuT,

標(biāo)題分別為“不可用菜單項(xiàng)”、“上一菜單項(xiàng)可用”的子菜單，并且使程序運(yùn)行時(shí)，

menul子菜單不可用，menu2子菜單已經(jīng)選中(運(yùn)行時(shí)的效果如圖3—161所示)。

再編寫適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，單擊“上

一菜單項(xiàng)可用“，則“不可用菜單項(xiàng)''變?yōu)楹谏?可用)。耍求程序中不得使用變量，且

只有一條語(yǔ)句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為

sjt2.vbp,窗體文件名為sjt2.frm

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，選擇【工

程】一【部件】命令，在彈出的“部件”對(duì)話框的列表中選中“MicrosoftCommon

DialogControl6.0”項(xiàng)目，單擊“確定''按鈕。步驟2：在窗體Form1上畫(huà)一個(gè)通用

對(duì)話框并設(shè)置相關(guān)屬性。步驟3：編寫Form1的Load事件，加入的代碼：

CD1.ShowSave步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步

驟】步驟I：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，打開(kāi)VB菜單設(shè)計(jì)器按要求設(shè)計(jì)菜單。

步驟2：打開(kāi)代碼編輯窗口，編寫“上一菜單項(xiàng)可用”命令的Click事件過(guò)程。參考

代碼：PrivateSubmcnu2_Click()menu1.Enabled=TrueEndSub步驟3：按要求

將文件保存至考生文件夾市。

知識(shí)點(diǎn)解析：暫無(wú)解析

5、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。在名稱

為Forml的窗體上畫(huà)一個(gè)名稱為L(zhǎng)abcll、標(biāo)題為”列表框的使用”的標(biāo)簽。再畫(huà)一個(gè)

名稱為L(zhǎng)isll的列表框，列表中含有5個(gè)表項(xiàng)，表項(xiàng)內(nèi)容分別為“北京“、“山西”

遼寧“、“浙江“和“廣東”，并且可以在列表中同時(shí)選擇多個(gè)表項(xiàng)。運(yùn)行后的窗體如

圖2-39所示。要求：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjtl.vbp,

窗體文件名為sjtl.firnc

標(biāo)準(zhǔn)答案：步驟1：新建一個(gè)"標(biāo)準(zhǔn)EXE”工程。步驟2：在窗體Forml中加入一個(gè)

列表框和一個(gè)標(biāo)簽，并分別如表3-20設(shè)置它們的相關(guān)屬性。

?3*20______________

■ttfl

None

LM*山西.a-?.斷江.廣東

MultaSckct1

NameLabdl

Ctfucn-----二”-----步驟3：按要求將文件保存至考生文件夾

中O

知識(shí)點(diǎn)解析：暫無(wú)解析

6、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。在名稱

為Forml的窗體上畫(huà)一個(gè)名稱為CDI的通用對(duì)話框，通過(guò)屬性窗口設(shè)置CD1的初

始路徑為C：\,默認(rèn)的文件名為None,標(biāo)題為“保存等級(jí)考試"，如圖2-44所

示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件

名為sjtl.frmo?2-44

標(biāo)準(zhǔn)答案：步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，選擇［工程］［部件］命令，在彈出

的“部件”對(duì)話框的列表中選中"MicrosoftCommonDialogControl.0”項(xiàng)目，單擊”

確定”按鈕。步驟2：在窗體Forml上畫(huà)一個(gè)通用對(duì)話框，其相關(guān)屬性設(shè)置如表3-

024

N—w|CPI

Dtefogm

■信.0.…一=--------------

FitoNow|Ne?______

24所示。_______IiI.6步驟3：編寫Forml的Load事件，加入下

面的代碼：CD1.ShowSave步驟4：按要求將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析：暫無(wú)解析

7、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。在名稱

為。Forml的窗體上畫(huà)一個(gè)名稱為Combol的組合框，其寬度為1200,其類型如圖

2-95所示（即簡(jiǎn)單組合框）。要求如下：①請(qǐng)按圖中所示，通過(guò)屬性窗口輸入”北

京上海廣州深圳”。②設(shè)置適當(dāng)?shù)膶傩裕沟眠\(yùn)行時(shí)，窗體的最大化

按鈕和最小化按鈕消失。注意：存盤時(shí)必須存放在考生文件夾下,工程文件名為

sjtl.vbo,窗體文件名為sjtl.frm。?2-95

標(biāo)準(zhǔn)答案：步驟1：新建一個(gè)"標(biāo)準(zhǔn)EXE”工程，在窗體Forml中畫(huà)一個(gè)組合框，在

屬性設(shè)置窗口中設(shè)置其相關(guān)屬性，屬性及其值如表3-53所示。

*3*53

■tt

NmcCorabol

WidthI2D0

s?yteI

?1介機(jī)

?LU

Lotr州

通加

NameFonnl

?體MMBlltVM)Fake

MmBunon—些一步驟2：按要求將文件保存至考生文件夾中。

知識(shí)點(diǎn)解析：暫無(wú)解析

請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。

8、在名稱為Forml的窗體上畫(huà)一個(gè)名稱為CD1的通用對(duì)話框，通過(guò)屬性窗口設(shè)置

CD1的初始路徑為C：\,默認(rèn)的文件名為：None,標(biāo)題為“保存等級(jí)考試”，如

圖3-125所示。注意：存

盤時(shí)必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為

sjtl.frmo

標(biāo)準(zhǔn)答案：審題分析通用對(duì)話框的初始路徑由InitDir屬性設(shè)置，默認(rèn)文件名由

FilcName屬性設(shè)置，標(biāo)題由DialogTiHe屬性設(shè)置。操作步驟步驟1：新建一個(gè)“標(biāo)

準(zhǔn)EXE”工程，選擇【工程】?【部件】命令，在彈出的“部件”對(duì)話框的列表中選

中“MicroSottCommonDialogControl6.0”項(xiàng)目，單擊“確定”按鈕。步驟2：在窗

體Forml上畫(huà)一個(gè)通用對(duì)話框并設(shè)置相關(guān)屬性。步驟3：編寫Forml的Load事

件，加入下面的代碼：CD1.ShowSave步驟4：按要求將文件保存至考生文件夾

中。考點(diǎn)鏈接通用對(duì)話框。

知識(shí)點(diǎn)解析：暫無(wú)解析

9、在名稱為Forml的窗體上設(shè)計(jì)一個(gè)菜單。要求在窗體上添加名為menu。，標(biāo)題

為“菜單命令”的主菜單，再添加兩個(gè)名稱分別為“menul"、“menu2”，標(biāo)題分別為

“不可用菜單項(xiàng)”、“上一菜單項(xiàng)可用”的子菜單，并且使程序運(yùn)行時(shí)，menul子菜單

不可用，menu2子菜單已經(jīng)選中（運(yùn)行M的效果如圖3-126所示）。再編寫適當(dāng)?shù)氖?/p>

件過(guò)程，使得程序運(yùn)行時(shí)，單擊“上一菜單項(xiàng)可用”，則“不可用菜單項(xiàng)”變?yōu)楹谏?/p>

（可用）。要求程序中不得使用變量，且只有一條語(yǔ)句。圖3426注

意:存盤時(shí)必須存放在考生文件夾下；工程文件名為Sjt2.vbp,窗體文件名為

sjt2.fin

標(biāo)準(zhǔn)答案：審題分析本題源程序設(shè)計(jì)思路：在“上一菜單項(xiàng)可用”命令的單擊事件

過(guò)程中，通過(guò)語(yǔ)句設(shè)置“不可用菜單項(xiàng)”命令的Enabled屬性值為True。操作步驟

步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，打開(kāi)VB菜單設(shè)計(jì)器按要求設(shè)計(jì)菜單。步驟

2：打開(kāi)代碼編輯窗口，編寫“上一菜單項(xiàng)可用”命令的Click事件過(guò)程。參考代

碼：PriValeSubmenu2_Click（）menul.Enabled=TrueEndSub步驟3：按要求將文

件保存至考生文件夾中。考點(diǎn)鏈接菜單。

知識(shí)點(diǎn)解析：暫無(wú)解析

10、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。在名

稱為Forml的窗體上畫(huà)一個(gè)水平滾動(dòng)條，其名稱為HScrolH,Min屬性為1000,

Max屬性為1500,LargeChange屬性為50,SmallChange屬性為2；然后再畫(huà)一個(gè)

文本框，其名稱為Textl,初始內(nèi)容為空白，編寫適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，

移動(dòng)滾動(dòng)框，則在文本框中顯示滾動(dòng)框的當(dāng)前位置。程序的運(yùn)行情況如圖2-156所

示。要求：①不得使用任何變量；②存盤時(shí)必須存放在考生文件夾下,工程文

JId

件名為sjtl.vbp,窗體文件名為sjtl.frm。圖2/%

標(biāo)準(zhǔn)答案：步驟1：新建一個(gè)"標(biāo)準(zhǔn)EXE”工程，在窗體Forml中畫(huà)一個(gè)文本框和一

個(gè)水平滾動(dòng)條，在屬性設(shè)置窗口中設(shè)置其相關(guān)屬性，其屬性及值如表3-88所示。

MlT?M

文anNMKTcxtl

NameHSaoUI

Ma>1500

水干?功金Mm1000

.50

StmllChMfc

2步驟2：雙擊窗體Forml上的水平滾動(dòng)條，打開(kāi)

代碼編輯窗口，在其Change事件過(guò)程中輸入以下代碼：參考代碼：PrivateSub

HScrolll_Change（）Textl=HSCrolllEndSub步驟3：按要求將文件保存至考生文件

夾中。

知識(shí)點(diǎn)解析：暫無(wú)解析

國(guó)家二級(jí)VB機(jī)試（基本操作題）模擬試

卷第3套

一、基本操作題（本題共70題，每題7.0分，共70

分。）

1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在

名稱為Forml的窗體上畫(huà)1個(gè)名稱為Cbol的組合框，組合框的列表項(xiàng)分別是：北

京、天津、上海。請(qǐng)?jiān)O(shè)置組合框的參數(shù)，使其外觀如圖3—6所示。窗體的標(biāo)題是

“用組合框工圖3?6注意：存盤時(shí)，將文件保存至考生文件夾

下，且窗體文件名為sjtl.frm,工程文件名為sjtl.vbpo(2)在名稱為Forml的窗

體上畫(huà)1個(gè)名稱為P1的圖片框，窗體的標(biāo)題為“程序設(shè)計(jì)”，如圖3—7(a)所示。編

寫適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行后，單擊窗體，則在圖片框中顯示窗體的標(biāo)題，

并把窗體的標(biāo)題變?yōu)锽asic,如圖3—7(b)所示。

a)(b)

注意：存盤時(shí)，將文件保

存至考生文件夾下，且窗體文件名為sjt2.frm,工程文件名為sjt2.vbp。

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體

Forml中加入一個(gè)組合框。按表4-3設(shè)置其相關(guān)屬性。

表4-3

對(duì)象屬性值

NameForml

窗體

C'aption使用組合框

NameCbol

Style1-SimpleCombo

絹臺(tái)樞

Text

Lisi北京、天津、上海

步驟2：按要求將文件保

存至考生文件夾中。第2小題【操作步驟】步驟I：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，

在窗體Forml中加入一個(gè)圖片框。按表4-4設(shè)置其