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

第1套

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

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

名稱為Forml的窗體上建立一個如下表所示的下拉菜單，其中“設置”菜單項為灰

色（不可用），如圖3—137所示。

圖3/37注意:

存盤時必須存放在考生文件夾下，工程里牛名為sjll.vbp,窗體文件名為

sjtl.frmo（2）在名稱為Forml的窗體上畫一個名稱為Hscrolll的水平滾動條，其

最大刻度為100,最小刻度為0;再畫兩個單選按鈕，名稱分別為Option1、

Option?,標題分別為“最大值”、“最小值”，且都未選中。再通過屬性窗口設置適

當屬性使得程序剛運行時，焦點在滾動條上（如圖3-138所示）。

?3-138請編寫適當?shù)氖录^程，使得程序

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

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

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

件名為sjt2.frm。

標準答案：（1）【操作步驟】步驟1：新建一個“標準EXE”工程，利用菜單設計器

按表4—81在窗體上建立一個二級菜單。

?4-81______________

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

收藏ml0True

工具m20True

選項al1True

設置a21False

幫助m30----”一步驟2：按要求將文件保存

至考生文件夾中。（2）【操作步驟】步驟1：新建一個“標準EXE”工程，按表4—

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

表4￡2

對象屬性值

NameHScrolll

Max100

水平滾動條

Min0

Tabindex0

NameOption1

單選按鈕1C'aption最大值

ValueFalse

NameOption2

單選按鈕2Caption最小值

ValueFalse

步驟2：打開代碼

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

Optionl_CliCk（）HScrol11.Value=100EndSubPrivateSubOption2_Click（）

HSCrolll.Value=0EndSub步驟3：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

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

2、（1）在考生文件夾下有一個工程文件sjt3.vbp,已給出了所有控件和部分程序。

程序運行時，請按以下順序操作：1）單擊“讀入數(shù)據(jù)”按鈕，可把考生目錄下的文件

in3.dat中的100個整數(shù)讀到數(shù)組a中;2）從名稱為Listl的列表框中選中一項（如

w____%1

*天IFNi…

圖3—139所示）。圖3/393）單擊“計

算“按鈕，則可按該選項的要求計算出結(jié)果并放到文本框中。4）單擊窗體右上角的

關閉按鈕結(jié)束程序?！白x入數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，請為“計算”按鈕

參考代碼：Fork=lTo5Labell（k-l）.Visible=TrueShapel（k-1）.Height=s（k）

a=Linel.Y1步驟2：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

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

3、在考生文件夾下有一個工程文件sjt5.vbp,其中，己給出了所有控件（如圖3-

141所示）和部分程序。圖3/41程

序運行時，請按以下順序操作：1）單擊“讀入文件”按鈕，把考生目錄下的文件

in5.dat中的內(nèi)容讀入內(nèi)存并顯示在上面的文本框（Textl）中；2）單擊“加密”按鈕，

則可對Textl中的內(nèi)容進行加密并顯示在下面的文本框（Tex⑵中。3）單擊“存結(jié)果”

按鈕則把Text2中的內(nèi)容存到out5.dat文件中。加密規(guī)則：對于第奇數(shù)個字符，

若是字母，則把它變?yōu)樗竺娴淖址ㄈ魹椤癦”則變?yōu)椤癆"），不是字母則不變；對于

第偶數(shù)個字符，若是字母，則把它變?yōu)樗懊娴淖址ㄈ魹椤癆”則變?yōu)椤癦"），不是字

母則不變。大小寫字母都遵循此規(guī)則。例如：若原有的字符是：AbbaZGHa-

MnnKYzx則加密后的字符是：BaczAFGb-NmoiXaw已經(jīng)給出“存結(jié)果”按鈕的

Click事件過程和函數(shù)isletter,函數(shù)isletter（aAsString）判斷變量a中是否為一個字

母，若是則返問True,否則返向Fake,可以直接調(diào)用△請編寫“讀入文件”按鈕和

“加密”按鈕的Click事件過程，以實現(xiàn)上述功能。（in5.dat文件中只含英文單詞和

空格，不分段落和行）注意：考生不得修改已經(jīng)存在的程序，必須用“存結(jié)果”按鈕

存儲加密結(jié)果，否則無成績。最后，按原文件名把程序存盤。

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

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

Commandl_Click()Open"in5.dat"ForInputAs1LineInput#1?sClose#1

Textl.Text=sEndSubPrivateSubCommand2_Click()DimiAsInteger,ssAs

Stringss=""Fori=1ToLen(s)rfisletter(Nid(s,i,l))=TrueThenIfiMod2=0

ThenTfMid(s,i,l)="a"Thenss=ss&"z"ElsetfHid(s,i,l)=nA"Thenss=ss&

"z"Elsess=ss&Chr(Asc(Mid(s,i,I))-1)EndIfElseTfMid(s,i,1)="z"Then

ss=ss&ElseIfMid(s,i,l)=,,z,,Thenss=ss&"a"Elses=ss&

Chr(Asc(Mid(s,i,1))4-1)EndIfEndIfElsess=ss&Mid(s,i,l)EndIfNext

Text2.Text=ssEndSub步驟2：按鍵運行程序，先單擊“讀入文件”按鈕，接著單

擊“加密”按鈕，然后單擊“存結(jié)果”按鈕保存結(jié)果，最后單擊窗體右上角的關閉按鈕

結(jié)束程序。步驟3：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

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

第2套

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

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

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

Linc2的坐標值，請按此表畫Lincl、Line2,并畫出直線Line3,從而組成如圖3-

fft'Vwml

46所示的三角形。圖注意：存盤時必須存放在考生

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

的窗體上畫一個名稱為Listl的列表框，并任意輸入若干列表項；再畫一個名稱為

Textl的文本框，無初始內(nèi)容。請編寫Listl和Texll的Click事件過程。程序運行

后，如果單擊列表框中的某一項，則在文本框中顯示該項相應的順序號，若單擊第

一項，則在文本框中顯示1;若單擊第二項，則在文本框中顯示2,以此類推（如圖

3-47所示）；如果單擊文本框，則把該列表項的內(nèi)容顯示在文本框中。注意：要

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

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

標準答案：第1小步驟1:新建一個“標準EXE”工程，按表4—29在窗體中畫出控

表4-29

對象屬性值

NameLinel

XI6(M)

出戊|X2160()

YI1600

￥2600

NameLine2

XI600

H線2X22600

YI1600

Y21600

Namel.ineS

XI1600

『1城3X22600

YIMX)

Y21600

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

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

程，按表4—30在窗體中畫出控件并設置其相關屬性。

表430

對象屬性值

NameLisll

列我也

Lisi任意列表項

NameTexil

文本也

Text

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

表框和文本框的單擊事件過程。參考代碼：PrirateSubLiStl_Click()

TexLl.Text=Listl.Listlndex+lEndSubPrivateSubTextl_Click（）Textl.Text=

Listl.List（LiStl.Listindex）EndSub步驟3：按要求將文庫保存至考生文件夾中。

知識點解析：第1小題：本題只需按要求畫出控件并設置相關屬性。第2小題：

列表框的Listlndex可.用于設置或返回在列表框中當前選擇項同的索引號，該索引

號是從。開始的。耍實現(xiàn)本題所要求的功能，應在列表框的單擊事件中，令文本框

中的內(nèi)容等于列表框的Listindex屬性加1：在文本框的單擊事件中，令文本框的

內(nèi)容等于列表樵的對應選中項的內(nèi)容,即Listl.List（Listl.Listlndex）o

二、簡單應用題（本題共7題，每題分，共7分。）

2、（1）在考生目錄下有一個工程文件sjt3.vbp,有兩個名稱分別為Forml和Form2

的窗體，F(xiàn)orml為啟動窗體，程序執(zhí)行時Foi*m2不顯示。Fonnl中有菜單（如圖3-

48（a）所示），程序運行時，若單擊“格式”菜單項，則顯示FomI2窗體（如圖3—48（b）

所示），選中一種字號和字體后單擊“確定”按鈕，見可改變Forml上文本框的字號

和字體，并使Form2窗體消失。若單擊“退出”菜單項，則結(jié)束程序的運行。文件

中已經(jīng)給出了所有控件和程序，但程序不完整，要求：1）利用屬性窗口設置適當

的屬性，使Forml窗體標題欄右上角的最大化按鈕、最小化按鈕消失（如圖3-

48（a）所示）.2）利用屬性窗口把Form2窗體的標題設置為“格式”（如圖3—48（h）所

示）。3）請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。注意：不能修改

程序中的其他部分和其也控件的屬性。最后把修改后的文件按原文件名存盤。

（a）（b）

圖3-48（2）在考生目錄下有一個工程文件

sjt4.vbp,包含了所有控件和部分程序。程序運行時，請按以下順序操作：1〕單

擊“讀入數(shù)據(jù)”按鈕，可把考生目錄下的文件in4.dat中的100個整數(shù)讀到數(shù)組a

中。2）從名稱為Combol的組合框中選中一項（如圖3—49所示）。3）單擊“計算”按

鈕，則可按該選項的要求對a中的數(shù)計算平均值（匹舍五入取整或截尾取整）并放到

文本框中。4）單擊窗體右上角的關閉按鈕結(jié)束程序。“讀入數(shù)據(jù)”按鈕的Click事件

過程已經(jīng)給出，請為“計算”按鈕編寫適當?shù)氖录^程實現(xiàn)上述功能。提示：存放前

n個數(shù)之和的變量應使用Long類型。注意：不得修改己經(jīng)存在的程序，在結(jié)束程

序運行之前，必須進行一次計算，且必須用窗體右上角的關閉按鈕結(jié)束程序，否則

無成績。最后，程序按原文件名存盤。圖34）

標準答案：第1小題步驟1：打開考生文件夾中的本題工程文件sil3.vbp,按表

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

覆4-31

對跳屬性值

NameForm1

窗體MaxButtonFalse

MinButttwiFalse

NameForm?

窗體

Caplion格式

步驟2：在代碼編輯窗口，去掉

程序中的注釋符“川，將問號"?”改為正確的內(nèi)容。參考代碼：Fonn2.Show

Form1.Textl.Fontsize=Listl.TextForml.Textl.FontName=

List2.List(List2.Listindex)Form2.Visible=FalSe步驟3：按要求將文件保存至考

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

擊“計算”按鈕，打開代碼編輯窗口編輯計算按鈕的單擊事件。參考代碼：Private

SubCommand2_Click()Dimi,jAsLongIfCombo1.Text="前50個數(shù)"Thenj=0For

i=lTo50j=j+a(i)Nextj=Round(j/50,0)Textl.Text=jEndIfIfCombo1.Text=”前

80個數(shù)“Thenj=0Fori=lTo80j=j+a(i)Nextj=Round(j/80,0)Textl.Text=jEndIf

IfCombo1.Text="WW^"Thenj=0Fori=lTol00j=j+a(i)Nextj=Round(j/100,0)

Textl.Text=jEnd【fEndSub步驟2：按要求將文件保存至考生文件夾中。步驟

3：運行程序，單擊“讀入數(shù)據(jù)”按鈕，然后在列表框中選中一項，并單擊“計算”按

鈕獲得一個結(jié)果，然后使用窗體右上角的“關閉”按鈕結(jié)束程序。

知識點解析：第1小題：根據(jù)題目要求，單擊“格式”菜單項即會顯示Form2,則在

該菜單項的單擊事件中應該調(diào)用Form2.Show方法；在“確定”按鈕的單擊事件

中，應該對應將文本框中內(nèi)容的字體和字號設置為列表框中選中的項并隱藏

Form2o第2小題：本題是一個簡單的累加求和再求平均值的問題，根據(jù)在組合框

中選擇的列表項不同，進行計算的項數(shù)也不同，但都是用循環(huán)完成.在循環(huán)中實現(xiàn)

累加，在循環(huán)后實現(xiàn)求平均值，區(qū)別只在于循環(huán)的次數(shù)不一樣。

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

3、在考生目錄下有一個工程文件sjt5.vbpo窗體左邊的圖片框名稱為Pictured

框中還有六個小圖片框，它們是一個數(shù)組，名稱為Pic,在窗體右邊從上到下有三

個顯示不同物品的圖片框，名稱分別為Picture2、Picture3、Picture4,還有一個文

木框Textl以及四個標簽，如圖3—50⑶所示。程序運行時，可以用鼠標拖拽的方

法把右邊的物品放到左邊的圖片框中(右邊的物品不動)，同時把該物品的價格累加

到Tex”中，如圖3—50(b)所示。最多可放六個物品。實現(xiàn)此功能的方法是：程序

剛運行時，Picture1中的圖片框數(shù)組不顯示，當拖拽一次物品時，就顯示一個圖片

框數(shù)組元素，并在該圖片框數(shù)組元素中加載相應的圖片，產(chǎn)生物品被放入的效果。

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

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

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

圖3-50

標準答案：步驟1：打開考生文件夾下的工程文件承5.vbpo步驟2：在代碼編輯

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

CaseSource.NameFork=0To5IfPic（k）.Visible=FalseThenPic（k）.Visible二True

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

知識點解析：控件的DragDrop事件有三個主要參數(shù)，其中，“Source”參數(shù)是一個

對象變量，類型為“Control”，包含被拖動對象的屬性，“X”和“Y”參數(shù)是放下對象

時鼠標光標的位置。本題中為了判斷拖動的是哪一個圖片，因此需要判斷Source

參數(shù)的Name屬性.當拖動的圖片確定，則在控件數(shù)組中顯示的圖片以及需要累加

的價格也隨之確定。由于控件數(shù)組共有6個數(shù)組元素，因此應該在拖放事件中進

行一個6次的循環(huán)，在每次循環(huán)中判斷數(shù)組元素是否已經(jīng)被顯示出來，如果沒有被

顯示出來則令其Visible屬性為True,然后退出循環(huán)，這樣可以實現(xiàn)序號由小到大

每次顯示一個圖片的效果。

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

第3套

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

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

1、在名稱為Forml的窗體上畫一個名稱為Textl的文本框，其高、寬分別為

400>2000o運行后的窗體如圖3-78所示。請在屬性框中設置適當?shù)膶傩詽M足以下

要求：?Textl的字體為“黑體”，字號為“四號”：②窗體的標題為“輸入”，不顯

[itBMW

示最大化按鈕和最小化或鈕。圖3.78注意：存盤時必須存放在考生文

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

標準答案：審題分析本題只需按要求建立程序界面并設置窗體和文本框相關屬性

即可。操作步驟步驟1：新建一個“標準EXE”工程。步驟2：按要求畫出控件，

并在屬性窗口中設置其相關屬性，屬性及值如表445所示。

*4-45

個對象?性值

NameTextl

文本框Width2000

Height400

NameForml

Caption，入

窗體

MaxButtonFalse

MinButton

——步驟4；在文本框的屬性窗口中單擊“Font”

屬性右側(cè)的按鈕，打開“字體”對話框，在其中設汽“字體''為"黑體"，"字號”為“四

號”。步驟5：單擊窗體無控件區(qū)域，在屬性窗口中設置窗體相關屬性。步驟6：

按要求將文件保存至考生文件夾中?？键c鏈接窗體基本操作、控件基本操作。

知識點解析：暫無解析

2、在名稱為Forml的窗體上畫一個名稱為Imagel的圖像框，利用屬性窗口裝入考

生目錄下的圖像文件picl.bmp,并設置適當屬性使其中的圖像可以適應圖像框大

??；再畫兩個命令按鈕，名稱分別為Commandl、Command2,標題分別為“向右

移動”、“向下移動請編寫適當?shù)氖录^程，使得在運行時，每單擊“向右移動”

按鈕一次，圖像框向右移動100：每單擊“向下移動”按鈕一次，圖像框向下移動

&\

100o運行時的窗體如圖3-79所示。圖3.79要求程序中不得使用變

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

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

標準答案：審題分析本題需要按照要求建立相關控件并設置相應屬性，然后在相

應事件代碼中改變圖像框的Left屬性值和Top屬性值。操作步驟步驟1：新建一

個“標準：EXE”工程，在窗體Forml中畫一個圖像框和兩個命令按鈕，分別設置其

相關屬性，屬性及值如表4-46所示。

,裳446

；屬性便

NameImage1

圖像框1?

PicturePicl.bmp

NameCommand1

命令按鈕1

Caption向右移動

NameCommand!

命令按鈕2

Caption----好咨----步驟2：雙擊“向右移動”命令按

鈕，打開代碼編輯窗口，在按鈕的Click事件過程中輸入如圖4-2所示代碼。

雙擊“向下移動”命令按鈕，打開代碼編

輯窗口，在按鈕的Click事件過程中輸入如圖4-3所示代碼。

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

點鏈接圖形控件。

知識點解析：暫無解析

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

3、在考生目錄下有一個工程文件sjl3.vbp,窗體上有一個圓和一條直線（直線的

名稱為Linel）構(gòu)成一個鐘表的圖案；有兩個命令按鈕，名稱分別為Commandl、

Command2,標題分別為“開始”、“停止”；還有一個名為Timcrl的計時器。程序運

行時，鐘表指針不動，單擊“開始”按鈕，則鐘表上的指針（即Linel）開始順時針旋轉(zhuǎn)

（每秒轉(zhuǎn)6。，一分鐘轉(zhuǎn)一圈）；單擊“停止”按鈕，則指針停止旋轉(zhuǎn)。運行時的窗體如

圖3-80所示。請設置計時器的適當屬性，使得每秒激活計時器的Timer事件一

次，并編寫兩個按鈕的Click事件過程。文件中已經(jīng)給出了所有控件和部分程序，

不得修改已有程序和其他控件的屬性；編寫的事件過程中不得使用變量，且只能寫

一條語句。最后把修改后的文件按原文件名存盤。圖3-80

標準答案：審題分析本題通過計時器的Timer事件來控制直線控件的位置，從而

實現(xiàn)鐘表上的指針旋轉(zhuǎn)的功能。為使計時器的Timer事件每秒激活一次需將計時器

的Interval屬性值設置為1000；為使程序剛運行時鐘表指針不動需將Enabled屬性

值設置為Fake。在“開始”按鈕的單擊事件過程中，通過設置計時器的Enabled屬性

值為True來啟動計時器。在“停止”按鈕的單擊事件過程中，通過設置計時器的

Enabled屬性值為False來停止計時器。操作步驟步驟I：打開考生文件夾中的本

題工程文件sjt3.vbp,在屬性設置窗口，設置計時器的Interval屬性值為100C,

Enabled屬性值為False。步驟2：在代碼編輯窗口，編寫“開始”和“停止”按鈕的單

擊事件過程。參考代碼：PrivateSubCommandl_Click()Timer1.gnablcd=Truc

EndSubPrivateSubCommand2_Click()Timerl.Enabled=FaIseEndSub步驟3：按

要求將文件保存至考生文件夾由?？键c鏈接計時器。

知識點解析：暫無解析

4、在考生文件夾下有一個工程文件sjl4.vbp,窗體上有兩個文本框、三個單選按

鈕和一個命令按鈕。運行時，在Textl中輸入若干個大寫和小寫字母，并選中一個

單選按鈕，再單擊“轉(zhuǎn)換”按鈕，則按選中的單選按鈕的標題進行轉(zhuǎn)換，結(jié)果放入

Text2(如圖3-81所示)。在給出的窗體文件中已經(jīng)給出了全部控件，但程序不完

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

程序中的其他部分。最后把修改后的文件按原文件名存盤。

圖3X1

標準答案：審題分析本題嫄程序是在命令按鈕的單擊事件過程中，用For循環(huán)語

句和Mid函數(shù)逐一取出文本框Textl中的字符后，根據(jù)單選按鈕的選擇進行相應轉(zhuǎn)

換；當選擇“大寫轉(zhuǎn)小W/小寫轉(zhuǎn)大寫”時，如果是小寫字母就用UCase函數(shù)轉(zhuǎn)換

為大寫，如果是大寫字母就用LCase函數(shù)轉(zhuǎn)換為小寫，如果不是字母就不用轉(zhuǎn)

換；當選擇“全部大寫''時，就用UCase函數(shù)將文本框中所有字母轉(zhuǎn)換為大寫；當

選擇“全部小寫”時，就用LCase函數(shù)將文本框中所有字母轉(zhuǎn)換為小寫。將轉(zhuǎn)換結(jié)果

顯示在文本框Text2中。操作步驟步驟1：打開考生文件夾中的本題工程文件

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

容。參考代碼：a=MidS(Textl.Text,k,1)ch=ch+LCase(a)Text2=ch步驟2：按

要求將文件保存至考生文件夾中?？键c鏈接常用內(nèi)部函數(shù)。

知識點解析：暫無解析

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

5、在考生目錄下有一個工程文件爾5.vbp。窗體中己經(jīng)給出了所有控件(如圖3-

82所示”請編寫適當?shù)氖录^程完成以下功能：單擊“讀數(shù)”按鈕，則把考生目錄

下的in5.txt文件中的一個整數(shù)放入Tcxtl；單擊“計算”按鈕，則計算出大于該數(shù)

的第一個素數(shù)，并顯示在Text2中；單擊“存盤”按鈕，則把找到的素數(shù)存到考生目

錄下的out5.txt文件中。注意：在結(jié)束程序運行之前，必須單擊“存盤”按鈕，把

結(jié)果存入out5.txt文件，否則無成績。最后把修改后的文件按原文件名存盤。

iJ?J，

|-----楨I-

標準答案：審題分析程序設計思路：要找出大于給定數(shù)的最小素數(shù)，可以首先將

給定數(shù)加1賦值給變量a,通過調(diào)用函數(shù)isprime(a),以其返回值不是素數(shù)作為Do

循環(huán)語句的循環(huán)條件，在循環(huán)體中加入語句：a=a+l實現(xiàn)每執(zhí)行循環(huán)體一次變量a

的值加1,當循環(huán)結(jié)束時a的值即為所求。操作步驟步驟1：打開本題對應工程文

件sjt5.vbpo步驟2：雙擊窗體Forml上的“計算”按鈕，打開代碼編輯窗口，在

其Click事件過程中輸入如下代碼：參考代碼：PrivateSubCommand2_Click()a%

=CInt(Textl.Text)Doa%=a%+lLoopUnli1isprime(a%)Text2.Text=a%EndSub

步驟3：編寫判斷素數(shù)的函數(shù)過程isprime,參考代碼為：Functionisprime(aAs

Integer)DimflagAsBooleank%=2flag二TrueWhilek%<=Int(a/2)AndflagIfa/

k%=Int(a/k%)Thenflaa=FalseEndIfk%=k%+lWendisprime=flagEndFunction

步驟4：按鍵運行程序，先單擊“讀數(shù)”按鈕，接著單擊“計算”按鈕，最后單擊“存

盤“按鈕。步驟5：按要求將文件保存至考生文件夾中?？键c鏈接D。循環(huán)和

While循環(huán)、Sub過程和函數(shù)過程、參數(shù)調(diào)用。

知識點解析：暫無解析

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

第4套

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

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

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

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

個按鈕的高、寬均為300、800o窗體的標題為“按鈕窗口”。運行后的窗體圖3-

圖

132所示。3/32注意:存盤時必須存放在考

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

Forml的窗體上畫一個名稱為Shal的形狀控件，然后建立一個菜單，標題為“形

狀”，名稱為shape。，該菜單有兩個子菜單，其標題分別為“正方形”和“圓形”，其

名稱分別為shapcl和shape2,如圖3-133所示，然后編寫適當?shù)某绦?。程序運行

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

圖

項，則窗體上的形狀控件顯示為圓形。3-133

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

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

標準答案：⑴【操作步驟】步驟1：新建一個“標準EXE”工程，表4—77在窗體

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

?4-77__________________

對象雇性值

NameForml

窗體

Caption按鈕窗口

NameCommand1

Index0

命令按鈕1Captionft

Width800

Height300

NameCommand1

Index1

命令按鈕2Caption有

WidthKOO

Height300

NameCommand1

Index2

命令按鈕3Caption取消

Width800

Height300

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

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

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

命令，打開菜單設計器，如表4—78所示，設置建立菜單項。

表4-78

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

形狀shapeO0

止方.形shape1!

陰形shapc21

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

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

Me.Shal.Shape=1EndSubPrivateSubShape2Click()Forml.Shal=3EndSub

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

知識點解析：暫無解析

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

2、(1)在考生文件夾下有一個工程文件sjt3.vbp,窗體上已經(jīng)有兩個文本框，名稱

分別為Textl、Text2：一個命令按鈕，名稱為Cl,標題為“確定”：請畫兩個單選

按鈕，名稱分別為Opl、0p2,標題分別為“男生”、“女生”；再畫兩個復選框，名

稱分別為Chi、Ch2,標題分別為“體育”、“音樂”。請編寫適當?shù)氖录^程，使得

在運行時，單擊“確定”按鈕后實現(xiàn)下面的操作：①根據(jù)選中的單選按鈕，在Textl

中顯示“我是男生”或“我是女生②根據(jù)選中的復選框，在Tcxt2中顯示“我的愛

好是體育”、“我的愛好是音樂”或“我的愛好是體育音樂”，如圖3—134所示。

圖3/34注意：不得修改已經(jīng)給出的程序和

已有控件的屬性。在結(jié)束程序運行之前，必須選中一個單選按鈕和至少一個復選

框，并單擊“確定”按鈕°必須使用窗體右上角的關閉按鈕結(jié)束程序，否則無成績。

(2)在考生文件夾下有一個工程文件sjt4.vbp0窗體上有一個名稱為Listl的列表

框，名稱為Timerl的計時器，名稱為Label1的標簽，如圖3—135所示。請通過

屬性窗口向列表框添加四個項目，分別是“第一項”、“第二項”、“第三項”、“第四

項程序運行后，將計時器的時間間隔設置為1秒鐘，每一秒鐘從列表框中取出

一個項目顯示在Label1的標簽中，首先顯示“第一項”，然后，依次顯示“第二

項”、“第三項”、“第四項”，如此循環(huán)。

圖3/35在給出的窗體文件中已經(jīng)有了全部控件

和程序，但不完整，請?zhí)砑覮istl中的項目，去掉程序中的注釋符，把程序中的“?”

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

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

標準答案：（I）【操作步驟】步驟1：打開考生文件夾下的工程文件sjt3.vbpo步

驟2：在窗體Forml中加入兩個單選按鈕和兩個復先框，分別設置它們的相關屬

性，屬性及其值如表4—79所示。

*4-79____________________

對象屬性值

NameOpl

單選按鈕1

Caption男生

NameOp2

單選按鈕2

Caption女生

NameChi

復選框1

Caption體育

NameCh2

復選框2

Caption杏樂?

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

口輸入如下代碼。參考弋碼：PrivateSubCl_Click（）DimaAsStringa="我是"If

Opl.ValueThenTextl.Tcxt=a&Opl.CaptionElseTextl.Tcxt=a&

0p2.CaplionEndIfa="我的愛好是IfChi.Value=1ThenText2.Text=a&

Chi.Captiona=Text2.TextEndIfIfCh2.Value=1ThenText2.Text=a&

Ch2.CaptionEndIfEndSub步驟4：按鍵運行程序，先選中選中一個單選按鈕和

至少一個復選框，并單擊“確定”按鈕，然后單擊窗體右上角的關閉按鈕結(jié)束程序。

步驟5：按要求將文件保存至考生文件夾中。（2）【操作步驟】步驟1：打開考生

文件夾中的本題工程文件sjt4.vbp,通過屬性窗口向列表框添加四個項目，分別

是：“第一項”、“第二項”、“第三項”、“第四項”。步驟2：在代碼編輯窗口，去掉

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

Timer!.Interval=1000Label1.Caption=List1.List（i）步驟3：按要求將文件保

存至考生文件夾中。

知識點解析：暫無解析

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

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

名稱分別為Command1、Command2和Command3,標題分別為"讀數(shù)"、"統(tǒng)計"和

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

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

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

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

中。圖3/36注意：存盤時必須存放在

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

標準答案：【操作步驟】步驟1：新建一個“標準EXE”_L程，如表4—80所示，

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

表4f0

對象屬性:值

NameTcxtl

文本框MultiLincTrue

Text

NameCommand1

命令按鈕1

Captionitft

NameCommand?

命令按鈕2

Caption統(tǒng)計

NameCommands

命令按鈕3

Caption存盤

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

口，編寫相應事件過程。參考代碼：OptionBase1Dimsum(6)AsIntegerPrivate

SubCommandl_Click()penApp.Path&"\in5.txt'TorInputAt#1Tcxtl.Tcxt=

Input(LOF(l),#1)Close#1EndSubPrivateSubConimand2_Click()Fori=1To6

sum(i)=0NextiIfLen(Textl.Text)=0ThenMsgBox”請先使用“讀數(shù)”功能/Else

Fori=1ToLcn(Textl.Text)c=LCasc(Mid(Tcxtl.Text,i,1))SelectCaSccCase

"i"sum(l)=sum(l)+1Case"j"sum(2)=sum(2)+1Case"k"sum(3)=sum(3)+ICase

"1"sum(4)=sum(4)+1Case"m"sum(5)=sum(5)4-1Case"n,'surn(6)=sum(6)+1End

SelectNextiEndIfEndSubPrivateSubCommand3_Click()OpenApp.Path&"\

out5.txt"ForOutputAs#1Fori=lTo6Print#1,sum(i)NextiClosee#1EndSub步

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

知識點解析：暫無解析

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

第5套

一、基本操作題(本題共I題，每題1.0分，共1分,)

1、⑴在名稱為Forml的窗體上添加一個名稱為L1,標題為“業(yè)余愛好”的標簽，

再添加一個名稱為Chi的復選框數(shù)組，含3個復選框，它們的Index屬性分別為

0、1、2,標題依次為“體育”、“音樂”、“美術(shù)”，清設置復選框的屬性，使其初始

體育選中可用

音樂未選中“可用

美術(shù)'

未選中可用

狀態(tài)如下表所示。程序運行后的窗體如

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

(2)在名稱為Forml的窗體上添加一個名稱為Textl的文本框；再建立一個下拉菜

單，菜單標題為“操作”，名稱為Ml,此菜單下含有兩個菜單項，名稱分別為

Show和Hide,標題分別為“顯示”、“隱藏”,請編寫適當?shù)氖录^程,使程序運行

時，單擊“隱藏”菜單項，文本框消失；單擊“顯示”菜單項。文本框重新出現(xiàn)，程序

運行后的窗體如圖所示。要求程序中不得使用變量，每個事件過程中只能寫一條語

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

文件名保存為sjt2.frm。

標準答案：（1）步驟1：建立界面，按照題目要求建立一個名稱為LI,Caption屬性

為“業(yè)余愛好”的標簽和1個名稱為Chi的復選框數(shù)組，包含3個復選框，并設置其

相應屬性，如圖3.24所示。圖3.24設置其他控件

相關屬性，程序中用到的控件及屬性見表3.24o

表3.24

控件屬性設置值

Namru

標簽

Caption業(yè)余愛好