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

第1套

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

1、（1）在名稱為Forml的窗體上添加一個名稱為Labcll的標簽，標簽的寬和高分

別為2000、300,有邊框，并利用屬性窗口設置適當?shù)膶傩?，使其標題“等級考試”

居中顯示，并使標簽的外觀如圖所示。注意：存盤時必須存放在考生文件夾下，

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

Forml

心=—一一二-J（2）在名稱為Forml的窗體上添加一

個名稱為Imagel的圖像框，有邊框，并可以自動調(diào)整裝入圖片的大小以適應圖像

框的尺寸；再添加三個命令按鈕，名稱分別為Commandl、Command2、

Command3,標題分別為“紅桃”、“黑桃”、“清除”。在考生文件夾下有兩個圖標文

件，其名稱分別為“Misc34.ico”和“Misc37.ico"。程序運行時，單擊“黑桃”按

鈕，則在圖像框中顯示黑桃圖案（Misc37.ico文件）：單擊“紅桃”按鈕，則在圖像框

中顯示紅桃圖案（Misc34.ico文件，如圖所示）；單擊“清除”按鈕則清除圖像框中的

圖案。請編寫相應控件的Click事件過程，實現(xiàn)上述功能。注意：要求程序中不得

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

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

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

并設置其屬性，如圖3.32所示。

|UUULUel

圖

3.32程序中用到的控件及屬

2、(1)在考生文件夾下有一個工程文件爾3.vbpo其窗體文件上有一個標題為“得

分”的框架，在框架中有一個名稱為Textl的文本框數(shù)組，含6個文本框控件；文

本框Tcxt2用來輸入難度系數(shù)。程序運行時，在左邊的6個文本框中輸入6個得

分，輸入難度系數(shù)后，單擊“計算分數(shù)”按鈕，則可計算出最后得分并顯示在文本框

Text3中(如圖所示)。計算方法：去掉1個最高得分和1個最低得分，求剩下得分

的平均分，再乘以3,再乘以難度系數(shù)。最后結果保留到第2位小數(shù)，不四舍五

入。注意：文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的

注釋符，把程序中的?改為正確的內(nèi)容，考生不能修改程序中的其他部分和各控件

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

(2)在考生文件夾下有一個工程文件

Sjt4.vbpo窗體上的控件如圖所示。程序運行時，若選中“累加”單選按鈕，則

“10”、“12”菜單項不可用，若選中“階乘”單選按鈕,則力000”、“2000”菜單項不可

用(如圖所示)。選中菜單中的一個菜單項后，單擊“計算”按鈕，則相應的計算結果

在文本框中顯示(例如，選中“累加”和“2000”，則計算1+2+3+…+2000,選中

“階乘”和“10”，則計算101)。單擊“存盤”按鈕則把文本框中的結果保存到考生文件

夾下的out4.dat文件中。要求：編寫“計算”按鈕的Click事件過程。注意：不得

修改已經(jīng)存在的程序，在結束程序運行之前，必須用“存盤”按鈕存儲計算結果，否

則無成績。最后，程序校原文件名存盤。

標準答案：(1)【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯

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

Commandl_Click()DimkAsInteger,sAsSingle*aAsSingle,bAsSinglea=

Val(TextKO).Text)，將第一個文本框的值作為最大值賦予as=ab=a，將第一個數(shù)

作為最小值賦予bFork=lTo5，剩余文本框作為循環(huán)次數(shù)的條件s=s+

Val(Textl(k).Text)Ifa<Val(Textl(k).Text)Then，取出每個文本框的值與最大值

比較,求最大Text)EndIfIfb>Val(Textl(k).Text)Thenb=

Val(Textl(k).Text)EndIfNextks=(s—a—b)/4根據(jù)要求去掉一個最高分和一個

最低分后求四科的平均分s=s*3*Val(Tcxt2.Text)，根據(jù)題意此處應填平均分

Text3=Int(s*100)/100，Int(N)是求小于或等于N的最大整數(shù),同時將最后結果

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

(2)【操作步驟】步驟1：打開本題工程文件；步驟2：打開代碼編輯窗口，在指

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

DimjAsIntegerDimmAsLongDimsumAsLongm=1Ifn=10Orn=12Then'通

過判斷n的值，可確定使用什么操作Fori=2Tonm=i*mNext『求n的階乘

Textl.Text=mEndIfsum=0Ifn=2000Orn=1000ThenForj=1Tonsum=sum

+jNextj，求1到n的和Textl.Text=sumEndIfEndSub步驟3：調(diào)試并運行程

序，關閉程序后按題目要求存盤。

知識點解析：暫無解析

三、綜合應用題(本題共7題，每題7.0分，共I分0)

3、在考生文件夾下有一個工程文件sjt5.vbpo其功能是產(chǎn)生并顯示一個數(shù)列的前

n項-數(shù)列產(chǎn)生的規(guī)律是：數(shù)列的前2項是小于10的正整數(shù),將此兩數(shù)相乘,若

乘積V10,則以此乘積作為數(shù)列的第3項；若乘積N10,則以乘積的十位數(shù)為數(shù)列

的第3項，以乘積的個位數(shù)為數(shù)列的第4項。再用數(shù)列的最后兩項相乘，用上述規(guī)

則形成后面的項，直至產(chǎn)生了第n項。窗體上部從左到右3個文本框的名稱分別為

TextKText2>Text3?窗體下部的文本框名稱為Text4。程序運行時，在Textl、

Text2中輸入數(shù)列的前兩項，Texl3中輸入要產(chǎn)生的項數(shù)n,單擊“計算”按鈕則產(chǎn)生

-5^一,

(5-［；-|iT—

?4t?03Z_________

此數(shù)列的前n項，并顯示在Text4中。如圖所示。='

已經(jīng)給出了全部控件，但程序不完整，請去掉程序中的注釋符，把程序中的?改為

正確的內(nèi)容。注意：不得修改原有程序和控件的屬性。最后把修改后的文件按原

文件名存盤。

標準答案：【操作步驟】步驟I：打開本題工程文件。步驟2：打開代碼編輯窗

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

Commandl_Click()Text4=,'"a=Val(Textl)b=Val(Text2)n=Val(Text3)Text4=

Text4&a&”"&a'文本框Text4中第二項的內(nèi)容一定是bk=2DoWhilek<nc=

a*bk=k+lIfeV10Then，判斷乘積是否小于10Text4=Text4&Mn&c'若小于

10,則直接接到Text4文本末尾a=b，將b賦給a成為下一次循環(huán)的前一項b=c，將

c作為下一次循環(huán)的后一項Elsed=c\10,當c大于10,則取整Text4=Text4”

&da=d，將十位數(shù)作為下一次循環(huán)的前一項k=k+1Ifk<=nThen，當k>n時，

則數(shù)列數(shù)已夠，不用求下一項d=cMod10Text4=Text4&"n&db=d'將余數(shù)作

為卜一次循環(huán)的后一項EndIfEndIfLoopEndSub步驟3：調(diào)試并運行程序，關閉

程序后按題目要求存盤。

知識點解析：暫無解析

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

第2套

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

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

名稱為Forml的窗體上畫一個標簽，名稱為L1,標題為“業(yè)余愛好”，再畫一個名

稱為Chi的復選框數(shù)組，含三個復選框，它們的Index屬性分別為0、1、2,標題

依次為"體育''、"音樂''、“美術”，請設置復選框的屬性，使其初始狀態(tài)見表3—1。

表3?1

體育:

選中可用

音樂木選中不可用

美術未選中可用

-運行后的窗體如圖3—83所

z5o注意：存盤時必須存放在考生文件夾下,

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

一個文本框，名稱為Textl；再建立一個下拉菜單，菜單標題為“操作”，名稱為

Ml,此菜單下含有兩個菜單項，名稱分別為Show和Hide,標題分別為“顯示”、

“隱藏”，請編寫適當?shù)氖录^程，使得在運行時，單擊“隱藏”菜單項，則文本框消

失；單擊“顯示”菜單項，則文本框顯示出來。運行后的窗體如圖3—84所示。要求

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

注意：存盤時必須存放在考生文件夾

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

標準答案：（1）【操作步驟】步驟1：新建一個“標準EXE”工程。步驟2：在窗體

Forml中加入一個標簽和一個復選框，并用“復制”卻“粘貼”的方法，生成包含三個

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

屬性及值如表4-51所示。

表4?51_______________________

對象屬性值

NameLI

標簽

Caption業(yè)余愛好

Caption體育

Ch1(0)

Value1-Checked

Caption普樂

Chi(1)

Value2-Grayed

Caption美術

Chi(2)

ValueO-Uncheckcd

-----------------------步驟4：按要求將

文件保存至考生文件夾中。（2）【操作步驟】步驟1：新建一個“標準EXE”工程,

在窗體Forml中畫一個文本框，在屬性設置窗口中將其Name屬性值設置為

Textlo步驟2：選擇【工具】一【菜單編輯器】命令，打開菜單設計器，如表

4—52中的設置建立菜單項。

表4-52

標圖名稱內(nèi)縮符號

操作Ml0

顯示Show1

院藏Hide1

?■■步驟3：打開代碼

編輯窗口，編寫以下事件過程。參考代碼：PrivateSubhide_CliCk()Textl.Visible

=FalseEndSubPrivateSubshow_Click()Textl.Visible=TrueEndSub步驟4：按

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

知識點解析：暫無解析

二、簡單應用題(本題共I題，每題1.0分，共/分C)

2、(1)在名稱為Forml的窗體上畫一個名稱為L1的標簽，標題為“口令”；畫兩個

文本框，名稱分別為Textl、Text2,都沒有初始內(nèi)容；再畫三個命令按鈕，名稱分

別為Cl、C2、C3,標題分別為“顯示口令”、“隱藏口令”、“復制口令”，在開始運

行時，向Textl中輸入的所有字符，都顯示“*”，單擊“顯示口令”按鈕后，在Textl

中顯示所有字符，再單擊“隱藏U令”后，Textl中的字符不變，但顯示的都是“?”，

單擊“復制口令”后，把Textl中的實際內(nèi)容復制到Text2中,如圖3—85所示。

圖3-85要求：①在屬性窗口中，把窗體的

標題改為“口令窗口”。②建立適當?shù)氖录^程，完成上述功能。每個過程中只允

許寫一條語句，且不能使用變量。存盤時，工程文件名為sjt3.vbp,窗體文件名

為sjt3.fmiu(2)在名稱為Fomil的窗體上畫一個名稱為P1的圖片框，并利用屬

性窗口把考生目錄中的圖標文件Open.ico放到圖片框中；再畫一個通用對話框控

件，名稱為CD1,利用屬性窗口設置相應屬性，即打開對話框時：標題為“打開文

件”，文件類型為“Word文檔”，初始目錄為C盤根目錄。再編寫適當?shù)氖录^程，

使得在運行時，單擊P1圖片框，可以打開上述對話框。運行后的窗體如圖3—86

所示。

圖3-86

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

sjt4.frnio程序中不得使用任何變量。

標準答案：（1）【操作步驟】步驟1：新建一個“標準EXE”工程，如表4—53在窗

體中畫出控件并設置其相關屬性。

表4-53

對象屬性值

窗體Caption口令窗口

NameLI

標簽

Caption口令

NameTextl

文本框1

Text

NameText2

文本框2

Text

NameCl

命令按鈕1

Caption顯示口令

NameC2

命令按鈕2

Caption隱僦口令

NameC3

命令按鈕3

Caption復制口令

步驟2：在代碼編輯

窗口，分別編寫三個按鈕的單擊事件過程。參考代碼：PrivateSubCl_Click()

Tcxtl.PaSSWOrdChar=""EndSubPrivateSubC2_Click()Tcxtl.PaSSWOrdChar

="?"EndSubPrivateSubC3_Click()C3.Parent.Text2.Text=Textl.TextEnd

SubPrivateSubForm_Load()Textl.PasswordChar=H*"EndSub步驟3：按要求將

文件保存至考生文件茨中。(2)【操作步驟】步驟1：新建一個，標準EXE”工程，

如表4-54在窗體中畫出控件并設置其相關屬性。

表4?54

對象；屬性值

NamePI

圖片框

PictureOpen.ic。

NameCD1

DialogTitle打開文件

通用對話框FilterWord文檔|*.doc

Filtcrlndcx1

InitDirC:\

---------------------步驟2：打開代碼編

輯窗口，編寫如下事件過程。參考代碼：PrivateSubPl_Click（）CD1.ShowOpen

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

知識點解析：暫無解析

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

3、在考生文件夾下有工程文件sjt5.vbp,窗體上有兩個標題分別是“讀數(shù)據(jù)”卻

“統(tǒng)計”的命令按鈕，請?zhí)砑右粋€名稱為Label1、標題為“回文的個數(shù)為”的標簽和

一個名稱為Textl,初始值為空的文本框，如圖3—87所示。程序功能如下：①單

擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀到變量s中。②單擊

“統(tǒng)計”按鈕，則統(tǒng)計in5.dat文件（該文件中僅含由空格間隔開的字母串）中回文的

個數(shù)，并將統(tǒng)計的回文個數(shù)顯示在Textl文本框內(nèi)。（所謂問文是指順讀與倒讀都

一樣的字符串，如“recycer"）?！白x數(shù)據(jù)”按鈕和“統(tǒng)計”按鈕的Click事件過程已經(jīng)給

出，請完善Function過程foundhuiwen的功能，實現(xiàn)上述程序功能。

圖3-87注意：考生不得修改窗體文件中已存在的控件和

程序，在結束程序運行之前，必須先進行統(tǒng)計，且必須用窗體右上角的關閉按鈕結

束程序，否則無成績。最后，程序按原文件名存盤。

標準答案：【操作步驟】步驟1：打開考生文件夾下的工程文件sjl5.vbp,如表

4-55所示在窗體上畫出控件并設置它們的相關屬性。

表4?55

對象屬性值

NameLabel1

標簽

CaptionPl文的個數(shù)為

NameTextl

文本框

Text

步驟2：打開代碼編輯窗

口’在指定位置編寫foundhuiwcn函數(shù)的過程。參考代碼：Functionfoundhuiwcn(p

AsString)foundhUiwen=Truek=Len(P)Fori=1Tok/2IfMid(P,i,1)0

Mid（P，k+11）ThenfoundhUiwen=FalseExitForEndIfNextEndFunction步驟

3：按鍵運行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“統(tǒng)計”按鈕，最后單擊窗體右上

角的關閉按鈕結束程序。步驟4：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

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

第3套

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

1、（1）在名稱為Forml的窗體上添加一個名稱為Labcll的標簽，標簽的寬和高分

別為2000、300,有邊框，并利用屬性窗口設比適當?shù)膶傩?，使其標題“等級考試”

居中顯示，并使標簽的外觀如圖所示。注意：存盤時必須存放在考生文件夾下，

上程文件名保存為sjtl.vbp,窗體文件名保存為sjil.frm。

（2）在名稱為Forml的窗體上添加一個名

稱為Imagel的圖像框，有邊框，并可以自動涮整裝入圖片的大小以適應圖像桂的

尺寸；再添加三個命令夜鈕，名稱分別為Commahdl、Command2、Commands,

標題分別為“紅桃”、“黑桃”、“清除”。在考生文件夾下有兩個圖標文件，其名禰分

別為“Misc34.ico”和“Misc37.ico"。程序運行時，單擊“黑桃”按鈕，則在圖像框

中顯示黑桃圖案（Misc37.ico文件）；單擊“紅桃”按鈕，則在圖像框中顯示紅桃圖案

（Misc34.ico文件，如圖所示）；單擊“清除”按鈕則清除圖像框中的圖案，請編寫相

應控件的Click事件過程，實現(xiàn)上述功能。注意：要求程序中不得使用變量，每個

事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名保存為

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

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

并設置其屬性，如圖3.32所示。

出捽件

---k.?]

pi」：nra

I?

必人]

V

|Ub?llUk?l

I技分如11

Lx3-W

L3”ic

■?3v*m

ea/>984?MM?版/冷夏用網(wǎng)*.

圖3.32程序中用件的控

表3.47

控

?標簽

件

屬.

nNanw,CaptionWidthHriglilA1hgnmrntB<?nh*rSlyle

設

hdirll等級考試200030021

件及屬性見表3.47ok步

驟2：調(diào)試并運行程序，關閉程序后按題目要求存盤。（2）【操作步驟】步驟1：

建立界面，添加相應的控件并設置控件的屬性。程序中涉及的控件及屬性見表

?3.48

圖像微命令技削命令按住

件12命令按保3

控NumrIlnnlrfStylrNMDTNamr(Jap?)onNome(option

￡lnup*l1TrueOxnmandl紅桃(>wnmand2CotninantB

值

3.48o步驟2：打開代

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

Image1.Picture=LoadPicture(App.path&"\MiSC34.iCO")'加載圖片EndSub

PrivateSubCommand2_Click()Imagel.Picture=LoadPicture(App.path&"\

Misc37.ico")EndSubPrivateSubCommand3_Click()SetImagel.Picture=Nothing,

清除Imagel中的圖片EndSub步驟3：調(diào)試笄運行程序，關閉程序后按題目要求存

盤。

知識點解析：暫無解析

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

2、（1）在考生文件夾下有一個工程文件sjt3.vbpo其窗體文件上有一個標題為，得

分”的框架，在框架中有一個名稱為Textl的文本框數(shù)組，含6個文本框控件：文

本框Tcxt2用米輸入難度系數(shù)。程序運行時，在左邊的6個文本框中輸入6個得

分，輸入難度系數(shù)后，單擊“計算分數(shù)”按鈕，則可計算出最后得分并顯示在文本框

Text3中（如圖所示）。計算方法：去掉1個最高得分和1個最低得分，求剩下得分

的平均分，再乘以3,再乘以雉度系數(shù)。最后結果保留到第2位小數(shù)，不四舍五

入。注意：文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的

注釋符，把程序中的?改為正確的內(nèi)容，考生不能修改程序中的其他部分和各控件

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

N計算?分LT尹修口』】

P7

(2)在考生文件夾下有一個工程文件

st4.vbpo窗體.上的控什如圖所示。程序運行時，若選中“累加”單選按鈕，則

“10”、“12”菜單項不可用，若選中“階乘”單選按鈕，則“1000”、“2000”菜單項不可

用(如圖所示)。選中菜單中的一個菜單項后，單擊“計算”按鈕，則相應的計算結果

在文本框中顯示(例如,選中“累加”和“2000”,則計算1+2+3+…+2000,選中

“階乘”和“10”，則計算10!)o單擊“存盤”按鈕則把文本框中的結果保存到考生文件

夾下的out4.dat文件中。要求：編寫“計算”按鈕的Click事件過程。注意：不得

修改已經(jīng)存在的程序，羽結束程序運行之前，必須用“存盤”按鈕存儲II算結果，否

則尤成績。最后，程序位原文件名存盤。

標準答案：(1)【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯

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

CommandlclickODimkAsInteger,SAsSingle,aAsSingle,bAsSinglea=

Val(Textl(0).Text)，將第一個文本框的值作為最大值賦予as=ab=a，將第一個數(shù)

作為最小值賦予bFork=1To5,剩余文本框作為循環(huán)次數(shù)的條件s=s+

Val(Textl(k).Text)Ifa<Val(Textl(k).Text)Then，取出每個文本框的值與最大值

比較，求最大值a=VaHTextl(k).Text)EndIfIfb>Val(Textl(k).Text)Thenb=

Val(Textl(k).Text)EndIfNextks=(s—a—b)/4根據(jù)要求去掉一個最高分和一個

最低分后求四科的平均分s=s*3*Val(Text2.Text)根據(jù)題意此處應填平均分Text3

=Int(s*100)/1001nt(N)是求小于或等于N的最大整數(shù)，同時將最后結果顯示在

Tcxt3上EndSub步驟3；調(diào)試并運行程序，關閉程序后按題目要求存盤。(2)【操

作步驟】步驟1：打開本題工程文件；步驟2：打開代碼編輯窗口，在指定位置編

寫如下代碼。參考答案PrivateSubCommandl_Click()DimiAsIntegerDimjAs

IntegerDimmAsLongDimsumAsLongm=1Ifn=10Orn=12Then'通過判斷n的

值，可確定使用什么操作Fori=2Tonm=i*mNexl1=求n的階乘Textl.Text=m

EndIfsum=0Ifn=2000Orn=1000ThenForj=1Tonsum=sum+jNextj'求1至U

n的和Textl.Text=sumEndIfEndSub3：調(diào)試并運行程序,關閉程序后按

題目要求存盤。

知識點解析：暫無解析

三、綜合應用題(本題共1題，每題7.0分，共1分。)

3、在考生文件件下有一個工程文件sjl5.vbpo其功能是產(chǎn)生并顯示一個數(shù)列的前

n項。數(shù)列廣：牛的規(guī)律是：數(shù)列的前2項是小于10的正整數(shù)，將此兩數(shù)相乘，

若乘積V10,則以此乘積作為數(shù)列的笫3項；著乘積210,則以乘積的十佗數(shù)為數(shù)

列的第3項，以乘積的個位數(shù)為數(shù)列的第4項。再用數(shù)列的最后兩項相乘，用上述

規(guī)則形成后面的項，直至產(chǎn)生了第n項。窗體上部從左到右3個文本框的名稱分別

為Textl、Tcxt2、Text3,窗體上部的文本框名稱為Tcxt4。程序運行時，在

Textl、Text2中輸人數(shù)列的前兩項，Text3中輸入要產(chǎn)生的項數(shù)n,單擊“計算”按

鈕則產(chǎn)生此數(shù)列的前n項，并顯示在Text4中。如圖所示。

KFermi區(qū)1回

6424。3

612248

已經(jīng)給出了傘部控件，但程序小完整，請去掉

程序中的生釋符，把程序中的?改為止確的內(nèi)容。注意：不得修改原有程序和控什

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

標準答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗

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

Command1.Click()Text4=H"a=Val(Textl)b=Val(Text2)n=Val(Text3)Text4=

Text4&a&"H&b'文本框Text4中第二項的內(nèi)容一定是bk=2DoWhilek<nc=a*b

k=k+lIfCVlOThen，判斷乘積是否小于10Text4=Text4&”"&C'若小于10.則

直接接到Text4文本末尾a=b，將b賦給a成為下二次循環(huán)的前一項b=c，將c作為

下一次循環(huán)的后一項Eked=C\lO當C大于10,則取整Text4=Text4&”"&da

=d，將十位數(shù)作為下一次循環(huán)的前一項k=k+l汗1(<=11丁1脫葭當1<>11時，則數(shù)

列數(shù)已夠，不用求下一項d=cMod10Text4=Text4&""&db=d將余數(shù)作為下一

次循環(huán)的后一項EndIfEndIfLoopEndSub步驟3：調(diào)試并運行程序，關閉程序后

按題目要求存盤。

知識點解析：暫無解析

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

第4套

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

1、（1）在名稱為Forml的窗體上建立一個如下表所示的下拉菜單，其中“設置”菜單

項為灰色（不可用），如圖3.137所示。注意：存盤時必須存放在考生文件夾下，

工程文件名為sjtLvbp,窗體文件名為sjtl.frmo

圖3?I37（2）在名稱為

Forml的窗體上畫一個名稱為Hscrolll的水平滾動條，其最大刻度為100,最小刻

度為0;再畫兩個單選按鈕，名稱分別為Optionl、Option?,標題分別為“最大

值”、"最小值”，且都未選中。再通過屬性窗口設置適當屬性使得程序剛運行時，

焦點在滾動條上（如圖3.138所示）。請編寫適當?shù)氖录^程，使得程序運行時，

單擊“最大值”單選按鈕，則滾動條上的滾動框移到最右端；單擊“最小值”單選按

鈕，則滾動框移到最左端。注意：程序中不得使用變量，事件過程中只能寫一條

語句。存盤時必須存放在考生文件夾下，工程文件名為sjl2.vbp,窗體文件名為

圖

sj!2.frnio3438

標準答案：（1）步驟1：新建一個“標準EXE”工程，利用菜單設計器按表4-81在窗

標題名稱內(nèi)縮符號高效性

收藏ml0True

工具m20True

選項al1True

設置a21False

幫助m30True

體上建立一個二級菜單。--步驟

2：按要求將文件保存至考生文件夾中。（2）步驟1：新建一個“標準EXE”工程，按

表4-82在窗體中畫出控件并設置其相關屬性。

?4-82

］對象值.

屬使

NameHScrolll

Max100

水平濠動條

Min0

TabIndex0

埠選按鈕1NameOption1

Caption最大值

ValueFalse

NameOption2

雌選按鈕2CaptionM小值

ValueFalse

步驟2：打開代碼編輯

窗口，編寫兩個單選按鈕的單擊事件過程。參考代碼：PrivateSubOptionl_Click（）

HScrolll.Value=100EndSubPrivateSubOption2_Click（）HScrolll.Value=0End

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

知識點解析：（1）本題只需按題目要求利用VB菜單設計器建立一個二級菜單。（2）

本題需要在窗體上畫出水平滾動條，并設置Tabindex屬性為0；然后在單選按鈕的

單擊事件中改變滾動條的Value屬性值就能使滑塊處于指定位置。

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

2、（1）在考生文件夾下有一個工程文件sjt3.vbpo窗體上有名稱為Timerl的定時

器，以及名稱為Linel和Line2的兩條水平直線。請用名稱為Shapel的形狀控件，

在兩條直線之間畫一個寬和高都相等的形狀，其顯示形式為圓，并設置適當屬性使

其滿足以下要求：①圓的頂端距窗體Forml頂端的距離為360；②圓的顏色為紅

色（紅色對應的值為&H000000FF&或&HFF&）,如圖3.124所示。程序運行時，

Shape1將在Linel和Line2之間運動。當Shape1的頂端到達Linel時,會自動改變

方向而向下運動；當Sh叩el的底部到達Line2時，會改變方向而向上運動。文件

中給出的程序不完整，請去掉程序中的注釋符，把程序中的?改為正確內(nèi)容，使其

實現(xiàn)上述功能。注意：不能修改程序的其他部分和已給

出控件的屬性。最后將修改后的文件按原文件名存盤。（2）在考生文件夾下有一個

工程文件sjt4.vbp,包含了所有控件和部分程序，如圖3.125所示。程序功能如

下：①單擊“讀數(shù)據(jù)”按鈕，可將考生文件夾下in4.dat文件中的100個整數(shù)讀到

數(shù)組a中；②單擊“計算”按鈕，則根據(jù)從名稱為Combol的組合框中選中的項目，

對數(shù)組a中的數(shù)據(jù)計算平均值，并將計算結果四舍五入取整后顯示在文本框Textl

中?！白x數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，請為“計算”按鈕編寫適當?shù)氖录^

程實現(xiàn)上述功能。注意：不得修改已經(jīng)存在的控件和程序，在結束程序運行之

前，必須進行一次計算，且必須用窗體右上角的關閉按鈕結束程序，否則無成績。

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

標準答案：（1）步驟1：打開考生文件下的本題工程文件sjt3.vbp,在窗體上兩條

水平直線間畫一個形狀控件，并如表4-74設置其屬性。

豪4?74

R對象屬性值

形狀控件NameShapel

Shape3

Top360

FillStylc0

FillColor&HOOOOOOFF&

BorderColor&HOOOOOOFF&

步驟2：在代碼編輯

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

Timeri.Enabled=TrueIfShape1.Top<=Linl.Y1TlienIf

Shape1.Top+Shapcl.Height>=Lin2.Y1Then步驟3：按要求將文件保存至考生

文件夾中。(2)步驟1：打開考生文件夾中的本題工程文件sjt4.vbp,在代碼編輯

窗口，編寫“計算”按鈕的單擊事件過程以及三個自定義過程。參考代碼：Private

SubCommand2_Click()SelectCaseCombol.ListindexCase0Textl=everl()Case1

Texil=odd()Case2Texil=all()EndSelectEndSubFunctioneyen()DimsAsSingle,n

AsIntegers=0Fork=lTo100Ifa(k)/2=Fix(a(k)/2)Thens=s+a(k)n=n+lEndIf

Nexts=s/neven=CInt(s)EndFunctionFunctionodd()DimSAsSingle,nAsInteger

s=0Fork=lTo100Ifa(k)/2<>Fix(a(k)/2)Thens=s+a(k)n=n+lEndIfNexts=s/n

odd=CInt(s)EndFunctionFunctionall()DimsAsSingle,nAsIntegers=0Fork=lTo

100s=s+a(k)Nexts=s/100all=CInt(s)EndFunction步驟2：按鍵運行程序，先單擊

“讀數(shù)據(jù)”按鈕，然后選擇組合框中的一項再單擊“計算”按鈕，最后單擊窗體右上角

的關閉按鈕結束程序。步驟3：按要求將文件保存至考生文件夾中。

知識點解析：(1)本題在計時器的Timer事件過程中，Shapel每次上下移動的距離

為s(值為負向上移動，值為正向下移動，初值為-40),若Shapel向上移動后其Top

屬性值小于或等于Linel的Y1(或Y2)屬性值，則s取其相反數(shù)，Shapel向下移

動。若Shapel向下移動后其Top屬性值與其Widlh屬性值之和大于或等于Line2

的Y1(或Y2)屬性值，則s再取其相反數(shù)，Shapel向上移動。窗體加載時，計時器

啟動，Shapel開始在Linel和Line2之間運動。⑵木題源程序在“計算”按鈕的單擊

事件過程中，逐一檢查組合框中的列表項是否選中，將選中列表項的索引號作為判

斷依據(jù)，根據(jù)選中不同的項來調(diào)用不同的過程。過程even用來求得數(shù)組中的偶數(shù)

平均值，首先預設累加和變量s=0以及計數(shù)器n=0,然后通過一個執(zhí)行100次的

For循環(huán)來遍歷整個數(shù)組，依次判斷數(shù)組元素是否為偶數(shù)，若是偶數(shù)則將其加入累

加變量s中以及令計數(shù)器加1,循環(huán)結束后用累加和除以計數(shù)器即得到平均值、同

理編寫odd過程用來求得數(shù)組中奇數(shù)的平均值，all過程用來求得數(shù)組中所有數(shù)的

平均值。

三、綜合應用題(本題共7題，每題7.0分，共I分0)

3、在窗體上畫一個文本框，名稱為Texll（可顯示多行），然后再畫三個命令按鈕，

名稱分別為Commandl、Command2>fflCommands,標題分別為"讀數(shù)"、"統(tǒng)計”和

“存盤”，如圖3.136所示。程序的其功能是：單擊“讀數(shù)”按鈕，則把考生目錄下

的in5.ixl文件中的所有英文字符放入Textl（可多行顯示）；單擊“統(tǒng)計”按鈕，找出

并統(tǒng)計英文字母i、j、k、1、m、n（不區(qū)分大小寫）各自出現(xiàn)的次數(shù)；單擊“存盤”按

鈕，將字母i?n出現(xiàn)次數(shù)的統(tǒng)計結果依次存到考生目錄下的順序文件out5.txt

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

名為sjt5.frm0

標準答案：步驟1：新建一個“標準EXE”工程，如表4.80所示，在窗體中畫出控

賽4-80

對篇屬性值

NameTextl

文本樞MultiLineTrue

Text

NameCommand1

命令按鈕1

Caption讀數(shù)

NameCommand2

命令按《12

Caplion統(tǒng)計

NameCommand3

命令按鈕3

Caption存盤

件并設置其相關屬性。--------------------------------步驟

2：打開代碼編輯窗口，編寫相應事件過程。參考代碼：OptionBase1Dim

sum(6)AsIntegerPrivateSubCommandl_Click()penApp.Path&"\in5.txt"For

InputAs#1Textl.Text=Input(LOF(1),#1)Close#1EndSubPrivateSub

Command2_Click()Fori=lTo6sum(i)=0NextiIfLen(Textl.Text)=0Then

MsgBox”請先使用“讀數(shù)'功能!"ElseFori=lToLen(Textl.Text)

C=LCase(Mid(Textl.Text,i,1))SelectCasecCase"i"sum(I)=sum(1)+1Case"j"

sum(2)=sum(2)+lCaSeHk"sum(3)=sum(3)+lCaSe"l"sum(4)=sum(4)+lCase"m,,

sum(5)=sum(5)+lCaSe"n',sum(6)=sum(6)+lEndSelectNextjEndIfEndSubPriVate

SubCommand3_Click()OpenApp.Path&"\out5.txt*'ForOutputAs#1Fori=lTo

6Print#1,sum(i)NextiClose#1EndSub步驟3：按要求將文件保存至考生文件夾

中。

知識點解析：程序設計思路：在“讀數(shù)”按鈕的單擊事件過程中，用。pen語句以

Input方式打開數(shù)據(jù)文件in5.txt,并用Input。函數(shù)讀出所有字符后顯示在文本框

中：在“統(tǒng)計”按鈕的單擊事件過程中，通過For循環(huán)用Mid函數(shù)逐一取出文本框中

的字符并轉(zhuǎn)換成小寫，用SeleclCase語句對取出的字符進行檢查，并用窗體數(shù)組

變量sum(l)?sum(6)記錄字母i、i、k、1、m、n出現(xiàn)的次數(shù)。在“存盤”按鈕的單

擊事件過程中，用Open語句以Output方式打開數(shù)據(jù)文件out5.txt,并通過For循

環(huán)用Pnnl#方法逐一將數(shù)組中的元素存入該文件。

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

第5套

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

1、(1)在名稱為Forml的窗體上畫一個名稱為Pic的圖片框，通過屬性窗口將考生

文件夾下的文件Tul-ljpg添加到圖片框，然后編寫適當?shù)氖录^程。運行程序時，

單擊窗體，在圖片框中顯示“VB等級考試”，如圖3—179所示。注意：要求程序

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

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

一個名稱為Commandl的命令按鈕，標題為“命令按鈕”。然后建立一個菜單，標

題為“控件”，名稱為menu,包含兩個子菜單項，一個是“顯示命令按鈕”，名稱為

suhMenul：另一個是“隱藏命令按鈕”,名稱為qiibMenu2,如圖3.ISO所示.編寫

適當?shù)氖录^程，使得程序運行時，如果選擇“顯示命令按鈕''菜單命令，則顯示命

令按鈕控件；而如果選擇“隱藏命令按鈕”。

圖3/"出，中0菜單命令，則隱藏命令按鈕

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

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

標準答案：（1）步驟1：新建一個“標準EXE”工程，在窗體Forml中畫一個名稱為

Pic的圖片框，并設置其Picture屬性為Tul-1.jpg,步驟2：雙擊窗體打開代碼編