家二級(jí)VB機(jī)試（簡(jiǎn)單應(yīng)用題）模擬試

卷1（共9套）

（共90題）

國(guó)家二級(jí)VB機(jī)試（簡(jiǎn)單應(yīng)用題）模擬試

卷第1套

一、簡(jiǎn)單應(yīng)用題（本題共70題，每題分，共70

分。）

1、（1）在考生文件夾下有一個(gè)工程文件爾3.vbp,窗體上已經(jīng)有一個(gè)標(biāo)簽Label1,

請(qǐng)?zhí)砑右粋€(gè)單選按鈕數(shù)組，名稱為Opl,含三個(gè)單選按鈕，它們的Index屬性分別

為0、1、2,標(biāo)題依次為“飛機(jī)”、“火車”、“汽車火再添加一個(gè)名稱為Textl的文

本框。窗體文件中已經(jīng)給出了Opl的Click事件過程，但不完整，要求去掉程序中

的注釋符，把程序中的。改為正確的內(nèi)容，使得在程序運(yùn)行時(shí)單擊“飛機(jī)”或“火車”

單選按鈕時(shí)，在Textl中顯示“我坐飛機(jī)去”或“我坐火車去”，單擊“汽車”單選按鈕

時(shí)，在Textl中顯示“我開汽車去”，如圖所示。注意：不能修改程序中的其他部

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

0Form：*MMEk如一

6M

大事

卜支■帚

⑵在考生文件夾下有一個(gè)工程文

件sjl4.vbp,Forml窗體中有一個(gè)文本框，名稱為Textl；請(qǐng)先在窗體上添加兩個(gè)

框架控件,名稱分別為Fl、F2,標(biāo)題分別為“性別”、“身份”;然后在F1中添加兩

個(gè)單選按鈕控件Opl、0p2,標(biāo)題分別為“男”、“女”；其次在F2中添加兩個(gè)單選按

鈕控件0p3、0p4,標(biāo)題分別為“學(xué)生”、“教師”；最后再添加一個(gè)命令按鈕，名稱

為C1,標(biāo)題為“確定”，如圖所示。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時(shí)，在F1、

F2中各選一個(gè)單選按鈕，然后單擊“確定”按鈕，就可以按照下表把結(jié)果顯示在文

性別身份在文本根中顯示的內(nèi)容

男學(xué)生我是男學(xué)生

男教師我是男教師

女學(xué)生我是女學(xué)生

女教嬸我是女教師

本框中。最后把修改后

的文件以原來的文件名存盤。注意：考生不得修改窗體文件中已經(jīng)存在的程序和

Textl的屬性，在結(jié)束程序運(yùn)行之前，必須進(jìn)行能夠產(chǎn)生上表中一個(gè)結(jié)果的操作。

必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績(jī)。

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1:打開本題工程文件，按照題目要求建立單選

按鈕數(shù)組，如圖3.9所示。re3.9步驟2：按照題

目要求建立其他控件并設(shè)置其屬性，見表3.4。

表3.4

設(shè)置值|

i若件屬性

Caption飛機(jī)

單選按鈕1

Index0

Caption火車

單選按鈕2

Index1

Caption汽車

單選按鈕3

Index2

文本框NameTextl

步驟3：打開代碼編

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

Opl_Click(IndexAsInteger)DimaAsString,bAsString,cAsStringa="我坐"b=

“我開"SelectCaseIndex'通過Index值決定響應(yīng)哪一個(gè)控件數(shù)組Case0Textl.Text

=a-bMc.Opl(O).Capiion+"去"Case1Textl.Tcxi=a+Mc.opl(l).Caption+M

去”'當(dāng)Index值為1時(shí)，選擇“我坐“Case2Text].Text=b+Me.0pl(2).Caption

+“去"EndSelectEndSub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存

盤。(2)【操作步驟】步驟1：打開本題工程文件，按照題目要求建立框架控件并

設(shè)置其屬性，如圖3.10所示。

0I

三,

.

u?uu工

，—

1.1

圖3.10步驟2：按照步驟1

建立其他控件并設(shè)置相關(guān)屬性，程序中用到的控件及屬性見表3.5和表3.6。

*3.5

控件屬性設(shè)置值

NameFl

框架1

(laption性別

NumeF2

框架2

Caption身份

NameCl

命令按鈕

(uiption確定

表3.6

控件屬性設(shè)置假

1____________________

NameOpl

單選按鈕1

Caption男

Name0p2

單選按鈕2

Caption女

Name0p3

單選按鈕3

Caplion學(xué)生

Name0p4

單選按鈕3

(jiption教師

步驟3：打開代碼

編輯窗口，在指定位置編寫如下代碼。參考答案PrivaleSubcl_click（）Texll.Text

=“我是"'首先確定不論選什么情況Textl的內(nèi)容一定以“我是“異頭IfOpl.Value

ThenTextl.Text=Textl.Text&Op1.CaptionElseTextl.Text=

Textl.Text&Op2.CaptionEndIf'通過單選按鈕的Value值（選擇為true,否則為

false）確認(rèn)性別，最后把其Caption值接至Textl后If0p3.ValueThenTextl.Text

=Textl.Text&Op3.CaptionElseTextl.Text=Textl.Text&Op4.CaptionEnd

If'確認(rèn)身份，思路同上EndSub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求

存盤。

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

2、（1）在考生文件夾中有工程文件sjl3.vbp,程序界面如圖3—3所示。當(dāng)在文本

框中輸入正整數(shù)N,單擊“計(jì)算”命令按鈕，進(jìn)行計(jì)算。若N是奇數(shù)，計(jì)算1+3!+

5!+……+N!,若N是偶數(shù)，計(jì)算1+3!+!+……+N!）!。在給出的窗體文件中已

經(jīng)有了全部控件，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正

確的內(nèi)容。圖3?3注意：考生不得修改窗體文件中已經(jīng)存

在的程序。最后程序按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件

sjt4.vbp,該程序的功能是顯示月歷。運(yùn)行程序后，在Textl、Text2中分別輸入

年份和月份，并在左.邊的框架中選擇該年的1月1日是星期幾，然后單擊”顯示

月歷''按鈕，即可在下面的圖片框內(nèi)顯示該年該月的月歷。如圖3—4所示的是

2008年2月份的月歷。請(qǐng)將事件過程中的注釋符去掉，把"?”改為正確的內(nèi)容，以

實(shí)現(xiàn)上述程序功能。圖3T注意：不能

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

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

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

容。參考代碼：m=n-|-1m=nFori=1TomStep2sum=sum+f(i)Fori=1Tox

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

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

釋符將問號(hào)“?”改為正確的內(nèi)容。參考代碼：皿0僦1^&丫5出=

Hf(le叩_year(year),29,28)Fork=1Tomonth_1n=0PrivaFunction

leap_year(yearAsInteger)AsBoolean步驟2：按要求將文件保存至考生文件夾中。

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

3、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbpo程序的功能是通過鍵盤向文本框

中輸入正整數(shù)。在“除數(shù)”框架中選擇一個(gè)單選按鈕，然后單擊“處理數(shù)據(jù)”按鈕，將

大于文本框中的正整數(shù)且能夠被所選除數(shù)整除的5個(gè)數(shù)添加到列表框Listl中，如

圖3—80所示。在窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請(qǐng)去

掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能

修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)在考

生文件夾下有一個(gè)工程文件sjt4.vbpo程序運(yùn)行后，單擊“開始”按鈕，圖片自上

而下移動(dòng)，同時(shí)滾動(dòng)條的滑塊隨之移動(dòng)，每0.5秒移動(dòng)一次。當(dāng)圖片頂端移動(dòng)到

距窗體的下邊界的距離少于200時(shí)，再回到窗體頂部，重新向下移動(dòng)，如圖3—81

所示。在窗體文件中已經(jīng)給出了全部控件，但程序不完整。

圖圖3.81要求：請(qǐng)去掉程序

中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程

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

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

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

Option1.Item(i)=TrueTheny=val(Optionl(i).Caption)DoWhilei<=5

ListI.Addhemx步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：

打開考生文件夾下的工程文件sjt4.vbpo步驟2：進(jìn)入代碼編轉(zhuǎn)窗口，去掉程序中

的注釋符“巾，將問號(hào)"?”改為正確的內(nèi)容。參考代碼：Timer1.Interval=500

VScrolll.Value:Picture].TopPicture1.Top=0步驟3：按要求將文件保存至考生

文件夾中。

知識(shí)點(diǎn)解析：第1小題：判斷整數(shù)A能被整數(shù)B整除的條件表達(dá)式為：AMod

B=0o本題源程序在“計(jì)算數(shù)據(jù)”的單擊事件過程中，通過For循環(huán)逐一判斷單選按

鈕數(shù)組中的每個(gè)元素是否選中，用變量y記錄選中單選按鈕所標(biāo)識(shí)的數(shù)字，并調(diào)用

過程“calc”計(jì)算滿足條件的正整數(shù)。在過程“calc”中，通過D。循環(huán)依次判斷大干文

本框中數(shù)的正整數(shù)是否能被變量y整除，將能被整除的前5個(gè)數(shù)添加到列表框

Listl中。第2小題：本題源程序利用計(jì)時(shí)器的Timer事件來控制圖片的移動(dòng)，因

此單擊“開始”按鈕啟動(dòng)計(jì)時(shí)器，而單擊“停止”按鈕就是要停止計(jì)時(shí)器。在計(jì)時(shí)器的

Timer事件過程中，通過每次使圖片框的Top屬性值增量200實(shí)現(xiàn)移動(dòng)，并讓垂直

滾動(dòng)條滑塊的位置隨圖片框的Top屬性值變化。當(dāng)圖片頂端移動(dòng)到距窗體的下邊

界的距離少于200時(shí)(即VScrolll.Value+200>=Forml.Height.200)時(shí)，則重新

從窗體頂端開始移動(dòng)，即Piclurel.Top=0o由于題目要求不能在設(shè)計(jì)階段修改控

件屬性，要想在單擊“開始”按鈕時(shí)能啟動(dòng)計(jì)時(shí)器，就需在窗體加載事件過程中設(shè)置

計(jì)時(shí)器的Interval屬性，即Timerl.Interval=500(>

4、(1)在考生目錄下有一個(gè)工程文件sjt3.vbp,窗體文件中已給出所有控件和部分

程序，如圖3—119所示。要求：①利用屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使Textl、

Text2中數(shù)據(jù)右對(duì)齊；②請(qǐng)編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽涸赥cxtl中輸入40(度

數(shù)），選擇一個(gè)單選按鈕，單擊“計(jì)算”按鈕，則根據(jù)所選擇的單選按鈕，計(jì)算出相

應(yīng)的正弦、余弦值（保留3位小數(shù)，第4位截去，兀取3.14159）,并顯示在Texl2

中。圖3/19注意：考生不得修改窗體文件中已

經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行一種計(jì)算，在Texll中輸入的必須

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

名存盤。（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp,窗體上已經(jīng)給出所有控

件。程序運(yùn)行時(shí)，單擊“開始”按鈕，則汽車圖標(biāo)向右運(yùn)動(dòng)；單擊“停止”按鈕則汽車

停止運(yùn)動(dòng)；移動(dòng)滾動(dòng)條上的滾動(dòng)框，可以改變汽車的運(yùn)動(dòng)速度（滾動(dòng)框向右移動(dòng)，

速度減慢）。如圖3—120所示。圖3?12°

要求：去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。提示：窗體上有一

個(gè)計(jì)時(shí)器，計(jì)時(shí)器的事件過程每執(zhí)行一次，汽車向右移動(dòng)10,程序通過改變計(jì)時(shí)

器控件的：Interval屬性來改變汽車的運(yùn)動(dòng)速度。注意：不得修改控件的屬性°最

后按原文件名存盤。

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

sjt3.vbp,程序界面如圖4—4所示。圖4Y

步驟2：依次選中窗體口的兩個(gè)文本框，將其Alignment屬性值設(shè)置為1-Right

Justifyo步驟3：雙擊窗體中的“計(jì)算”命令按鈕，在打開的代碼編輯窗口中編寫其

單擊事件過程。參考代碼：PrivateSubCommandl_Click()IfOption1.Item(0)=

TrueThenText2.Text=Format(Sin(Vai_(Textl.Text)*3.14159/_180),"0.00

0")EndIfIfOptionI.Item(l)=TrueThenText2.Text=Format(Cos(Vai(_

Textl.Text)*3.14159/180),J,0.000")EndIfEndSub步驟4：按鍵運(yùn)行程

序，在左側(cè)文本框中輸入“40”,連擇不同選項(xiàng)，單擊“計(jì)算”按鈕，結(jié)果圖4—S所

示。步驟5：?jiǎn)螕舸绑w右上角的關(guān)閉按

鈕以結(jié)束程序。步驟6：按要求將文件保存至考生文件夾中。(2)【操作步驟】步

驟1：打開考生文件夾口的本題工程文件sjt5.vbp,在代碼編輯窗口，去掉程序中

的注釋符將問號(hào)改為正確的內(nèi)容。參考代碼：Timer1.Enabled=True

Timerl.Interval=HSCroll1.ValuePicture1.Left=Picture1.Left+10步驟2：按

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

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

5、(1)考生文件夾下有工程文件sjt3.vbp,窗體上有兩個(gè)標(biāo)題分別為“分解”和“退

出”的命令按鈕。請(qǐng)?jiān)佼嬕粋€(gè)名稱為Textl,初始值為空的文本框。程序功能如

下：①單擊“分解”按鈕，程序提示輸入一個(gè)大于2的整數(shù)，并將該數(shù)分解為因數(shù)

的乘積，最后將分解結(jié)果顯示在Textl文本框內(nèi)(如圖1—146所示)。②單擊

“退出”按鈕，則結(jié)束程序運(yùn)行。請(qǐng)將事件過程中的

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

體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。(2)考生文件夾

下有_E程文件sjt4.vbp,窗體上有一個(gè)名稱為Cmdl的命令按鈕，請(qǐng)對(duì)其屬性進(jìn)行

設(shè)置，使其左邊界與窗體左邊框的距離為300,標(biāo)題為“產(chǎn)生可變正方形圖案”。程

序功能為：?jiǎn)螕簟爱a(chǎn)生可變正方形圖案”按鈕，則彈出輸入框，要求輸入可變數(shù)；在

輸入可變數(shù)后，將根據(jù)可變數(shù)在窗體上顯示可變正方形圖案：圖案的最外圈為第1

層，且每層上顯示的數(shù)字與其所處的層數(shù)相同。圖1—147(a)為輸入可變數(shù)6時(shí)

的可變正方形圖案。圖1—147(b)為輸入可變數(shù)7時(shí)的可變正方形圖案。

OFormlUForml?■...O

1111111

2222222

2223332

2223432

23332

22222

11111

產(chǎn)生可竟正方形圖案；產(chǎn)生可變正方形S3系i

(a)(b)

圖M47

Cmdl

按鈕的Click事件過程已經(jīng)給出，但不完整，請(qǐng)將事件過程中的注釋符去掉，把？

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

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

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

sjt3.vbp,在其中畫出一個(gè)名為Textl,初始內(nèi)容為空的文本框。步驟2：打開代碼

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

LoopUntiln>2DoWhilenModFactor=0Factor=Factor+1步驟3：按要求將文

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

題工程文件sjt4.vbp,在代碼編輯窗口，去掉程序中的注釋符“巾，將問號(hào)"?”改為正

確的內(nèi)容。參考代碼:Forj=kTon-k+1a(i,j)=kPrintTab(j*3);a(i,j);Print步

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

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

6、在考生文件夾下有一個(gè)工程文件sjl3.vbpo程序的功能是通過鍵盤向文本框中

輸入正整數(shù)。在“除數(shù)”框架中選擇一個(gè)單選按鈕，然后單擊“處理數(shù)據(jù)”按鈕，將大

于文本框中的正整數(shù)且能夠被所選除數(shù)整除的5個(gè)數(shù)添加到列表框Listl中，如圖

舒卜已經(jīng)給出了全部控件，但程序不完整。

I-,E

圖3-23

要求：請(qǐng)去掉程序中的注釋符，把程序中的？改為正確的

內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后

的文件按原文件名存盤。

標(biāo)準(zhǔn)答案：審題分析判斷整數(shù)A能被整數(shù)B整除的條件表達(dá)式為：AModB=0o

本題源程序在“計(jì)算數(shù)據(jù)”的單擊事件過程中，通過For循環(huán)逐一判斷單選按鈕數(shù)組

中的每個(gè)元素是否選中，用變量y記錄選中單選按鈕所標(biāo)識(shí)的數(shù)字，并調(diào)用過程

“calc”計(jì)算滿足條件的正整數(shù)。在過程“calc”中，通過Do循環(huán)依次判斷大于文本框

中數(shù)的正整數(shù)是否能被變量y整除，將能被整除的前5個(gè)數(shù)添加到列表框Listl

中。操作步驟步驟1：打開考生文件下的本題工程文件sjt3.vbp,在代碼編輯窗

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

Option1.Item（i）=TrueTheny=Val（Optionl（i）.Caption）DoWhilei<=5

Listl.Additemx步驟2：按要求將文件保存至考生文件夾中?？键c(diǎn)鏈接Do循環(huán)

和While循環(huán)、控件數(shù)組

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

7、在考生文件夾下有一個(gè)工程文件sjl4.vbp。窗體中已經(jīng)給出了所有控件，如圖

2-65所示。運(yùn)行時(shí)，單擊“發(fā)射"按鈕，航天飛機(jī)圖標(biāo)將向上運(yùn)動(dòng)，速度逐漸加快，

全部進(jìn)入云中后則停止，并把飛行距離（用坐標(biāo)值表示）、所用時(shí)間（單位為秒）分別

顯示在標(biāo)簽Labell和Labe12中；單擊“保存”按鈕，則把飛行距離、所用時(shí)間存入

考生文件夾下的。ut4.3文件中。文件中己經(jīng)給出了程序，但不完整，請(qǐng)去掉程

序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和

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

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

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

Timerl.Enabled=TrueTimerl.Enabled=Falsed=d-Imagel.Topl=l+1步驟2：按

要求將文件保存至考生文件夾中。步驟3：按VF5>鍵運(yùn)行程序，先單擊“發(fā)射”按

鈕，計(jì)算完畢后單擊''存盤”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。

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

8、在考生目錄下有一個(gè)工程文件sjt3.vbp,窗體上有一個(gè)圓和一條直線（直線的

名稱為L(zhǎng)incl）構(gòu)成一個(gè)鐘表的圖案；有兩個(gè)命令按鈕，名稱分別為Commands

Command?,標(biāo)題分別為“開始”、“停止”；還有一個(gè)名為Timerl的計(jì)時(shí)器。程序運(yùn)

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

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

圖3-80所示。請(qǐng)?jiān)O(shè)置計(jì)時(shí)器的適當(dāng)屬性，使得每秒激活計(jì)時(shí)器的Timer事件一

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

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

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

標(biāo)準(zhǔn)答案：審題分析本題通過計(jì)時(shí)器的Timer事件來控制直線控件的位置，從而

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

的Interval屬性值設(shè)置為1000；為使程序剛運(yùn)行時(shí)鐘表指針不動(dòng)需將Enabled屬性

值設(shè)置為False。在“開始”按鈕的單擊事件過程中，通過設(shè)置計(jì)時(shí)器的Enabled屬性

值為True來啟動(dòng)計(jì)時(shí)器。在“停止”按鈕的單擊事件過程中，通過設(shè)置計(jì)時(shí)器的

Enabled屬性值為False來停止計(jì)時(shí)器。操作步驟步驟1：打開考生文件夾中的本

題工程文件sjt3.vbp,在屬性設(shè)置窗口,設(shè)置計(jì)時(shí)器的Interval屬性值為1000,

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

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

EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSub步驟3：按

要求將文件保存至考生文件夾市。考點(diǎn)鏈接計(jì)時(shí)器。

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

9、在考生文件夾下有一個(gè)工程文件sjt4.vbp,窗體上已經(jīng)給出所有控件。程序運(yùn)

行時(shí)，單擊''開始”按鈕，則汽車圖標(biāo)向右運(yùn)動(dòng)；單擊“停止”按鈕則汽車停止運(yùn)動(dòng)；

移動(dòng)滾動(dòng)條上的滾動(dòng)框，可以改變汽車的運(yùn)動(dòng)速度(滾動(dòng)框向右移動(dòng)，速度減慢)。

如圖2-119所示。要求如下：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)

容。提示：窗體上有一個(gè)計(jì)時(shí)器，計(jì)時(shí)器的事件過程每執(zhí)行一次，汽車向右移動(dòng)

10,程序通過改變計(jì)時(shí)器控件的Intorval屬性來改變汽車的運(yùn)動(dòng)速度。注意：不得

m一小

修改控件的屬性。最后項(xiàng)原文件名存盤。船2川9

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

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

Timer1.Enabled=TrueTimer1.Interval=HScrolll.Value

Picture!.Left二Picture1.Left+IO步驟2：按要求將文件保存至考生文件夾中。

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

10、在考生文件夾下有一個(gè)工程文件sjt3.vbp,窗體上有一個(gè)單選按鈕數(shù)組，含

三個(gè)單選按鈕；還有一個(gè)標(biāo)題為''顯示"的命令按鈕（如圖2-158所示）。程序的功能

是，在運(yùn)行時(shí)，如果選中一個(gè)單選按鈕并單擊“顯示”按鈕，則在窗體上顯示相應(yīng)的

信息，例如若選中“小學(xué)生”，則在窗體上顯示“我是小學(xué)生”。要求：去掉程序中

的注釋符，把程序中的。改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中

改控件的屬性。最后把修改后的文件以原來的文件名存盤。

rWE

rwnn

S2-1S8

標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾下的本題工程文件sjl3.vbp0步驟2：打開代

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

容。參考代碼：Fori=0To2IfOpl（i）.Value=TrucThenPrint”我

是“+OpKi）.CaplionEndlfNext步驟3：按要求將文件保存至考生文件夾中。

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

國(guó)家二級(jí)VB機(jī)試（簡(jiǎn)單應(yīng)用題）模擬試

卷第2套

一、簡(jiǎn)單應(yīng)用題（本題共70題，每題分，共70

分。）

1、（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp,窗體上有1個(gè)標(biāo)題為“計(jì)算”的命

令按鈕，1個(gè)標(biāo)題為“1!-2!+…+10!=”的標(biāo)簽。請(qǐng)畫1個(gè)名稱為Tex”,初始內(nèi)容為

空的文本框。效果如圖3—34所示。程序功能：?jiǎn)螕簟坝?jì)算”命令按鈕，則計(jì)算

“1!+2!+…+10!”的值，并將結(jié)果顯示在Textl文本框中。請(qǐng)將“計(jì)算”命令按鈕的

Click事件過程中的注釋符去掉，把"?”改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注

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

盤。圖3角（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp,窗體

上有1個(gè)名稱為標(biāo)題為“運(yùn)行''的命令按鈕。請(qǐng)畫2個(gè)名稱分別為Textl和Text2,

初始內(nèi)容都為空的文本框，再畫2個(gè)名稱分別為L(zhǎng)abell、Label2,標(biāo)題分別是“最

大數(shù)''和"最大數(shù)位力”的標(biāo)簽。效果如圖3—35所示。

圖3.35程序功能：?jiǎn)螕簟斑\(yùn)行”按鈕,則產(chǎn)生50個(gè)不重復(fù)的

介于0和100之間(含0和100)的隨機(jī)數(shù)，且以每行10個(gè)數(shù)的形式顯示在窗體上；

最后將這些隨機(jī)數(shù)中的最大數(shù)和最大數(shù)所處的位置顯示在Textl和Text2中。如圖

3-35所示為某一次的運(yùn)行效果。請(qǐng)將“運(yùn)行”命令按鈕的Click事件過程中的注釋

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

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

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

體上添加一個(gè)文本框，按照如下表4-22設(shè)置屬性。

?4-22

對(duì)象屬性值

NameTextl

文本框

Text

---------------步驟2：在代碼編輯窗口中,

去掉程序中的注釋符將問號(hào)“?”改為正確的內(nèi)容。參考代碼：Whilei<10

i=i+lt=lFori=lTonjc=t步驟3：按要求將文件保存至考生文件夾中。第2小題

步驟1：打開考生文件夾中的本題工程文件爾4.vbp,在窗體上加入兩個(gè)文本框和

表4-23

對(duì)歐及性值

Namelextl

文木框1

Text

NameText：

一本文2

Text

NameLabel1

標(biāo)簽1

Caption外大數(shù)

NameUbclZ

標(biāo)簽2

CapiKMi第大數(shù)伊置

兩個(gè)標(biāo)簽，按照表4—23設(shè)置相關(guān)屬性。

步驟2：在代碼編輯窗口中，去掉程序中的注釋符“巾，將問號(hào)"?”改為正確的內(nèi)

容。參考代碼：j=lj=j+larr(j)=xp。s=i-l步驟3：按要求將文件保存至考生文件夾

中。

知識(shí)點(diǎn)解析：第1小題：題目要求計(jì)算一個(gè)數(shù)列和，數(shù)列的每一項(xiàng)是一個(gè)階乘。分

析代碼可知，函數(shù)ic返回一個(gè)整數(shù)的階乘值。在命令按鈕的Click事件代碼里面，

通過While循環(huán)來計(jì)算累加和。第一個(gè)“?”處補(bǔ)充循環(huán)的結(jié)束條件，根據(jù)題目要

求，計(jì)算10個(gè)元素的累加和，因此馴化執(zhí)行10次：第二個(gè)“?”處是補(bǔ)充循環(huán)變量i

的變化條件，在循環(huán)中i每次增加1,每次需要計(jì)算i的階乘；第三個(gè)“?”處是初始

化變量t為1：第四個(gè)處是補(bǔ)充循環(huán)結(jié)束條件，計(jì)算階乘的時(shí)候需要做n次連

乘，循環(huán)執(zhí)行n次；最后一個(gè)“?”處是補(bǔ)充函數(shù)返回值，I變量保存的階乘值，因此

函數(shù)返回t。第2小題：題目要求生成50個(gè)不重復(fù)的隨機(jī)數(shù)，并在這50個(gè)隨機(jī)數(shù)

里面找出最大值。分析程序可知，通過嵌套的循環(huán)來實(shí)現(xiàn)不重復(fù)隨機(jī)數(shù)生產(chǎn)和最大

值查找。第一個(gè)“?”處是設(shè)置循環(huán)變量i惡道初始值，根據(jù)“DoWhilejVi”可知，循

環(huán)變量從是最前面開始到i結(jié)束，因此j的初始值應(yīng)為1;第二個(gè)"'處是補(bǔ)充循環(huán)

變量j的變化條件，搜索判斷是否重復(fù)需要逐個(gè)搜索，因此i每次增加1；第三個(gè)

處是把生成的沒有重復(fù)的隨機(jī)數(shù)x添加數(shù)組arr當(dāng)中；最后一個(gè)“?”是計(jì)算最大

值的位置，循環(huán)變量i在前面經(jīng)過“i=i+l”之后是當(dāng)前位置加1,因此pox的值應(yīng)為

i-lo

2、(1)在名稱為Foi*ml的窗體上畫一個(gè)名稱為L(zhǎng)1的標(biāo)簽，標(biāo)題為“口令”；畫兩個(gè)

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

別為Cl、C2、C3,標(biāo)題分別為“顯示口令”、“隱藏口令”、“復(fù)制口令”，在開始運(yùn)

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

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

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

圖3-85要求：①在屬性窗口中，把窗體的標(biāo)題改為

“口令窗口”。②建立適當(dāng)?shù)氖录^程，完成上述功能。每個(gè)過程中只允許寫一條

語句，且不能使用變量。存盤時(shí)，工程文件名為sjt3.vbp,窗體文件名為

sij3.frmo(2)在名稱為Forml的窗體上畫一個(gè)名稱為Pl的圖片框，并利用屬性窗

口把考生目錄中的圖標(biāo)文件Open,ico放到圖片框中；再畫一個(gè)通用對(duì)話框控件，

名稱為CD1,利用屬性窗口設(shè)置相應(yīng)屬性，即打開對(duì)話框時(shí)：標(biāo)題為“打開文

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

使得在運(yùn)行時(shí)，單擊P1圖片框，可以打開上述對(duì)話框。運(yùn)行后的窗體如圖3—86

所示。圖3?86注意:

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

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

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

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

*4-53

對(duì)象屬性值

腐體Caption口令窗口

NameLI

標(biāo)笈

Caption口令

NameTcxtl

文本框1

Text

NameText2

文本框2

Text

NameCl

命令按鈕1

Caption顯示口令

NameC2

命令按妞2

Caption匿藏口令

NameC3

命令按鈕3

Caption制部1口令

----------......步驟2：在代碼編輯窗口，分

別編寫三個(gè)按鈕的單擊事件過程。參考代碼：PrivateSubCl_Click()

Textl.PasSwordChar=""EndSubPrivateSubC2_Click()Textl.PaSswordChar=

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

PrivateSubForm_Load()Textl.PasswordChar="*“EndSUb步驟3：按要求將文

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

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

表4?54

對(duì)象屬性值

NamePI

圖片框

PictureOpen.ico

NameCD!

DialogTitic打開文件

通用對(duì)話框FilterWord文檔|?.doc

Filtcrlndcx1

InitDirC:\

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

編寫如下事件過程。參考代碼：PrivateSubPl_CliCk()CD1.ShowOpenEndSub

步驟3：按要求將文件保存至考生文件夾中。注意：打開“打開文件”對(duì)話框還可使

用語句：cdlOpcn.Action=I。

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

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

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

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

個(gè)名稱為Text2,其初始內(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

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

功能。圖3/04注意：考生不得修改窗體文件中已經(jīng)存在的

控件和程序，最后程序按原文件名存盤。(2)考生文件夾下的工程文件sjt4.vbp中

有一個(gè)初始內(nèi)容為空的文本框Textl,一個(gè)包含三人元素的文本框控件數(shù)組

Text2,兩個(gè)標(biāo)題分別是，讀數(shù)據(jù)”和“統(tǒng)計(jì)”的命令按鈕，兩個(gè)分別含有三個(gè)元素的

標(biāo)簽控件數(shù)組Labell和Label2,如圖3—105所示。程序功能如下：①考生文件

夾下in4.dat文件中存有20個(gè)考生的考號(hào)及數(shù)學(xué)和語文單科考試成績(jī)。單擊“讀數(shù)

據(jù)“按鈕，可以將in4.dat文件內(nèi)容讀入到20行3列的二維數(shù)組a中，并同時(shí)顯示

在Texll文本框內(nèi)；②單擊“統(tǒng)計(jì)”按鈕，則對(duì)考生數(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分以下為“不通過”。

命令按鈕的Click事件過程已經(jīng)給出，但“統(tǒng)計(jì)”按

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

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

程序按原文件名存盤。

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

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

容。參考代碼：Ifnum/2<>Fix(num/2)ThenIfnum<a(l)Ornum>a(30)Then

Ifa(n)=numThenIfn>30Then步驟2：按要求將又件保存至考生文件夾中。第2

小題【操作步驟】步驟I：打開考生文件夾中的本題工程文件sjt4.vbp,打開代

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

Avg=a(i,2)+a(i,3))/2CaseIs>=85Case60To84EndSelectTcxt2(n-1)=

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

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

4、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbpo程序的功能是通過鍵盤向文本框

中輸入大、小寫字母及數(shù)字。單擊“統(tǒng)計(jì)”按鈕，分別統(tǒng)計(jì)輸入字符串中大寫字母、

小寫字母及數(shù)字字符的個(gè)數(shù)，并將統(tǒng)計(jì)結(jié)果分別顯示在標(biāo)簽控件數(shù)組x中，如圖

N程序不完整。

圖3-167

要求：去掉程序中的注

釋符，把程序中的“?”改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬

性。最后把修改后的文件按原文件名存盤。(2)考生文件夾下的工程文件sjt4.vbp

中有兩個(gè)名稱分別為L(zhǎng)istl、List2的列表框控件，兩個(gè)名稱分別為Command1、

Command?,標(biāo)題分別為“>>”、“VV”的命令按鈕。請(qǐng)?jiān)贚istl中添加“文本框”、

圖3-168

程序的功能是：?jiǎn)螕簟?gt;>”按鈕.將

Listl中的表項(xiàng)添加到Lst2中,同時(shí)將Listl清空;單擊“VV”按鈕,將List2中的

表項(xiàng)添加到Lisll中，同時(shí)將Lisl2清空。程序已給出，但是不完整。請(qǐng)將程序中

的注釋符去掉，把"?”改為正確的內(nèi)容，實(shí)現(xiàn)上述功能。注意：不能修改程序的其

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

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

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

容。參務(wù)代碼:n=Len(Textl.Text)b=Asc(Mid(s,i,1))SelectCasebFori=0

To2x(i)=a⑴步驟2：按要求將文件保存至考生文件夾中。(2)【操作步驟】步驟

1：打開考生文件夾中的本題工程文件sjt4.vbp,通過Listl列表框的List屬性添

加四個(gè)項(xiàng)目：文本框、標(biāo)簽、命令按鈕、單選按鈕。步驟2：在代碼編輯窗口，去

掉程序中的注釋符“巾，將問號(hào)"?”改為正確的內(nèi)容。參考代碼：Fori=0To

La.ListCount—1Lb.AdditemLa.List(i)NextLa.Clear步驟3：按要求將文件保

存至考生文件夾中。

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

5、在考生文件夾下有一個(gè)工程文件sjl3.vbpo程序的功能是通過鍵盤輸入正整數(shù)

到文本框中。在“除數(shù)”框架中選擇一個(gè)單選按鈕，然后單擊“處理數(shù)據(jù)”命令按鈕，

將大于文本框中的正整數(shù)，并且能夠被所選除數(shù)整除的5個(gè)數(shù)添加到列表框Listl

中，如圖所示。在窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請(qǐng)去

掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修

?———?????????一????4—g，~f，_B?f,?|?、..，?k?|，_、ff.-.4.

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

中，去掉程序中的注釋符將問號(hào)改為正確的內(nèi)容。參考代碼(畫下劃線部分是

需填入的內(nèi)容)PrivateSubCommand1_Click()DimyAsIntegerFori=0To2'循環(huán)三

個(gè)單選按鈕IfOptionl(i).Value=TrueThen'當(dāng)某個(gè)按鈕被選

y=Val(Optionl(i).Captiion)'提取按鈕名并轉(zhuǎn)換為數(shù)值EndIfNextCall.calc(yV調(diào)用

子函數(shù)EndSubPrivateSubcalc(yAsInteger)ClearList'執(zhí)行子函數(shù)i=l

X=Val(Textl.Text)+1DoWhilei<=￡'只需要顯示5個(gè)數(shù)IfxMody=0Then'判斷x

是否能被y整除Listl.Addltcm太添笳滿足條件的數(shù)至表i=i+l'統(tǒng)計(jì)EndIf

x=Xx+l咱加，判斷卜次循環(huán)LoopEndSubPri