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

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

卷第1套

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

分。）

1、⑴在名稱為Forml的窗體上添加一個(gè)名稱為L(zhǎng)1的標(biāo)簽，標(biāo)簽上標(biāo)題為“請(qǐng)輸入

密碼“，添加一個(gè)名稱為Texll的文本框，其寬、高分別為2000和300,設(shè)置適當(dāng)

的屬性，使得在輸入密碼時(shí)，文本框中顯示為“*”字符，此外再把窗體的標(biāo)題設(shè)置

為“密碼窗口”，以上這些設(shè)置都必須在屬性窗口中進(jìn)行，程序運(yùn)行時(shí)的窗體如圖所

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

文件名保存為sjtl.frm。

（2）在名稱為Forml的窗體上添加一個(gè)名稱為P1的圖片框，請(qǐng)編寫適當(dāng)?shù)氖录^(guò)

程，使得程序在運(yùn)行時(shí)，每單擊一次圖片框，就在圖片框中輸出“單擊圖片框“，每

單擊圖片框外的窗體一次，就在窗體中輸出“單擊窗體”，運(yùn)行時(shí)的窗體如圖所示。

要求在程序中不得使用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必

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

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

屬性，如圖3.11所示。圖3.11

程序中用到的控件及屬性如表3.7所示。

表3.7

IF控件屬性設(shè)置值

NameTextl

Height300

文本框

PaMwordChar,

Width2(XX)

Name1.1

標(biāo)簽

Caption清輸入密碼

窗體Caption-----.密碼力”-----步驟2：調(diào)試并運(yùn)行程

序，效果如圖3.12所示。圖3.12步驟

3：關(guān)閉程序后按題目要求保存工程和窗體文件。（2）【操作步驟】步驟1：新建一

個(gè)窗體，按照題目要求建立控件并設(shè)置其屬性，如圖3.13所示。

?313步驟2：打開代碼編輯窗

口，在指定位置編寫如下代碼。參考答案PrivaleSubForm_Click()Forml.Print'1

單擊窗體"EndSubPrivateSubPl_Click()Pl.Print"單擊圖片框"EndSub步驟3：

調(diào)試并運(yùn)行程序，關(guān)閉程序后按曲目要求存盤。

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

2、(1)在名稱為Forml的窗體上添加兩個(gè)名稱分別為Textl和Text2的文本框，它

們的高、寬分別為300、2400和1200、2400<>窗體的標(biāo)題為“窗口”。請(qǐng)通過(guò)屬性

窗口設(shè)置適當(dāng)?shù)膶傩?，滿足如下要求：①Text2可以顯示多行文本，并且有垂直和

水平兩個(gè)滾動(dòng)條；②程序運(yùn)行時(shí)在Textl中顯示輸入的字符為“*程序運(yùn)行后的

窗體如圖所示。

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

名保存為sjtl.Gm。（2）在名稱為Forml的窗體上添加一個(gè)名稱為Imagel的圖像

框，其高、寬分別為1900、1700,通過(guò)屬性窗口把考生文件夾下的圖像文件

picl.bmp載入圖像框；再畫兩個(gè)命令按鈕控件，名稱分別為Cl、C2,標(biāo)題分別

為“放大”、“縮小”，如圖所示。要求：①請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，程序運(yùn)行后，

如果單擊“放大”按鈕，則將圖像框的高度、寬度均增加100;單擊“縮小”按鈕，則

將圖像框的高度、寬度均減少100,要求程序中不得使用任何變量。②通過(guò)屬性

窗口設(shè)置圖像框的適當(dāng)屬性，使得在放大、縮小圖像框時(shí)，其中的圖像也自動(dòng)放

大、縮小。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為

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

件并設(shè)置其屬性，程序中涉及的控件及屬性見(jiàn)表3.8和表3.9o

表3.8

控件窗體文本框1

屬性CaptionNameWidthHeightPasswordChur

設(shè)置值窗口Textl2400300?

表3.9

控件文本框2

屬性NameWidthHeightMuhilJneScrollBars

設(shè)置值Tcxt2240012(X)True3_一

步株2：的隊(duì)開世

行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：新建一個(gè)窗體,

按照題目要求建立控件并設(shè)置圖像框相應(yīng)屬性，如圖3.17所示。

備im-MteTOMfi以一ImxttHl

KWO)Mtt)?BQ0I*B?KO?K9B6?MM)■*：?IMD0M*<A)SOttD

Q

圖3.17步驟2：按照步驟1設(shè)置其他

控件相關(guān)屬性，程序中涉及的控件及屬性見(jiàn)表3.10。

表3.10

屬性）設(shè)置值［

批件

NameImage1

Width1700

圖像框Height190()

PictuirPi(Jbmp

StretchTure

NameCl

命令按鈕1

Caplion放大

Name(2

命令按鈕2

(jiption縮小

步驟3：打開代碼編

輯窗口，在指定位置編寫如下代碼。參考答案PrivateSubClClick。，當(dāng)單擊“放大”

按鈕時(shí)，依次將Imag次的高與寬分別加100Imagel.Height=Image!.Height-F100

Imagel.Width=Imagel.Width+100EndSubPrivateSubC2Click。'當(dāng)單擊“縮小”

按鈕,則依次將Imag曰的高與寬分別減100Imagel.Height=Imagel.Height-100

Imagel.Width=Imagel.Width—100EndSub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序

后按題目要求存盤。

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

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

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

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

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

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

字號(hào)-1?海

.“rrw

宿事r

sjtl.vbp,窗體文件名保存為sjtl.frnio^rr-7-：（2）

在名稱為Forml的窗體上從上到下添加兩個(gè)文本框，名稱分別為Texll、Text2；

再添加一個(gè)命令按鈕，名稱為Commandl,標(biāo)題為“選中字符數(shù)是”。程序運(yùn)行時(shí)，

在Tex”中輸入若干字符，選中部分內(nèi)容后，單擊“選中字符數(shù)是"按鈕，則選中的

字符個(gè)數(shù)顯示在Text2中（如圖所示）。請(qǐng)編寫按鈕的Click事件過(guò)程。要求：程序

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

件夾下，工程文件名保存為sjt2.vbp,窗體文件名保存為sjt2.frmo

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

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

表3.43

設(shè)置俄￥

控件屬性

NarnrFrame]

假架1

(laplion字號(hào)

NameFran*2

樞染2

Caption修飾

NameOplionI

單選按鈕1

Caption10號(hào)字

NameOption2

單選按鈕2

(Option20號(hào)字

NameCheck1

復(fù)選樞

Caplion下劃線

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

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

的控件并設(shè)置控件的屬性。程序中涉及的控件及屬性見(jiàn)表3.44o

*3.44

KarnrTrxll

文本傕I

(^aplKin

NamrTrxt2

文本框2

Ciption

NanirCommand1

小選按鈕

Caption選中字符數(shù)"_步驟2：打開代碼編輯窗

FI,在指定位置編寫如卜代碼。參考答案PrivatesubCommandI_Click（）Text2=

Textl.SelLen.gthEndSub步驟3：調(diào)試并運(yùn)行程序,關(guān)閉程序后按題目要求存

盤。

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

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

名稱為Forml標(biāo)題為“選課”的窗體上畫一個(gè)復(fù)選框數(shù)組，名稱為CH1,共有四個(gè)

復(fù)選框，按順序其標(biāo)題分別是“數(shù)學(xué)”、“語(yǔ)文”、“外語(yǔ)”、“計(jì)算機(jī)”，其中"語(yǔ)文”、

“計(jì)算機(jī)”復(fù)選財(cái)型也狀杳,運(yùn)行時(shí)的窗體如圖3—147所示。請(qǐng)畫控件并設(shè)置

廠”

P謖叉

「用I

p用m

相應(yīng)屬性。圖3/47注意：存盤時(shí)必須存放在考生文件夾下，工程文

件名為sjtl.vbp,窗體文件名為sjtl.frm。（2）在名稱為Form1的窗體上畫一個(gè)名

稱為HS1的水平滾動(dòng)條，其刻度值范圍為1?100；畫一個(gè)命令按鈕，名稱為C1,

標(biāo)題為“移動(dòng)滾動(dòng)框”。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，每單擊命令按鈕一

次（假定單擊次數(shù)少于10次），滾動(dòng)框向右移動(dòng)10人刻度。運(yùn)行時(shí)的窗體如圖3—

148所示。要求程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。

PAN'注意：存盤時(shí)必須存放在考生文件夾下，工程

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

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

在窗體Forml中加入一個(gè)復(fù)選框，并用“復(fù)制”和“粘貼”的方法，生成包含四個(gè)元素

的復(fù)選框數(shù)組。步驟3：分別設(shè)置窗體和復(fù)選框數(shù)組中各元素的相關(guān)屬性。步驟

4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)

“標(biāo)準(zhǔn)EXE”工程，按要求畫出控件并設(shè)置相應(yīng)屬性。步驟2：在代碼編輯窗口，

編寫命令按鈕的Click事件過(guò)程。參考代碼：PrivateSubCl_Click()HS1.Value=

HS1.Value+lOEndSub步驟3：按要求將文件保存至考生文件夾中。

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

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

(1)在標(biāo)題為“列表框”、名稱為Fonnl的窗體上畫一個(gè)名稱為L(zhǎng)istl列表框，通

過(guò)屬性窗口輸入四個(gè)列表項(xiàng)：“數(shù)學(xué)”、“語(yǔ)文”、“歷史”、“地理”，列表項(xiàng)采用“復(fù)選

框形式”，如圖1-88所示。列表框的寬為1100,高不限。圖1-88

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

sjtl.frmo(2)在名稱為Fomil的窗體上建立一個(gè)名稱為“menul”、標(biāo)題為“文件”

的彈出式菜單，含有三個(gè)菜單項(xiàng)，它們的標(biāo)題分別為“打開”、“關(guān)閉”、“保存”，名

稱分別為“ml”、“m2”、“m3”。再畫一個(gè)命令按鈕,名稱為“Command1”、標(biāo)題為

“彈出菜單”。要求：編寫命令按鈕的Click事件過(guò)程，使程序運(yùn)行時(shí)，單擊“彈出菜

單”按鈕即可彈出“文件”菜單(如圖1—89所示)°圖1?89

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

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

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

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

表2?25控件屬性設(shè)置

對(duì)象屬性值

NameForm!

窗體

Caption列表框

NameListl

List數(shù)學(xué)、語(yǔ)文、歷史、地理

列表框

Style1-Checkbox

Width1100

______________________________VzfS0J.?及照/J比、1垓'J^>-v9rI這I

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

程，選擇【工第2小題具】一【菜單編輯器】命令，打開菜單設(shè)計(jì)器，如表2—26

裹2-26

標(biāo)題名稱內(nèi)縮符號(hào)可見(jiàn)

文件menul0

1

打開ml1y

保存m217

關(guān)閉m31

中的設(shè)置建立菜單項(xiàng)。-

步驟2：在窗體上畫一人名為Commands標(biāo)題為“彈出菜單.”的命令按鈕，打開代

碼編輯窗口，編寫''彈出菜單''按鈕的單擊事件過(guò)程。參考代碼：PrivateSub

Commandl_Click()Form1.PopupMenumenulEndSub步驟3：按要求將文件保存至

考生文件靈中。

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

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

(1)在名稱為FomH的窗體上畫一個(gè)水平滾動(dòng)條，其名稱為HScroHl,Min屬性

為0,Max屬性為100,LargeChange屬性為5,SmallChange屬性為2,然后再畫

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

后，在文本框中輸入0100之間的一個(gè)值，然后單擊窗體，則滾動(dòng)條的滾動(dòng)柱移

------------------------------------昉不。

圖1-288

要求：程序中不得使用任何變量。

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

(2)在名稱為Forml的窗體上畫一個(gè)標(biāo)簽，其名稱為L(zhǎng)abell,標(biāo)題為“程序設(shè)

計(jì)”，AutoSizc屬性為True；然后再畫一個(gè)列表框，通過(guò)屬性窗口輸入5個(gè)項(xiàng)目，

分別為10、16、20、24、36,如圖1—289(a)所示，編寫適當(dāng)?shù)氖录^(guò)程。程序

運(yùn)行后，如果用鼠標(biāo)選中列表框中的某個(gè)項(xiàng)目，則把標(biāo)簽中字體的大小設(shè)置為與該

(a)

圖1-289

要求：程序中不得使用任何變量。存盤時(shí)必

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

標(biāo)準(zhǔn)答案；第1小題【操作步驟】步驟1；新建“標(biāo)準(zhǔn)EXE”工程，往窗體Forml

中加入一個(gè)文本框和一個(gè)水平滾動(dòng)條，分別設(shè)置它們的相關(guān)屬性，屬性及其值如表

S2-154

控件屬性值

NameText1

文本框:

Text

NameHScrolll

Min0

水平滾動(dòng)條Max100

SmallChange2

LargeChange5

2—154所示。步驟2：

打開代碼編輯窗口，輸入如下代碼：參考代碼：PrivateSubForm_Click()

HScrolll.Value=Val(Textl.Text)EndSub步驟3：按要求將文件保存至考生文件夾

中。第2小題【操作步驟】步驟I：新建一個(gè)“標(biāo)淮EXE”工程，在窗體上畫一個(gè)

列表框和一個(gè)標(biāo)簽，按表2—155設(shè)置其相關(guān)屬性。

表2?155

對(duì)象屬性值

NameListl

列表框

List10、16、20、24、36

NameLabel1

標(biāo)簽Caption程序設(shè)計(jì)

AutoSizeTrue

步驟2：在打開的代碼

編輯窗口中，編寫列表框的單擊事件代碼。參考代碼：PrivateSubListl_Click()

LabelI.FontSize=Val(Listl.Text)EnclSub步驟3：技要求將文件保存至考生文件夾

中o

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

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

7、在名稱為Forml、標(biāo)題為“列表框練習(xí)”的窗體上畫一個(gè)名稱為L(zhǎng)istl的列表框，

表項(xiàng)內(nèi)容依次輸入xxx、ddd、mmm和aaa,且以宋體14號(hào)字顯示表項(xiàng)內(nèi)容，如圖

3-93(a)所示。最后設(shè)置相應(yīng)屬性，使運(yùn)行后列表框中的表項(xiàng)按字母升序方式排列，

如圖3-93(b)所示。圖3?93注意：存盤時(shí)，將

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

標(biāo)準(zhǔn)答案：審題分析本題只需新建窗體和控件，然后設(shè)置相關(guān)屬性即可。操作步

驟步驟h新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表4-52在窗體中畫出控件并設(shè)置其相關(guān)

*4-52

對(duì)象值

NameForm)

窗體

Caption列表框練習(xí)

NameListl

Listxxx、ddd、mmm?aaa

列表框FontName宋體

FoncSizc14號(hào)

Sorted

屬性。--------------------------步驟2：按要求將文件保存

至考生文件夾中。考點(diǎn)鏈接選擇控件。

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

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

級(jí)考試”，字體為宋體，字號(hào)為12號(hào)，且能根據(jù)標(biāo)題內(nèi)容自動(dòng)調(diào)整標(biāo)簽的大小。再

畫兩個(gè)名稱分別為Command】、Command2,標(biāo)題分別為“縮小”和“還原”的命令按

鈕(如圖3-94所示)。要求：編寫適當(dāng)?shù)氖录^(guò)程，使得單擊“縮小”按鈕，Labell

中所顯示的標(biāo)題內(nèi)容自動(dòng)減小兩個(gè)字號(hào)；單擊“還原”按鈕,Labell所顯示的標(biāo)題內(nèi)

計(jì)H機(jī)等短考憂

山山

容的大小自動(dòng)恢復(fù)到12號(hào)。圖3.94注意：存盤時(shí)，將文件保存至考生

文件夾下，窗體文件名為sjt2.frm,工程文件名為sjt2.vbp。要求程序中不得使

用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。

標(biāo)準(zhǔn)答案：審題分析程序運(yùn)行時(shí)要改變標(biāo)簽的標(biāo)題的字體大小，可通過(guò)修改其

FontSize屬性值來(lái)實(shí)現(xiàn)。操作步驟步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表4-53

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

?4-53

對(duì)象?性值

NameLabel1

AutoSizeTrue

標(biāo)簽

Caption計(jì)算機(jī)等級(jí)考試

Font宋體12號(hào)

NameCommand!

命令按鈕1

Caption縮小

NameCommand2

命令按鈕2

Caption-------絲-------步驟2：打開代碼編輯窗口，編

寫兩個(gè)命令按鈕的Click事件過(guò)程。參考代碼：PrivateSubCommandl_Click()

Label1.FontSize=Labell.FontSize-2EndSubPrirateSubCommand2_Click()

Label!.FonlSize=12EndSub步驟3：按要求將文件保存至考生文件夾中?？键c(diǎn)鏈

接字體與字形。

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

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

為Fonnl的窗體上畫一個(gè)名稱為Framel、標(biāo)題為“框架”的框架，在框架內(nèi)添加兩個(gè)

名稱分別為。paonl、Op【ion2的單選按鈕，其標(biāo)題分別為“第一項(xiàng)、'、’、笫二項(xiàng)要

求通過(guò)設(shè)置控件的屬性將“第二項(xiàng)"設(shè)置為被選中，框架為不可用。運(yùn)行程序后的窗

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

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

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

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

10、在名稱為Forml的窗體上畫一個(gè)圖像框，名稱為Imagel,其高、寬分別為

1900.1700,通過(guò)屬性窗口把考生文件夾下的圖像文件picl.bmp裝入圖像框；再

畫兩個(gè)命令按鈕，名稱分別為C、C2,標(biāo)題分別為“放大“、“縮小"，如圖2-167所

示。要求：①請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，程序運(yùn)行后，如果單擊''放大"按鈕，則把

圖像框的高度、寬度均增加100；單擊“縮小”按鈕，則把圖像框的高度、寬度均減

少100o要求程序中不得使用任何變量。②通過(guò)屬性窗口設(shè)置圖像框的適當(dāng)屬

性，使得在放大、縮小圖像框時(shí)，其中的圖像也自動(dòng)放大、縮小。注意：存盤時(shí)

必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為sj12.frm。

162.167

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

”95

■

Name

SvcfchTrue

陽(yáng)■靠Fxturt卬y

WKkh

心再1900

SameCi

命令1

*A

SrnC2

?令依他2

Cotton

置其相關(guān)屬性。-----------_li—步驟2：打開代碼編輯窗口,

編寫兩個(gè)命令按鈕的Click事件過(guò)程。參考代碼：PrivateSubCl_Click（）

Imagel.Width=Imagel.Width+100Imagel.Height=Imagel.Height+100EndSub

PrivateSubC2_Click()Image1.Width=Imagel.Width-100

Imagel.Height=Imagel.Height-100EndSub步驟3：按要求將文件保存至考生文

件夾中。

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

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

卷第2套

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

分。）

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

名稱為Forml的窗體上畫出如圖3—46所示的三角形。下表給出了直線Linel、

Line2的坐標(biāo)值，請(qǐng)按此表畫Linel、Line2,并畫出直線Line3,從而組成如圖3—

名稱XIY1X2Y2

Linel60016001600600

Line2600160026001600

46所示的三角形。圖3N6注

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

sjtl.frmo(2)在名稱為Form1的窗體上畫一個(gè)名稱為L(zhǎng)istl的列表框，并任意輸入

若干列表項(xiàng)；再畫一個(gè)名稱為Textl的文本框，無(wú)初始內(nèi)容。請(qǐng)編寫Listl和Textl

的Click事件過(guò)程。程序運(yùn)行后，如果單擊列表框中的某一項(xiàng)，則在文本框中顯示

該項(xiàng)相應(yīng)的順序號(hào)，若單擊第一項(xiàng)，則在文本框中顯示1；若單擊第二項(xiàng)，則在文

本框中顯示2,以此類推(如圖3—47所示)；如果單擊文本框，則把該列表項(xiàng)的內(nèi)

容顯示在文本框中。注意：要求程序中不得使

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

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

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按表4—29在窗

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

表4-29

對(duì)象屬性值

NameLinel

XI600

直線1X21600

YI1600

Y2600

NameLme2

XI600

直線2X22600

Yl1600

Y21600

NameLinc3

XI1600

直線3X22600

Yl600

Y21600

-----步驟2：按要求

將文件保存至考生文件夾中。（2）【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工

程，按表4-30在窗體中畫出控件并設(shè)置其相關(guān)屬性。

*4-30

對(duì)象J性值.

NameListl

列表框

List任意列表項(xiàng)

NameTextl

文木框

Text

_____________________________________?生腥o.土r?ZPm如相南

口，編寫列表框和文本框的單擊事件過(guò)程。參考代碼：PrivateSubListl_Click()

Textl.Text=Listl.Listindex+1EndSubPrivateSubTextl_Click()Textl.Text=

Listl.List(Listl.Listindex)EndSub步驟3：按要求將文件速存至考生文件夾中。

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

2、在名稱為Forml的窗體上添加一個(gè)名稱為Command1的命令按鈕，其標(biāo)題為

“移動(dòng)本按鈕”，如圖所示。要求編寫適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，每單擊

按鈕一次，按鈕向左移動(dòng)100o要求：程序中不得使用變量，事件過(guò)程中只能寫入

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

sjt2.vbp,窗體文件名保存為sjt2.frm0

標(biāo)準(zhǔn)答案：［操作步驟］步驟1：新建一個(gè)窗體，按照要求建立控件并設(shè)汽相應(yīng)屬性

如表3.14所示。

步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。參考代碼Privatesub

Commandl_Click()Command1.Left=Commandl.Left—100EndSub步驟3：調(diào)試

并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

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

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

名稱為Forml的窗體上畫一個(gè)名稱為C1、標(biāo)題為“改變顏色”的命令按鈕，窗體標(biāo)

題為“改變窗體背景色，編寫程序，使得單擊命令按鈕時(shí)，將窗體的背景顏色改為

紅色(&HFF&)。運(yùn)行程序后的窗體如圖3—78所不。

圖3?78要求：程序中不得使用變量，每個(gè)事

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

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

Shapel的形狀控件，在屬性窗口中將其設(shè)置為圓形，畫一個(gè)名稱為L(zhǎng)istl的列表

框，并在屬性窗口中設(shè)置列表項(xiàng)的值分別為1、2、3、4、5o將窗體的標(biāo)題設(shè)為

“圖形控件”。單擊列表框中的某一項(xiàng)，則將所選的值作為形狀控件的填充參數(shù)。例

如，選擇3,則形狀控件中被豎線填充。如圖3—79所示。

I也3?79要求：程序中不得使用變量，每個(gè)事件過(guò)程中

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

體文件名為sjt2.fnriu

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

畫一個(gè)命令按鈕，設(shè)置相關(guān)屬性，其屬性及值如表19所示。

表4Y9

對(duì)象J■性

NameForml

演體(,aptio

改變窗體背景色

n

NameCl

命令按鈕Cupdo

改變藤色

n

步驟2：打開代碼

編輯窗口，編寫按鈕的Click事件過(guò)程中。參考代碼：PrivateSubCl_Click（）

Forml.BackColor=&HFF&EndSub步驟3：按要求將文件保存至常生文件夾

中。（2）【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程。步驟2：在窗體Forml

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

_______表4-50

對(duì)象及性值

NameIistl

列表框

Iist1、2、3、4、5

形狀控件NameShape1

Shape3

窗體Caption圖形控件

------------------------步驟3；打開代碼

編輯窗口，編寫列表框的Click事件過(guò)程。參考代碼：PrivateSubListl_Click（）

Shape1.FillStyle=Listl.TextEndSub步驟4：按要求將文件保存至考生文件夾

中。

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

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

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

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

個(gè)按鈕的高、寬均為300、800。窗體的標(biāo)題為“按鈕窗口”。運(yùn)行后的窗體圖3-

圖

132所示。3-132注意：存盤時(shí)必須存放在考

生文件夾下，工程文件名為sjtll.vbp,窗體文件名為sjtl.frm。（2）在名稱為

Forml的窗體上畫一個(gè)名稱為Shal的形狀控件，然后建立一個(gè)菜單，標(biāo)題為“形

狀”，名稱為shape。，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“正方形”和“圓形”，其

名稱分別為shapel和sh叩e2,如圖3—133所示，然后編寫適當(dāng)?shù)某绦?。程序運(yùn)行

后，如果選擇“正方形”菜單項(xiàng)，則形狀控件顯示為正方形；如果選擇“圓形”菜單

圖

項(xiàng)，則窗體上的形狀控件顯示為圓形。3-133

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

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

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，表4—77在窗體

中用“復(fù)制”和“粘貼”畫出控件數(shù)組并設(shè)置屬性。

?4-77____________________

對(duì)象雇性值

NameForml

窗體

Caption按鈕窗口

NameCommand1

Index0

命令按鈕1Captionft

Width800

Height300

NameCommand1

Index1

命令按鈕2Caption有

WidthKOO

Height300

NameCommand1

Index2

命令按鈕3Caption取消

Width800

Height300

一步驟2：按要求將文件保

存至考生文件夾中。（2）【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體

Forml中畫一個(gè)名為Shal的形狀控件。步驟2：選擇【工具】一【菜單編輯器】

命令，打開菜單設(shè)計(jì)器，如表4—78所示，設(shè)置建立菜單項(xiàng)。

表4-78

標(biāo)題名稱內(nèi)縮符號(hào)

形狀shapeO0

止方.形shape1!

陰形shapc21

一步驟3：打開代碼編輯窗

口，編寫菜單命令的單擊事件過(guò)程。參考代碼：PrivateSubShapel_Click（）

Me.Shal.Shape=1EndSubPrivateSubShape2Click（）Forml.Shal=3EndSub

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

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

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

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

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

按鈕的高、寬均為300、800c窗體的標(biāo)題為“按鈕窗口”。運(yùn)行后的窗體圖3—132

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

工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。（2）在名稱為Forml的窗體上畫

一個(gè)名稱為Shal的形狀控件，然后建立一個(gè)菜單，標(biāo)題為“形狀”，名稱為

shapeO,該菜單有兩個(gè)子菜單，其標(biāo)題分別為“正方形”和,,圓形”，其名稱分別為

shapel和sh叩62,如圖3—133所示，然后編寫適當(dāng)?shù)某绦颉３绦蜻\(yùn)行后，如果選

擇“正方形”菜單項(xiàng)，則形狀控件顯示為正方形；如果選擇“圓形”菜單項(xiàng)，則窗體上

的形狀控件顯示為圓形。圖3/33注意：程序中不能使用變

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

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

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

在窗體中用“復(fù)制”和“粘貼”畫出控件數(shù)組并設(shè)置屬性。

?4-77

對(duì)象屬性值

NameForm!

窗體

Caption按鈕窗口

NameCommand1

Index0

命令按鈕1Caption是

Width800

Height300

NameCommand1

Index1

命令按鈕2Caption否

Width800

Height300

NameCommand1

Index2

命令按鈕3Caption取消

Width800

Height300

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

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

體Forml中畫一個(gè)名為Shal的形狀控件。步驟2：選擇【工具】一【菜單編輯

器】命令，打開菜單設(shè)計(jì)器，如表4-78所示，設(shè)置建立菜單項(xiàng)。

表4-78

內(nèi)縮符號(hào)1

標(biāo)即名稱

形狀shapeO0

正方形shape11

in形shape?1

步驟3：打開代碼編輯窗口，編

寫菜單命令的單擊事件過(guò)程。參考代碼：PrivateSubShapel_Click()

Me.Shal.Shapc=1EndSubPrivateSubShape2_Click()Forml.Shal=3EndSub

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

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

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

（1）在名稱為Forml的窗體上畫一個(gè)名稱為L(zhǎng)abell、標(biāo)題為“滾動(dòng)條控件”的標(biāo)

簽，一個(gè)名稱為HScrolll的水平滾動(dòng)條。請(qǐng)通過(guò)屬性窗口設(shè)置屬性使水平滾動(dòng)條

取值范圍的最小值為1,最大值為100,滾動(dòng)條的寬度為3000,高度為300,滾動(dòng)

體如圖1一194所示。

圖1-194

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

程文件名為sjtl.vbp,窗體文件名為sjtl.frm。（2）在名稱為Foirnl的窗體上畫一

個(gè)名稱為Shapel的形狀控件，位置在窗體的頂部，在屬性窗口中將其設(shè)置為圓

形。畫一個(gè)名稱為Timerl的計(jì)時(shí)器，在屬性窗口中將其設(shè)置為不可用，時(shí)間間隔

為0.5秒，窗體如圖1—195所示。請(qǐng)編寫窗體的Load事件過(guò)程和計(jì)時(shí)器的事件過(guò)

程，使得程序一開始運(yùn)行，計(jì)時(shí)器即變?yōu)榭捎茫颐扛?.5秒形狀控件向下移動(dòng)

存盤時(shí)

圖1-195

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

Forml中畫一個(gè)滾動(dòng)條和一個(gè)標(biāo)簽，并設(shè)置它們的相關(guān)屬性，其屬性及值如表2-

裳2?93

1對(duì)象［屬性I值

NameHScrolll

Max100