國家二級VB機試（上機操作）模擬試卷

第1套

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

1、在名稱為Forml的窗體上添加一個名稱為L1的標簽，標簽上標題為“請輸入密

碼“，添加一個名稱為Texll的文本框，其寬、高分別為2000和300,設置適當?shù)?/p>

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

“密碼窗口”，以上這些設置都必須在屬性窗口中進行，程序運行時的窗體如圖所

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

文件名保存為sjtl.frmo!~~"-—

標準答案：【操作步驟】步驟1：新建一個窗體，按照要求建立控件并設置其屬

性，如圖4.11所示。圖4II程序中

用到的控件及屬性如表4.7所示。

表4.7

控件M性設置值

NameTextl

Height300

文本樞

Pa*Mw<?nlCluir?

Width2000

NameLI

標爸

(uiption清輸入密碼

窗體Cuplion——吧也——步驟2：調(diào)試并運行程序，效果

如圖4.12所示。圖4.12步驟3：關閉程序后

按題目要求保存工程和窗體文件。

知識點解析：通過標簽的Caption和Name屬性設置標題和名稱；通過文本框

Name、Height^Pass—wordChai?和Width屬性分別設置文本框的名稱、高度、顯

示，，“字符和寬度；通過窗體Caption屬性設置窗體的標題“密碼窗口”。

2、在名稱為Forml的窗體上添加一個名稱為P1的圖片框，請編寫適當?shù)氖录^

程，使得程序在運行時，每單擊一次圖片框，就在圖片框中輸出“單擊圖片框“，每

單擊圖片框外的窗體一次，就在窗體中輸出“單擊窗體”，運行時的窗體如圖所示。

要求在程序中不得使用變量，每個事件過程中只能寫一條語句。注意：存盤時必

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

sjt2.frmo

標準答案：【操作步驟】步驟I:新建一個窗體，按照題目要求建立控件并設置

其屬性，如圖4.13所示。圖4.13步驟2：

打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案PrivateSub

Form_Click()Forml.Print"單擊窗體"EndSubPnVateSubPl_Click()Pl.Print'

單擊鹵片框“EndSub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。

知識點解析：通過圖片框Name屬性設在圖片框的名稱，運用圖片框Print方法，

使圖片框上顯示字符，運用窗體Prini方法，使窗體上顯示字符。

3、在名稱為Forml的窗體上添加兩個名稱分別為Textl和Text7.的文本框,它們

的高、寬分別為300、2400和1200、2400c,窗體的標題為“窗口”。請通過屬性窗

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

平兩個滾動條；②程序運行時在Textl中顯示輸入的字符為程序運行后的窗體

如圖所示。-----..———一==——」注意：存盤時必須存放在考

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

標準答案：【操作步驟】步驟1：新建一個窗體，按照題目要求建立文本框控件

并設置其屬性，程序中涉及的控件及屬性見表4.8和表4.9o

表4.8

控件窗體文本框1

屬性CajHionNanwWidthHeightPa?swf>nlChar

設置值兩口Textl2400300

*4,9

控件文本樞2

--

M性NomeWidthHeightMultilJncScrollBars

設置值Text!24001200True

―--步驟2：調(diào)試并運行程序，關閉

程序后按題目要求存盤?！疽族e提示】由于ScrollBars屬性的設置值較多，易混

亂，請考生牢記4個值分別設置的文本框滾動條屬性。

知識點解析：文本框控件的MultiLine屬性用于設置文本框是否顯示多行文本，值

為True表示是，值為Fake則表示否。ScrollBars屬性設置文木框是否有水平或垂

直滾動條，它有0、1、2和3這4個值，。表示沒有滾動條（默認值），1表示只有水

平滾動條，2表示只有垂直滾動條，3表示有水平和垂直滾動條。文本框的

PasswordChar屬性常用于設置用某字符（如“*”）屏蔽用戶在文本框中鍵入的內(nèi)容，

常用于口令輸入。

4、在名稱為Forml的窗體上添加一個名稱為Imagel的圖像框，其高、寬分別為

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

畫兩個命令按鈕控件，名稱分別為Cl、C2,標題分別為“放大”、“縮小”，如圖所

/Ko要求：①請編寫適當?shù)氖录^程，程

序運行后，如果單擊“放大”按鈕，則將圖像框的島度、寬度均增加100;單擊“縮

小”按鈕，則將圖像框的高度、寬度均減少100,要求程序中不得使用任何變量。

②通過屬性窗口設置圖像框的適當屬性，使得在放大、縮小圖像框時，其中的圖

像也自動放大、縮小。注意：存盤時必須存放在考生文件夾下，工程文件名保存

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

標準答案：【操作步驟】步驟1：新建一個窗體，按照題目要求建立控件并設置圖

像框相應屬性，如圖4.17所示。

x

SUetdb

O

圖4.17步驟2：按照步驟1設置其

他控件相關屬性，程序中涉及的控件及屬性見表4.10。

表4.10

控件屬性設置值

NameImagel

Width1700

圖像框Height1900

PicturePic!bmp

StretchTure

NameCl

命令按鈕1

Caption放大

NameC2

命令按鈕2

Caption縮小

步驟3：打開代碼編

輯窗口，在指定位置編寫如下代碼。參考答案Pri?eSubClCliCk(y當單擊”放

大"按鈕時.依次將Imagel的高與寬分別加100

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

PrivateSubC2CliCk()，當單擊“縮小”按鈕，則依次將Imagel的高與寬分別減100

Imagel.Height=Imagel.Height-i00Imagel.Width=Imagel.Width—*100EndSub

步驟4：調(diào)試并運行程序，關閉程序后按題目要求存盤。

知識點解析：圖像框(Image)控件的Picture屬性用于在設計階段時裝載在圖像框中

顯示的圖片，它的Stretch(自動伸縮)屬性用來設定或入其中的圖片是否需要自幼調(diào)

整，以適應圖像框的大小。圖像框的寬和高分別由其Width屬性和Height屬性設

置。

二、簡單應用題(本題共4題，每題7.0分，共4分0)

5、在考生文件夾下有一個工程文件sjl3.vbp,窗體中有兩個圖片框，名稱分別為

Pl、P2,其中的圖片內(nèi)容分別是一架航天飛機和一朵云彩，一個命令按鈕，名稱

為Cl,標題為“發(fā)射”，還有一個計時器，名稱為Timcrl。并給出了兩個事件過

程，但并不完整，要求：①設置Timed的屬性，使其在初始狀態(tài)下不計時；②

設置Timerl的屬性，使其每隔0.1秒調(diào)用Timer事件過程一次：③去掉程序中的

注釋符，把程序中的?改為正確的內(nèi)容，使得在運行時單擊“發(fā)射”按鈕，則航天飛

機每隔0.1秒向上移動一次，當?shù)竭_P2的下方時停止移動，如圖所示。

注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名

存盤。

標準答案：【操作步驟】步驟1:按題目要求打開工程文件，設置計時器屬性，如

圖4.14所示。圖4.14步驟2：打開

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

部分是需考生填入的內(nèi)容)privateSubCl_Slick()Timetl.Enabled=True^^"發(fā)

射"按鈕.則Timer生效EndSubPrivateSubTimerl_Timer()Statica%a=a+lIf

Pl.Top>P2.Top+P2.HeightThen，判定Pl是否麻蟲到P2Pl.MovePl.Left,

Pl.Top-5-a,Pl.Width,PI.HeightElseTimerl.Enabled=False'當PI接觸

到P2時Timer事件停止EndIfEndSub步驟3：調(diào)試并運行程序，關閉程序后按題

目要求存盤。

知識點解析：工程文件中已建立全部控件，只需編寫事件過程即可。Timerl控件的

Interval屬性用來控制計時器事件發(fā)生的時間間隔，通過題意可知。該屬性設置為

100(Interval是以亳秒為單位)。當單擊“發(fā)射”按鈕時開始計時，將計時器控件的

Enabled屬性設置為True。如果使航天飛機即Pl停止移動，則將計時器控件的

Enabled屬性設置為Falseo

6、在考生文件夾下有一個工程文件sjt4.vbp,運行情況如圖所示。程序的功能是

計算下列表達式的值：z=(x+2)人2+(x+3)人3+(x+4)八4+...+(x+N)人N其中N和x的值

通過鍵盤分別輸入到文本框Textl、Text2中。之后如果單擊標題為“計算”、名稱為

Command1的命令按鈕，則計算表達式的值z,并將計算結(jié)果顯示在名稱為Labell

的標簽中。在給出的窗體文件中已經(jīng)添加了全部控件和程序，但程序不完整。要

求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

,|"r-i[sr-“

|I

—)注意：考生不得修改窗體文件中已經(jīng)存在的程序。程序

中不得使用八運算符。而應使用函數(shù)xn進行幕運算，程序至少運行一次，按照下圖

輸入數(shù)據(jù)，使x=10,N=5,單擊“計算”按鈕，計算z的值，并將結(jié)果顯示在標簽

Labell中，否則沒有成績。最后，程序按原文件名存盤。

標準答案：【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代

碼。參考答案PrivateFunctionxn(aAsSingle,mAslntcgcr)DimiAsIntegertmp=l

Fori=lTomtmp=tmp*a'求a'的結(jié)果Nextxn=imo,返回計算結(jié)果EndFunctionPrivate

SubCommandlCliCk()DimnAsIntegerDimiAsIntegerDimtAsSingleDimS,X

AsSinglen=Val(Textl.Text)'將數(shù)字字符轉(zhuǎn)換為數(shù)值X=Val(Text2.Text)'讀取n.x

m值7=0Fori=2Tont=x+iz=z+xn(t,iy調(diào)用xn函數(shù)求t'NextLabell.Caption=z'將

結(jié)果顯示在La-bellCallSaveResultEndSubPrivateSubSaveResult()Open

App.Path&M\out4.dafTorOutputAS#1Print#1,Labell.CaptionClose#1End

Sub步驟3：按照題目要求調(diào)試并運行程序，如圖4.15所示。步驟4：關閉程序

后，按照題目要求保存工程和窗體?！疽族e提示】對于xn(t,i)函數(shù)調(diào)用的理解，

弄清楚兩個變量各代表的函數(shù)值的意義，正確調(diào)用函數(shù)。

r1'"?

BJU二第

ii-cm‘rzziig

圖4.15

知識點解析：通過For循環(huán)語句實現(xiàn)xn()的某運算；Click事件過程中通過Val〔)函

數(shù)實現(xiàn)字符類型向數(shù)值型的轉(zhuǎn)換，通過循環(huán)語句及調(diào)用xn()函數(shù)，獲得函數(shù)返回

值，實現(xiàn)表達式的運算結(jié)果；運用Call語句調(diào)用SaveResuh函數(shù)對結(jié)果進行保

存，涉及文件的Open、Close和Outpu1操作，最后將結(jié)果保存在文件夾下的

out4.dat文件中。

7、考生文件夾下有一個工程文件sjt3.vbp,其功能是：①單擊“讀數(shù)據(jù)”按鈕，

則將考生文件夾下in3.dat文件中的100個0-999的整數(shù)讀入到數(shù)組a中；②單

擊“計算”按鈕，則找出這100個整數(shù)中的所有水仙花數(shù)，并將它們的最大值與最小

值分別顯示在文本框Textl、Text2中(注：當一個數(shù)的值等于該數(shù)中的各位數(shù)字的

立方和時，此數(shù)被稱為水仙花數(shù)c如：153=13+53+33.所以"3就是一個水仙花

數(shù))。在窗體文件中已經(jīng)給出了全部控件(如圖所示)和“讀數(shù)據(jù)''命令按鈕的事件過

程以及判斷一個數(shù)是否為水仙花數(shù)的通用過程。要求編寫"計算''命令按鈕的事件過

大偏為［

木*力

注意：考生不得修改窗體文件中已經(jīng)存在的控件和

程序，在結(jié)束程序運行前，必須進行“計算”，并且必須通過單擊窗體右上角的“關

閉”按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。

標準答案：【操作步驟】步驟1：按照題目要求打開工程文件。步驟2：打開代碼

編輯窗口，在指定位置編寫如卜代碼。參考答案DimiAsIntegerDimmaxAs

Integer,minAsIntegermax=_1min=1000Fori=lTo100Ifisnarc(a(i))ThenI調(diào)用

isnarc判斷是否為水仙花數(shù)Ifmax<=a(i)Thcnmax=a(i)Ifmin>=a(i)Thcnmin=a⑴'

求水仙花數(shù)中的最大值與最小值EndIfNextiTextl=maxText2=min步驟3：按照題

口Form!

「a8r

IIQu

圖4.18

目要求調(diào)試并運行程序，如圖4.18所示。步驟4：

關閉程序后，按題目要求存盤?！疽族e提示】Funciion過程比較復雜，只有了解

了內(nèi)部函數(shù)的用法，才能對水仙花數(shù)的判斷有一個清晰的思路。對于最值的求解，

則要注意變量初值的處理。

知識點解析：循環(huán)遍歷數(shù)組a,通過調(diào)用Function過程判斷是否為水仙花數(shù)，并通

過If語句對數(shù)值進行比較，如果maxV=a⑴。那么max=a⑴，最小值同理。在設置

變量初值時，max=-1,min=1000,目的是方便比較數(shù)的大小。因為數(shù)組中的數(shù)值

最小的是0,最大的是999,所以，讓max先等于一1,小于數(shù)組中的最小值，在

程序執(zhí)行過程中，只要有水仙花數(shù)，就一定會大于max,這樣才會賦值給max,

min=1000也是同樣的道理。

8、在考生文件夾下有一個工程文件sjl4.vbpo請在窗體上添加一個組合框，名稱

為cbl,并輸入三個列表項：“3”、“7”、“11”(列表項的順序不限，但必須是這三個

數(shù)字)；添加一個名為。Tcxtl的文本框；再添加一個標題為“計算”、名稱為。的命

令按鈕，如圖所示。請編寫適當?shù)氖录^程，使得在程序運行時，在組合框中選定

一個數(shù)字后，單擊“計算”按鈕，則計算5000以內(nèi)能夠被該數(shù)整除的所有數(shù)之和，

0

并放入Tcxtl中。最后，按原文件名存盤。提示：由

于計算結(jié)果較大，應使用長整型變量。注意：考生不得修改窗體文件中已經(jīng)存在

的程序，在結(jié)束程序運行之前，必須至少進行一次計算。并且必須用窗體右上角的

關閉按鈕結(jié)束程序，否則無成績。

標準答案：【操作步驟】步驟1：打開本題工程文件，按照題目要求建立控件并設

置組合框控件屬性，如圖4.19所示。程序中用到的控件及屬性見表4.11。

圖419

?4.11

控件文本樞組合樞命令按鈕

屬性NameNameUMNanwCaption

設置值TcxtlcblCl

li.3.7計算步驟2：打開代碼編輯窗口，在

代碼編輯窗口指定位置編寫以下代碼。參考答案PriValeSubCIClick()Dimsum

AsLongDimnAsIntegerDimi.AsIntegern=Val(cbl.Text)，讀取選中的數(shù)字并通

過函數(shù)Vai轉(zhuǎn)換為數(shù)值Fori=nTo5000,從本身開始循環(huán)查找IfiModn=0Then

sum=sum+i判斷是否能被該教整除并求和EndIfNextiTextl.Text=sum布Textl中

顯示EndSub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤?！疽族e提

示】在定義變量時注意，由于數(shù)值較大。應定義為長整型變量，防止數(shù)值過大溢

出。

知識點解析：本題主要考查組合框的屬性及For循環(huán)語句的使用。

三、綜合應用題(本題共2題，每題1.0分，共2分。)

9、在考生文件夾中有一個工程文件sit5.vbp.該程序的功能是從in5.txt文件中

讀入40個數(shù)據(jù)，統(tǒng)計這些數(shù)據(jù)中素數(shù)的個數(shù)，并找出所有素數(shù)中最小的素數(shù)(判斷

素數(shù)的函數(shù)已給出)。最后將查找和統(tǒng)計的結(jié)果分別顯示在標簽Label4-和Label3中

(窗體外觀如圖所示)。程序不完整，請在指定的位置把程序補充完整。

I:J-I

二---------....-注意：不得修改原有程序和控件的屬性。程序結(jié)束運行之

前，必須至少正確運行一次程序，將統(tǒng)計的結(jié)果顯示在標簽中，否則無成績。最后

把修改后的文件按原文件名存盤.

標準答案：【操作步驟】步驟1：打開本題工程文件。步驟2：分析并在適當位置

編寫程序代碼。參考答案DimaAsIntegerDimbAsIntegera=0b=arr(1)Fori=lTo

40,確定素數(shù)個數(shù)Ifprimc(arr(i))Thcn，判斷是否為素數(shù)a=a+「素數(shù)個數(shù)累加

Label3.Caption=a雇標簽中顯示NextFori=lTo40'查找最小素數(shù)If

prime(arr(i))Andarr(i)<=bThen，比較素數(shù)大小b=ar〃iy將較小素數(shù)賦給b

Labcl4.C叩tion=b在標簽中顯示Next步驟3：按照題目要求調(diào)試并運行程序，效

果如圖4.16所示。圖4.16步驟4：關閉程序后，按題目要求

存盤?！疽族e提示】prime。過程的函數(shù)返回值確定，調(diào)用過程中，變量為數(shù)組元

素。

知識點解析：除了1和它本身以外，不再有別的約數(shù)，這種整數(shù)叫做素數(shù)。判別某

數(shù)m是否是素數(shù)的經(jīng)典算法是：對于m,依次判別能否被1(1=2,3,4…m—1)整

除，只要有一個能整除，m就不是素數(shù)，否則m是素數(shù)。本題需統(tǒng)計數(shù)據(jù)中素數(shù)

的個數(shù)和所有素數(shù)中的最小素數(shù)。自定義函數(shù)過程prime用來判斷是否為素數(shù)，返

回True則為素數(shù)，反之則為非素數(shù)，通過對返回值的判斷確定索數(shù)，并進行個數(shù)

統(tǒng)計及查找最小值。

10、在考生文件夾下有一個工程文件sjt5.vbp,其名稱為FormI的窗體上已有三

個文本框Texll、Text2.Text3,以及部分程序代碼，請完成以下工作。①在屬性

窗口中修改Texl3的適當屬性，使其在運行時不顯示，作為模擬的剪貼板使用，窗

體如圖所示。②建立下拉式菜單。如下表所示。

③窗體文件中給出了所有事件過程，但不完整，

請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，以便實現(xiàn)如下功能：當光

標所在的文件框中無內(nèi)容時，“剪切”、"復制''不可用，否則可以把該文本框中的內(nèi)

容剪切或復制到Text3中：若Text3中無內(nèi)容，則“粘貼”不能用,否則可以把

Text3中的內(nèi)容粘貼在光標所在的文本框中的內(nèi)容之后。注意：不能修改程序中的

其他部分，各菜單項的標題名稱必須正確。最后將修改后的文件按原文件名存盤。

標準答案：【操作步驟】步驟1：打開本題工程文件，將Text3的Visible屬性設

置為False,然后按照題目要求建立菜單并設置其屬性，如圖4.20所示。菜單屬

性如表4.12所示。圖4?2。步驟2:打開代碼編

輯窗口，去掉程序中的注釋符”」，將問號改為正碓的內(nèi)容。

表4.12

1控件編輯剪切復制怙貼

名稱EditCutCopyPaiUe

內(nèi)縮符號01!1

參考答案（陰影部分是需考生填入

的內(nèi)容）DimwhichAsIntegerPrivateSubcopyclick。'復制按鈕Ifwhich=lThen'當焦

點在。rextl中，將Texil中的內(nèi)容復制給。rext3Text3.Text=Tcxtl.TextElself

which=2Then伺理，焦點在Texl2中，將Texl2中的內(nèi)容復制給Texl3

Text3.Text=Text2.TextEndIfEndSubPrivateSubcutClick（y剪切按鈕Ifwhich=l

The”當焦點在Textl中，則將內(nèi)容復制給Text3,并清空Textl內(nèi)容

Text3.Text=Textl.TextTextl.Text=n"Elselfwhich=2Then'同上

Text3.Text=Text2.TextText2.Text=""EndIfEndSubPrivateSubeditClick（y

編輯Ifwhich=IThenIfTextl.Text='"'ThenCut.Enabled=False

Copy.Enabled=FalseElseCut.Enabled=TrueCopy.Enabled：TrueEndIfElself

which=_2_ThcnIfText2.Text=""ThenCut.Enabled=FalseCopy.Enabled=False

ElSeCut.Enabled=TrueCopy.Enabled=TrueEndIfEndIfIfText3.Text=""

ThenPaste.Enabled=FaIseElsePaste.Enabled=TrueEndIfEndSubPrivateSub

pasteClick（）u粘貼按鈕Ifwhich=lThen"當焦點在Textl中則將Text3的內(nèi)容追加

至UTextl文件末尾Textl.Text二Textl,Text+Text3.TextElselfwhich=2Then，同上

Text2.Text=Text2,Tuxt+Text3.TextEndIfEndSubPrivateSubTextlGotFocusO,

本過程的作用是當焦點在Textl中時，which=lwhich=lEndSubPrivateSub

Text2GotFocus。'本過程的作用是當焦點在Text2中時，which=2which=2EndSub

步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。【易錯提示】對于which

值的判斷，貫穿整個程序，因此要明白為什么要設置which值來進行判斷。

知識點解析：本題中隱藏的文本框Texl3的功能相當于剪貼板。在文本框（Texll或

Text2）獲得焦點觸發(fā)的Go〔Focus事件過程中，用窗體變量which記錄下該文本框序

號（1或2）。在“編輯”菜單的。ick事件過程中，首先根據(jù)which的不同值來判斷相

應文本框（Textl或Tex⑵的內(nèi)容是否為空，如果內(nèi)容為空則設置“剪切”和“復制”菜

單項不可用，否則設置“剪切”和“復制”菜單項可用；其次判斷Text3文本框的內(nèi)容

是否為空，如果內(nèi)容為空則設置“粘貼”菜單項不可用，否則設置“粘貼”菜單項可

用。

國家二級VB機試（上機操作）模擬試卷

第2套

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

1、在名稱為FormL標題為“選課”的窗體上添加一個復選框數(shù)組，名稱為CH1,共

有四個復選框，按順序其標題分別是“數(shù)學”、“語文”、“外語”、“計算機”，其中“語

文”、“計算機”復選框處在選中狀態(tài)下，程序運行時的窗體如圖所示。請按要求添

加控件并設置相應屬性。注意：存盤時必須存放在考生文件夾下，工程文件名保

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

標準答案：【操作步驟】步驟1：新建窗體,按照題口要求建立控件并設置屬性,

如表4.30所示。步驟2：調(diào)試并運行程序，關閉程序后按題目要求存盤。

襄4.30

控件網(wǎng)性設置值

史選樞1Caption敗學

Caption語文

規(guī)選樞2

Value1

復選樞3Caption英語

Caption計算機

復選銀4

Value1

山體Caption選課

知識點解析：復選框(CheckBox)常用于提供多個選項間的多重選擇，Value的屬性

值決定每個復選框的選中狀態(tài)：O-Unchecked為未選，1-Checked為選中，2-Grayed

為變灰色。選擇某復選框后，該復選框?qū)@示7”，而取消選擇后7"消失。

2、在名稱為Forml的窗體上添加一個名稱為HSI的水平滾動條，其刻度值范圍為

1-100；添加一個命令校鈕，名稱為C1,標題為“移動滾動框“。請編寫適當?shù)氖?/p>

件過程，使得在程序運行時，每單擊命令按鈕一次(假定單擊次數(shù)不多于10次)，

滾動框向右移動10個刻度。程序運行時的窗體如圖所示。要求程序中不得使用變

量，事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下，工程

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

標準答案：【操作步驟】步驟1：新建一個窗體，按照題目要求建立滾動條控件及

命令按鈕控件并設置其屬性，如圖4.25所示。

程序中用到的控件及屬性見表4.31。

打開代碼編輯窗口，在指定位

置編寫如下代碼。參考答案PrivateSubClclick。HSI.Vakie=HSI.Value+10'當

用戶單擊”移動滾動框”按鈕則滾動條的Value加10EndSub步驟3：調(diào)試并運行程

序，關閉程序后按題目要求存盤?！疽族e提示】根據(jù)題意，刻度值范圍為1?

100,不要忘記設置水平滾動條的Max和Min屬性，

知識點解析：在單擊命令按鈕觸發(fā)的Click事件中加入讓滾動條的Value屬性值加

10的語句，在每次單擊命令按鈕后，滾動條就向右移動10個刻度。

二、簡單應用題（本題共2題，每題7.0分，共2分0）

3、在名稱為Forml的窗體上添加一個名稱為Texll的文本框，再建立一個名稱為

Format的彈出式菜單，含三個菜單項，標題分別為-加粗”、“斜體”、“下劃線”，名

稱分別為Ml、M2、M3o請編寫適當?shù)氖录^程，在程序運行時，當用鼠標右鍵

單擊文本框時，彈出菜單，選中一個菜單項后，則按所選菜單標題設置文本框中文

本的格式，如圖所示。注意：存盤時必須存放在考生文件夾下，工程文件名保存

為sjt3.vbp,窗體文件名保存為sjt3.frm。

標準答案：【操作步驟】步驟1：新建一個窗體，按照題目要求建立名稱為“Textl”

的文木框控件及一個彈出式菜單并設置菜單屬性，程序中用到菜單屬性見表

表4.32

標題控件（任意）加機斜體下劃城

名標FormatMlM2M3

內(nèi),符號0111

4.32。步驟2：打開代碼編輯窗口，在

指定位置編寫如卜代碼。參考答案PrivateSubMlClick。Textl.FontBo1d=True'設

置字體為加粗EndSubPrivateSubM2Click（）Textl.FonthaliC=True'設置字體為斜

體EndSubPrivateSubM3Click（）Textl.FontUnderline=True'為文字加下劃線End

SubPiivaleSubTcxllMvuscDown（BulluiiAsInteger,SliiftAsInteger,XAsSin-

gle,YAsSingle）IfButton=2Then，判斷是否執(zhí)行該事件Me.PopupMenuFormat'顯

示菜單EndIfEndSub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。

【易錯提示】注意不要混淆鼠標左右鍵的鍵值。

知識點解析：PopupMenu方法用來顯示彈出菜單，語法格式為：

4、在考生文件夾下有一個工程文件sjt4.vbp,含有Forml和Form2兩個窗體，其

中Forml為啟動窗體，窗體上的控件如圖I所示。程序運行后，在Forml窗體的文

本框中輸入有關信息（如“密碼''文本框中顯示"”字符），然后單擊“提交”按鈕，彈出

“確認”對話框（Form2窗體），并在Fomi2中顯示Forml中輸入的信息，如圖2所

示。單擊“確認”按鈕，程序結(jié)束，單擊“重輸”按鈕，F(xiàn)orm2消失，回到.Forml窗

體。在給出的窗體文件中已經(jīng)給出了程序，但不完整。要求：①將：Forml的標

題改為“注冊”，將Forn】2的標題改為“確認”：②設置適當?shù)膶傩?，使Form2標題

欄右上角的所有按鈕消失（如圖2所示）；③去掉程序中的注釋符，把其中的?改為

正確的內(nèi)容。注意：不能修改程序中的其他部分，標題等屬性的修改只能在屬性

窗口中進行。最后將修改后的文件按原文件名存盤。

標準答案：【操作步驟】步驟1:打開本題工程文件，按照題目要求設置屬性，如

O

物次IB

圖4.26所示。圖4.26步驟2：打開

代碼編輯窗口，去掉程方中的注釋符，將問號改為正確的內(nèi)容，并在指定位置編寫

代碼。參考答案(陰影部分是需考生填入的內(nèi)容)PrivateSubCl_Click()DimkAs

IntegerForm2.Show當單擊“提交“按鈕時。則顯示Form2Foim2.Print

Forml.LI.Caption；Forml.Text!Form2.PrintForml.L2.Caption；

Forml.Text2Form2.PrintForml.L3.Caption；Forml.Text3Form2.Print

Forml.Framel.Caption；"："；，取框架Framel的標題名稱"性別"Fork=0

To1IfForml.Opl(k).ValueThen通過下一條語句確定KForm2.Print

Forml.Opl(k).CaptionEndIfNextkEndSubPrivateSubFormLoad。'將Password

Char屬性設為+則密碼輸入后顯示*Text2.PasswordChar="*"EndSub，需考生

編寫的Fonn2中的代碼PrivateSubCI_Click()EndEndSubPrivateSubC2CliCk()

UnloadForm2EndSub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。

知識點解析：修改窗體標題是通過設置其C叩lion屬性來實現(xiàn)的，ControlBox屬性

用于設置控制菜單欄是否在窗體標題欄中顯示，為在窗體標題欄中只顯示標題信

息、，需將該屬性值設置為Faise。文本框的PasswordChar屬性可設一置用于屏蔽在文

本框中輸入內(nèi)容的字符，例如“*

三、綜合應用題（本題共，題，每題1.0分，共7分。）

5、在考生文件夾下有一個工程文件sjt5.vbp,其窗體上有兩個標簽L1和L2,標

題分別為“口令”和“允許次數(shù)”；一個命令按鈕0,標題為“確定”；兩個文本框名稱

分別為Texll和Texl2。其中Texll用來輸入口令（輸入時，文本框內(nèi)容顯示“*”），初

始內(nèi)容為空,Text2的初始內(nèi)容為3。并給出了C1的事件過程，但不完整，要求去

掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使得程序運行時，在Tcxtl中

輸入口令后，單擊“確定”，如果輸入的是“123456”則在Textl中顯示“口令正確”；

如果輸入其他內(nèi)容，單擊“確定”后，彈出錯誤提示對話框（如圖所示），并且Text2

中的數(shù)字減1。最多可輸入3次口令，若3次都輸入錯誤，則禁止再次輸入。注

意：不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。

7V口'>MT

標準答案：【操作步驟】步驟1：打開本題工程文件，將文本框Textl的

PasswordChar屬性設置為步驟2：打開代碼編輯窗口，去掉程序中的注釋

符，將問號改為正確的內(nèi)容。參考答案（陰影部分是需考生填入的內(nèi)容）Private

SubCl_Click（）IfText.Text="123456”Then，輸入的口令與正確的口令相比較

Tcxtl.Tcxt="口令正確"Tcxtl.PasswordChar=""ElseTcxt2.Tcxt=Text2.Tcxt-

1'當密碼錯誤時Text2口的數(shù)減1IfTexl2.TexOOThenMsgBox"第“&（3-

Text2.Text）&"次口令錯誤，請重新輸入“ElseMsgBox”次輸入錯誤，請退出”

Tcxtl.Enabled：False'當Tcxtl的Enabled屬性為false時則文本不能輸入EndIf

EndIfEndSub步驟3調(diào)試并運行程序，關閉程序后按題目要求存盤。

知識點解析：本題通過判斷文本框Textl輸入的密碼是否為“123456”執(zhí)行不同的操

作。每輸入一次錯誤密碼，將提示重新輸入，直到文本框Tcxt2中的數(shù)值為0時-，

則提示錯誤，并禁用文本框Textl。

國家二級VB機試（上機操作）模擬試卷

第3套

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

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

名稱為Forml的窗體上畫兩個名稱分別為Framel、Frame2的框架，標題分別為

“字號”、“修飾”;在Frame1中畫兩個單選按鈕，名稱分別為Optionl、Option2,

標題分別為“10號字”、“20號字”，且標題顯示在單選按鈕的左邊；在Frame2中畫

一個名稱為Checkl的復選框，標題為“下劃線”。運行后的窗體如圖3—174所示。

注意：存盤時必須存放在考生文件夾下，工程文件

名為sjtl.vbp,窗體文件名為sjtl.frm。（2）在名稱為Fomil的窗體上從上到下畫

兩個文本框，名稱分別為Textl、Text2；再畫一個命令按鈕，名稱為Commandl,

標題為“選中字符數(shù)是”°程序運行時，在Textl中輸入若干字符，選中部分內(nèi)容

后，單擊“選中字符數(shù)是“按鈕，則在Tcxt2中顯示選中的字符個數(shù)（如圖3—175所

示）。請編寫按鈕的Click事件過程。怪3/75要求：不得

使用變量，事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下,

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

標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，按要求畫

出控件并設置屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操

作步驟】步驟1：新建一個“標準EXE”工程，按要求畫出控件并設置屬性，步驟

2：打開代碼編輯窗口，編寫以下事件過程。參考代碼：PrivateSub

Commandl_Click（）Text2.Text=Forml.Text!.SclLcngthEnclSub步驟3：按要

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

知識點解析：暫無解析

二、簡單應用題（本題共7題，每題7.0分，共［分0）

2、（1）在考生文件夾下有一個工程文件sjt3.vbpo程序運行后，單擊“讀入數(shù)據(jù)”按

鈕，可把考生文件夾下in3.txt文件中的所有英文單詞讀入，并顯示在Textl文本

框中；單擊“插入列表框”按鈕，則按順序把每個單詞作為一項添加到Listl列表框

中(如圖3—176所示)。圖3/76在in3.txl文件中每個

單詞之間用一個空格字符隔開，最后一個單詞的后面沒有空格。已經(jīng)給出了所有控

件和程序，但程序不完整。要求：請去掉程序中的注釋符，把程序中的“?”改為正

確的內(nèi)容，使其能正確運行，但不能修改程序中的其他部分和控件屬性。最后用原

來的文件名保存工程文件和窗體文件。(2)在考生文件夾下有一個工程文件

sjt4.vbp,窗體上已經(jīng)畫出所有控件，如圖3—177所示。在運行時，如果單擊“開

始按鈕，則窗體上的汽車圖標每o.1秒向右移動一次(初始狀態(tài)卜.不移動)；如果

單擊“停止”按鈕，則停止移動。圖3/77請完成以下工作：①

設置適當控件的適當屬性，使得汽車圖標每0.1秒向右移動一次，而初始狀態(tài)下

不移動；②請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容；③為兩個命

令按鈕編寫適當?shù)氖录^程。最后以原文件名存盤。注意：不得修改已經(jīng)給出的

程序。編寫的事件過程中不能使用變量，每個事件過程中只能有一條語句。

標準答案：第1小題【操作步驟】步驟1：打開考生文件夾下的工程文件

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

容。參考代碼：st=St&chc=Mid(st,k,1)word="”步驟2：按要求將文旦保

存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工

程文件sjt4.vbp,將計時器Timerl的Enabled屬性設置為False,Interval屬性設置

為100。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“巾，將問號"?”改為正

確的內(nèi)容并編寫兩個命令按鈕的單擊事件過程。參考代碼：PrivateSubCI_Click()

Timerl.Enabled=TrueEndSubPrivateSubC2_Click()Timerl.Enabled=False

EndSubPrivateSubTimerlTimer()Pl.MovePl.Left+20EndSub步驟3：按要

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

知識點解析：暫無解析

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

3、在考生文件夾下有一個工程文件sjl5.vbpo在窗體文件中已經(jīng)給出了全部控件

及部分程序。程序運行時，在文本框Textl中輸入一個大于2的偶數(shù)，并單擊“分

解為''按鈕，則可以將該偶數(shù)分解為兩個素數(shù)之和，且要求其中一個素數(shù)是所能夠

分解出的最小的素數(shù)（一個偶數(shù)有時可以分解為多種素數(shù)的組合，例如24可以分解

為5和19,也可以分解為11和13,要求取含有最小素數(shù)的組合，如圖3—178所

示）。圖3/78耍求編寫“分解為"按鈕事件過程

中“考生編寫程序開始”和“考生編寫程序結(jié)束”之間的代碼，以實現(xiàn)上述功能。過程

IsPrime用來判斷一個數(shù)是否為素數(shù)，如果是，返回值為True,否則返回值為

Falseo注意：不得修改原有程序和控件的屬性。至少正確運行一次程序，且運行

時在文本框中輸入23456,單擊“分解為”按鈕，將結(jié)果顯示在標簽中，否則無成

績。最后把修改后的文件按原文件名存盤。

標準答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5.vbp,

在代碼編輯窗口的指定位置編寫以下代碼。參考代碼：DimiAsIntegerDimnAs

Integern=Val（Textl.Text）IfnMod2<>0ThenMsgBox”請輸入偶數(shù)!"ExitSub

EndIfFori=2Ton/2IfISPrime（i）AndIsPrime（n—i）ThenLabel1.Caption=i

Labcl2.Caption=n-iExitForEndIfNext2：按VF5>鍵運行程序，在文本

框中輸入23456,單擊“分解為"按鈕。步驟3：按要求將文件保存至考生文件夾

中。

知識點解析：暫無解析

國家二級VB機試（上機操作）模擬試卷

第4套

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

1、（1）在名稱為Forml的窗體上畫兩個標簽（名稱分別為Label1和Label）,標題分

別為“姓名”和“年齡”）、兩個文本框（名稱分別為Textl和Tcxt2,初始內(nèi)容均為空）

和一個命令按鈕（名稱為Commandl,標題為“顯示”）。然后編寫命令按鈕的Click

事件過程。程序運行后，在兩個文本框中分別輸入姓名和年齡，然后單擊“顯示”按

鈕，則在窗體上顯示兩個文本框中的內(nèi)容，如圖所示。要求程序中不得使用任何變

量。注意：存盤時必須存放在考生

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

為Forml的窗體上畫一個圖片框，其名稱為Picturel,一個水平滾動條，名稱為

HScroIll,一個命令按鈕，名稱為Command%標題為“設置屬性”，通過屬性窗口

在圖片框中裝入一個圖形（文件名為picl.jpg,位于考生目錄下），圖片框的高度與

圖形的高度相同，圖片框的寬度任意（如圖1所示）。編寫適當?shù)氖录^程，程序運

行后，如果單擊命令按鈕，則設置水平滾動條的屬性如下：Min100Max1500

LargeChange100SmallChange10之后就可以通過移動滾動條上的滾動塊來放大或

縮小圖片框。程序運行后的窗體如圖2所示。要求程序中不得使用任何變量。注

意：存盤時必須存放在考生文件夾下工程文件名為sjt2.vbp,窗體文件名為

sjt2.frrrio1圖2

標準答案：（1）【操作步驟】步驟1：新建一個窗體，按照題目要求建立控件并設

置相應屬性，程序中用到的控件及屬性如表4.16所示。

*4,16

■控件

M性設置值

Nanw,

標簽1

Caplion姓名

標簽2

(Option年齡

NameTexll

文本樞

Text

NameText2

文本框

Text

命令按鈕CapliiHi

步驟2：打開代碼編輯窗

口，在指定位置編寫如下代碼。參考答案PrivateSubCommandl_Click()

Forrnl.PrintTextI.Text&”,現(xiàn)年”&Text2.Text&”歲"EndSub步驟3：調(diào)試并

運行程序，關閉程序后我題目要求存盤。(2)【操作步驟】步驟1：新建一個窗

體，添加控件并設置相應的屬性。程序中用到的控件及其屬性見表4.17。

表4.17

控件屬性設置值

NtMT(rPicturr1

圖片框Autc?SizrTuff

PicturePiel.jpg

水平滾動條NanrHScZH

NameCommand1

命令按銳

Caption設置屬性

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

指定位置編寫如下代碼。參考答案PrivateSubConimandl_Click()

HScrolll.Max=1500，設置滾動條的最大值、最小值、最關改變值、最小改變值

IIScrolH.Min=100IlScroll1.LargeChange=100HScrolll.SmallChange=10End

SubPrivateSubHScrolll_Change()Picture1.W