國家二級VB機(jī)試(綜合應(yīng)用題)模擬試

卷第1套

一、綜合應(yīng)用題(本題共10題，每題1.0分，共10

分。)

1、以下數(shù)列：1,1,2,3,5,8,13,21…的規(guī)律是從第3個數(shù)開始，每個數(shù)都

是其前面兩個數(shù)之和。在考生文件夾下有一個工程文件sjt5.vbpo窗體中已經(jīng)給

出了所有控件，如圖所示。請編寫適當(dāng)?shù)氖录^程完成如下功能：選中一個單選按

鈕后，單擊“計(jì)算”按鈕，則計(jì)算出上述數(shù)列第n項(xiàng)的值，并在文本框中顯示，n是

選中的單選按鈕后面的數(shù)值(提示：因計(jì)算結(jié)果較大，應(yīng)使用長整型變量)。注意：

不能修改已經(jīng)給出的程序和已有的控件的屬性：在結(jié)束程序運(yùn)行之前，必須選中一

個單選按鈕，并單擊“計(jì)算”按鈕以獲得一個結(jié)果；必須使用窗體右上角的關(guān)閉按鈕

結(jié)束程序，否則無成績。最后把修改后的文件按原文件名存盤。

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

在指定位置編寫如下代碼。參考代碼PrivatesubCommandl_CIick()Dima()AsLong

DimiAsIntegerDimnAsInteger'Opl.Count是單選按鈕數(shù)目，這里用的是控件數(shù)

組Fori=OToOpl.Count—1，判斷哪一項(xiàng)被選擇，把它后面的數(shù)值賦給n,確定n

值IfOpl(i).Value=TrueThenn=Val(Opl(i).Caption)ExitForEndIfNextReDim

a(n)，重新申請空間，這里是動態(tài)申請a(l)=la(2尸廠數(shù)列第一項(xiàng)、第二項(xiàng)值確定For

i=3Ton源)=a(11)十a(chǎn)(12)，后一項(xiàng)值是前兩項(xiàng)值之和NextText!.Tcxt=a(n)EndSub

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

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

2、考生文件夾下有工程文件sjt5.vbp和數(shù)據(jù)文件in5.txt。25.txt中有多條記

錄，每條記錄占一行，含4個數(shù)據(jù)項(xiàng)，數(shù)據(jù)項(xiàng)的含義依次是：姓名、數(shù)學(xué)成績、語

文成績、英語成績。窗體上按鈕“讀取數(shù)據(jù)”的功能是把in5.txt中的所有記錄讀到

數(shù)組a中(每個數(shù)組元索中有一條記錄)；按鈕“排序”的功能是按總分從大到小排

序，結(jié)果仍放在數(shù)組a中；按鈕“保存”的功能是存盤，其代碼己經(jīng)給出，不能修

改。請將事件過程中的注釋符去掉，把"?”改為正確的內(nèi)容，并編寫"排序''按鈕的

事件過程。注意：考生不得修改窗體文件中己經(jīng)存在的控件和程序，必須運(yùn)行程

序，并依次按下“讀入數(shù)據(jù)”、“排序”、“保存”按鈕，否則無成績，最后將程序按原

文件名存盤。

標(biāo)準(zhǔn)答案：【操作步驟】DoWhileNolEOF⑴num=k—1PrivateSubCommand2

CliCk()，========考試編寫==============DimkAsInteger,jAsIntegerDim

tempAsrccFori=1Tonum_1k=iForj=i+1TonumIfsum(k)<sum(j)Thcnk=j

EndIfNextjtemp=a(i)：a(i)=a(k)a(k)=tempNextiFork=1TohumPrint

a(k).name；a(k).Math；a(k).Chinese；a(k).EnglishNext

k'=================步驟2：按鍵運(yùn)行程序，單擊各個按鈕測

試驗(yàn)證。步驟3：按要求將文件保存至考生文件夾中。

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

3、在考生文件夾卜有一個工程文件sjl5.vbp,窗口有2個名稱分別為Command1

和Command2、標(biāo)題分別為“讀數(shù)據(jù)”和“排序”的命令按鈕，有2個標(biāo)題分別為“數(shù)

組A”和“數(shù)組B”的標(biāo)簽。請將窗體標(biāo)題設(shè)置為“完全平方數(shù)排序、再畫2個名稱

分別為Textl和Tcxt2、初始內(nèi)容都為空的文本框，并且可多行顯示，有垂直滾動

條，如圖3—55所示。程序功能如下：1)單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下

in5.dat文件中的100個正整數(shù)讀入數(shù)組A,并將它們顯示在Textl文本框中。2)

單擊“排序”按鈕，則首先將這100個數(shù)中的所有完全平方數(shù)放入數(shù)組B中，并將它

們按降序排列顯示在Text2文本框中。圖3?55提示：

一個整數(shù)若是另一個整數(shù)的平方，那么它就是完全平方數(shù)。如144=122,所以144

就是一個完全平方數(shù)。要求：去掉注釋符，把?改為正確內(nèi)容，并添加代碼使得

“排序”命令按鈕的Click事件過程可以實(shí)現(xiàn)上述功能。提示：Sort過程可以把求出

的完全平方數(shù)進(jìn)行排序，可以直接調(diào)用。注意：考生不得修改窗體文件中已經(jīng)存

在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行“排序”，且須用窗體右上角的關(guān)

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

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

編輯窗口的指定位置輸入以下代碼。參考代碼：’考生編寫的代碼n=OFork=l

To100Ifa(k)>0Thend=Sqr(a(k))IfInt(d)=dThenn=n+1：b(n)=a(k)EndIfEnd

IfNext步驟2：在代碼編輯窗口中，去掉程序中的注釋符將問號"'改為正確

的內(nèi)容。參考代碼:Callsort(b,n)步驟3：按<F5>鍵運(yùn)行程序，單擊“讀數(shù)據(jù)”

按鈕，然后單擊“排序”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟4：

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

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

4、在考生文件夾下有一個工程文件sjt5.vbp,相應(yīng)的窗體文件為sjt5.tim。窗體

上三個命令按鈕的名稱分別是Command1>Command?和Commands?標(biāo)題分別是

“顯示”、“統(tǒng)計(jì)”和“保存”。運(yùn)行程序時，單擊“顯示”按鈕，從文件。in5.txt中讀

取文本，并顯示在文本框Textl中，如圖3—92所示。單擊“統(tǒng)計(jì)”按鈕，則統(tǒng)計(jì)

Tcxtl中字母R、T、D(不區(qū)分大小寫)出現(xiàn)的次數(shù)，統(tǒng)計(jì)結(jié)果分別保存在窗體變量

intR、imT、inlD中，同時顯示在文本框Texl2中(顯示格式不限)。單擊“保存”按

鈕，可將intR、intT、intD中的數(shù)據(jù)保存到考生文件夾下out5.txt文件中。

圖392要求：］)去掉”顯示，，按鈕事件過

程中的注釋，把程序中的?改為能實(shí)現(xiàn)上述要求的正確內(nèi)容。2)編寫統(tǒng)計(jì)字母R、

T、D出現(xiàn)次數(shù)的事件過程。3)不要改動各控件的屬性設(shè)置和程序的其他部分。最

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

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

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

碼：LineInput#1,strlTextl.Text=strl步驟2：按指定位置編寫“統(tǒng)計(jì)”按鈕的

單擊事件過程。參考代碼：PrivateSubCoinmand2_Click()DimiAsIntegerintR=

0：intT=O：intD=OFori=1ToLen(Strl)IfMid(strl,i,l)=HR"OrMid(Strl,i,

l)=Y'ThenintR=intR-1EndIfIfMid(strl,i,l)=HT"OrMidJstrl,i,l)=

"f'ThenintT=intT+lEndIfIfMid(strl,i,l)=,,D,,OrMid(Strl,i,l)=Hd"Then

intD=inlD+lEndIfNextText2.Text=intR&M"&intT&H_H&intDEndSub步驟

3：按VF5>鍵運(yùn)行程序，先單擊“顯示”按鈕，接著單擊“統(tǒng)計(jì)”按鈕，最后單擊“保

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

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

5、在考生文件夾下有一個工程文件sjt5.vbp,含三個窗體，標(biāo)題分別為“啟動”、

“注冊”、“登錄”，運(yùn)行時顯示“啟動”窗體，單擊其上按鈕時彈出對應(yīng)窗體進(jìn)行注冊

或登錄。注冊信息放在全局?jǐn)?shù)組users中，注冊用戶數(shù)(最多10個)放在全局變量n

中(均己在標(biāo)準(zhǔn)模塊中定義)。注冊時用戶名不能重復(fù)，且“口令”與“驗(yàn)證口令”須相

同，注冊成功則在,、啟動“窗體的標(biāo)簽中顯示“注冊成功”，否則顯示相應(yīng)錯誤信息。

登錄時，檢驗(yàn)用戶名和口令，若正確，則在“啟動”窗體的標(biāo)簽上顯示“登錄成功”，

否則顯示相應(yīng)錯誤信息。標(biāo)準(zhǔn)模塊中函數(shù)finduser的功能是：在users數(shù)組中搜索

用戶名(即參數(shù)ch),找到則返回該用戶名在users中的位置，否則返回0。已經(jīng)給

出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把Form2、Form3

窗體文件中的“?”改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的程序和控件的屬

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

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

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

碼:'注冊窗體Form2—n—n+1ElseIffinduser(Trim$(Texi1))>0Then

Form1.Labe11.Caption="注冊成功!"'登錄窗體Form3—Ifk=0Then臼se

IfTrim$(Text2)<>users(k,2)Then步驟2：按要求將文件保存至考生文件夾中。

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

6、在考生文件夾中有一個工程文件sjl5.vbp0窗體外觀如圖所示。運(yùn)行程序，單

擊“讀數(shù)據(jù)”按鈕，讀入文件中的數(shù)據(jù)到字符串變量中并顯示在Label2標(biāo)簽中。單

擊“排序”命令按鈕時，對讀入的數(shù)據(jù)從小到大進(jìn)行排序，并將排序結(jié)果在窗體的

Label4o控件中顯示。要求：工程文件中已給出部分程序，“讀數(shù)據(jù)”命令按鈕的事

件過程不完整,請夫掉程序中的注釋符.把程序中的？改為正確的內(nèi)容.請編寫“排

序”命令按鈕的事件過程中的部分程序代碼。注意：不能修改程序的其他部分和控

件屬性，最后將修改后的文件按原文件名進(jìn)行存盤。程序調(diào)試通過后，兩個命令按

鈕的事件過程必須至少各執(zhí)行一次。

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

在代碼編輯窗口指定位置編寫以下代碼。參考代碼Fori=lTo1(T循環(huán)比較大小實(shí)

現(xiàn)排序f=Truc，設(shè)置標(biāo)簽Forj=lT。9Ifa(j)>a(j+l)Thcrf相鄰兩數(shù)比較將最小值放

前面t=aG)aO)=a(j+l)a(j+l)=tUFalse'當(dāng)有交換就置標(biāo)簽為假EndIfNextjIffThen,

如果上次循環(huán)沒有交換數(shù)據(jù)，則證明序列已排序好，則f為真退出循環(huán)ExilFor

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

圖3.34

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

7、考生文件夾下有工程文件sjt5.vbp。程序運(yùn)行時，外觀如圖1—15所示，單擊

“顯示數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀入到5行40列的二維數(shù)

組a中，并按5行顯示在Textl文本框內(nèi)：單擊“統(tǒng)計(jì)”按鈕，則計(jì)算每行中小于50

的數(shù)之和，及這些數(shù)的平均值(平均值保留2位小數(shù)，是否四舍五入不限)，并將

它們(共10個值)分別顯示在Labell數(shù)組及Text2數(shù)組中。單擊“保存”按鈕，則

保存計(jì)算結(jié)果?！帮@示數(shù)據(jù)”和“保存”按鈕的Click事件過程已經(jīng)給出，請編寫“統(tǒng)

計(jì)”按鈕的Click事件過程實(shí)現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存

在的控件和程序，在結(jié)束程序運(yùn)行之前，必須用“統(tǒng)計(jì)”進(jìn)行統(tǒng)計(jì)，且必須單擊“保

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

C3Forml

566T34

76始78984S98765687

找%

8768943&7692134

6767453467986765?8

5276505946296264262?e

41<4171n32&320185880

?

顯示數(shù)據(jù)I統(tǒng)計(jì)

圖1-15

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

開代碼編輯窗口，在指定位置編寫以下代碼：參考代碼：Fori=lTo5Sum=0

Counter=0Forj=1To40Ifa(i,j)<50ThenSum=Sum+a(i,j)Counter=Counter

+1EndIfNextAvg=Sum/CounterLabell(i-l).Caption=SumText2(i-l).Text=

Int(Avg*100)/100Next步驟2：按鍵運(yùn)行程序，先單擊“顯示數(shù)據(jù)”按鈕，接著單

擊“統(tǒng)計(jì)”按鈕，然后單擊“保存”按鈕保存結(jié)果。步驟3：按要求將文件保存至考生

文件夾中。

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

8、在考生文件夾下有一個工程文件sjl5.vbp,含三個窗體，標(biāo)題分別為“啟動”、

“注冊”、“登錄”，運(yùn)行時顯示“啟動”窗體，單擊其上按鈕時彈出對應(yīng)窗體進(jìn)行注冊

或登錄。注冊信息放在全局?jǐn)?shù)組users中，注冊用戶數(shù)(最多10個)放在全局變量n

中(均已在標(biāo)準(zhǔn)模塊中定義)。注冊時用戶名不能重復(fù)，且“口令”與“驗(yàn)證口令”須相

同，注冊成功則在“啟動”窗體的標(biāo)簽中顯示“注冊成功”，否則顯示相應(yīng)錯誤信息。

登錄時，檢驗(yàn)用戶名和口令，若正確，則在“啟動''窗體的標(biāo)簽上顯示“登錄成功”，

否則顯示相應(yīng)錯誤信息。標(biāo)準(zhǔn)模塊中函數(shù)finduser的功能是：在users數(shù)組中搜索

用戶名(即參數(shù)ch),找到則返回該用戶名在users中的位置，否則返回0。己經(jīng)給

出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把Form2、Form3

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

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

標(biāo)準(zhǔn)答案：審題分析本題源程序在“注冊”窗體的“確定”按鈕的單擊事件過程中，

先判斷是否輸入用戶名，若沒有輸入則彈出提示信息，否則通過調(diào)用標(biāo)準(zhǔn)模塊中的

fmduser函數(shù)，檢查輸入用戶是否存在于users數(shù)組中(條件表達(dá)式為：

fmduser(Trim$(TcxtI))>0),若該用戶存在則彈出提示信息，否則進(jìn)一步檢查前后

兩次輸入的密碼是否一致，若前后不一致則彈出提示信息，否則通過調(diào)用過程

writeusers將該用戶名及密碼寫入數(shù)組users中，并在“啟動”窗體的標(biāo)簽

(Form1.Labcll)中顯示“注冊成功每調(diào)用一次過程writcusers,全局變量n將記

錄新增一個用戶，即n=n+l。在“登錄”窗體的“登錄”按鈕的單擊事件過程中，通過

調(diào)用標(biāo)準(zhǔn)模塊中的finduser函數(shù)，檢查輸入用戶是否存在于users數(shù)組中，若不存

在(條件表達(dá)式為：k=0)則彈出提示信息，否則進(jìn)一步檢查該用戶的密碼輸入是否

正確(條件表達(dá)式為：Trims(Text2)Ousers(k,2)),若不正確則彈出提示信息，否則

在“啟動”窗體的標(biāo)簽(Form1.Label1)中顯示“登錄成功”。操作步驟步驟1：打開

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

將問號"?''改為正確的內(nèi)容。參考代碼：。注冊窗體Form2?n=n+1Elself

flnduser(Trim$(Text1))>0ThenForm1.Label1.Caption="注冊成功!"'一登錄窗體

Form3-Ifk=0ThenElselfTrim$(Tcxt2)<>users(k,2)Then步驟2：按要求將文件

保存至考生義件夾中。考點(diǎn)鏈接多窗體、Sub過程和函數(shù)過程。

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

9、在考生目錄下有一個工程文件sjt5.vbp,其窗體上有兩個標(biāo)簽L1和L2,標(biāo)題

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

分別為Textl和Text20其中Textl用來輸入口令(輸入時，顯示無初始內(nèi)

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

的注釋符，把程序中的，改為正確的內(nèi)容，使得在運(yùn)行時，在Textl中輸入口令

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

果愉入其他內(nèi)容，單擊“確定”按鈕后，彈出如圖3-147所示的錯誤提示對話框：并

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

入。圖3?147注意：不能修改程序中的其他部分。最后

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

標(biāo)準(zhǔn)答案：審題分析根據(jù)題目源程序，判斷文本框Tcxtl輸入的密碼是否為

“123456”的條件表達(dá)式為:Textl.Text="123456"；要去掉對文本框中輸入內(nèi)容的

屏蔽，需將其PasswordChar屬性值清空，即執(zhí)行語句：Textl.PasswordChar=""；

每輸入一次錯誤密碼，文本框Tcxt2中的數(shù)字減1,當(dāng)文本框Tcxt2中數(shù)值還大于

0時，提示重新輸入，否則提示錯誤，并禁用文本框Texll。操作步驟步驟1：打

開考生文件夾中的本題工程文件sjt5.vbp,將文本框Textl的PasswordChar屈性

值設(shè)置為，，*，，。步驟2：在代碼編輯窗口，去掉程序中的注釋符”7將問號”?”改為

正確的內(nèi)容。參考代碼：IfTextl.Text=n123456"ThenTextl.PasswordChar="HIf

Text2.Text>0ThenTextl.Enabled-False步驟3：按要求將文件保存至考生文件

夾中?？键c(diǎn)鏈接文本控件、If選擇結(jié)構(gòu)。

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

10、考生文件夾下的工程文件sjt5.vbp中有一個初始內(nèi)容為空的文本框Textl,兩

個標(biāo)題分別是''讀數(shù)據(jù)“和“計(jì)算”的命令按鈕；請畫一個標(biāo)題為“各行平均數(shù)的最大

值為"的標(biāo)簽Label2,再畫一個初始內(nèi)容為空的文本框Texl2,如圖2-195所示。

程序功能如下：①單擊”讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀

入20行5列的二維數(shù)組a中，并同時顯示在Textl文本框內(nèi)；②單擊“計(jì)算”按

鈕，則自動統(tǒng)計(jì)二維數(shù)組a中各行的平均數(shù)，并將這些平均數(shù)中的最大值顯示在

Text2文本框內(nèi)?！白x數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，請編寫“計(jì)算”按鈕的

Click事件過程實(shí)現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和

程序，在結(jié)束程序運(yùn)行之前，必須用“計(jì)算”按鈕進(jìn)行計(jì)算，且必須用窗體右上角的

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

圖2-195

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

一個標(biāo)簽和一個文本框，其屬性及值如表3-111所示。

?3-111

步驟2：打開代碼編輯窗口，在指定位置編寫以下

代碼：參考代碼：Fori=1To20Sum=0Forj=lTo5sum=Sum+a（i,j）Next

Avg=Sum/5Ifi=lThenMax=AvgElselfHax<AvgThenMax=AvgEndIfNext

Text2.Text=Hax步驟3：按要求將文件保存至考生文件夾中。步驟4：按<F5>

鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，接著單擊“計(jì)算”按鈕，然后單擊窗體右上角的

關(guān)閉按鈕結(jié)束程序。

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

國家二級VB機(jī)試（綜合應(yīng)用題）模擬試

卷第2套

一、綜合應(yīng)用題（本題共70題，每題分，共70

分。）

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

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

扣中修改Texl3的適當(dāng)屬性，使其在運(yùn)行時不顯示，作為模擬的剪貼板使用，窗

0Forml但媽IT

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

標(biāo)地

加料

C咋、

Paste

如下表所示。③窗體文件中給出了所有事什

過程，但不完整，請去淖程序中的注釋符，把程序中的?改為正確的內(nèi)容，以便實(shí)

現(xiàn)如下功能：當(dāng)光標(biāo)所在的文件框中無內(nèi)容時,“剪切”、“復(fù)制”不可用,否則可以

把該文本框中的內(nèi)容剪切或復(fù)制到Text3中；若Text3中無內(nèi)容，則“粘貼”不能

用，否則可以把Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。注意：

不能修改程序中的其他部分，各菜單項(xiàng)的標(biāo)題名稱必須正確。最后將修改后的文件

按原文件名存盤。

標(biāo)準(zhǔn)答案：【操作步驟】步驟I：打開本題工程文件，將Text3的Visible屬性設(shè)

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

圖3.20菜單屬性如表3.12所示。

表3.12

控件編輯典切復(fù)制粘貼

名稱EditCutCopyPaste

內(nèi)始符號011——!步驟2：打開代碼編

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

AsIntegerPrivateSubcopyClick。'復(fù)制按鈕Ifwhich=1Then'當(dāng)焦點(diǎn)在Textl中，

將rextl中的內(nèi)容復(fù)制給Text3Text3.Text=Textl.TeXtElselfwhich=2Then'同

理，焦點(diǎn)在Text2中,將Text2中的內(nèi)容復(fù)制給Text3Text3,Text=Text2.Text

EndIfEndSubPrivateSubcutClick。'剪切按鈕Ifwhich=1Then'當(dāng)焦點(diǎn)在Texil

中，則將內(nèi)容復(fù)制給Text3,并清空Textl內(nèi)容Text3.Text=Textl.Text

Textl.Text=""Elselfwhich=2Then'同上Text3.Text=Text2.TextText2.Text

=""EndIfEndSUbPrivateSubcdit_Click()'編輯Ifwhich=1ThenIfTextl.Text=

""ThenCut.Enabled=FalseCopy.Enabled=FalseElseCut.Enabled=True

Copy.Enabled=TrueEndIfElselfwhich=2ThenIfText2.Text=H,'Then

Cut.Enabled=FalseCopy.Enabled=FalseElseCut.Enabled=True

Copy.Enabled=TrueEndIfEnd[fIfText3.Text=""ThenPaste.Enabled=False

ElsePaste.Enabled=TrueEndIfEndSubPrivateSubpaste_Cick()'粘貼按鈕If

which=lThen，當(dāng)焦點(diǎn)在Textl中則將Text3的內(nèi)容追加到Textl文件末尾

Textl.Text=Textl.Text+Text3.TextElselfwhich=2Then0'同上Texl2.Text

=Text2.Text+Text3.TextEndIfEndSubPrivateSubTextlGotFocus。'本過程的

作用是當(dāng)焦點(diǎn)在Textl中時,which=1which=1EndSubPrivateSubText2

GolFocus。，本過程的作用是當(dāng)焦點(diǎn)在Text2中時，which=2which=2EndSub步驟

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

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

2、在考生文件夾下有一個數(shù)據(jù)庫文件“samp3.accdb”，其中存在已經(jīng)設(shè)計(jì)好的表

對象“tEmployee”和查詢對象“qEmployee”，同時還設(shè)計(jì)出以“qEmployee”為數(shù)據(jù)源

的報(bào)表對象“「Employee”。請?jiān)诖嘶A(chǔ)上按照以下要求補(bǔ)充報(bào)表設(shè)計(jì)。（1）在報(bào)表的

報(bào)表頁眉節(jié)區(qū)中添加一個標(biāo)簽控件，標(biāo)題為“職工基本信息表”，并命名為

“Title”。（2）將報(bào)表主體節(jié)區(qū)中名為“tDate”的文本框顯示內(nèi)容設(shè)置為“聘用時間”字

段值。（3）在報(bào)表的頁面頁腳節(jié)區(qū)添加一個計(jì)算控件，以輸出頁碼。計(jì)算控件放置

在距上邊0.25厘米、距左側(cè)14厘米的位置，并命名為“tPage”。規(guī)定頁碼顯示格

式為“當(dāng)前頁/總頁數(shù)”，如1/20、2/2020/20等。注意：不能修改數(shù)據(jù)

庫中的表對象正mployee”和查詢對象“qEmployee"；不能修改報(bào)表對象4rEmployee”

中未涉及的控件和屬性.

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：選擇“報(bào)表”對象，右鍵單擊“「Employee"，從

彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令。步驟2：選擇“報(bào)表設(shè)計(jì)工具”的“設(shè)計(jì)”選

項(xiàng)卡“控件”組中的“標(biāo)簽”控件，單擊報(bào)表頁眉處，然后輸入“職工基本信息表”，單

擊窗體任一點(diǎn)，如圖3.245所示。

圖3?245步驟3：右鍵單擊“職工基本

信息表”標(biāo)簽，從彈出的快捷菜單中選擇“屬性”命令，在“名稱”行輸入“bTitle"，如

圖3.246所示。圖3.246(2)【操作步驟】步驟1：

右鍵單擊報(bào)表主體節(jié)區(qū)任一點(diǎn)，從彈出的快捷菜單中選擇“屬性”命令，在“名稱”行

下拉列表中選擇“tDate”，步驟2：在“控件來源”行卜拉列表中選擇“聘用時間”，如

圖3.247所示。圖3?247(3)【操作步驟】步驟1：

選擇“設(shè)計(jì)”選項(xiàng)卡控件”組中的“文本框”控件，單擊報(bào)表頁面頁腳節(jié)區(qū)仟一點(diǎn)，出

現(xiàn)“Text”和“未綁定”兩個文本框，選中“Text”文本框，按Del鍵將“Text”文本框刪

除。步驟2：右鍵單擊“未綁定”文本框，從彈出的快捷菜單中選擇“屬性”命令，彈

出屬性對話框。選擇“全部”選項(xiàng)卡，在“名稱"行輸入“Page"，分別在“上邊距”和

“左”行輸入"0.25cm”和"14cm”。在“控件來源”行輸入“=[Page]&"/"&[Pages入,

如圖3248所示。關(guān)閉屬性表。圖3.248步驟

3：按Ctrl+S保存修改，關(guān)閉沒計(jì)視圖。

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

3、在考生文件夾中有一個工程文件vbsj5.vbp（相應(yīng)的窗體文件為vbsj5.frm）。窗體

Forml上有兩個名稱為Labi和Lab2的標(biāo)簽，它們的標(biāo)題分別為“密碼”和“允許次

數(shù)''；一個名稱為Cmdl的命令按鈕，其標(biāo)題為“確定”；兩個名稱分別為Txtl卻

Txt2的文本框。其中Txtl用來輸入密碼（輸入時顯示“*”），無初始內(nèi)容，Txl2的初

始內(nèi)容為3。己給出了Cmdl的事件過程，但不完整，要求去掉程序中的注釋符

把程序中的問號"?,'改為正確內(nèi)容，使得在運(yùn)行時，在Txtl中輸入密碼后，單

擊“確定”按鈕，如果輸入的是T23456”，則在Txtl中顯示“密碼正確”如圖3—66所

示：如果輸入其他內(nèi)容，單擊“確定”后，彈出如圖3—67所示的錯誤提示對話框，

圖36圖3-67

入。

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

將文本框Txtl的PasswordChar屬性值設(shè)置為“*步驟2：在代碼編輯窗口，去掉

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

"123456"ThenTxtl.PasswordChar="HIfTxt2.Text>0ThenTxtl.Enabled=

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

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

4、在考生目錄下有一個工程文件s"5.vbpo窗體中已經(jīng)給出了所有控件（如圖3-

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

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

的第一個素?cái)?shù)，并顯示在Text2中：單擊“存盤”按鈕，則把找到的素?cái)?shù)存到考生目

錄下的out5.txt文件中。圖3-116注意：在結(jié)束程序運(yùn)行

之前，必須單擊“存盤”按鈕，把結(jié)果存入out5.txt文件，否則無成績。最后把修

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

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題對應(yīng)工程文件sjt5.vbpo步驟2：雙

擊窗體Forml上的“計(jì)算”按鈕，打開代碼編輯窗口，在其Click事件過程中輸入如

卜代碼。參考代碼：PrivateSubCommand2_Click()a%=CInt(Textl.Text)Doa%

=a%+lLoopUntilisprime(a%)Text2.Text=a%EndSub步驟3：編寫判斷素?cái)?shù)

的函數(shù)過程isprime,參考代碼為:Functionisprimc(aAsInteger)DimflagAs

Booleank%=2flag=TrueWhilek%<=Int(a/2)AndflagIfa/k%=Int(a/k%)

Thenflag=FalseEndIfk%=k%+4-1Wendisprime=flagEndFunction步驟4：按

VF5>鍵運(yùn)行程序，先單擊“讀數(shù)”按鈕，接著單擊“計(jì)算”按鈕，最后單擊“存盤”按

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

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

5、在考生目錄下有一個工程文件sjt5.vbp,其窗體上有兩個標(biāo)簽L1和L2,標(biāo)題

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

分別為Textl和Text2。其中Textl用來輸入口令（輸入時，顯示“*”），無初始內(nèi)

容；Tcxt2的初始內(nèi)容為3。并給出了C1的事件過程，但不完整，要求去掉程序中

的注釋符，把程序中的"?''改為正確的內(nèi)容，使得在運(yùn)行時，在Texll中輸入匚令

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

果輸入其他內(nèi)容，單擊“確定”按鈕后，彈出如圖3—151所示的錯誤提示對話框，

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

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

盤。圖3/51

標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾中的本題工程文件sjt5.vbp,將文本框Textl

的PasswordChar屬性值設(shè)置為“*工步驟2：在代碼編輯窗口，去掉程序中的注釋

符…，將問號"?”改為正確的內(nèi)容。參考代碼：IfTextl.Text="l23456"Then

Textl.PaSswordChar="HIfText2.Text>OThenTextl.Enabled二FalSe步驟3：按

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

知識點(diǎn)解析：根據(jù)題目源程序，判斷文本框Textl輸入的密碼是否為“123456”的條

件表達(dá)式為：Textl.Text="123456"；要去掉對文本框中輸入內(nèi)容的屏蔽，需將其

PasswordChar屬性值清空，即執(zhí)行語句：Textl.PasswordChar=""；每輸入?次錯

誤密碼，文本框Text2中的數(shù)字減1。當(dāng)文本框Texl2中數(shù)值還大于0時，提示重

新輸入，否則提示錯誤，并禁用文本框Textl。

6、數(shù)列1,1,2,3,5,8,13,21,…的規(guī)律是從第三個數(shù)開始，每個數(shù)是它前

面兩個數(shù)之和。在考生目錄下有一個工程文件sjt5.vbpo窗體中已經(jīng)給出了所有

控件，如圖3—121所示。請編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)以下功能：在Textl中輸入

整數(shù)40,單擊“計(jì)算”按鈕，則在Text2中顯示該數(shù)列第40項(xiàng)的值;如果單擊“存

盤”按鈕，則將計(jì)算的第40項(xiàng)的值存到考生目錄下的。ut5.txt文件中。(提示：因

數(shù)據(jù)較大，應(yīng)使用Long型變量。)圖3/21注意：在結(jié)束程

序運(yùn)行之前必須單擊“存盤”按鈕，把結(jié)果存入out5.岡文件，否則無成績。最后

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

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

2：編寫“計(jì)算”按鈕的單擊事件過程。參考代碼：PrivateSubCommandIClick()

Dimfl,12,fAsLongDima(40)AsLongfl=1：f2=1a(l)=fl：a(2)=f2Fori=3To

VaKTextI.Text)f=fl-|-f2a(i)=f：fl=f2：f2=fNextTcxt2.Text=a(40)EndSub

步驟3：運(yùn)行程序，在文本框中輸入40,并單擊“L算”按鈕獲得一個結(jié)果，然后單

擊“存盤”按鈕保存計(jì)算結(jié)果。步驟4：按要求將文件保存至考生文件夾中。

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

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

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

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

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

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

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

能。程序窗體界面如圖所示。注意：考生不得修改窗體文件中已經(jīng)存在的控件和

程序，在結(jié)束程序運(yùn)行之前必須單擊“移動”按鈕，并單擊“保存”按鈕保存結(jié)果，否

NForml；;

觸激揭：移動后的結(jié)累:

IT0I302

I584IT0

繆

IS總4

-

I-6

I34134

I58158

I20120

I-551-55

顯示t鎮(zhèn)保存

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

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

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

入的內(nèi)容)Dimi,max,maxindexAsInlngermax二a：I)Fori=2ToUBound(a)Ifa(i)

>maxThenmax=a(i)maxindex=iEndIfNextiList2.Addltem(a(maxindex))Fori<

>maxindexThenList2.Addltem(a⑴)EndIfNexti步驟3：調(diào)試并運(yùn)行程序，關(guān)閉

程序后按題目要求存盤。

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

8、在考生文件夾下有一個工程文件sjt5.vbp,在該工程文件中已經(jīng)定義了一個學(xué)生

記錄類型數(shù)據(jù)StudTypeo(1)在考生文件夾下有一個工程文件sjl3.vbp,其功有

三個標(biāo)題分別為“學(xué)號”、“姓名”和“平均分”的標(biāo)簽；三個初始內(nèi)容為空，用于諼收

學(xué)號、姓名和平均分的文本框Textl、Tcxt2和Tcxl3；一個用于顯示排序結(jié)果的圖

片框。還有兩個標(biāo)題分別為“添加”和“排序”的命令按鈕，如圖1-10所示。程序功

能如下：①在Textl、Text2和Text3三個文本框中輸入學(xué)號、姓名和平均分后，

單擊“添加”按鈕，則將輸入內(nèi)容存入自定義的學(xué)生記錄類型數(shù)組stud中(注：最

多只能輸入10個學(xué)生信息，且學(xué)號不能為空)；②單擊“排序''按鈕，則將學(xué)生記

錄類型數(shù)組stud中存放的學(xué)生信息，按平均分降序排列的方式顯示在圖片框中，

每個學(xué)生一行，且顯示三項(xiàng)信息。圖i-io請將

“添加”按鈕、“排序”按鈕的Click事件過程中的注釋符去掉，把?改為正確的內(nèi)容,

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

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

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件下的本題工程文件在代碼編輯窗

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

stud(n).Num=TextlFork=j+1TonIfstud(k).Average>slud(j).AverageThen

stud(k)=stud(j)步驟2：按要求將文件保存至考生文件夾中。

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

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

把考生文件夾下in5.dat文件中的100個0?999之間的整數(shù)讀入數(shù)組a中；②單擊

“計(jì)算”按鈕，則對這100個數(shù)中的水仙花數(shù)(當(dāng)一個數(shù)的值等于該數(shù)中各位數(shù)字的

立方和M,此數(shù)被稱為水仙花數(shù)。如153=13+53+33,所以153就是一個水仙花

數(shù))求平均值，并對該平均值截尾取整后顯示在文本框txtResult中。窗體中給出

了所有控件(如圖1—241所示)以及“讀數(shù)”按鈕的Click事件過程，請為“計(jì)算”按

a-orml:金,

水仙花婁如軒均值產(chǎn)【

讀數(shù)rwn|

鈕編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)上述功能。圖1-241注

意：不得修改已經(jīng)給出的程序和已有的控件的屬性，在結(jié)束程序運(yùn)行之前，必須進(jìn)

行計(jì)算，且必須使用窗體右上角的“關(guān)閉”按鈕結(jié)束程序，否則無成績。最后把修改

后的文件按原文件名存盤。程序源碼：Dima(100)AsIntegerPrivateSub

cmdRead_Click()DimkAsIntegerOpenApp.Path&"\in5.dat"For_InputAs#1Fork

=1To100Input#I,a(k)NextkClose#1EndSubPrivateSubcmdCa1_Click()'考生應(yīng)

完成的程序EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&

"\out5.dat"For_OutputAs#1Print#1,txtResult.TextClose#1EndSub

標(biāo)準(zhǔn)答案：【轅作步驟】步驟1：打開考生文件中的本題工程文件vbsj5.vbp,在

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

IntegerDimxAsIntegerDimyAsIntegerDimzAsIntegerFori=1To100x=Int(a(i)

/100)y=Int((a(i)-x*100)/10)z=a(i)-x*100-y*10Ifa(i)=x-3+y-3+z

'3Thensum=sum+a(i)n=n+IEndIfNexttxtResult.Text=Int(sum/n)步驟2：

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

按鈕，接著單擊“計(jì)算''按鈕，然后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。

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

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

項(xiàng)。數(shù)列產(chǎn)生的規(guī)律是：數(shù)列的前2項(xiàng)是小于10的正整數(shù)，將此2數(shù)相乘，若乘

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

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

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

TextKText2>Text3,窗體下部的文本框名稱為Text*程序運(yùn)行時，在Textl、

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

此數(shù)列的前n項(xiàng)，并顯示在Text4中。如圖3-177所示。圖3?177注

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

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

原文件名存盤。

標(biāo)準(zhǔn)答案：審題分析根據(jù)題意，數(shù)列第n項(xiàng)的值源于該項(xiàng)前兩項(xiàng)的乘積。本題源

程序中，將文本框Textl的輸入值賦予變量a作初值，將文本框Text2的輸入值賦

予變量b作初值，并把a(bǔ)、b初值作為數(shù)列的前兩項(xiàng)。故第一個?處應(yīng)改為：bo將

文本框Text3的輸入值賦予變量n,以標(biāo)記數(shù)列最終要生成的項(xiàng)數(shù)。變量k用于記

錄數(shù)列當(dāng)前項(xiàng)數(shù)，初值為2。在D。循環(huán)中，首先將a、b的乘積賦予變量c（當(dāng)前

項(xiàng)數(shù)k增。，然后判斷c的值是否小于10,若c小于10則c即為數(shù)列的第3項(xiàng)，

并將b的值賦予變量a,c的值賦予變量b,以便計(jì)算數(shù)列下一項(xiàng)的值；若c不小于

10,則取a和b乘積十位上的數(shù)（即d=c\10）作數(shù)列的第3項(xiàng)，將d的值賦予變量

a（當(dāng)前項(xiàng)數(shù)k增1）,并進(jìn)一步判斷當(dāng)前k值是否小于或等于最終要生成的項(xiàng)數(shù)n,

若是則取a和b乘積個位上的數(shù)（即d=cMod10）作數(shù)列的第4項(xiàng)，將d的值賦予變

量b,以便計(jì)算數(shù)列下一項(xiàng)的值。重復(fù)執(zhí)行循環(huán)體，即可依次求出數(shù)列后續(xù)項(xiàng)的

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

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

Text4=Text4&a&””&ba=bIfk<=nThenb=d步驟2：按要求將文件保存至考

生文件夾中?？键c(diǎn)鏈接D。循環(huán)和While循環(huán)。

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

國家二級VB機(jī)試（綜合應(yīng)用題）模擬試

卷第3套

一、綜合應(yīng)用題（本題共70題，每題7.0分，共70

分。）

1、在考生文件夾下有一個工程文件sjl5.vbp,具窗體上有2個標(biāo)題分別是“讀數(shù)

據(jù)”和“統(tǒng)計(jì)”的命令按鈕，1個名稱為Textl的文本框，2個標(biāo)簽控件，如圖3—31

所示。程序功能如下：1）單擊“讀數(shù)據(jù)''按鈕，則將考生文件夾下in5.dat文件的

內(nèi)容（該文件中含有不超過800個英文單詞，單詞之間用1個空格隔開）顯示在

Textl文本框中。圖2）單擊“統(tǒng)計(jì)”按鈕，則自動統(tǒng)計(jì)

Textl中所有5字母單詞的個數(shù)，并顯示在右下角的Labell標(biāo)簽中?！白x數(shù)據(jù)”按鈕

的Click事件過程已經(jīng)給出，“統(tǒng)計(jì)”按鈕的Click事件過程不完整，函數(shù)GctWords

的功能是從字符串s中分離出每個單詞，依次放入數(shù)組words的數(shù)組元素中，返回

值為單詞的總數(shù)目。要求：1)請將程序中的注釋符去掉，把?改為正確的內(nèi)容；2)

補(bǔ)全“統(tǒng)計(jì)”按鈕Click事件過程中的代碼，以實(shí)現(xiàn)上述程序功能。注意：考生不得

修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行“統(tǒng)計(jì)”，

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

盤。

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

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

m=GctWords(Tcxtl.Text,ch)，考生編寫的程序代碼從這里開始k=0For

i=lTomIfLen(ch(i))=5Thenk=k+lEndIfNextiLabel1.Caption=k'考生編寫

的程序代碼到這里結(jié)束步驟2：按＜F5＞鍵運(yùn)行程序，單擊各個按鈕測試驗(yàn)證。

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

知識點(diǎn)解析：題目要求統(tǒng)計(jì)字符串?dāng)?shù)組里面長度等于5的字符串?dāng)?shù)量，可以使用循

環(huán)變量數(shù)組，依次判斷每個元素的長度是否為5,如果為5則統(tǒng)計(jì)變量加1,循環(huán)

結(jié)束后得到統(tǒng)計(jì)結(jié)果，最后思示在標(biāo)簽里面。第一個"?''處是補(bǔ)充函數(shù)返叫值，在

GetWords函數(shù)中變量m在每次檢測劍單詞后增加1,可知m保存了單詞數(shù)量統(tǒng)

計(jì)，因此函數(shù)的返回值為m；第二個“?”處是補(bǔ)充函數(shù)的入?yún)?，根?jù)題目要求在這

里統(tǒng)計(jì)文本框內(nèi)容里面的單詞數(shù)量。

2、在考生文件夾下有工程文件sjl5.vbp,窗體上有兩個標(biāo)題分別是“讀數(shù)據(jù)”加

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

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