國家二級VB機(jī)試（上機(jī)操作）模擬試卷

第1套

一、基本操作題（本題共7題，每題1.0分，共1分。）

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

名稱為Form1、標(biāo)題為“列表框練習(xí)”的窗體上畫一個(gè)名稱為Lisll的列表框，表項(xiàng)

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

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

如圖3—102（b）所示。注意：存盤時(shí)，將文件保存至考生文件夾下，且窗體文件名

為sjtl.frm,工程文件名為sjtl.vbpo

(h

（2）在名稱為Forml的窗體上，畫一

個(gè)名稱為Labell的標(biāo)簽，其標(biāo)題為“計(jì)算機(jī)等級考試”，字體為宋體，字號為12

號，且能根據(jù)標(biāo)題內(nèi)容自動(dòng)調(diào)整標(biāo)簽的大小。再畫兩個(gè)名稱分別為Commandl、

Command?,標(biāo)題分別為“縮小”和“還原”的命令按鈕（如圖3—103所示）。要求：編

寫適當(dāng)?shù)氖录^程，使得單擊“縮小”按鈕，Labell中所顯示的標(biāo)題內(nèi)容自動(dòng)減小兩

個(gè)字號；單擊“還原”按鈕，Labell所顯示的標(biāo)題內(nèi)容的大小自動(dòng)恢復(fù)到12號。注

意：存盤時(shí)，將文件保存至考生文件夾下，窗體文件名為sjt2.frm,工程文件名

為sjt2.vbpo要求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。

UForml

什"機(jī)等熠考試

㈤W

圖3?103

標(biāo)準(zhǔn)答案：第1小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表4—62在窗體中畫出

?4-62

對象an值

Namel-ornil

窗體

Caption列表框練習(xí)

NunwList1

Usixxx.ddd.mcnm.aaa

列表框FunlName末體

FoncSizc14號

SortedTrue

控件并設(shè)置其相關(guān)屬性。步驟

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

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

表463

屬性值

NameLabel1

AutoSizeTrue

揉差

Caption計(jì)W機(jī)用筑學(xué)試

Font宋體12號

NameCommand1

命令技Wl1

Caption海小

Name(.'onimandZ

命令按鈕2

Caption

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

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

Label1.FontSize=Labell.FontSize2EndSubPrivateSubCommand2_Click()

Label1.FontSize=12EndSub步驟3：按要求將文件保存至考生文件夾中。

知識點(diǎn)解析：第1小題：本題只需新建窗體和控件，然后設(shè)置相關(guān)屬性即可。第2

小題：程序運(yùn)行時(shí)要改變標(biāo)簽的標(biāo)題的字體大小，可通過修改其FontSize屬性值

來實(shí)現(xiàn)。

二、簡單應(yīng)用題(本題共I題，每題7.0分，共I分0)

2、(1)考生文件夾下的工程文件sjt3.vbp中有一個(gè)初始內(nèi)容為空、且?guī)в写怪睗L

動(dòng)條的文本框，其名稱為Textl：兩個(gè)標(biāo)題分別為“讀數(shù)據(jù)”和，、杳找”的命令按鈕，

其名稱分別為Cmdl、Cmd2。請畫一個(gè)標(biāo)題為“查找結(jié)果”的標(biāo)簽Label1,再面一

個(gè)名稱為Tcxt2,其初始內(nèi)容為空的文本框，如圖3—104所示。程序功能如下：

①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in3.dal文件中已按升序排列的30個(gè)整

數(shù)讀入一維數(shù)組a中，并同時(shí)顯示在Textl文本框內(nèi)；②單擊“查找”按鈕，將彈

出輸入框接收用戶輸入的任意一個(gè)偶數(shù)，若接收的數(shù)為奇數(shù)，則提示重新輸入。如

果接收的偶數(shù)超出一維數(shù)組a的數(shù)值范圍，則無須進(jìn)行相應(yīng)查找工作，直接在

Text2內(nèi)給出結(jié)果；否則，在一維數(shù)組a中查找該數(shù)，并根據(jù)查找結(jié)果在Text2文

本框內(nèi)顯示相應(yīng)信息。命令按鈕的Click事件過程已給出，但“查找”按鈕的Click

事件過程不完整，請將其中的注釋符去掉，把"?”改為正確的內(nèi)容，以實(shí)現(xiàn)上述程

序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后程序按原

文件名存盤。(2)考生文件夾下的工程文件sji4.vbp中有一個(gè)初始內(nèi)容為空的文本

框Textl,一個(gè)包含三個(gè)元素的文本框控件數(shù)組Text2,兩個(gè)標(biāo)題分別是“讀數(shù)據(jù)”

和“統(tǒng)計(jì)”的命令按鈕，兩個(gè)分別含有三個(gè)元素的標(biāo)簽控件數(shù)組Label1和Labcl2,

如圖3—105所示。程序功能如下：①考生文件夾下in4.da1文件中存有20個(gè)考

生的考號及數(shù)學(xué)和語文單科考試成績。單擊“讀數(shù)據(jù)”按鈕，可以將in4.dat文件內(nèi)

容讀入到20行3列的二維數(shù)組a中，并同時(shí)顯示在Tcxtl文本框內(nèi)；②單擊“統(tǒng)

計(jì)“按鈕，則對考生數(shù)學(xué)和語文的平均分在“優(yōu)秀''、"通過''和"不通過''三個(gè)分?jǐn)?shù)段

的人數(shù)進(jìn)行統(tǒng)計(jì)，并將人數(shù)統(tǒng)計(jì)結(jié)果顯示在控件數(shù)組Text2中相應(yīng)位置。其中，平

均分在85分以上(含85分)為“優(yōu)秀”，平均分在60?85分之間(含60分)為“通過”，

平均分在60分以下為“不通過”。命令按鈕的。ick事件過程已經(jīng)給出，但“統(tǒng)計(jì)”

按鈕的Click事件過程不完整，請將其中的注釋符去掉，把"?”改為正確的內(nèi)容，以

實(shí)現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最

后程序按原文件名存盤。

W3-l(M[VI3-105

標(biāo)準(zhǔn)答案：第1小題步驟1：打開考生文件夾下的工程文件sjt3.vbp,打開代碼

編輯窗口，去掉程序中的注釋符將問號“?”改為正確的內(nèi)容。參考代碼：If

num/2<>Fix(num/2)ThenIfnum<a(l)Ornum>a(30)ThenIfa(n)=numThenIfn

>30Then步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：打開考

生文件夾中的本題工程文件sjt4.vbp,打開代碼編輯窗口，去掉程序中的注釋符

…，將問號改為正確的內(nèi)容。參考代碼：Avg=(a(i,2)+a(i,3))/2CaseIs>

=85Case60To84EndSelectText2(n-l)=x(n)步驟2：按要求將文件保存至考生文件

夾中。

知識點(diǎn)解析：第1小題：在“查找”按鈕的單擊事件中，首先使用變量num接收輸

入框的值，然后判斷num是否為偶數(shù)，如果為奇數(shù)伯山】]/2〈>6*(田1]1/2))則提

示錯(cuò)誤信息；由于數(shù)組a是升序排列的，因此如果num的值小于a(l)或囂大于

a(30)則意味著超出范圍：接下來使用For循環(huán)遍歷整個(gè)數(shù)組，如果某次循環(huán)中數(shù)組

元素等于num的值則意味著找到，可以退出循環(huán)；當(dāng)循環(huán)結(jié)束后如果n的值大于

30則表明循環(huán)是正常結(jié)束的，沒有找到這個(gè)元素。第2小題：本題要求編寫“統(tǒng)

計(jì)”按鈕的單擊事件過程。程序設(shè)計(jì)思路：在一個(gè)For循環(huán)中逐一取出存于數(shù)組a

中的各學(xué)生成績，將同一行的兩個(gè)成績?nèi)∑骄岛笥肧electCase語句對平均值進(jìn)

行判斷，根據(jù)成績所屬情況，使對應(yīng)的x數(shù)組元素中的數(shù)增1,最后顯示在文本框

數(shù)組中。

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

3、考生文件夾下的工程文件sjt5.vbp中有一個(gè)初始內(nèi)容為空的文木框Textl,兩

個(gè)標(biāo)題分別是“讀數(shù)據(jù)”和“計(jì)算”的命令按鈕；請畫一個(gè)標(biāo)題為“各行平均數(shù)的最大

值為''的標(biāo)簽Label2,再畫一個(gè)初始內(nèi)容為空的文本框Text2,如圖3—106所示。

程序功能：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀入20

行5列的二維數(shù)組a中，并同時(shí)顯示在Tcxtl文本框內(nèi)；②單擊“計(jì)算”按鈕，則自

動(dòng)統(tǒng)計(jì)二維數(shù)組a中各行的平均數(shù)，并將這些平均數(shù)中的最大值顯示在Text2文本

框內(nèi)?！白x數(shù)據(jù)”按鈕的Click事件過程己經(jīng)給出，請編寫“計(jì)算”按鈕的Click事件

過程實(shí)現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)

束程序運(yùn)行之前，必須用“計(jì)算”按鈕進(jìn)行計(jì)算，且必須用窗體右上角的關(guān)閉按鈕結(jié)

束程序.否則無成績八最后,程序按原文件名存盤.

標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾中的本題工程文件sjt5.vbp,在窗體Forml

中畫一個(gè)標(biāo)簽和一個(gè)文本框，其屬性及值如表4—64所示。

___________________________表4￡4

對象|屬性|值

NameILabcl2

小上CapHon-各打平均數(shù)的I大值為

NameTcxt2

文本框~~~~.

------------------------------------------------------------1---------------------步驟2：打開代碼編輯窗口，在

指定位置編寫以下代碼。參考代碼：Fori=lTo20Sum=0Forj=lTo5

Sum=Sum+a(i,j)NextAvg=Sum/5Ifi=lThenMax=AvgElselfMax<AvgThen

Max二AvgEndIfNext步驟3：按VF5>鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，接著

單擊“計(jì)算”按鈕，然后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟4：按要求將文

件保存至考生文件夾中。

知識點(diǎn)解析：本題可利用一個(gè)嵌套的For循環(huán)來完成計(jì)算工作：在外循環(huán)（循環(huán)變

最的取值為1?20）體中，先初始設(shè)徨記錄每行數(shù)據(jù)之和的變量Sum的初值為0,

接著通過內(nèi)循環(huán)（循環(huán)變量的取值為1?5）體完成對每行數(shù)據(jù)的累加工作。內(nèi)循環(huán)結(jié)

束后，用表達(dá)式Avg=Sum/5計(jì)算出該行的平均值。如果是第一次執(zhí)行外循環(huán)的

循環(huán)體，則將當(dāng)前Avg的值記錄在變量Max中，否則僅在其他行Avg值大于Max

的值時(shí)，才將其記錄在變量Max中。嵌套For循環(huán)結(jié)束時(shí)，變量Max的值即為每

行平均數(shù)中的最大值，將其顯示在文本框Text2中.

國家二級VB機(jī)試（上機(jī)操作）模擬試卷

第2套

一、基本操作題（本題共1題，每題1.0分，共/分。）

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

名稱為Forml的窗體上添加一個(gè)計(jì)時(shí)器控件，名稱為Timerl。請利用屬性窗口設(shè)

置適當(dāng)屬性，使得在運(yùn)行時(shí)可以每隔1秒，調(diào)用計(jì)時(shí)器的Timer事件過程一次。另

外，請把窗體的標(biāo)題設(shè)置為“題目2”。設(shè)計(jì)階段的窗體如圖3—73所示。注意：保

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

sjtl.frmo（2）在名稱為Forml的窗體上畫一個(gè)文本框，名稱為Textl,無初始內(nèi)

容；再畫一個(gè)圖片框，名稱為P1。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，在文

本框中每輸入一個(gè)字符，就在圖片框中輸出一行文本框中的完整內(nèi)容，運(yùn)行時(shí)的窗

體如圖3—74所示.程序中不能使用任何變量.注意，保存時(shí)必須存放在考生文

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

圖3-73圖3-74

標(biāo)準(zhǔn)答案：第1小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)ExE”工程，如表4—5在窗體中畫出

表4Y5

對象屬餞值

NameFumil

窗體

(,aptuifi麴日2

NameTimer1

計(jì)時(shí)移

Inttfnal

捧侔苦港皆苴和年屆枇一________________KMX)rw-

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

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

*4-46對象屬性設(shè)?

對象屬性值

NameTextl

文本也

Text

圖片樞Name

------------步驟2：打開代碼編輯窗口，編寫命

令按鈕的單擊事件過程。參考代碼：PrivateSubTextl_Change（）Pl：Print

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

知識點(diǎn)解析：第1小題：本題只需按要求畫出控件并設(shè)置其相關(guān)屬性即可。第2

小題：要實(shí)現(xiàn)本題所要求的功能，可在文本框的Change事件過程中，將當(dāng)前文本

框中的文本用Print方法輸出到圖片框中。

二、簡單應(yīng)用題（本題共7題，每題7.0分，共［分0）

2、（1）在考生目錄下有一個(gè)工程文件sjt3.vbp,窗體上有一個(gè)單選按鈕數(shù)組，含三

個(gè)單選按鈕，均沒有標(biāo)題，請利用屬性窗口，為單選按鈕依次添加標(biāo)題為“北京”、

“上?！?、“廣州”；再添加一個(gè)標(biāo)題為“顯示”的命令按鈕，如圖3—75所示。程序的

功能是在運(yùn)行時(shí)，如果選中一個(gè)單選按鈕后，單擊“顯示”按鈕，則根據(jù)單選按鈕的

選中情況，在窗體上顯示“我的出生地是北京”、“我的出生地是上?！被颉拔业某錾?/p>

地是廣州要求：①依次添加單選按鈕標(biāo)題為“北京”、“上?！?、“廣州”；設(shè)初始

選中的是“上海”，添加命令按鈕標(biāo)題為“顯示”。②去掉程序中的注釋符，把程序

中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不

能修改控件的其他屬性。最后把修改后的文件按原文件名存盤。（2）在考生目錄下

有一個(gè)工程文件爾4.vbp,請?jiān)贔orml窗體中畫三個(gè)標(biāo)簽，名稱分別為Bl、B2、

L1,標(biāo)題分別為“字號”、“字體”、“計(jì)算機(jī)等級考試”，其中L1的高為500,寬為

3000；再在Bl、B2標(biāo)簽的下面畫兩個(gè)組合框，名稱分別為Cbl、Cb2,并為Cbl

添加項(xiàng)目：“10”、“15”、“20”，為Cb2添加項(xiàng)目：“黑體”、“隸書”、“宋體”。請編

寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，當(dāng)在Cbl中選一種字號、Cb2中選一種字體

時(shí)，標(biāo)簽L1中的文字立即變?yōu)檫x定的字號和字體。如圖3—76所示。注意：考生

不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須選擇一種字號和

字體。必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，按原文件名存

盤，程序中不得使用任何變量。

AmtMtw廣北版

_______存上濯

圖3-75圖3-76

標(biāo)準(zhǔn)答案：第1小題步驟1：打開考生文件夾中的本題工程文件s"3.vbp,依次

選中窗體中的各單選按鈕和命令按鈕，設(shè)置它們的相關(guān)屬性，其屬性及值如表4-

表447

對象屬性值

Caption北京

Opl<0)

ValueI-aIse

(aption上海

Opl<1>

ValueTrue

Caption廣州

Opl(2)

ValueFalse

ClCaption

47所小。-----二---------_-步驟2：雙擊“顯示”命令按

鈕，打開代碼編輯窗口，去掉程序中的注釋符將問號"?”改為正確的內(nèi)容c參

考代碼：PrivateSubCI_Click()Fori=0T02IfOpl(i).Vakie=TrueThenPrint"我的

出生地是“+Opl⑴.CaptionEndIfNextEndSub步驟3：按要求將文件保存至考生

文件夾中。第2小題步驟1：打開考生文件夾中的本題工程文件sjl4.vbp,如表

18畫出三個(gè)標(biāo)簽和兩個(gè)組合框并設(shè)置屬性。

?4-48

及性值

NameRI

標(biāo)簽I

Caption字號

NameB2

一霹2

Caplion字體

NameLI

Caption訪算機(jī)等機(jī)考試

標(biāo)否3

Width3000

Height500

NameCbl

也合出1

UM10,15、20

NameCb2

組合樞2

List一■體'木體_出理在梓碼編銅?需n一編佇加小

組合框的單擊的單擊事件過程。參考代碼：PrivateSubCbl_Click()

LI.FontSize-Cbl.TextEndSubPrivateSubCb2_Click()LI.Font-Cb2.TextEnd

Sub步驟3：按VF5＞鍵運(yùn)行程序并選擇一個(gè)字號和字體，然后單擊窗體右上角的

關(guān)閉按鈕結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。

知識點(diǎn)解析：第1小題：本題要求通過修改程序源代碼，來實(shí)現(xiàn)當(dāng)選中不同選項(xiàng)

時(shí)，單擊命令按鈕，即在窗體顯示出不同信息的功能。程序源代碼在按鈕的Click

事件過程中，利用For循環(huán)語句逐一判斷單選按鈕數(shù)組中每個(gè)元素當(dāng)前是否被選

中，若選中則通過在窗體中用Print語句顯示出相關(guān)信息。因?yàn)閱芜x按鈕數(shù)組一共

有三個(gè)元素，且數(shù)組索引號(Index屬性值)從0開始，故循環(huán)語句的初值為0,終值

為2。第2小題：組合框的Text屬性可以返回當(dāng)前選中的列表項(xiàng)內(nèi)容，本題只需

要分別在兩個(gè)組合框的Click事件中令標(biāo)簽的相應(yīng)字體屬性等于組合框當(dāng)前選中項(xiàng)

的內(nèi)容即可。

三、綜合應(yīng)用題(本題共［題，每題7.0分，共7分0)

3、在考生目錄下有一個(gè)工程文件sjt5.vbp,其窗體上有一個(gè)文本框，名稱為

Textl；還有兩個(gè)命令按鈕，名稱分別為Cl、C2,標(biāo)題分別為“計(jì)算”、“存盤”，如

圖3—77所示。并有一個(gè)函數(shù)過程isprime(a)可以在程序中直接調(diào)用，其功能是判

斷參數(shù)a是否為素?cái)?shù)，如果是素?cái)?shù)，則返回True,否則返回False。請編寫適當(dāng)?shù)?/p>

事件過程，使得在運(yùn)行時(shí)，單擊“計(jì)算”按鈕，則找出大于15000的第一個(gè)素?cái)?shù)，并

顯示在Textl中：單擊“存盤”按鈕，則把Textl中的計(jì)算結(jié)果存入考生文件夾下的

oul5.tXt文件中。注意：考生不得修改isprime函數(shù)過程和控件的屬性，必須把計(jì)

算結(jié)果通過單擊“存盤”按鈕存入out5.txt文件中，否則無成績。

口，iJi

Ir"—■J

i4包?

圖3077

標(biāo)準(zhǔn)答案：步驟1：打開本題對應(yīng)工程文件爾5.vbpo步驟2：雙擊窗體Forml

上的“計(jì)算”按鈕，打開代碼編輯窗口，在其Click事件過程中輸入如下代碼。參考

代碼：PrivateSubCl_Click()a%=15000Doa%=a%+lLoopUntilisprime(a%)

Textl.Text』％EndSub步驟3：雙擊窗體Forml上的“存盤”按鈕，在代碼編輯窗

口其Click事件過程中輸入如下代碼。參考代碼：PrivateSubC2_Click()Open

App.Path&"\out5.txt"ForOutputAs#lprint：#1.Textl.TextClose#IEndSub

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

知識點(diǎn)解析：素?cái)?shù)的判斷準(zhǔn)則就是看該數(shù)除了1和其本身外有無其他約數(shù)。程序設(shè)

計(jì)思路：要找出大干15000的第一個(gè)素?cái)?shù)，可以定義一個(gè)初值為15000的整型變量

a,通過調(diào)用函數(shù)isprime(a),以其返回值是素?cái)?shù)(即isprime(a))作為Do循環(huán)語句的

繼續(xù)循環(huán)條件，在循環(huán)體中加入語句：a=a+l,實(shí)現(xiàn)每執(zhí)行循環(huán)體?次變量a的值

增加1,當(dāng)循環(huán)結(jié)束時(shí)將a的值在文本框中顯示出來。要將結(jié)果存入考生文件夾下

的ou15.txt文件，可先用Open語句以輸出方式打TT該文件；然后通過Prinl語句

將文本框中的內(nèi)容寫入打開的文件；最后用Close語句關(guān)閉打開的文件。

國家二級VB機(jī)試(上機(jī)操作)模擬試卷

第3套

一、基本操作題(本題共1題，每題i.o分，共1分。)

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

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

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

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

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

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

個(gè)子菜單，其標(biāo)題分別為“正方形''和“圓形”，其名稱分別為shapel和shape2,如圖

3—133所示，然后編寫適當(dāng)?shù)某绦?。程序運(yùn)行后，如果選擇“正方形”菜單項(xiàng)，則

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

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

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

EfclSIm|

圖3?132圖3?133

標(biāo)準(zhǔn)答案：⑴步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，表4-77在窗體中用“復(fù)制”和“粘

貼”畫出控件數(shù)組并設(shè)置屬性。

考生文件夾中。（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)縮符號

形狀shapeO0

正方形shape!1

例形shape!1

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

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

Me.Shal.Shapc=lEndSubPriVatcSubShapc2_Click()Form1.Shal=3EndSub步

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

知識點(diǎn)解析：(1)本題只需按題目要求畫出含三個(gè)元素的按鈕數(shù)組，并分別設(shè)置

Caption屬性。(2)要實(shí)現(xiàn)本題中的功能，應(yīng)在“正方形”菜單項(xiàng)的Click事件過程

中，令Shal的Shape屬性為1,在“圓形”菜單項(xiàng)的Click事件過程中，令Shal的

Shape屬性為3o

二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分C)

2、(1)在考生文件夾中有一個(gè)工程文件sjt3.vbp,窗體上有2個(gè)命令按鈕、1個(gè)水

平滾動(dòng)條和1個(gè)計(jì)時(shí)器，其名稱分別為Command］、Command2>HScrolll和

Timed,如圖3.8(a)所示。程序運(yùn)行后，按鈕Commandl、Command2的標(biāo)題分別

立即顯示“開始”“停止”，同時(shí)把計(jì)時(shí)器的Interval屬性設(shè)置為100,Enabled屬性設(shè)

置為False。此時(shí)如果單擊“開始”按鈕，則該按鈕變?yōu)榻?，而?biāo)題則變?yōu)椤袄^

續(xù)“，同時(shí)滾動(dòng)條的滾動(dòng)框自左至右移動(dòng)，每次移動(dòng)10,如圖3-8(b)所示，移到右

端時(shí)，自動(dòng)從左端重新開始向右移動(dòng)；如果單擊“停止”命令按鈕，則該按鈕變?yōu)榻?/p>

用，“繼續(xù)”命令按鈕變?yōu)橛行?，同時(shí)滾動(dòng)框停止移動(dòng)；再次單擊“繼續(xù)”命令按鈕

后，滾動(dòng)框繼續(xù)移動(dòng)。己經(jīng)給出了全部控件和程序，但程序不完整，請去掉程序中

的注釋符，把程序中的“?”改為正確的內(nèi)容。注意：考生不得修改窗體文件中已經(jīng)

存在的程序。最后程序按原文件名存盤。

sjt4.vbp,窗體上有2個(gè)名稱分別為Tcxtl、Text2的文本框，有1個(gè)名稱為

Commandl的命令按鈕。程序運(yùn)行時(shí)，在Texll文本框中輸入一行單詞（只含有字母

或空格），單擊命令按鈕后，將把每個(gè)單詞的第一個(gè)字母改為大寫（如果原來已是大

寫字母則不變），并在Text2文本框中顯示出來，如圖3-9所不。已經(jīng)給出了全部控

件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)

容。注意：不得修改原有程序和控件的屬性。最后把修改后的文件按原文件名存

|[I

|B?iI?lco??iItsFirstR?in

盤。圖3.9

標(biāo)準(zhǔn)答案：（1）步驟1：打開考生文件夾中的本題工程文件sjt3.vbp,在代碼編輯

窗口中，去掉程序中的注釋符二將問號“?”改為正確的內(nèi)容。參考代碼：

Command1.Caption="絆續(xù)"Command1.Enabled二FalseCommandI.Enablcd=True

HScrolll.Value=HScrolll.Value+10HSCrolll.Value=HScroll1.Min步驟2：按

要求將文件保存至考生文件夾中。（2）步驟1：打開考生文件夾中的本題工程文件

sjt4.vbp,在代碼編輯窗口中，去掉程序中的注釋符將問號“?”改為正確的內(nèi)

容。參考代碼：stl=Trim（Textl.Text）st2=st2&Mid（stl,n+1,1）Text2.Text=st2

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

知識點(diǎn)解析：（1）題目中設(shè)也了一個(gè)定時(shí)器，定時(shí)器啟動(dòng)后周期性的移動(dòng)水平滾動(dòng)

條，可在定時(shí)器的Timer事件處理過程中，設(shè)置水平滾動(dòng)條的Value屬性，Value

屬性值增大則滾動(dòng)條往右移動(dòng)。第一個(gè)“?”處是補(bǔ)充“開始”命令按鈕的事件處理過

程代碼，根據(jù)題目要求，點(diǎn)擊“開始”按鈕后該按鈕的標(biāo)題變成“繼續(xù)"，即Caplion

屬性設(shè)置為“繼續(xù)”；同時(shí)，“開始”按鈕變成不可用，即Enabled屬性設(shè)置為False；

第三個(gè)“?，，處是設(shè)置Command1命令按鈕變成可用，即Enabled屬性設(shè)置為True；

第四個(gè)和第五個(gè)"?”處是設(shè)置水平滾動(dòng)條的Value屬性，在Value屬性沒有到達(dá)最

大值之前，在每次定時(shí)器的Timer事件過程中增加10,如果到了最大值則回到最

左邊，即把Value值設(shè)置為最小。（2）題目要求對單詞進(jìn)行轉(zhuǎn)換，即單詞首字母變

成大寫。分析代碼可知，在命令按鈕的事件處理過程中，首先獲取需要轉(zhuǎn)換的文本

內(nèi)容，即Textl文本框內(nèi)容；然后對第一個(gè)單詞的首字母（即文本內(nèi)容的第一個(gè)字

母）轉(zhuǎn)換成大寫；接下來通過循環(huán)查找其他單詞，通過Mid函數(shù)從stl里面逐個(gè)取出

字母，判斷是否是空格，如果不是則把下一個(gè)字母添加到st2中；如果是空格，表

明下一個(gè)字母是單詞首字母，需要把下一個(gè)字母轉(zhuǎn)換成大寫再添加到st2中。最后

一個(gè)處是把st2顯示在Tcxt2文本框中。

三、綜合應(yīng)用題（本題共［題，每題7.0分，共I分。）

3、在考生文件夾下有一個(gè)工程文件sjt5.vbp,其窗體中有一個(gè)實(shí)心圓。程序運(yùn)行

時(shí)，當(dāng)用鼠標(biāo)左鍵單擊窗體任何位置時(shí)，實(shí)心圓則向單擊位置直線移動(dòng)；若用鼠標(biāo)

右鍵單擊窗體,則實(shí)心圓停I卜移動(dòng).窗體文件中已經(jīng)給出了全部捽件,但程序不完

整。要求：請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其能正確

運(yùn)行，不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存

盤。

標(biāo)準(zhǔn)答案：步驟1：打開考生文件下的本題工程文件sjt5.vbp,在代碼編輯窗口，

去掉程序中的注釋符將問號“?”改為正確的內(nèi)容。參考代碼：stepx=U

stepy=a*stepxTimer!.Enabled=TrueTimerl.Enabled=FalseShape!.Move

Shape1.Left+stepx,Shape1.Top+slepy步驟2：按要求將文件保存至考生文件夾

中。

知識點(diǎn)解析?：本題在窗體的鼠標(biāo)按下事件過程中，若按下的是鼠標(biāo)左鍵，則通過計(jì)

算得出圓心的坐標(biāo)。若圓心與當(dāng)前鼠標(biāo)按下點(diǎn)位于同一豎線上時(shí)（即x=x0）,則設(shè)定

實(shí)心圓縱向移動(dòng)增量為stepy=Sgn（y-yO）*5O,橫向移動(dòng)增量則為0（即stepx=O）：否

則設(shè)定實(shí)心圓橫向移動(dòng)增量為stepx=Sgn（x-x0）*50,并根據(jù)斜率a計(jì)算出縱向移動(dòng)

增量：stepy二a*stcpx,若計(jì)算出而縱向移動(dòng)增量stepy絕對值大于橫向移動(dòng)增量絕

對值stepx,則重新設(shè)定實(shí)心圓縱向移動(dòng)增量為stepy=Sen（y-yO）*5O,計(jì)算出橫向移

動(dòng)增量stepx=stepy/a,以防止實(shí)心圓移動(dòng)速度不均。啟動(dòng)計(jì)時(shí)器Timerl（設(shè)置其

Enabled屬性值%True）,利用其Timer事件過程控制實(shí)心圓移動(dòng)。根據(jù)計(jì)算出的

實(shí)心圓橫向移動(dòng)增量和縱向移動(dòng)增量，其移動(dòng)的語句為：Shape1.Move

Shape1.Left+stepx,Shape1.Top+stcpy0

國家二級VB機(jī)試（上機(jī)操作）模擬試卷

第4套

一、基本操作題（本題共1題，每題1.0分，共1分。）

1、在考生文件夾下，存在一個(gè)數(shù)據(jù)庫文件“sampl.accdb”，里而已經(jīng)設(shè)計(jì)好表對

象“tSlud”，請按照以下要求，完成對表的修改。（1）將“年齡”字段的字段大小改為

“整型”：將“簡歷”字段的說明設(shè)置為“自上大學(xué)起的簡歷信息”；將“備注”字段刪

除。（2）設(shè)置表對象的有效性規(guī)則為：學(xué)生的出生年份應(yīng)早于（不含）入校年份；同

時(shí)設(shè)置相應(yīng)有效性文本為“請輸入合適的年齡和入校時(shí)間”。要求：使用函數(shù)返回

有關(guān)年份。（3）設(shè)置“性別”字段的默認(rèn)值為“女”；設(shè)置“性別”字段值的輸入方式為

從下拉列表中選擇“男”或“女”選項(xiàng)值。（4）設(shè)置數(shù)據(jù)表顯示的字體大小為12、行高

為18,設(shè)置數(shù)據(jù)表中顯示所有字段。（5）將學(xué)號為“20011001”學(xué)生的照片信息換成

考生文件夾下的“photo,bmp”圖像文件：將姓名中的“青”改為“菁”；在黨員學(xué)生的

簡歷文字的句號前加“，在校入黨”等文字。（6）將宏“打開表”重命名為自動(dòng)執(zhí)行的

宏。

標(biāo)準(zhǔn)答案：⑴【操作步驟】步驟1：選擇“表”對象，右鍵單擊“tStud”表，在彈出

的快捷菜單中選擇“設(shè)計(jì)視圖”命令，打開設(shè)計(jì)視圖“步驟2：單擊“年齡”行的任一

點(diǎn)，然后再單擊其“常規(guī)”選項(xiàng)卡下的“字段大小”行的下拉按鈕，在彈出的下拉列表

中選擇“整型”，如圖4.21所示。

圖4.21步驟3：單擊“簡歷”行

的“說明”列,并輸入“白上大學(xué)起的簡歷信息”，如圖4.22所示。

圖4.22步驟4：右鍵單

擊“備注”行的任一點(diǎn)，在彈出的快捷菜單中選擇“刪除行”命令，如圖4.23所示。

漢字■法（Y）

圖4,“3步驟5：單擊快速訪問工具欄中

的“保存”按鈕。（2）【操作步驟】步驟1：右鍵單擊字段行任一點(diǎn)，在彈出的快捷

菜單中選擇“屬性”命令，彈出屬性表”對話框，在該對話框的“有效性規(guī)則”行中輸

入“Year（DateO）—［年齡］〈Year（［入校時(shí)間］）”.并且在其“有效性文本”行中輸入“請

輸入合適的年齡和入校時(shí)問”，如圖4.24所示。

圖爾24步驟2：單擊快速訪問工

具欄中的“保存”按鈕，在彈出的“Micros。住Accc88”的對話框中單擊“是”按鈕，最后

關(guān)閉數(shù)據(jù)表。（3）【操作步驟】步驟1：單擊“性別”行任一點(diǎn)，然后在其“常規(guī)，選

項(xiàng)卡下的“默認(rèn)值”行中輸入“女步驟2：單擊“性別”行的“數(shù)據(jù)類型”列的下拉按

鈕，在彈出的卜?拉列表中選擇“查閱向?qū)А泵?，彈出“杏閱向?qū)А睂υ捒颍谠搶υ?/p>

框中選中“自行鍵入所需的值(V)”單選按鈕，然后單擊“下一步”按鈕，分別輸入

“男”、“女”,再單擊“下一步”按鈕,最后單擊“完成”按鈕,如圖4.25所示。

圖4.25步驟3：單擊快速訪問工

具欄中的“保存”按鈕，最后關(guān)閉表。(4)【操作步驟】步驟1：選擇“表”對象，雙

擊“tStud”表，打開數(shù)據(jù)表視圖。步驟2：單擊“開始”選項(xiàng)卡下“文本格式”組中“字

號''右側(cè)的下拉按鈕，在彈出的下拉列表中選擇“12”，如圖4.26所示。

16

18

圖4.26

步驟3：在行選擇器上右鍵單擊，在

彈出的快捷菜單中選擇“行高”命令，打開“行高”對話框，在該對話框的“行高(R)”文

本框中輸入“18”，然后單擊“確定”按鈕，如圖4.27所示°

圖4.27步驟4：在任意字段名稱上右

擊，從彈出的快捷菜單中選擇“取消隱藏字段(u)”命令，打開“取消隱藏列”對話框,

如圖4.28所示,將“黨員否”字段的復(fù)詵框詵中,單擊力天閉”校鈕。

圖4.28步驟5;單擊快速訪問工具欄中的“保存”按鈕。

(5)【操作步驟】步驟1：右鍵單擊除標(biāo)題行外的任意行，在彈出的快捷菜單中，

選擇“文本篩選器”-“等于(E)...”命令,如圖4.29所示。彈出“自定義篩選”對話

框，在該對話框的“學(xué)號等于”行的文本框中輸入“20011001”，然后單擊“確定”按

鈕,即可找至IJ“學(xué)號”為“20011001”的記錄。

ns；CAT-：析[

20011001王#21勇2003(

2001返2一?右擊

9女2004/1

Eg

20011,2女200X

20011.

7男2005,

20021U分停08女2005,

20021乂8勇2005.

200al

9女2004.

20021F

選擇

20021)■于*200110W9

2004LWf*2001ioorM開3(D_

2004力

M.joouoorm

20041不?含,20011002"(Q)但香⑷…

20041

?UCD.

圖429步驟2：右鍵單擊該記

錄所在行的“照片”列的單元格內(nèi)容，在彈出的快捷菜單中，選擇“插入對象⑴…”命

令，如圖4.30所示。在彈出“MicrosoftAccess''的對話框中，單擊“由文件創(chuàng)建(F)”

單選按鈕，單擊”瀏覽按鈕，彈出“瀏覽”文件對話框，在考生文件夾下找到

對應(yīng)圖片文件，然后單擊“確定”按鈕。

3?IM1

倒鶻在上院.-----------------*-----

Jwnoco-ame

QMK)

!20011003KAsm/viiIQMEEJLZ

K25?n?x■?ntr1003/VItOOMXKAa—

I2001?WBHPit

麗IM王小，it*Uaw*o

KOJJOO：tMtIlf2CMS/1XOStTJCIiqa?r.

■I2002)8、19iQ0

iwt/riocs*ftXKiA

1片，AMMB.』?選擇

a*--I

iflM

圖4?30步驟3：單擊

“姓名”列的任一點(diǎn)，然后單擊“開始”選項(xiàng)卡下“查找”組中的“查找”按鈕，彈出“查找

和替換”對話框。步驟4：單擊該對話框中的“替換”選項(xiàng)卡，在“查找內(nèi)容”文本框

中輸入“青”，在“替換為”文本框中輸入“菁”，在“匹配(H)”行選擇“字段任何部分”，

然后單擊“全部替換(A)”按鈕,如圖4.31所示。

單擊

圖4,31步驟5：在彈出的

"MicrosoftAccess”的對詁框中單擊“是”按鈕，然后關(guān)閉“查找和替換”對詁框，最后

單擊快速訪問工具欄中的“保存”按鈕。步驟6：單擊“開始”選項(xiàng)卡下“排序和篩選”

組中的“高級''按鈕，在彈出的快捷菜單中選擇“高級篩選/排序”命令，打開“tStud

篩選1”對話框。步驟7：雙擊“黨員否”字段，在其“條件”行中輸入“True"。如圖

4.32所示。然后單擊“開始”選項(xiàng)卡下的“排序和篩選”組中的“應(yīng)用篩選”按鈕。

圖4.32步驟8：在篩選出的記錄集中，單擊“簡歷”

字段的任一點(diǎn)，然后單擊“開始”選項(xiàng)卡下“查找”組中的“查找”按鈕，彈出“查找和

替換”對話框。步驟9：單擊“替換”選項(xiàng)卡，在“查找內(nèi)容”文本框中輸入“?！?，在

“替換為”文本框中輸入“，在校入黨。在“匹配(H)”行選擇“字段任何部分”，然后

單擊“全部替換(A)”按鈕。步驟10：在彈出的“MicrosoRAccess”的對話框中單擊

“是”按鈕，然后關(guān)閉“查找和替換”對話框，單擊快速訪問工具欄中的“保存”按鈕。

(6)【操作步驟】步驟1：選擇“宏”對象，右鍵單擊“打開表”宏，在彈出的快捷菜單

右擊

圖

中選擇“重命名”命令，如圖4.33所示。4.33步驟

2：輸入“AutoExec”，單擊數(shù)據(jù)庫的任意區(qū)域,然后關(guān)閉數(shù)據(jù)庫。

知識點(diǎn)解析：暫無解析

二、簡單應(yīng)用題（本題共1題,每題1.0分，共/分C）

2、在考生文件夾下，存在一個(gè)數(shù)據(jù)庫文件“samp2.accdb”，里面已經(jīng)設(shè)計(jì)好三個(gè)

關(guān)聯(lián)表對象“tStud"、“tCourse“、“tScore”和一個(gè)臨時(shí)表對象“tTcmp”。試按以下要求

完成設(shè)計(jì)。（1）創(chuàng)建一個(gè)查詢，按所屬院系統(tǒng)計(jì)學(xué)生的平均年齡，字段顯示標(biāo)題為

“院系”和“平均年齡”，所建查詢命名為“qTl”。要求：平均年齡四舍五人取整處

理。（2）創(chuàng)建一個(gè)查詢，查找上半年入學(xué)的學(xué)生，并顯示“姓名”、“性別”、”課程

名”和“成績”等字段內(nèi)容，所建查詢命名為“qT2”。（3）創(chuàng)建一個(gè)查詢，查找沒有選

課的同學(xué)，并顯示其“學(xué)號”和“姓名”兩個(gè)字段內(nèi)容，所建查詢命名為“T3”。（4）創(chuàng)

建刪除查詢，將表對象“tTemp”中年齡值高于平均年齡（不含平均年齡）的學(xué)生記錄

刪除，所建查詢命名為“qT4”。

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：單擊“創(chuàng)建”選項(xiàng)卡下“查詢”組中的“查詢設(shè)計(jì)”

按鈕，在彈出的“顯示表”對話框中雙擊添加表“tStud”，然后單擊“關(guān)閉”按鈕，關(guān)閉

“顯示表”對話框。步驟2：在“字段”行中分別輸入”院系：所屬院系”和“平均年

齡：Round（Avg（［年齡］）,Ofo步驟3：單擊“查詢工具”的“設(shè)計(jì)”選項(xiàng)卡下“顯示/

隱藏”組中的"匯總”按鈕，然后在“平均年齡：Round（Avg（［年齡］）,0）”字段的“總計(jì)”

行的下拉列表中選擇“Expression”命令，如圖4.34所示。

3斷歡樂,0)

53

CrpBy區(qū)”?“1口選擇

1!示:n

條件

?：

nn

圖4.34步驟生單擊陜速訪問工具欄

中的“保存”按鈕，另存為“qTl”。（2）【操作步驟】步驟1：單擊“創(chuàng)建”選項(xiàng)卡下

“查詢”組中的“查詢設(shè)計(jì)”按鈕,在彈出的“顯示表”對話框中取擊表“tStud”、

'Course”和“tScore”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：選中

表“tStud”中的“學(xué)號”字段,然后拖動(dòng)鼠標(biāo)指針到表“tScore”中的“學(xué)號”字段,放開

鼠標(biāo)左鍵，選中表々Course”中的“課程號”字段，然后拖動(dòng)鼠標(biāo)指針到表“Score”中

的“課程號”字段，放開鼠標(biāo)左鍵。步驟3：分別雙擊添加“姓名”、“性別”、“課程

名”、“成績”和“入校時(shí)間”字段，在其下一字段行中輸入“Month（［入校時(shí)間］）”，取

消“Month（［入校時(shí)間］）”字段顯示行復(fù)選框的勾選，在“Month（［入校時(shí)間］）”字段的

“條件'行中輸入">=1AndV=6”,如圖4.35所示。

圖4?35步驟張單擊快速訪問工

具欄中的“保存”按鈕，另存為“qT2L（3）【操作步驟】步驟1：單擊“創(chuàng)建”選項(xiàng)卡

下查詢”組中的“查詢設(shè)計(jì)”按鈕，在彈出的“顯示表”對話框中雙擊添加表“tStud”，

然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：雙擊添加“學(xué)號”和“姓名”字

段，在“學(xué)號”的“條件”行中輸入“Notln（SELECTtSlud.學(xué)號FROMtStudINNER

JOINtScoreON（Stud.學(xué)號=tScore.學(xué)號GROUPBYtStud.學(xué)號）”，如圖4.36

所示。圖4.36步驟3：單擊

快速訪問工具欄中的“保存”按鈕，另存為“qT3”。（4）【操作步驟】步驟1：單擊

“創(chuàng)建”選項(xiàng)卡“查詢”組中的“查詢設(shè)計(jì)”按鈕，在彈山的“顯示表”對話框中雙擊添加

表“tTcmp”，然后單擊、,關(guān)閉”按鈕，關(guān)閉、'顯示表”對話框。步驟2：雙擊添加“年

齡”字段。步驟3：單擊“查詢工具”的“設(shè)計(jì)”選項(xiàng)卡下“查詢類型”組中的“刪除”按

鈕，在“年齡”字段的“條件”行中輸入“〉（selectavg（年齡）fromRTemp］）”，如圖4.37

所示。圖4.37步驟擊單擊“查詢工

具”的“設(shè)計(jì)”選項(xiàng)卡下“結(jié)果”組中的“運(yùn)行”按鈕，在彈出的“MicrosoftAccess”對話

框中單擊“是”按鈕。步驟5：單擊快速訪問工具欄中的“保存”按鈕，另存為

“qT4”，關(guān)閉“設(shè)計(jì)視圖”。

知識點(diǎn)解析：暫無解析

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

3