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

卷2（共9套）

（共90題）

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

卷第1套

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

分。）

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

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

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

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

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

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

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

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

0Forml

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

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

LongDimiAsIntegerDimnAsInteger*Opl.Count是單選按鈕數(shù)目,這里用的是

控件數(shù)組Fori=OToOpl.Count——判斷哪一項被選擇，把它后面的數(shù)值賦給

n,確定n值IfOpl(i).Value=TrueThenn=Val(Opl(i).Caption)ExitForEndIf

NextReDima(n)，重新申請空間,這里是動態(tài)申請a⑴=1a⑵=/數(shù)列第一項、第

二項值確定Fori=3Tona6=a(i—l)+a(i—2)，后一項值是前兩項值之和Next

Tcxtl.Tcxt=a(n)EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存

盤。

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

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

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

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

②建立下拉式菜單，如下

標(biāo)摩名稱

編輯Edit

剪切Cut

復(fù)制Copy

粘貼Paste

表所示。③窗體文件中給出了所有事件過

程，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，以便實現(xiàn)

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

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

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

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

文件名存盤。

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

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

表3.12

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

名稱EditCutCopyPa?te

內(nèi)縮符號0111

步驟2：打開代碼

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

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

Textl中，將Textl中的內(nèi)容復(fù)制給Text3Text3.Text=Textl.TextElseIfwhich

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

Text2.TextEndIfEndSubPrivateSubcutClick。'剪切按鈕Ifwhich=1Then，當(dāng)焦

點(diǎn)在Texll中，則將內(nèi)容復(fù)制給Text3,笄'清空Textl內(nèi)容Texl3.Text=

Textl.TextTextl.Text=,'"ElseIfwhich=2Then'HiText3.Text=

Text2.TextText2.Text=""EndIfEndSubPrivateSubeditClick。'編輯Ifwhich

=1ThenIfTexll.Text=n"ThenCut.Enabled=FalseCopy.Enabled=FalseElse

Cut.Enabled=TrueCopy.Enabled=TrueEndIfElseIfwhich=2ThenIf

Text2.Text=n"ThenCut.Enabled=FalseCopy.Enabled=FalseElse

Cut.Enabled=TrueCopy.Enabled=TrueEndIfEndIfIfText3.Text=""Then

Paste.Enabled=FalseElsePaste.Enabled=TrueEndIfEndSubPrivateSub

paste_Click（），粘貼按鈕Ifwhich=1Then，當(dāng)焦點(diǎn)在Texll中則將Text3的內(nèi)容追加

到Textl文件末尾Textl.ElseIfwhich=2Then，同上Text2.EndIfEndSub

PrivateSubTextlGotFocus（）o本過程的作用是當(dāng)焦點(diǎn)在Textl中時'which=1

which=1EndSubPrivatesubText2GotFocus。'本過程的作用是當(dāng)焦點(diǎn)在Text2中

時，which=2which=2Endsub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求

存盤。

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

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

對象“tAddr”和“tUser”。同時還有窗體對象“fEdit同口“fEuser”。請在此基礎(chǔ)上按照以

下要求補(bǔ)充“fEdit”窗體的設(shè)計。⑴將窗體中名稱為“Lremark”的標(biāo)簽控件上的文字

顏色改為紅色（紅色代碼為255）,字體粗細(xì)改為“加粗”。（2）將窗體標(biāo)題設(shè)置為“修

改用戶信息（3）將窗體邊框改為“對話框邊框”樣式，取消窗體中的水平和垂直滾

動條、記錄選擇器、導(dǎo)航按鈕和分隔線。（4）將窗體中“退出”命令按鈕（名稱為

“emdquit"）上的文字顏色改為深棕（深棕代碼為128）、字體粗細(xì)改為“加粗”，并給文

字加上下劃線。（5）在窗體中還有“修改”和“保存”兩個命令按鈕，名稱分別為

“CmdEdit”和“CmdSave”，其中“保存”命令按鈿在初始狀念為不可用，當(dāng)單擊“修

改”按鈕后，應(yīng)使“保存”按鈕變?yōu)榭捎谩，F(xiàn)已編寫了部分VBA代碼，請按照VBA

代碼中的指示將代碼補(bǔ)充完整。要求：修改后運(yùn)行該窗體，并查看修改結(jié)果。注

意：不能修改窗體對象“fEdit”和“fEuser”中未涉及的控件、屬性；不能修改表對象

“tAddr”和"tUser“。程序代碼只允許在“**********”與“**********”之間的空行內(nèi)

補(bǔ)充一行語句，完成設(shè)計，不允許增刪和修改其他位置已存在的語句。

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：選擇窗體對象，有鍵單擊“fEdit”窗體，從彈

出的快捷菜單中選擇“設(shè)計視圖”命令。步驟2：右犍單擊“Lxemark”標(biāo)簽，從彈出

的快捷菜單中選擇“屬性”命令。步驟3：單擊“格式”選項卡，在“前景色”行輸入

“255”（軟件自動顯示為16進(jìn)制數(shù)#FFOOOO）,在“字體粗細(xì)”行的下拉列表中選擇“加

粗”。關(guān)閉屬性表。如圖3.159所示。-圖3.159⑵【操

作步驟】步驟1：右鍵單擊“窗體選擇器”。從彈出的快捷菜單中選擇“屬性”命令。

步驟2：在“格式”選項卡的“標(biāo)題”行輸入“修改用戶信息”。如圖3.160所示。

（3）【操作步驟】步驟1：在“窗體”屬性對話

框的“邊框樣式”行下拉列表中選擇“對話框邊框如圖3.161所示。步驟2：分

別在“滾動條”、“記錄選擇器”、“導(dǎo)航按鈕”和“分隔線''的下拉列表中選擇“兩者均

無”或“否”。如圖3.161所示。圖3,161(4)【操作步

驟】步驟I：右鍵單擊命令按鈕“退出”，從彈出的快捷菜單中選擇“屬性”命令。

步驟2：單擊“格式”選項卡，在“前景色”行輸入“128”，在“字體粗細(xì)”行的下拉列表

中選擇“加粗”，在嚇劃線”行下拉列表中選擇“是”，關(guān)閉屬性表。(5)【操作步

驟】在設(shè)計視圖中右鍵單擊命令按鈕“修改”，從彈出的快捷菜單中選擇“事件生成

器”命令，在彈出的對話框中選擇“代碼生成器”，進(jìn)入編程環(huán)境，在空行內(nèi)輸入以

下代碼：'*****請在下面添加一條語句*****CmdSave.Enabled=

True'**********************如圖3.162所示，關(guān)閉界面。

圖3.162

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

4、考生文件夾下有一個工程文件sjt5.vbp0運(yùn)行程序后，從文件中讀出數(shù)據(jù)，將

其放入一個5x5的二維數(shù)組a中。請編寫程序，找出數(shù)組a中每行的最大值及該值

在行中的次序(列下標(biāo))，并將所找到的結(jié)果分別保存到一維數(shù)組b、c中(a中第一

行的最大值保存在b(l)中，最大值的列次序保存在c(l)中)。注意：不能修改程序

的其他部分和控件屬性，最后將修改后的文件按原文件名存盤。程序調(diào)試通過后，

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

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

在指定位置編寫如下代碼。參考代碼Max=a(i,1)洛每行第一個數(shù)作為該行最大

值，以便進(jìn)行比較Forj=lTo51fMaxVa(i,j)Then，依次循環(huán)比較該行其他數(shù)，如

有更大值，則替換max值Max=a(i,j)EndIfMi)=Max，最大值存入數(shù)組b中If

Max=a(i,j)Then,i)=/最大值的下標(biāo)存入數(shù)組c中Nextj步驟3：調(diào)試并運(yùn)行程

序，關(guān)閉程序后按題目要求存盤。

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

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

鈕，則從考生文件夾卜的in5.txt文件中讀入所有城市名稱和距離，城市名稱按順

序添加到列表框Lisll中，距離放到數(shù)組a中；當(dāng)選中列表框中的一個城市時，它

的距離就在Textl中顯示，如圖所示；此時，單擊“計算運(yùn)費(fèi)”按鈕，則計算到亥城

市的每噸運(yùn)費(fèi)(結(jié)果取整，不四舍五入)，并在Text2中顯示。每噸運(yùn)費(fèi)的計算方法

是：距離x折扣x單價。其中，單價為0.3。折扣為距離＜500折扣為1500S距離

V1000折扣為0.981000W距離V1500折扣為0.95150叱距離V2000折扣為

0.9220005距離折扣為0.9單擊“保存”按鈕，則把距離和每噸運(yùn)費(fèi)存到文件

out5.txt中。已經(jīng)給出了所有控件和部分程序，要求：①去掉程序中的注釋符，

把程序中的?改為正確的內(nèi)容。②編寫“計算運(yùn)費(fèi)”按鈕的Click事件過程。③編寫

列表框的Click事件過程。注意：不得修改已經(jīng)存在的程序；在退出程序之前，必

須至少計算一次運(yùn)費(fèi)，且必須使用“保存”按鈕存儲計算結(jié)果，否則無成績。最后，

程序按原文件名存盤。

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

口，去掉程序中的注釋符將問號改為正確的內(nèi)容，并編寫相應(yīng)的代碼。參考

答案Dima(10)AsInteger,nAsIntegerPrivateSubCommandl_CIick()Open

App.Path&"\in5.txf'ForInputAS#1WhileNotEOFfl)n=n+l'下標(biāo)循環(huán)加1

Input#1,ch$,a(n)，將文件依次讀入ch,a(n)中Listl.Additemch將城市名添加

到Listl中WendClose#1EndSubPrivateSubCommand2click()'需要考生編寫的

內(nèi)容b=Val(Textl)Ifb>=0Andb<500Then'判斷b的范圍m=0.3*bElselfb

>=500Andb<1000Thenm=0.3*b*0.98Elselfb>=1000Andb<1500

Thenm：0.3*b*0.95Elselfb>=1500Andb<2000Thenm=0.3*b*0.92

Elselfb>=2000Thenni=0.3*b*0.9EndlfText2==int(m)EndSubPrivateSub

Listl_Qick()'需要考生編寫的內(nèi)容Tex"=a(Listl.Listlndex+1)'通過

Listl.Listindex+1來確定所選城市對應(yīng)的距離EndSub步驟3：調(diào)試并運(yùn)行程

序，關(guān)閉程序后按題目要求存盤。

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

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

窗體上有兩個命令按鈕，其名稱分別為Commandl和Command2,標(biāo)題分別為“寫

文件”和“讀文件”，如圖3—131(a)所示。其中“寫文件”命令按鈕事件過程用來建立

一個通信錄，以隨機(jī)存取方式保存到文件t5.ixt中；而“讀文件”命令按鈕事件過

程用來讀出文件15.txt中的每個記錄，并在窗體上顯示出來。通信錄中的每個記

錄由三個字段組成，結(jié)為如下：姓名(Name)電話(Tel)郵政編碼(Pos)

LiuMingliang(010)62781234100082各字段的類型在長度為：姓名(Name)：字符串

15電話(Tel)：字符串15郵政編碼(Pos)：長整型(Long)程序運(yùn)行后,如果單擊“寫

文件”命令按鈕，則可以隨機(jī)存取方式打開文件t5.txt,并根據(jù)提示向文件中添加

記錄，每寫入一個記錄后，都要詢問是否再輸入新記錄，回答“Y"(或“y”)則輸入新

記錄，回答"N"(或"曖)則停止輸入：如果單擊“讀文件”命令按鈕，則可以隨機(jī)存取

方式打開文件t5.txt,讀出文件中的全部記錄，并在窗體上顯示出來，如圖3-

131(b)所示。該程序不完整，請把它補(bǔ)充完整。要求如下：①去掉程序中的注釋

符，把程序中的?改為正確內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的其他部

分。②文件5ixt中已有三個記錄，如圖3—131(b)所示，請運(yùn)行程序，單擊“寫

文件''命令按鈕，向文件t5.txt中添加以下兩個記錄(全部采用西文方式)：

LiDaqing(027)87348765430065ChenQingshan(022)26874321300120③運(yùn)行程后，

單擊“讀文件”命令按鈕，在窗體上顯示全部記錄(共5個)。④用原來的文件名保存

工程文件和窗體文件。

12Mx

eiS9Z34T“Y、,

!47K2

(a)(b)

圖3/31

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

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

碼：RccNum=RecNuin4-1Put#l,RccNum,PersLoopWhileUCasc(asp)<>nN"

RecNum=LOF(l)/Len(Pers)Get#l,i,Pers步驟2：按鍵運(yùn)行程序,先單擊“寫文

件”按鈕，然后在彈出的輸入框中依次按照題目要求輸入兩條記錄，再單擊“讀文

件''按鈕在窗體上顯示結(jié)果。步驟3：按要求將文件保存至考生文件夾中。

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

7、考生文件夾下的工程文件sjt5.vbp中的窗體上有兩個標(biāo)題分別是“產(chǎn)生數(shù)據(jù)”和

“排序”的命令按鈕。請畫兩個名稱分別為Textl、Text2,初始值為空，可顯示多行

文本，有垂直滾動條的文本框(如圖1—148所示)。程序功能如下：

圖1/48①單擊“產(chǎn)生數(shù)據(jù)”按鈕，隨機(jī)產(chǎn)生50個100

以內(nèi)的互不相等的整數(shù)，并將這50個數(shù)顯示在Textl文本框中：②單擊“排序”按

鈕，將50個數(shù)按升序排列，并顯示在Text2文本框中。“產(chǎn)生數(shù)據(jù)”和“排序”按鈕

的Click事件過程已經(jīng)給出，但不完整，請將事件過程中的注釋符去掉，把?改為

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

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

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

窗體上畫兩個文本框，屬性及其值如表2—59所示。

要2?59

對象屬性值

NameTextl

Text

文本框1

MultiLineTrue

ScrollBars2

NameText2

Text

文本框2；

MultiLineTrue

ScrollBars2

步驟2：在代碼編輯窗

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

Toi-1i=i-1Forj=i+1To50temp=a(i)a(j)=temp步驟3：按要求將文件保存

至考生文件災(zāi)中。

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

8、在考生目錄下有一個工程文件vbsj5.vbp,用來計算勾股定理整數(shù)組合的個

數(shù)。勾股定理中3個數(shù)的關(guān)系是：a2+b2=c2。例如，3、4、5就是一個滿足條件的

整數(shù)組合(注意：a,b,c分別為4,3,5與分別為3,4,5被視為同一個組合，不

應(yīng)該重復(fù)計算)。編寫程序，統(tǒng)計三個數(shù)均在60以內(nèi)滿足上述關(guān)系的整數(shù)組合的個

數(shù)，并顯示在標(biāo)簽Lbll中，運(yùn)行時程序界面如圖3-57所示。

圖3?57注意：不得修改原有程序的控件的屬性。在結(jié)束程序溶行

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

后把修改后的文件按原文件名存盤。程序源碼：PublicSubsave(1AsContro1)

OpenApp.Path&"\out5.txt'*ForOutputAs#1Print#1,I.CaptionClose#1

EndSub

標(biāo)準(zhǔn)答案：審題分析本題可通過一個嵌套的For。循環(huán)，來統(tǒng)計滿足題目要求的整

數(shù)組合的個數(shù)。其中，外循環(huán)變量i的取值范圍為1?60,內(nèi)循環(huán)變量i的取值范

圍為i?60(這樣可避免出現(xiàn)重復(fù)的組合)。通過表達(dá)式：Sqr(i*i+j*j尸

Int(Sqr(i*i+j*j))是否成立來判斷Sqr(i*i+j*j)的值是否為整或，并通過表達(dá)式：

Sqr(i*i+j*j)V=60是否成立來判斷Sqr(i*i+j*j)的值是否在60以內(nèi)，當(dāng)兩個條件同時

滿足時，此時的i、j及Sqr(i*i+j*j)即為滿足題目要求的整數(shù)組合，記錄組合個數(shù)的

變量n加一。循環(huán)結(jié)束，將n值顯示在標(biāo)簽Label1中。操作步驟步驟1：打開考

生文件夾下的工程文件vbsj5.vbp,在碼編輯窗口的指定位置輸入代碼：參考代

碼：PrivateSubCommandl_Click()'==考生編寫程序開始=二==DimiAsInteger

DimjAsIntegerDimnAsIntegerFori=1To59Forj=iTo60IfSqr(i*i+j*j)=Int(Sqr

(i*i+j*j))AndSqr(i*i+j*j)<=60Thenn=n+lEndIfNextNextLblI.Caption=n/===

考生編寫程序結(jié)束==='不要改動以下內(nèi)容saveLabel1EndSub步驟2：按鍵運(yùn)行

程序，單擊“計算”按鈕°步驟3：按要求將文件保存至考生文件夾中。考點(diǎn)鏈接

多重循環(huán)、常用內(nèi)部函數(shù)

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

9、在考生文件夾下有一個工程文件sjt5.vbp,其窗體中有一個實心圓。程序運(yùn)行

時，當(dāng)用鼠標(biāo)左鍵單擊窗體任何位置時，實心圓則向單擊位置直線移動；若用鼠標(biāo)

右鍵單擊窗體，則實心圓停止移動。窗體文件中已經(jīng)給出了全部控件，但程序不完

整。要求：請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其能正確運(yùn)

行，不能修改程序的其池部分和控件屬性。最后把修改后的文件按原文件名存盤。

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

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

stepy=a*stepxTimer1.Enabled=TrueTimerl.Enabled=FalSeShapeI.Move

Shapcl.Leftistepx,Shape1.Topfstepy步驟2：按要求將文件保存至考生文件夾

中。

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

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

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

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

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

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

卡獻(xiàn)仔7?七留省，否則無成績。最后把修改后的文件按原文件名存盤。

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

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

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

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

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

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

=CInt(Tcxtl.Text)Doa%=a%iILoopUnti1isprimc(a%)Tcxl2.Tcxt=a%EndSub

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

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

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

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

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

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

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

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

卷第2套

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

分。)

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

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

所示。圖3-31程序功能如下：1）單擊“讀

數(shù)據(jù)”按鈕，則將考生文件夾下in5.dal文件的內(nèi)容（該文件中含有不超過800個英

文單詞，單詞之間用1個空格隔開）顯示在Textl文本框中。2）單擊“統(tǒng)計”按鈕，

則自動統(tǒng)計Textl中所有5字母單詞的個數(shù)，并顯示在右下角的Label1標(biāo)簽中。

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

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

組元素中，返回值為單詞的總數(shù)目。要求：1）請將程序中的注釋符去掉，把?改為

正確的內(nèi)容；2）補(bǔ)全“統(tǒng)計”按鈕Click事件過程中的代碼，以實現(xiàn)上述程序功能。

注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必

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

序按原文件名存盤。

標(biāo)準(zhǔn)答案：【操作步驟】GetWords=mm=GetWords（Textl.Text,ch）'

考生編寫的程序代碼從這里開始k=0Fori=lTomIfLen（ch（i））=5Thenk

=k+lEndIfNextiLabel1.Caption=k1考生編寫的程序代碼到這

里結(jié)束步驟2：按VF5＞鍵運(yùn)行程序，單擊各個按鈕測試驗證。步驟3：按要求

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

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

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

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

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

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

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

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

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

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

并且Txt2中的數(shù)字減1,最多可輸入3次密碼，若3次輸入錯誤，則禁止再次輸

M：...

Ao圖3-66圖347程序源碼：Private

SubCmdl_Click(),If?=,,123456"ThenTxtl.Text=”密碼正確“'Txt1.?="nElse

Txt2.Text=Txt2.Text-1MfTxt2.Text>?ThenMsgBox"第”&(3-Txt2.Text)&”次

密碼錯誤，請重新輸入"ElseMsgBox2次輸入錯誤，請退出”Txtl.Enabled=?

EndIfEndIfEndSub

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

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

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

Txtl.PasswordChar=n"IfTxt2.Tcxt>OThcnTxtl.Enablcd=False步驟3：按要求

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

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

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

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

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

輸入，否則提示錯誤，并禁用文本框Txtl,

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

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

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

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

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

示)。要求編寫、、分解為“命令按鈕事件過程中、'考生編寫程序開始”和“考生編寫程序

結(jié)束”之間的代碼，以實現(xiàn)上述功能。過程IsPrime用來判斷一個數(shù)是否為素數(shù)，

如果是，返回值為True,否則返回值為False。注意：不得修改原有程序和控件的

屬性。至少正確運(yùn)行一次程序，且程序運(yùn)行時在文本框中輸入23456,單擊“分解

為"按鈕，將結(jié)果顯示在標(biāo)簽中，否則將沒有成績，最后將修改后的文件按原文件

名存盤。

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

口，在代碼編輯窗口指定位置編寫以下代碼。參考答案Fori=IT。

Val(Textl.Text)」從1開始，第一個找到的肯定就是滿足條件的最小素數(shù)If

IsPrime(i)AlldIsPrime(Val(Textl.Texl)—i)Then，判定兩個數(shù)是否都滿足素數(shù)條件

Label1=iIJabel2=Val(Textl.Text)-iExitForEndIfNexti步驟3：調(diào)試并運(yùn)行程

序，關(guān)閉程序后按題目要求存盤。

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

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

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

行注冊或登錄。注冊信息放在全局?jǐn)?shù)組users中，注冊用戶數(shù)(小丁或等于10個)放

存全局變量n中(均己在標(biāo)準(zhǔn)模塊中定文)。注冊時用戶名不能重復(fù)，且“口令”與

“驗證口令”必須相同，注冊成功則在,、啟動”窗體的標(biāo)簽中提示、、注冊成功”，否則提

示相應(yīng)錯誤信息。登錄時，檢驗用戶名和口令，若正確，則在“啟動”窗體的標(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：打開本題工程文件。步驟2：打開代碼編輯窗

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

PrivateSubCommandlClick。'清空重置Textl-Tcxt2-""Tcx(3-""EndSubSub

writeusers。'向教組users中寫入新用戶信息n=n+1'用戶數(shù)目自增users(n,1)=

Textl'保存用戶的用戶名、密碼users(n,2)=Text2EndSubPrivateSub

Command2_Click()IfText1=""ThenMsgBox("必須輸入用戶名!”)

Textl.SetFocus^extl重新獲得焦點(diǎn)Elselffinduser(Trim$(Textl))>0Then如找到

相同名。則返回位置一定大于0MsgBox(”此用戶名已經(jīng)存在!”)Elself

Tcxt2<>Tcxt3Then，比較口令與驗證口令是否相同MsgBox("口令驗證錯誤!”)Else

writeusersForm1.Label1="注冊成功!"'當(dāng)注冊成功后Labeii顯示成功信息

Form2.HideEndIfEndSubTorm3窗體代碼PrivateSubCommandlClick()k=

finduscr(Trim$(Tcxtl))Ifk=OThen，驗證用戶名是否存在MsgBox("沒有注冊!”)

ElselfTrim$(Text2)<>users(k,2)Then'驗證輸入的密碼是否正確MsgBox("口令錯

誤!”)ElseFoi'ml.Label1.Caption="登錄成功!”Form3.HideEndIfEndSUb步驟

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

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

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

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

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

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

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

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

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

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

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

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

=a%+1LoopUntilisprime(a%)Text2.Text=a%EndSub步驟3：編寫判斷素數(shù)

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

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

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

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

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

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

6、在窗體上畫一個文本框，名稱為Textl(可顯示多行)，然后再畫三個命令按鈕，

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

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

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

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

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

中。圖3/36注意：存盤時必須存放在考生文件夾

下，工程文件名為sjt5.vbp,窗體文件名為sjt5.frnio

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，如表4-80所示,

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

表4￡0________________

對較屬性值

NameTextl

文本框MultiLincTrue

Text

NameCommand1

命令按鈕1

Caption讀數(shù)

NameCommand?

命令按鈕2

Caption統(tǒng)計

NameCommands

命令按鈕3

Caption存盤

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

編寫相應(yīng)事件過程。參考代碼：OptionBase1Dimsum(6)AsIntegerPrivateSub

Commandl_Click()penApp.Path&"\in5.txt"ForInputAtC1Tcxtl.Tcxt=

Input(LOF(l),#1)CioSe#1EndSubPrivateSubCommand2_Click()Fori=1To6

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

Fori=IToLen(Texll.Text)C=LCase(Mid(Texll.Text,i,1))SelectCasecCase

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

CaSeC"sum(4)=sum(4)+1CaSe"m"sum(5)=sum(5)+1CaSe"n"sum(6)=sum(6)

+1EndSelectNextiEndIfEndSubPrivateSubCommand3_Click()OpenApp.Path

&”\out5.txt'TorOutputAs#1Fori=1To6Print=1,sum(i)NextiClose=1

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

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

7、在考生文件夾下有一三:有控件(如慳3-

圖3/41

141所示)和部分程序。程序運(yùn)行時，請

按以下順序操作：1)單擊“讀入文件''按鈕，把考生目錄下的文件in5.dat中的內(nèi)容

讀入內(nèi)存并顯示在上面的文本框(Texll)中；2)單擊“加密”按鈕，則可對Texll中的

內(nèi)容進(jìn)行加密并顯示在下面的文本框(Tex⑵中。3)單擊“存結(jié)果”按鈕則把，Text2中

的內(nèi)容存到。ut5.dat文件中。加密規(guī)則：對于第奇數(shù)個字符，若是字母，則把它

變?yōu)樗竺娴淖址?若為“Z”則變?yōu)椤癆")，不是字母則不變；對于第偶數(shù)個字符，若

是字母，則把它變?yōu)樗懊娴淖址?若為“A”則變?yōu)椤癦")，不是字母則不變。大小寫

字母都遵循此規(guī)則。例如：若原有的字符是：AbbaZGHa-MnnKYzx則加密后的

字符是：BaczAFGb-NmeiXaw已經(jīng)給出“存結(jié)果”按鈕的Click事件過程和函數(shù)

isletter,函數(shù)isletter(aAsString)判斷變量a中是否為一個字母，若是則返回True,

否則返回False,可以直接調(diào)用。請編寫“讀入文件”按鈕和“加密”按鈕的Click事

件過程，以實現(xiàn)上述功能。(in5.dat文件中只含英文單詞和空格，不分段落和行)

注意：考生不得修改己經(jīng)存在的程序，必須用“存結(jié)果”按鈕存儲加密結(jié)果，否則無

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

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

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

Command1_C1ick()Open"n5.dat"ForInputAs1LineInput#1,sCloseCI

Text!.Text=sEndSubPrivateSubCommand2Click()DimiAsInteger,ssAs

Stringss=""Fori=1ToLer^s)Ifisletter(Hid(s,i,l))=TrueThenIfiMod2=0

ThenTfMid(s,i,I)="a"Thcnss=ss&"z"ElseIFMid(S,i,l)="A"Thcnss=ss

&HZ"Elsess=ss&Chr(Asc(Mid(s,i,1))-1)EndIfElseIfMid(s,i,1)=

"Z"Thenss=ss&ElseIfMid(s,i,l)="z"Thenss=ss&"a1'Elses=ss&

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

Text2.Text=ssEndSub步驟2：按VF5＞鍵運(yùn)行程序，先單擊“讀入文件”按鈕，

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

閉按鈕結(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ù)，且“口令”與“驗證口令”須相

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

登錄時，檢驗用戶名和口令，若正確，則在“啟動”窗體的標(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：打開考生文件夾中的本題工程文件sjt5.vbp,

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

碼：,注冊窗體Fomi2—n=n+1Elselffinduser（TrimS（Textl））＞0Then

Forml.Label1.Caption="注冊成功!…登錄窗體Form3-Ifk=0Then

ElselfTrim$（Text2）＜＞users（k,2）Then步驟2：按要求將文件保存至考生文件夾

中。

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

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

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

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

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

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

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

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

出，請完善Function過程foundhuiwen的功能，實現(xiàn)上述程序功能。注意：考牛不

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

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

通就I卻I

盤。圖3-15

標(biāo)準(zhǔn)答案：審題分析本題中自定義函數(shù)foundhuiwen的功能是判斷字符串參數(shù)P是

否為回文，若是則返回函數(shù)值Tiuc,否則返回函數(shù)值F心。根據(jù)回文的定義程序

設(shè)計思路：在For循環(huán)中按從兩端到中間的順序，分別用Mid函數(shù)依次從字符串參

數(shù)P中同時取出兩個字符，并比較這兩個字符是否相同，若不相同則返回函數(shù)值

False,并用ExilFunclion語句退出自定義函數(shù)；否則繼續(xù)往下比較直至循環(huán)結(jié)束。

循環(huán)正常結(jié)束時，返回函數(shù)值True。操作步驟步驟1：打開考生文件夾下的工程

文件sjt5.vbp,如表4-9月不示在窗體上畫出控件并設(shè)置它們的相關(guān)屬性。

*4-9

丁MB澗M性

/值

4

NameLabel!

標(biāo)簽

Caption回文的個數(shù)為

NameTextl

文本框

Text步驟2：打開代碼編輯窗口，在指定位

置編寫foundhuiwen函數(shù)的過程。參考代碼：Functionfoundhuiwen(PAsString)

foundhuiwen=Truek=Len(p)Fori=1Tok/2IfMid(p?i,!)<>Mid(P,k+1—*i>

1)ThenfoundhUiwen二FalseExitForEndIfNextEndFunctjon步驟3：按鍵運(yùn)行程

序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“統(tǒng)計”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)

束程序。步驟4：按要求將文件保存至考生文件夾中?？键c(diǎn)鏈接常用內(nèi)部函數(shù)、

For循環(huán)結(jié)構(gòu)。

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

10、在考生文件夾中有一個工程文件sjt5.vbpo窗體外觀如圖2-58所示。運(yùn)行程

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

中。單擊''排序”按鈕時，對讀入的數(shù)據(jù)從小到大排序，并將排序結(jié)果顯示在窗體的

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

不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。請編寫“排序”命

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

性。最后把修改后的文件按原文件名存盤。程序調(diào)試通過后，兩個命令按鈕的事件

過程必須至少各執(zhí)行一次。留2a

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

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

/1￡(^(1)$二5&51「頷))步驟2：在代碼編輯窗口指定位置編寫以下代碼：參考

代碼：num=UBound(a)Fori=lTonum-1Forj=iTonumIfa(i)>a(j)Thent=a(i)a(i)

=a(j)a(j)=tEndIfNextNext步驟3：按VF5>健運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，

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

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

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

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

卷第3套

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

分。)

1、在考生文件夾中有一個工程文件sjt5.vbpo該程序的功能是從in5.txt文件中

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

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

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

修改原有程序和控件的屬性。程序結(jié)束運(yùn)行之前，必須全少正確運(yùn)行-次程序，將

統(tǒng)計的結(jié)果顯示在標(biāo)簽中，否則無成績。最后把修改后的文件按原文件名存盤。

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題工程文件。步驟2：分析并在