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

第1套

一、基本操作題（本題共I題，每題i.o分，共J分0）

1、（1）在名稱為Forml的窗體上添加一個(gè)名稱為Shapcl的圓角矩形，高、寬分別

為1000、2000o請(qǐng)利用屬性窗口設(shè)置適當(dāng)?shù)膶傩砸詽M足下列要求：①圓角矩形中

填滿綠色（顏色值為：&H0000FF00&或&HFFOO&）。②窗體的標(biāo)題為“圓角矩

形”，字體為"仿宋_CB2312”。程序運(yùn)行后的窗體如圖所示。注意：存盤(pán)時(shí)必須存

放在考生文件夾下，三號(hào)文件名保存為sjtl.vbp,窗體文件名保存為sjll.frmo

—

（2）考生文件夾下有一個(gè)T程文件

sjt2.vbpo窗體中含有除計(jì)時(shí)器外的其他控件，還有一個(gè)過(guò)程subl,其功能是按

照Textl中的通話時(shí)間計(jì)算通話費(fèi)，并將其顯示在Text2中。程序運(yùn)行時(shí)，單擊

“通話開(kāi)始”按鈕,則在Textl中累加通話時(shí)間（每隔1秒,文本框中的數(shù)加1）,單

擊“通話結(jié)束”按鈕，則停止通話時(shí)間的累加I；單擊“計(jì)算通話費(fèi)”按鈕，則調(diào)用過(guò)程

SUblo要求：①在窗體上畫(huà)一個(gè)計(jì)時(shí)器，如圖所示，并通過(guò)屬性窗口設(shè)置適當(dāng)屬

性。②編寫(xiě)三個(gè)按鈕的Click事件過(guò)程。③編寫(xiě)計(jì)時(shí)器的事件過(guò)程。注意：要求

程序中不得使用變最，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句，“計(jì)算通話費(fèi)''按鈕的事件

過(guò)程中只允許凋用過(guò)程sub'不得修改已經(jīng)存在的程序和控件屬性，最后把文件

按原文件名存盤(pán)。

標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：建立界而，并設(shè)置控件的屬性。程序中用到

的控件及屬性見(jiàn)表3.58o

表3.58

控件物伏控件?體

22,一

屬性NameShup*EillStylrW?hh1(rightFillColorFucitNainrCaption

仿宋圈角

Shape1402000100()&HOOOOFFDO&

_CB2312矩影

步驟2：調(diào)試并

運(yùn)行程序，關(guān)閉程序后我題目要求存盤(pán)。(2)【操作步驟】步驟1：建立界面，設(shè)

置計(jì)時(shí)器的Interval屬性為1000。Enabled屬性設(shè)置為False。步驟2：打開(kāi)代碼編

輯窗口，在代碼編輯窗口指定位置編寫(xiě)以下代碼。參考答案PrivateSub

Coinmandl_Click()Timerl.Enabled=True'通話開(kāi)始，Timer生效EndSubPrivate

SubCommand2_Click()Timerl.Enabled=False'通話結(jié)束.Timer失效EndSub

PrivateSubCommandsClick()Callsub1'單擊"計(jì)算通話費(fèi)"按鈕。調(diào)用sublEndSub

PrivateSubTimerl_Timer()lextl.Text=Text1.Text+P%Textl中的數(shù)字間隔自

增EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。

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

二、簡(jiǎn)單應(yīng)用題(本題共I題，每題L0分，共7分0)

2、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbpo程序運(yùn)行時(shí)，單擊窗體則顯示如

圖所示的圖案。請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不

能修改程序的其他部分和控件屬性。最后將修改后的文件按原文件名存盤(pán)。

'--——--------------'(2)在考生文件夾下有一個(gè)工程文件

sjt4.vbp,窗體中有一個(gè)矩形和一個(gè)圓，程序運(yùn)行時(shí)，單擊“開(kāi)始”按鈕，圓可以橫

向或縱向運(yùn)行(通過(guò)選擇單選按鈕米決定)，碰到矩形的邊時(shí)，則向其相反方向運(yùn)

動(dòng)，單擊“停止”按鈕，則停止運(yùn)動(dòng)，如圖所示。可以通過(guò)選擇單選按鈕隨時(shí)改變運(yùn)

動(dòng)方向。已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符把

程序中的?改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將

修改后的文件按原文件名存盤(pán)。

標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：打開(kāi)本題工程文件。步驟2：打開(kāi)代碼編輯

窗口，去掉程序中的注釋符將問(wèn)號(hào)改為正確的內(nèi)容。參考答案PrivateSub

Form_Click()Fori=lTo5,輸入5行Forj=lTo6一丁循環(huán)實(shí)現(xiàn)輸入空格，每行依次

減少一個(gè)空格Print""；NextjFoi*j=iTo2巧一1圖像每行*的個(gè)數(shù)Print"*"：Nextj

PrintNextiFori=1To4Forj=1Toi+1'同問(wèn)題1Print"'1；NextjForj=lTo(9-

2*i)，同問(wèn)題2Print"*"；NextjPrintNextiEndSub程序結(jié)束步驟3：調(diào)試并運(yùn)行程

序，關(guān)閉程序后按題目要求存盤(pán)。(2)【操作步驟】步驟1：打開(kāi)：木題工程文

件。步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“巾，將問(wèn)號(hào)改為正確的內(nèi)

容。參考答案DimdAsIntegerPrivateSubCommandlClick()Timed.Enabled=

True'當(dāng)單擊"開(kāi)始"按鈕時(shí)，Timer生效EndSubPrivateSubCommand!Click()

Timerl.Enabled=False'當(dāng)單擊"停止"按鈕時(shí)，Timer失效EndSubPrivateSub

500Andb<1000Thenm=0.3*b*0.98Elselfb>=1000Andb<1500Thenm=

0.3*b*0.95Elselfb>=1500Andb<2000Thenm=0.3*b*0.92Elselfb>=

2000Thenm=0.3*b*0.9EndIfText2=int(m)EndSubPrivateSubListl_Click()

需要考生編寫(xiě)的內(nèi)容Textl=a(Lisll.Listlndex+1)通過(guò)Lisil.Listindex+1采確

定所選城市對(duì)應(yīng)的距離EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求

存盤(pán)。

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

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

第2套

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

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

名稱為Forml、標(biāo)題為“歡迎”的窗體上畫(huà)1個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，其標(biāo)題內(nèi)容

為“歡迎使用本系統(tǒng)”，標(biāo)題文字字體和字號(hào)分別為“宋體”、“三號(hào)”，標(biāo)簽大小能根

據(jù)標(biāo)題內(nèi)容自動(dòng)調(diào)整，效果如圖3—40所示。程序執(zhí)行時(shí)，窗體的最大化按鈕不可

用，請(qǐng)?jiān)O(shè)置相應(yīng)屬性。圖3?4（）注意：存盤(pán)

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

⑵在名稱為Forml的窗體上，畫(huà)1個(gè)名稱為L(zhǎng)abell的標(biāo)簽，其標(biāo)題為“橫坐標(biāo)

X”，且能根據(jù)標(biāo)題內(nèi)容自動(dòng)調(diào)整標(biāo)簽的大小；再畫(huà)1個(gè)名稱為T(mén)extl的文本框，其

中的文字顯示為空白；再畫(huà)1個(gè)名稱為Picturel的圖片框，大小適中即可。要求：

編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，如果鼠標(biāo)在圖片框中移動(dòng)，則能在文本框

Textl中顯示鼠標(biāo)在圖片框中的當(dāng)前位置的橫坐標(biāo)，運(yùn)行情況如圖3-41所示。

圖3⑷注意：要求程序中不得使用

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

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

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

加入一個(gè)標(biāo)簽控件。按表4-27設(shè)置其相關(guān)屬性。

表4?27

對(duì)假屬性7值

NameForml

畝體('aption歡迎

M&xButtonFalse

NameLabel1

Caption歡迎使用本系統(tǒng)

Font宋體

標(biāo)簽

AutoSizcTrue

FontSizc3號(hào)

BurderStyleI-FixedSingle

步驟2：按要求將

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

在窗體Fonnl中加入一個(gè)文本框、標(biāo)簽和圖片框。按表4—28設(shè)置其相關(guān)屬性。

ft4-28

對(duì)象?性值

窗體NameForml

NameLabel1

標(biāo)簽Caption橫坐標(biāo)X

AutoSizcTrue

NameText!

文本框

Text

國(guó)片框NamePicture1

步驟2：在打開(kāi)的

代碼編輯窗口中，編寫(xiě)圖片框的的MouscMove事件代碼。參考代碼：PrivateSub

Picture1MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

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

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

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

2、（1）在考生文件夾下有一個(gè)工程文件sjt3.vbpo程序的功能是：1）程序運(yùn)行時(shí)，

文件列表框顯示當(dāng)前文件夾中的所有擴(kuò)展名為jpg的文件。2）雙擊文件列表框中某

個(gè)圖片文件名時(shí)，能在圖像框中顯示出該張圖片，并將該圖片文件的信息（包括路

徑及文件名）顯示到標(biāo)簽中，如圖372所示。

圖332

3）“下一張”命令按鈕的功能：選中并顯示上次選中文件的下一個(gè)圖片文件（如果文

件列表框中沒(méi)有被選中的圖片文件或上次選中的是最后一個(gè)文件名，則從第1個(gè)圖

片文件始）。在當(dāng)前程序所在文件夾中，已經(jīng)提供了所需要的圖片文件，運(yùn)行時(shí)窗

體如圖所示。在給出的窗體文件中己經(jīng)有了全部控件，但程序不完整。請(qǐng)將事件

過(guò)程中的注釋符去掉，近？'改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注意：考生

不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤(pán)。（2）在

考生文件夾下有一個(gè)工程文件sjt4.vbpo程序的功能是：程序運(yùn)行時(shí)，文本框中

顯示一篇英文短文，單擊“查找”按鈕時(shí)可輸入查找內(nèi)容，如圖3—43所示。

圖3-43若未

找到查找內(nèi)容，查找結(jié)束；若找到查找內(nèi)容，被找到的內(nèi)容在文本框中以反相顯示

（即呈選中狀態(tài)），每找到一次都給出提示，并在左下角文本框中顯示累計(jì)的次數(shù)，

如圖3—44所示。

圖344若

單擊提示對(duì)話框的“是”按鈕，則繼續(xù)向后查找；若單擊“否”按鈕，則終止查找。在

給出的窗體文件中己經(jīng)有了全部控件，但程序不完整。請(qǐng)將事件過(guò)程中的注釋符去

掉，把"?”改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注意：考生不得修改窗體文件

中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤(pán)。

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1:打開(kāi)考生文件夾中的本題工程文件

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

容。參考代碼：IfFilel.Listindex=-1OrFileI.Listindex=File1.ListCount_1

ThenFilel.ListIndex=Filel.Listindex+1Label1,Caption=App.Path+"\"+

Filcl.FilcNamcFilel.Pattern="*.jpq”步驟2：按要求將文件保存至考生文件夾

中。（2）【操作步驟】步驟1：打開(kāi)考生文件夾中的本題工程文件sj14.vbp,在代

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

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

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

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

3、在考生文件夾下有一個(gè)工程文件sjt5.vbpo程序運(yùn)行時(shí)，單擊“顯示數(shù)據(jù)”按

鈕.則將考生文件夾下in5.dat文件的內(nèi)容讀入一維數(shù)組a中,并按下標(biāo)順序?qū)?shù)

組a各元素的值顯示在Listl列表框中；單擊“移動(dòng)”按鈕，則將數(shù)組a中的最大值

移動(dòng)到數(shù)組的最前面，其他數(shù)據(jù)的排列順序不變，并將移動(dòng)后的結(jié)果顯示在List2

列表框中。單擊“保存”按鈕，則保存移動(dòng)后的結(jié)果。要求：“顯示數(shù)據(jù)”和“保存”按

鈕的Qick事件過(guò)程已經(jīng)給出，請(qǐng)編寫(xiě)“移動(dòng)”按鈕的Click事件過(guò)程實(shí)現(xiàn)上述功

能。窗體界面如圖3—45所示。

圖345注意：考生不得修改窗體

文件中己經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前必須單擊“移動(dòng)”按鈕，并單擊

“保存”按鈕保存結(jié)果，否則無(wú)成績(jī)。最后程序按原文件名存盤(pán)。

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾中的工程文件sjt5.vbp,在代

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

PrivateSubCommand2_Qick()，=====考生編寫(xiě)的程序=============DimnAs

Integer,sAsStringDinii,jAsIntegern=0：j=0Fori=1To10Ifa(i)>nThenn

=a(i)：j=iEndIfNextFori=jTo2Step—1a(i)=a(i—1)Nexta(l)=nFori=1To

10List2.Addltem(a(i))Nexti*=========================End

Sub步驟2：按運(yùn)行程序，單擊各按鈕測(cè)試驗(yàn)證。步驟3：按要求將文件保存至考

生文件夾中。

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

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

第3套

一、基本操作題(本題共，題，每題1.0分，共7分。)

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

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

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

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

列，如圖2.93(b)所示,注意：存盤(pán)時(shí)，將文件保存至考生文件夾下，且窗體文

件名為sjtl.frm,上程文件名為sjll.vbp0

圖2-93⑵在名稱為Form1的窗

體上，畫(huà)一個(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)簽的大小。再畫(huà)兩個(gè)名稱分別為

Command!.Command2,標(biāo)題分別為“縮小”和“還原”的命令按鈕(如圖2.94所

示）。

Labell中所顯示的標(biāo)題內(nèi)容自動(dòng)減小兩個(gè)字號(hào)：?jiǎn)螕簟斑€原”按鈕，Labell所顯示的

標(biāo)題內(nèi)容的大小自動(dòng)恢旦到12號(hào)。注意：存盤(pán)時(shí)，將文件保存至考生文件夾下，

窗體文仲名為sjt2.frm,工程文件名為sjt2.vbp0要求程序中不得使用變量，每

個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。

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

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

?3-52

對(duì)象及性值

NameForml

畬體

Caption列女框練習(xí)

NameList!

Listxxx、ddd、mmm?aaa

列&框FontName宋體

FoncSize14V

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

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

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

?3-53

,值潮

對(duì)數(shù)舄性

NameLabcll

AutoSizcTrue

標(biāo)簽

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

Foni宋體12號(hào)

NameCommand1

命令按鈕1

Caplion縮小

NameCommand2

命令按鈕2

Caption還原

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

口，編寫(xiě)兩個(gè)命令按鈕的Click事什過(guò)程。參考代碼：PrivateSubCommandl—

Click()Label!.FontSize=Labell.FontSiZe—2EndSubPrivateSubCommand?一

Click()Labell.FontSiZe=12EndSub步驟3：按要求將文件保存至考生文件夾中。

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

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

2、（1）考生文件夾中有工程文件sit3.vbpo在窗體上有名稱為Combol的組合框，

請(qǐng)?jiān)O(shè)置該組合框的屬性，使該組合框只能用于選擇操作，不能輸入文本。窗體上還

有兩個(gè)標(biāo)題分別為“輸入正整數(shù)”、“判斷”的命令按鈕.程序運(yùn)行時(shí)在組合框中選中

一項(xiàng)，如圖2.210（a）所示，單擊“輸入正整數(shù)”按鈕，通過(guò)輸入對(duì)話框輸入一個(gè)止

整數(shù)，再單擊“判斷”按鈕，則按照選定的選項(xiàng)內(nèi)容，將判斷結(jié)果顯示在信息框中。

如圖2.210（b）所示的是輸入56且選中的組合框選項(xiàng)為“判奇偶數(shù)”時(shí)顯示的信息

框。在給出的窗體文件中已經(jīng)有了傘部控件，但程序不完整，要求：按照題目要

求設(shè)置組合框的有關(guān)屬性，去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

注意：考生不得修改窗體文件中已經(jīng)存在的程序。最后程序按原文件名存盤(pán)。

(b)

圖2-210⑵在考生目錄下有一個(gè)工程文

件sit4.vbp.窗體上有一大一小兩個(gè)名稱分別為Sh叩e2、Sh叩el的Shape控件。

清在屬性窗U中將Shapel控件設(shè)理為圓形，并將其顏色設(shè)置為紅色（顏色值為

&H000000FF&）,如圖2.211所示。要求:當(dāng)單擊窗體時(shí)，Shapel移動(dòng)到矩形（即

Shape2）左上角，再次單擊窗體，則Shapel移動(dòng)到矩形的右下角。在給出的窗體文

件中已經(jīng)有了全部控件，但程序不完整。要求：在屬性窗口中設(shè)置有關(guān)的屬性值，

去掉程序中的注釋符，二巴程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他

部分和控件屬性。最后非修改后的文件按原文件名存盤(pán)。

圖2-211

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開(kāi)考生文件中的本題工程文件

sjr3.vbp,將組合框的Style屬性設(shè)置為2。步驟2：在代碼編輯窗口，去掉程序

中的注釋符將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：SelectCase

Combol.LiStlndexMsgBoxStr(x)&fl(x)MsgBoxStr(X)&f2(X)PrivateFunction

f2(ByValxAsInteger)AsStringIfxMod7=0Then步驟3：按要求將文件保存至考

生文件夾中。第2小題【操作步驟】步驟1：打開(kāi)考生文件中的本題工程文件

sjt4.vbp,將Shapel控件的Shape屬性設(shè)置為3,將FillStyle設(shè)置為0和FillColor

設(shè)置為&H000000FF&。步驟2：在代碼編輯窗口，去掉程序中的注釋符“”，將問(wèn)

號(hào)"?”改為正確的內(nèi)容。參考代碼：PrivateFlagAsBoolean

Shapel.Top=Shape2.Top+Shape2.Height一Shapel.Height

Sh叩el.Left=Shape2.Left+Shape2.Width一Shapel.Widlh步驟3：按要求將文

件保存至考生文件夾中。

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

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

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

Textl,可以多行顯示：有一個(gè)名稱為CD1的通用對(duì)話框；還有三個(gè)命令按鈕，名

稱分別為Cl、C2、C3,標(biāo)題分別為“打外文件”、“轉(zhuǎn)換”、“存盤(pán)”，如圖2.235所

示。命令按鈕的功能是：“打開(kāi)文件彈出打開(kāi)文件對(duì)話框，默認(rèn)打開(kāi)文件的類型

為“文本文件”。選擇考生文件夾下的in5.txt文件后。該文件中的內(nèi)容顯示在

Tex”中：“轉(zhuǎn)換2把Textl中的所有小寫(xiě)英文字母轉(zhuǎn)換成大寫(xiě)：“存盤(pán)”：把Text

中的內(nèi)容存入考生文件夾下的。ut5.dat文件中。在窗體中已經(jīng)給出了部分程序，

要求：①請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。既不能修改程序

中的其他部分，也不能修改控件的屬性。②編寫(xiě)“轉(zhuǎn)換”按鈕的。ick事件過(guò)程。最

后把修改后的文件按原文件名存盤(pán)。注意：考生不得修改已有的程序和控件的屬

性，必須對(duì)考生文件夾下的in5.ixt文件進(jìn)行轉(zhuǎn)換，并把轉(zhuǎn)換結(jié)果通過(guò)單擊“存盤(pán)”

按鈕存入考生文件夾下的out5.dat文件中，否則無(wú)成績(jī)。

圖2-235

標(biāo)準(zhǔn)答案：【操作步驟】方驟I：打開(kāi)考生文件中的本題工程文件sjt5.vbp,在

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

CDI.Filterlnd@x=2Textl.Text=aCD1.Action=2步驟2：按指定位置編寫(xiě)“轉(zhuǎn)換”

按鈕的單擊事件過(guò)程。參考代碼：PrivateSubC2Ciick()DimaAsString,bAs

Str2ng,cAsString,kAsInteger,nAsIntegera=Textl.TexLb=""n=Asc("a'')一

Asc(''A")Fork=lToLen(a)c=Mid$(a,k,1)Ifc>="a"Andc<=uz,,Thenc=String(i,

Asc(c)一n)EndIfb=b+cNextkTextl.Text=bEndSub步驟3：按要求將文件保存

至考生文件夾中。步驟4：按鍵運(yùn)行程序，先單擊“打開(kāi)文件“按鈕，接著單擊“轉(zhuǎn)

換”按鈕，最后單擊“存盤(pán)”按鈕。

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

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

第4套

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

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

名稱為Forml的窗體上畫(huà)一個(gè)名稱為Picturel的圖片框（PictureBox）,高、寬均為

1000c在圖片框內(nèi)再畫(huà)一個(gè)有邊框的名稱為Imagel的圖像框（Image）。并通過(guò)屬性

窗口把考生目錄下的圖標(biāo)文件POINT”（香蕉圖標(biāo)）裝入圖像框Imagel中，如圖2-

2-116

116所示。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名

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

Command^標(biāo)題為“保存義什”的命令按鈕，再畫(huà)一個(gè)名稱為CommonDialogl的通

用對(duì)話框。要求：①通過(guò)屬性窗U設(shè)置適當(dāng)?shù)膶傩裕沟眠\(yùn)行時(shí)對(duì)話框的標(biāo)題為

“保存文件”，且默認(rèn)文件名為oul2；②運(yùn)行時(shí)單擊“保存文件”按鈕，則以“保存對(duì)

話框”方式打開(kāi)該通用對(duì)話框。如圖2.117所示。

圖2?117注意：要求程序中不

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

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

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

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

表3/4

對(duì)歐?性值

NamePicture1

圖片框Width1000

Height1000

NameImage1

圖像框BorderStyle1

Picture

一?!”"〈'"步驟2：按要求將文件保存至考

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

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

Con-nonDialogControl6.(F項(xiàng)目，單擊“確定”按鈕。步驟2：在窗體Forml上面

一個(gè)通用對(duì)話框和一個(gè)命令按鈕，其相關(guān)屬性設(shè)置如表3.65所示。

13-65

11性設(shè)?值

NameCommonDialogl

通用對(duì)話柢DialogTitlc保存文件

FilcNamcout2

NameCommand1

命令按鈕

Caption保存文件

步驟3：打開(kāi)的代碼編輯窗口

中，編寫(xiě)命令按鈕的單擊事件過(guò)程。PriVatcSubCommandl一Click()

CommonDialogl.Action=2CommonDialogl.ShowSaveEndSub步驟4：按要求

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

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

二、簡(jiǎn)單應(yīng)用題(本題共［題，每題7.0分，共［分0)

2、(1)在學(xué)生文件夾下有一個(gè)工程文件sjt3.vbp,在程序運(yùn)行時(shí)，單擊“輸入整數(shù)”

按鈕，可以從鍵盤(pán)輸入一個(gè)整數(shù)，并在窗體上顯示此整數(shù)的所有不同因子和因子個(gè)

數(shù)。如圖2.137(a)是輸入53后的結(jié)果，如圖2—137(b)是輸入100的結(jié)果。已經(jīng)

給出了全部控件和程序，但程序不完整。要求：請(qǐng)去掉程序中的注釋符，把程序

中的?改為正確的內(nèi)容。不能修改程序中的其他部分，也不能修改控件的屬性。最

后用原來(lái)的文件名保存工程文件和窗體文件。

陽(yáng)/,”/(2)在考生文件夾

下有一個(gè)工程文件t4.vbp。在其窗體中“待選城市”下的Listl列表框中訂若干個(gè)城

市名稱。程序運(yùn)行時(shí)，選中Listl中若干個(gè)列表項(xiàng)，如圖2.138(a)所示，單擊“選

中”按鈕則把選中的項(xiàng)目移到List2中：?jiǎn)螕簟帮@示”按鈕，則在Textl文本框中顯示

這些選中的城市，如圖2.138(b)所示。已經(jīng)給出了所有控件和程序，但程序不完

整。要求：請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其能正魂運(yùn)

行，但不能修改程序中的其他部分和控件屬性。最后用原來(lái)的文件名保存工程文件

(a)(b)

和窗體文件。圖2-138

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開(kāi)考生文件中的本題工程文件

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

容。參考代碼：n=InputBox("請(qǐng)輸入一個(gè)整數(shù)”)比01乂0(11<=0丁1^仙1=$步驟2：

按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開(kāi)考生文

件中的本題工程文件sjt4.vbp,存代碼編輯窗口，去掉程序中的注釋符將問(wèn)

號(hào)"?”改為正確的內(nèi)容。參考代碼：Fork=Listl.LislCount—1To0St叩一1

List2.AdditemListl.List(k)Listl.RemoveitemkTextl=Textl&List2.List(k)

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

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

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

3、在名稱為Forml的窗體上畫(huà)一個(gè)文本框，名稱為T(mén)extl,允許多行顯示：再畫(huà)三

個(gè)命令按鈕，名稱分別為Cl、C2、C3,標(biāo)題分別為“輸入”、“轉(zhuǎn)換”、“存盤(pán)”(如圖

2.244所示)。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，單擊“輸入”按鈕，則從考

生文件央中讀入i1】5.ixi文件(文件中只有字母和空格)，放入TexU中：?jiǎn)螕簟稗D(zhuǎn)

換”按鈕，則把Textl中的所有小寫(xiě)字母轉(zhuǎn)換為大寫(xiě)字母；單擊“存盤(pán)”按鈕，則把

Textl中的內(nèi)容存入out5.lx【文件中。注意：考生必須把轉(zhuǎn)換后的內(nèi)容用“存盤(pán)”按

鈕存入out5.txt文件，否則無(wú)成績(jī)。考生的工程文件以文件名sjt5.vbp存盤(pán)，窗

體文件以文件名sjt5.frm存盤(pán)。圖2?244

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

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

要3/32

■對(duì)徵值堇

?性

NameTextl

文本框MultiLineTrue

Text

NameCl

命令按鈕1

Caption希入

NameC2

命令按鈕2

Caption轉(zhuǎn)換

NameC3

命令按鈕3

Caption

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

編寫(xiě)相應(yīng)事件過(guò)程。參考代碼：PrivateSubC1CliCk()OpenMin5.txfTorInput

As#lInput#1,aSTextl.Text=a$Close#1EndSubPrivateSubC2CliCk()

aS=Texll.Textb$='"'n=Len(aS)Fori=lTonb$=b$+UCase$(Mid$(a$,i,I))Next

Textl.Text=b$EndSubPrivateSubC3Click()Open”out5.txf'ForOutputAs{}1

Print#!,Textl.TextClose#1EndSub步驟3：按要求將文件保存至考生文件夾

中。步驟4：按鍵鍵運(yùn)行程序，先單擊“輸入”按鈕，接著單擊“轉(zhuǎn)換”按鈕，然后單

擊“存盤(pán)”按鈕保存轉(zhuǎn)換后的數(shù)據(jù)。

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

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

第5套

一、基本操作題（本題共［題，每題7.0分，共I分。）

1、（1）在名稱為Forml,標(biāo)題為“圖片”的窗體上添加1個(gè)名稱為Imagel的圖像框,

其高為2500,寬為2000。請(qǐng)通過(guò)屬性窗口設(shè)置適當(dāng)屬性，將考生文件夾下的圖片

文件picl.jpg插入圖像框，并使圖片自動(dòng)適應(yīng)圖像框的大小（如圖所示）。注意：

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

為sjtl.frmo⑵在名稱為Forml的窗體上添加

一個(gè)名稱為L(zhǎng)abell,標(biāo)題為“fl令”的標(biāo)簽；添加一個(gè)名稱為T(mén)exll的文本框；再添

加三個(gè)命令按鈕，名稱分別為Commandl、Command2、Comrnand3,標(biāo)題分另J為

“顯示口令”、“隱臧口令”、“重新輸入”。程序運(yùn)行時(shí)，在Tcxtl中輸入若干字符，

單擊“隱藏口令”按鈕，則只顯示與字符同樣數(shù)量的"*''（如圖2所示）；單擊“顯示口

令”按鈕，則正常顯示輸入的字符（如圖1所示），單擊“重新輸入”按鈕，則清除

Tcxtl中的內(nèi)容，并把光標(biāo)定位到Tcxtl中。要求：請(qǐng)按要求添加所有控件，編寫(xiě)

命令按鈕的Click事件過(guò)程，程序中不得使用變量，在“顯示口令”、“隱藏口令”按

鈕的事件過(guò)程中只能寫(xiě)1條語(yǔ)句。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為

圖1

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

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

詈其屬性.如表3.33所示。

表3.33

表3.34

控件屬性設(shè)置值

,--

NameText!

文本植

Text

NameCommand1

命令按鈕1

Caption顯示口令

、umeCommand2

命令按鈕2

Caption隱藏口令

表3.35

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

口，去掉程序中的注釋符將問(wèn)號(hào)改為正確的內(nèi)容。參考答案PrivateSub

Command1_C1ick()Textl.PasswordChar="M，當(dāng)PasswordChaz屬性設(shè)置為空E寸，

Textl文本框顯示內(nèi)容EndSubPrivateSubComrnand2_Click()Textl.PasswordChar

="*"，當(dāng)PasswordChar屬性設(shè)置為*時(shí)，用*代替Textl文本框中的字符顯示End

SubPrivateSubCommand3_Click()Textl'清空文本框Texll.SetFocus'Textl

獲得焦點(diǎn)EndSub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。

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

二、簡(jiǎn)單應(yīng)用題(本題共I題，每題1.0分，共I分C)

2、（1）在考生文件夾下有一個(gè)工程文件爾3.vbp,在程序運(yùn)行時(shí)，單擊“輸入整數(shù)”

按鈕，輸入一個(gè)整數(shù)，并在窗體上顯示此整數(shù)的所有不同因子和因子個(gè)數(shù)。圖1是

輸入53后的結(jié)果，圖2是輸入100后的結(jié)果。已經(jīng)給出了全部控件和程序，但程

序不完整。要求：請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。不能修

改程序中的其他部分，也不能修改控件的屬性。最后用原來(lái)的文件名保存工程文件

圖1

和窗體文件。圖2（2）在考生文件夾下有一個(gè)

工程文件sjt4.vbp。在其窗體中“待選城市”下的Listl列表框中有若干個(gè)城市名

稱。程序運(yùn)行時(shí)，選中Listl中若干個(gè)列表項(xiàng)（如圖1所示），單擊“選中”按鈕則把

選中的項(xiàng)目移到List2中，單擊“顯示”，則在Textl文本框中顯示這些選中的城巾

（如圖2所示）。已經(jīng)給出了所有控件和程序，但程序不完整。要求：請(qǐng)去掉程序中

的注釋符，把程序中的。改為正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的

其他部分和控件屬性。最后用原來(lái)的文件名保存工程文件和窗體文件。

圖1

圖2

標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：打開(kāi)本題工程文件。步驟2：打開(kāi)代碼編輯

窗口，去掉程序中的注釋符，將問(wèn)號(hào)改為正確的內(nèi)容。參考答案PrivateSub

Command1_Click()DimnAsIntegerCis'清空窗體n=InputBox("請(qǐng)輸入一個(gè)整數(shù)

"JUnputBox返回值賦給nPrint”因子數(shù)="；fun(n)，調(diào)用fun函數(shù)并打印結(jié)果End

SubFunctionfun(mAsInteger)DimsAsIntegers=0Fork=1ToAbs(m)/2Ifm

Modk=0Then，當(dāng)整除余數(shù)為0時(shí)則一定是它的因子s=s+1PrintkEndIfNextk

fun=s'返回因子總數(shù)EndFunction程序結(jié)束步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序

后按題目要求存盤(pán)。(2)【操作步驟】步驟1：打開(kāi)本題工程文件。步驟2：打開(kāi)

代碼編輯窗口，去掉程序中的注釋符，將問(wèn)號(hào)改為正確的內(nèi)容。參考答案Private

SubCommandI_Click()Dimk*Fork=List1.ListCount—1To0Step—1*k從最大到

0,則步長(zhǎng)應(yīng)為一1IfListLSelected(k)=TrueThenList2.AdditemListl.List(k)

添加項(xiàng)到List2中Listl.Rcmovcltcmk'通過(guò)下標(biāo)刪除Listl中的項(xiàng)目EndIfNextk

EndSubPrivateSubCommand2_Click()Dimk%Textl=”已經(jīng)選中的城市有："For

k=0ToList2.ListCount—1Step1Textl=Textl.Text&""&List2.List(k)'將

List2中的項(xiàng)目連接在Textl中的內(nèi)容之后NextkEndSub步驟3：調(diào)試并運(yùn)行程

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

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

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

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

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

用鼠標(biāo)右鍵單擊窗體，則實(shí)心圓停止移動(dòng)。窗體文件中已經(jīng)給出了全部控件，但程

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

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

存盤(pán)。

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)本題工程文件。步驟2：打開(kāi)代碼編輯窗

口，去掉程序中的注釋符，將問(wèn)號(hào)改為正確的內(nèi)容。參考答案DimstcpyAs

Integer'縱向移動(dòng)增量DimstepxAsInteger，橫向移動(dòng)增量ConstLEFTBUTTON=1

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingletY

AsSingle)DimxOAsInteger,yOAsInteger,aAsSingle,radiusAsIntegerradius=

Shape1.亞1€1由/2'圓的半徑開(kāi)811口011=1^門(mén)>8111701^如0晨單擊鼠標(biāo)左鍵移動(dòng)

x0=Shape1.Left+radius'圓心的x坐標(biāo)yO=Shapel.Top+radius'圓心的y坐標(biāo)

Ifx=xOThen'垂直移動(dòng)stepy=Sgn(y—yO)*50stepx=0Else'傾斜移動(dòng)a=(y—yO)

/(x—xO)'斜率stepx=Sgn(x—xO)*50stepy=a*stepx'通過(guò)stepx確定stepy的值

IfAbs(stepy)>Abs(stepx)Thenstepy=Sgn(y—yO)*50Stepx=Stepv/aEndIfEndIf

Timer!.ENabled=True’單擊鼠標(biāo)左鍵則觸發(fā)Timer事件ElseTimer!.Enabled=

False'單擊鼠標(biāo)右鍵則停止Timei?事件EndIfEndSubPrivateSubTimerl_Timer()

Shape1.MoveShape1.Left+stepx,Shape1.Top+stepy'移動(dòng)shape1EndSub步

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

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

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

第6套

一、基本操作題(本題共1題，每題7.0分，共］分。)

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

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

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

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

'r.習(xí)一MOT

II

IFMI

rTMT

sjtl.frmo-------=-:=/(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)編寫(xiě)兩個(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ò)程中只能寫(xiě)一條語(yǔ)句。注意：存盤(pán)時(shí)必須存放在考生文件夾

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

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

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

表3.52

[[或?qū)傩栽O(shè)度值消

控件

窗體Caplion練習(xí)

NameFramel

框架

Caption效果

NameChkl

復(fù)選框1

Caption傾斜

NameChk2

復(fù)選框2

Caplion加粗

NameChk3

復(fù)選他3

Caption下劃線

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

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

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

表3.53

控件屬性設(shè)置值

Nanw1aibrll

標(biāo)簽Caplion

AutoSizeTure

NameCommand1

命令按鈕1

Caption日期

NameComman<12

命令按鈕2

Caption時(shí)間

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

FI,在指定位置編寫(xiě)如卜代碼。參考答案PrivatesubCommandl_Click（）Labe11=

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

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

目要求存盤(pán)。

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

二、簡(jiǎn)單應(yīng)用題（本題共1題，每題1.0分，共I分0）

2、（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp,其功能是：①單擊“讀數(shù)據(jù)”按

鈕，則將考生文件夾下in3.