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

卷3（共6套）

（共60題）

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

卷第1套

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

分。）

1、（1）考生文件夾下有一個(gè)工程文件sjt3.vbp,其窗體上有1個(gè)名稱為Textl的控

件數(shù)組；一個(gè)標(biāo)題為“排序”的命令按鈕。程序運(yùn)行時(shí)，在文本框數(shù)組中輸入8個(gè)整

數(shù)，如圖3—29（a）所示；然后單擊“排序”按鈕，則8個(gè)整數(shù)按降序排序，如圖3—

29（b）所示。圖3.9在給出的窗體文件中己經(jīng)有了全部

控件，但程序不完整。請(qǐng)將事件過程中的注釋符去掉，把"?”改為正確的內(nèi)容，以

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

后將程序按原文件名存盤。（2）在考生文件夾下有工程文件爾4.vbpo其窗體界面

如圖3—30所示，可以實(shí)現(xiàn)以下功能：“添加項(xiàng)目''夜鈕可以把在組合框編輯區(qū)中輸

入的新項(xiàng)目添加到組合框列表中，但不能添加重復(fù)項(xiàng)目；“刪除項(xiàng)目”按鈕從列表中

刪除選中的項(xiàng)目；“添加愛好”按鈕把組合框編輯區(qū)中的內(nèi)容追加到下面的文本框原

有內(nèi)容之后；“清除愛好''按鈕清除該文本框內(nèi)容。

在給出的窗體文件中已經(jīng)有了全部控件，但程序

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

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

文件名存盤。

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

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

容。參*代碼：k=iFerj=i+1To7IfVal(Text1(j).Text)>Val(Textl(k).Text)

ThenTcxtl(k).Text=j步驟2：按要求將文件保存至考生文件夾中。第2小題

【操作步驟】步驟1：打開考生文件夾中的本題工程文件爾4.vbp,在代碼編輯

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

Combo1.Tcxt=Combol.List(k)ThenCombo1.AdditemCombol.Text

Combol.RemoveItemCombol.ListindexTextl.Text=Textl.Text&"

Combol.TextTextl.Text="”步驟2：按要求將文件保存至考生文件夾中。

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

2、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbpo程序運(yùn)行后，單擊“讀入數(shù)據(jù)”按

鈕，可將考生文件夾下in3.txt文件中的所有英文單詞讀入，并在Textl文本框中

顯示；單擊“插入列表框“按鈕，則按順序?qū)⒚總€(gè)單詞作為一項(xiàng)添加到Listl列表框

中(如圖所示)。在in3.txt文件中，每個(gè)單詞之間用一個(gè)空格字符隔開，最后一個(gè)

單詞的后而沒有空格。已經(jīng)給出了所有控件和程序，但程序不完整。要求：請(qǐng)去

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

程序中的其他部分和控件屬性。最后用原來的文件名保存工程文件和窗體文件。

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

程文件件sjt4.vbp,窗體上已經(jīng)添加所有控件，如圖所示。在程序運(yùn)行時(shí)，如果

單擊“開始”按鈕，則每隔0.1秒窗體上的汽車圖標(biāo)向右移動(dòng)一次（初始狀態(tài)下不移

動(dòng)）；如果單擊“停止”按鈕，則停止移動(dòng)。請(qǐng)完成以下工作：

①設(shè)置適當(dāng)控件的適當(dāng)屬性，使得每

0.1秒汽車圖標(biāo)向右移動(dòng)一次，而初始狀態(tài)下不移動(dòng)。②請(qǐng)去掉程序中的注釋

符，把程序中的?改為正確的內(nèi)容。③為兩個(gè)命令按鈕編寫適當(dāng)?shù)氖录^程，最后

以原文件名存盤。注意：不得修改已經(jīng)給出的程序。編寫事件的過程中不能使用

變量，每個(gè)事件過程中只能有一條語句。

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

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

Coinmandl_Click()Dimst$.ch$OpenApp.Path&"\in3.txt'TorInputAs#1'打開

文件DoWhileNotEOF(l)，文件指針是否到達(dá)文件末尾Input#,ch，迭到文件末尾返

回true,否則返回falsest=st&ch'將讀出的數(shù)據(jù)加到原有數(shù)據(jù)末尾LoopClose：

&1'關(guān)閉文件Textl=st'將內(nèi)容顯示在文本框中EndSubPrivateSubCommand?

Click（）Dimst$,word$,c$St=Textln=Lcn（st）Fork=1Tone=Mid（st,k,1）'從

st中依次取出1個(gè)字符進(jìn)行比較IfcoM,,Thenword=Word&cElseListl.Additem

wordword=""將word清空，為下一次作準(zhǔn)備EndIfNextListl.AdditemwordEnd

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

驟1：打開本題工程文件,設(shè)置計(jì)時(shí)器Inteval的屬性為100,將Enabled屬性設(shè)置

為False。步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案

PrivateSubTimerl_Timer（）Pl.Lcft=Pl.Lcft+20EndSub需要考生編寫的內(nèi)容

PrivateSubCl_Click()Timerl.Enabled=TrueEndSubPrivateSubC2CIick()

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

存盤。

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

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

個(gè)關(guān)聯(lián)表對(duì)象“tStud"、“tCoursc”和“tScorc”及一個(gè)臨時(shí)表對(duì)象“tTmp”。請(qǐng)按以卜要

求完成設(shè)計(jì)。（1）創(chuàng)建一個(gè)查詢，查找并顯示照片信息為空的男同學(xué)的“學(xué)號(hào)”、“姓

名,,、“性別,，和“年齡,,4個(gè)字段的內(nèi)容，將查詢命名為（2）創(chuàng)建一個(gè)查詢，查

找并顯示選課學(xué)生的“姓名”和“課程名”兩個(gè)字段的內(nèi)容，將查詢命名為“qT2L（3）

創(chuàng)建一個(gè)查詢，計(jì)算選課學(xué)生的平均分?jǐn)?shù)，顯示為“學(xué)號(hào)”和“平均分”兩列信息，要

求按照平均分降序排列，將查詢命名為“qT3”。（4）創(chuàng)建一個(gè)查詢，將臨時(shí)表對(duì)象

“tTmp”中女員工編號(hào)的第一個(gè)字符更改為“1”，所建查詢命名為“qT4”。

圖3.242步驟4：將查詢

保存為“ql2”.關(guān)閉沒計(jì)視圖。⑶【操作步驟】步驟1：單擊“創(chuàng)建”選項(xiàng)卡“查詢”

組中的“查詢?cè)O(shè)計(jì)”按鈕，從“顯示表”對(duì)話框中添加表々Score”，關(guān)閉“顯示表”對(duì)話

框。步驟2：分別雙擊“學(xué)號(hào)”和“成績”字段。單擊“查詢工具”的“設(shè)計(jì)”選項(xiàng)卡“顯示

/隱藏”組中的“匯總”按鈕，在“成績”字段“總計(jì)”行下拉列表中選擇“平均值”，在

“排序”行下拉列表中選擇“降序在“成績”字段前添加“平均分：”字樣，如圖

3.243所示。將查詢保存為“qT3”，關(guān)閉設(shè)計(jì)視圖。

圖3.243

(4)【操作步驟】步驟1：單擊“創(chuàng)建”

選項(xiàng)卡“查詢”組中的“查詢?cè)O(shè)計(jì)”按鈕，從“顯示表”對(duì)話框中添加表“iTmp”，關(guān)田

“顯示表”對(duì)話框。步驟2：分別雙擊“編號(hào)”和“性另「字段。單擊“查詢工具”的“設(shè)

計(jì)”選項(xiàng)卡“查詢類型”組中的"更新”按鈕，在“編號(hào)”字段“更新到''行輸入

“T&Mid(［編號(hào)］,2,5)”。在“性別”字段“條件”行輸入“女”字樣，如圖3.244所

示。單擊“設(shè)計(jì)”選項(xiàng)卡“結(jié)果”組中的“運(yùn)行”按鈕，在彈出的對(duì)話框中單擊“是”按

鈕。將查詢保存為“qT4”。關(guān)閉設(shè)計(jì)視圖。

圖3.244

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

4、在考生文件夾下，存在一個(gè)數(shù)據(jù)庫文件“samp2.accdb”，里而已經(jīng)設(shè)計(jì)好表對(duì)

象“tDoctor"、“tOflice"、"tPatient"和"tSubscribe”,同時(shí)還設(shè)計(jì)出窗體對(duì)象

“fQucry”。試按以下要求完成設(shè)計(jì)。（1）創(chuàng)建一個(gè)查詢，查找姓名為兩個(gè)字的姓

"王''病人的預(yù)約信息，并顯示病人的“姓名”、“年齡”、“性別”、“預(yù)約日期”、“科室

名稱”和“醫(yī)生姓名”，所建查詢命名為“qTl”。（2）創(chuàng)建一個(gè)查詢，統(tǒng)計(jì)星期一預(yù)約

病人的平均年齡，要求輸出一列內(nèi)容，顯示標(biāo)題為“平均年齡”，所建查詢命名為

“qT2”。（3）創(chuàng)建一個(gè)查詢，查找預(yù)約了但沒有留下電話的病人，并顯示“姓名”，所

建查詢命名為“qT3”。注意：病人的姓名不允許重復(fù)顯示。（4）現(xiàn)有一個(gè)已經(jīng)建好

的“fQucry”窗體，運(yùn)行該窗體后，在文本框（文本框名稱為tNamc）中輸入要查詢的

醫(yī)生姓名，然后按下'喳詢"按鈕，即運(yùn)行一個(gè)名為“qT4”的包詢?！皅T4”杳詢的功能

是顯爪所查醫(yī)生的“醫(yī)生姓名”和“預(yù)約人數(shù)”兩列信息，其中“預(yù)約人數(shù)”值由“病人

ID”字段統(tǒng)計(jì)得到，請(qǐng)?jiān)O(shè)計(jì)“qT4”查詢。

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：單擊“創(chuàng)建”選項(xiàng)卡下“查詢”組中的“查詢?cè)O(shè)計(jì)”

按鈕,在彈出的“顯示表”對(duì)話框中雙擊添加表“Doctor"、“tOffice"、"Patient”和

“tSubscMbc”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對(duì)話框。步驟2：雙擊tPaticnt

表的“姓名”、“年齡”、“性別”字段,雙擊［Subscribe表的“預(yù)約日期”字段，雙擊

（Office表的“科室名稱”卻（Doctor表的“醫(yī)生姓名”字段；在“姓名”字段的“條件”行

中輸入“Ukc”王?”“，如圖4.12所示。

圖4.12

步驟3：單擊快速訪問工具欄中

的“保存”按鈕，另存為RT1”，關(guān)閉設(shè)計(jì)視圖。（2）【操作步驟】步驟1：單擊“創(chuàng)

建”選項(xiàng)卡下“查詢”組中的“查詢?cè)O(shè)計(jì)”按鈕，在彈出的“顯示表”對(duì)話框中雙擊表

“tPatient”和“［Subscribe”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對(duì)話框。步驟2：雙

擊tPatient表中的“年齡”字段以及tSubscribc表中的“預(yù)約日期”字段，然后在“年齡”

字段前加“平均年齡：”字樣。步驟3：單擊“杳詢工具”的“設(shè)計(jì)”選項(xiàng)卡下“顯示/

隱藏”組中的“匯總”按鈕，在“平均年齡”字段的“總計(jì)”行中選擇“平均值”，在“預(yù)約

日期”字段的“總計(jì)”行中選擇“Where”,在“預(yù)約日期”的“條件”行中輸入

“Weekday（［預(yù)約H期］）=2"，如圖4.13所示，然后單擊快速訪問工具欄中的“保

存”按鈕,另存為“qT2”.

中（3）【操作步驟】步驟

1：單擊“創(chuàng)建”選項(xiàng)卡下“查詢”組中的“查詢?cè)O(shè)計(jì)”按鈕，在彈出的“顯示表”對(duì)話框

中雙擊表“tPaticnt”和“tSubscribc”，然后單擊“關(guān)閉”按鈕,關(guān)閉“顯示表”對(duì)話框。

步驟2：雙擊“姓名”和“電話”字段，然后取消“電話”字段“顯示”行復(fù)選框的勾選。

步驟3：單擊“查詢工具”的“設(shè)計(jì)”選項(xiàng)卡下“顯示/隱藏”組中的“匯總”按鈕，在“電

話”字段對(duì)應(yīng)的“總計(jì)”行中選擇“Where”,在“條件”行中輸入“IsNull”,如圖4.14

所示，然后單擊快速訪問工具欄中的“保存”按鈕，另存為“qT3”。

圖4.14

(4)【操作步驟】步驟1：

單擊“創(chuàng)建”選項(xiàng)卡下“查詢”組中的“查詢?cè)O(shè)計(jì)”按鈕，在彈出的“顯示表”對(duì)話框中雙

擊表“iDoclor”和“tSubscribe”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對(duì)話框。步驟

2：雙擊tDoctor。表中“醫(yī)生姓名”字段，[Subscribe表中的“病人ID”字段，并在“病

人ID”字段前加“預(yù)約人數(shù)：”字樣。步驟3：單擊“查詢工具”的“設(shè)計(jì)”選項(xiàng)卡不“顯

示/隱藏”組中的“匯總"按鈕，在“預(yù)約人數(shù)”字段的“總計(jì)”行中選擇“計(jì)數(shù)”，在“醫(yī)

生姓名”字段的“條件”行中輸入“[Forms]![fQuery]![tName『，如圖4.15所示，然后

單擊快速訪問工具欄中的“保存”按鈕，另存為“qT4\關(guān)閉“設(shè)計(jì)視圖”。

圖4.15

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

5、(1)在考生目錄下有一個(gè)工程文件sjt3.vbp。程序的功能是：通過鍵盤向文本

框中輸入數(shù)字，如果輸入的是非數(shù)字字符，則提示輸入錯(cuò)誤，且文本框中不顯示輸

入的字符。單擊名稱為Command］、標(biāo)題為“添加I”的命令按鈕，則將文本框中的數(shù)

字添加到名稱為Combol的組合框中。在給出的窗體文件中已經(jīng)添加了全部控件，

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

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

盤。(2)在考生目錄下有一個(gè)工程文件sjt4.vbp。該程序的功能是計(jì)算

M!+(M+l)!+(M+2)!+…+N!之和。窗體上有名稱分別為Text1、Text2的兩個(gè)文本

框，用于接收輸入的M和N(要求M<N)。單擊名稱為Command］、標(biāo)題為“計(jì)

算”的命令按鈕，計(jì)算M!+(M+l)!+(M+2)!+…+N!之和，并將計(jì)算結(jié)果顯示在標(biāo)簽

IblRcsult中。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整，要求去掉

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

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

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

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

參考代碼：Combol.AddltemText1.TextIfKeyAscii>57OrKeyAscii<48Then

KcyAscii=O步驟2：按要求將文件保存至考生文件夾中。笫2小題【操作步驟】

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

的注釋符將問號(hào)“?”改為正確的內(nèi)容。參考代碼：Fori=mTont=f(i)s=s+

tt二步驟2：按VF5>鍵鍵運(yùn)行程序，在第一個(gè)文本框中輸入一個(gè)整數(shù)，

第二個(gè)文本框中輸入比第一個(gè)文本框中大的數(shù)，然后單擊“計(jì)算”按鈕。步驟3：按

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

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

6、(1)在考生文件夾中有一個(gè)工程文件sjt3.vbp,窗體控件布局如圖1-214

(a)所示°程序運(yùn)行時(shí)，在文本框Tex”中輸入一個(gè)正整數(shù),選擇“奇數(shù)和”或“偶

數(shù)和”，則在Label2中顯示所選的計(jì)算類別。單擊“計(jì)算”按鈕時(shí)，將按照選定的

“計(jì)算類別”計(jì)算小于或等于輸入數(shù)據(jù)的奇數(shù)和或偶數(shù)和，并將計(jì)算結(jié)果顯示在

Label3中。程序的一次運(yùn)行結(jié)果如圖1—214(b)所示。在窗體文件中已經(jīng)給出了

(a)(b)

全部控件，但程序不完整。圖1-214要求：請(qǐng)

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

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

考生文件夾下有一個(gè)工程文件sjt4.vbp。程序運(yùn)行后，如果單擊“開始”按鈕，則圖

片自左向右移動(dòng)，同時(shí)滾動(dòng)條的滑塊隨之移動(dòng)，每0.5秒移動(dòng)一次。當(dāng)圖片完全移

出窗體的右邊界時(shí)，立即再從窗體的左邊界開始重新移動(dòng)，若單擊“停止”按鈕，則

圖片停止移動(dòng)，如圖1—215所示。在窗體文件中已經(jīng)給出了全部控件，但程序不

完整。圖】-215要求：請(qǐng)去掉程序中的注

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

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

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

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

參考代碼：Callcalc(i)Lbl2.Caption=Optionl(i).Captionx=Val(Texll.Text)IfiMod

2=1ThenLabel3.Caption=result步驟2：按要求將文件保存至考生文件夾中。第

2小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt4.vbp°步躲

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

考代碼：Timerl.Enabled=FalseTimer!.Interval=500IfPicture1.Left>

Form1.WidthThenPicture1.Left=0步驟3：按要求將文件保存至考生文件夾中。

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

7、(1)在考生文件夾下有一個(gè)工程文件vbsj3.vbp。窗體上有一個(gè)標(biāo)題為“得分”

的框架，在框架中有一個(gè)名稱為Txtl的文本框數(shù)組，含六個(gè)元素；文本框Txl2用

來輸入難度系數(shù)。程序運(yùn)行時(shí)，在左邊的六個(gè)文本框中輸入6個(gè)得分，輸入難度系

數(shù)后，單擊“計(jì)算分?jǐn)?shù)”按鈕，則可計(jì)算出最后得分并在文本框Txt3中顯示(如圖1

—335所示)。圖1935計(jì)算方法：去掉1個(gè)最高得

分和1個(gè)最低得分，求剩下得分的平均分，再乘以3,再乘以難度系數(shù)。最后結(jié)果

保留到第2位小數(shù)，不四舍五入。注意：文件中已經(jīng)給出了所有控件和程序，但

程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的改為正確的內(nèi)容?？忌荒?/p>

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

程序源碼：PrivateSubCmdl_Click()DimkAsInteger,sAsSingle,aAs_Single,b

AsSinglea=Val(Txt1(O).Text)s=ab=a'Fork=lTo?s=s+

Val(Txtl(k).Text)"If?<Val(Txtl(k).Text)Thena=Val(Txti(k).Text)EndIfIfb>

Val(Txtl(k).Text)Thenb=Val(Txtl(k).Text)EndIfNextk's=(s—a—b)/?'s

=?*3*Val(Txt2.Text)*?=Int(s*100)/100EndSub(2)在名稱為Forml的窗

體上畫一個(gè)名稱為picOpen的圖片框，并利用屬性窗口把考生目錄中的圖標(biāo)文件

Open.ico放到圖片框中；再畫一個(gè)通用對(duì)話框控件，名稱為cdlOpen,利用屬性窗

口設(shè)置相應(yīng)屬性，即打開對(duì)話框時(shí)：標(biāo)題為“打開文件”，文件類型為“Word文

檔“，初始目錄為C盤根目錄。再編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊P1

圖片框，可以打開上述對(duì)話框。運(yùn)行后的窗體如圖1—336所示。

CForml?=j0￡3

FOF：

?計(jì)麗?和u?/“ZMaa:ES￡aa

圖1-336注意：存盤時(shí)必

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

中不得使用任何變量。

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

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

容。參*代碼：Fork=ITo5Ifa<Val(Txtl(k).Text)Thens=(s-a-b)/4s=s*

3*Val(Txt2.Text)Txt3.Text=Int(s*100)/100步驟2：按要求將文件保存至考生文

件夾中。第2小題【操作步驟】步驟I：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按表2—177

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

表2-177

對(duì)象屬性值

NamepicOpen

圖片框

PictureOpen.ico

NamecdlOpen

DialogTitle打開文件

通用對(duì)話框

FilterWord文檔|*.doc

Filterindex1

InitDirC:

步驟2：打開代碼編輯窗

口，編寫如下事件過程。參考代碼：PrivateSubpicOpen_Click()

cdlOpen.ShowOpenEndSub步驟3：按要求將文粹保存至考生文件夾中。

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

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

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

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

132所示。在給出的窗體文件中己經(jīng)添加了全部控件，但程序不完整。要求：去掉

程序中的注釋符，把程序中的?改為正確的內(nèi)容。

圖3432注意：不能修改程序的其他部分和控件

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

標(biāo)準(zhǔn)答案：審題分析本題源程序在For循環(huán)體中(其中循環(huán)終值應(yīng)為文本框的字符

長度，即n=Len(Textl.Text)),用Mid函數(shù)逐一取出文本框中的每個(gè)字符，并用

Asc函數(shù)返回其ASCII碼。若取出字符的ASCII碼在48?57之間，則記錄數(shù)字個(gè)

數(shù)的數(shù)組變量a(0)增1；若ASCII碼在65?90之間，則記錄大寫字母個(gè)數(shù)的數(shù)組

變量a⑴增1；若ASCH碼在97?122之間，則記錄小寫字母個(gè)數(shù)的數(shù)組變量a(2)

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

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

n=Len(Textl.Text)b=Asc(Mid(s?i,1))SelectCasebFori=0To2⑴步驟

2：按要求將文件保存至考生文件夾中?？键c(diǎn)鏈接數(shù)組定義與操作、常用內(nèi)部函

數(shù)、多分支結(jié)構(gòu)。

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

9、在考生文件夾下有一個(gè)工程文件sjl3.vbp0程序的功能是：在運(yùn)行時(shí)，如果選

中一個(gè)單選按鈕和一個(gè)或兩個(gè)復(fù)選框，并單擊“確定”按鈕，則對(duì)文本框中的文字做

相應(yīng)的設(shè)置，如圖2-140所示。窗體上的控件已經(jīng)畫出，但沒有給出主要程序內(nèi)

容，請(qǐng)編寫適當(dāng)?shù)氖录^程，完成上述功能。注意：不能修改已經(jīng)給出的程序部

分和已有的控件；在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕和至少一個(gè)復(fù)選

框，并單擊''確定”按鈕：必須通過單擊窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成

????I

V

cM廠下.131

<IMPtHI

績。最后把修改后的文，‘牛按原文件名存盤。圖2/的

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

編輯窗口，編寫“確定"按鈕的Click事件過程，代碼如下。參考代碼：PrivateSub

Commandl_Click()IfOpl.ValueThenTextl.FontName=Opl.CaptionElself

Op2.ValueThenTextl.FontName=Op2.CaptiOnEndlfIfCh1.Value=lThen

Text).FontUndcrline=TrueElseTextl.FontUndcrline=FaIseEndlfIfCh2.Value=l

ThenTextl.FontItalic=TrtleElseTextl.FontItalic=FalseEndlfEndSub步驟3：按要

求將文件保存至考生文件夾中。步驟4：按＜F5＞鍵運(yùn)行程序，選中一個(gè)單選按

鈕和至少一個(gè)復(fù)選框，并單擊“確定“按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程

序。

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

1。、在名稱為卜orml的窗體上畫兩個(gè)圖片框，名稱分別為Pl、P2,高度均為

1900,寬度均為1700,通過屬性窗口把圖片文件picl.bmp放入P1中，把圖片文

件pic2.jpg放入P2中：再畫一個(gè)命令按鈕，名稱為C1,標(biāo)題為“交換圖片”（如圖

2-208所示）。編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，如果單擊”交換圖片…按鈕，則

在P1中顯示pic2.jpg,在P2中顯示picl.bmp。程序中不得使用任何變量，也不

能使用第三個(gè)圖片框。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為

sit3.vbp,窗體文件名為sjt3.fnr）o網(wǎng)zcos

標(biāo)準(zhǔn)答案：步驟1：新建一個(gè)‘標(biāo)準(zhǔn)EXE”工程，在窗體Forml中如表3-122畫出所

?3-122

■

Namen

hcturc

MHK1

IWO

Height]700

_Namen

PictureRbmp

ran*2

Wwkh1900

幄小1700

MmeCl

列控件并設(shè)置其相關(guān)屬性。Optra小陽片步驟2：打開代碼編輯

窗口，編寫命令按鈕的Click事件過程：參考代碼：PrivateSubCI_Click()

Picl.Picture=LoadPicture(App.Path+_"\pic2.bmp”)

Pic2.Picture=LoadPicture(App.Path+_**\picl.bmp")EndSub步驟3：按要求將

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

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

國家二級(jí)VB機(jī)試(簡單應(yīng)用題)模擬試

卷第2套

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

分。)

1、(1)在考生文件夾下有一個(gè)工程文件vbsj3.vbp,相應(yīng)的窗體文件名為

vbsj3.frmo在窗體上有一個(gè)命令按鈕，其名稱為cmdAdd,標(biāo)題為“添加”；有一

個(gè)文本框，名稱為txtSentense,初始內(nèi)容為空白；有一個(gè)列表框，名稱為

IstWordo程序運(yùn)行后，在文本框中輸入一個(gè)英文句子(由多個(gè)單詞組成，各單詞之

間用一個(gè)空格分開)，然后單擊命令按鈕，程序?qū)言撚⑽木渥臃纸鉃閱卧~，并把

每個(gè)單詞作為一個(gè)項(xiàng)目添加到列表框中，如圖3—64所示。該程序不完整，請(qǐng)把它

補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其能

正確運(yùn)行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

程序源碼：PrivateSubcmdAdd_click()DimSIAsString,S2AsStringDimIIAs

Integer'Sl=?11=1Do'DoWhileMid(Sl,II,l)O?AndIl<=Len(Sl)

S2=S2&Mid(Sl,II,1)11=11+1LoopUstword.Additem??S2=?11=11+1LoopWhile

I1V二Len(Sl)(2)在考生文件夾下有一個(gè)工程文件vbsj4.vbp,請(qǐng)?jiān)诖绑w上畫三個(gè)

文本框，其名稱分別為Txtl、Txt2和。txtResult,文本框內(nèi)容分別設(shè)置為“等級(jí)考

試”、“全國計(jì)算機(jī)”和空白。然后畫兩個(gè)單選按鈕，其名稱分別為optChange和

optLink,標(biāo)題分別為“交換”和“連接”，如圖3—65所示。編寫適當(dāng)?shù)氖录绦?，?/p>

求在程序運(yùn)行時(shí)，先單擊“交換''單選按鈕，使Txll文本框中內(nèi)容與Txt2文本框中

內(nèi)容進(jìn)行交換，并使“交換”單選按鈕消失；然后單擊“連接”單選按鈕，則把交換后

的Txtl和Txt2的內(nèi)容以Txtl在前,Txt2在后的順序連接起來，并在txtResuh文

本框中顯示連接后的內(nèi)容。存盤時(shí)，工程文件名為vbsj4.vbp,窗體文件名為

r

vbsj4.frm。圖？?64圖工65注

意：不得修改已經(jīng)給出的程序。在結(jié)束程序運(yùn)行之前，必須先單擊"交換''單選按

鈕，后單擊“連接”單選按鈕。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕，否

則可能無成績。程序源碼：PrivateSubForm_Unload(CancelAsInteger)

Open"out4.txt"ForOutputAs#lPrint#1,Txtl.Text,Txt2.Text,

_txtResult.TextClose#lEndSub

標(biāo)準(zhǔn)答案：第1小題步驟1;打開考生文件夾下的工程文件vbsj3.vbpo步驟2：

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

碼：Sl=txtSentense.TextDoWhileMid(Sl,II,1)<>H"AndII_<=Len(Sl)

1stWord.AddltemS2s2="”步驟3：按要求將文件保存至考生文拜夾中。第2小

題步驟I：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按表4—40在窗體中畫出控件并設(shè)置其相

表44)

對(duì)象屬性值

SameTxil

文本和1

Text等級(jí)考試

NameTxi2

文人框2

lext全國計(jì)旗機(jī)

NametxtRcsult

-3

lext

NameoptChange

單選按鈕1

Cupturn交換

NameoptLink

處乩按鈕2

Cdpiion連接

關(guān)屬性。-------------步驟2：在代碼編輯窗

口，編寫3個(gè)按鈕的單擊事件過程。參考代碼：PrivateSubopiChange_Click()

DimtempAsStringtemp=Txtl.TextTxtl.Text=Txt2.TextTxt2.Text=temp

optChange.Visible=FalseEndSubPrivateSuboptLink_Click()

IxtResult.Text=Txtl.Text&Txt2.TextEndSub步驟3：按要求將文件保存至考生

文件夾中。

知識(shí)點(diǎn)解析：第1小題：程序設(shè)計(jì)思路：從文本框的第1個(gè)字符開始依次檢查其后

面的每一個(gè)字符，若發(fā)現(xiàn)空格則將其之前或兩個(gè)空格之間的字符串作為一個(gè)單詞添

加到列表框中。在D。循環(huán)(指內(nèi)循環(huán)，循環(huán)條件為：取出的字符為非空格字符且

取字符的起始位置沒有超出文本框的總字符數(shù)，表達(dá)式為：Mid(Sl,II,I)<>n

"AndIl<=Len(Sl),其中Sl=txtSentense.Text,將Mid函數(shù)從文本框中取出的非

空格字符，逐個(gè)連接成一個(gè)單詞，語句為：S2=S2&Mid(Sl,II,1),每執(zhí)行一次

循環(huán)體取字符的起始位置加1,即11=11+1。當(dāng)遇到空格時(shí)結(jié)束循環(huán)，將得到的單

詞(即變量S2的值)用Additem方法添加到列表框中，并且清空變量s2,將取寧符

的起始位置加1。之后繼續(xù)執(zhí)行內(nèi)循環(huán)以得到下一個(gè)單詞，直到取字符的起始位置

(即變量II的值)超過文本框的總字符數(shù)為止，外循環(huán)的條件為：UV=Len(Sl)0第

2小題：根據(jù)題目要求，設(shè)計(jì)本題程序的思路：在叩［Change單選按鈕的Click事

件應(yīng)實(shí)現(xiàn)：將Txtl和Txt2文本框中的內(nèi)容互換，可以通過一個(gè)中間變量來交換兩

個(gè)文木框中的內(nèi)容，然后將optChange的Enable屬性設(shè)置為Falseo在oplLink單選

按鈕的Click事件應(yīng)實(shí)現(xiàn)：將兩個(gè)文本框中的內(nèi)容連接進(jìn)來，這罩我們可以采用連

接字符符號(hào)來連接兩個(gè)義本框的Text屬性。

2、（1）在考生文件夾下有一個(gè)工程文件sjt3.vbpo程序的功能是：1）程序運(yùn)行時(shí)，

文件列表框顯示當(dāng)前文件夾中的所有擴(kuò)展名為jpg的文件。2）雙擊文件列表框中某

個(gè)圖片文件名時(shí)，能在圖像框中顯示出該張圖片，并將該圖片文件的信息（包括路

圖3y2

3）“下一張”命令按鈕的功

能：選中并顯示上次選中文件的下一個(gè)圖片文件（如果文件列表框中沒有被選中的

圖片文件或上次選中的是最后一個(gè)文件名，則從第1個(gè)圖片文件始）。在當(dāng)前程序

所在文件夾中，已經(jīng)提供了所需要的圖片文件，運(yùn)行時(shí)窗體如圖所示。在給出的

窗體文件中已經(jīng)有了全部控件，但程序不完整。請(qǐng)將事件過程中的注釋符去抻，把

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

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

文件sjt4.vbp。程序的功能是：程序運(yùn)行時(shí)，文本框中顯示一篇英文短文，單擊

??????????▲、??????、??

圖373

若未找到查找內(nèi)容，查找結(jié)

束；若找到查找內(nèi)容，被找到的內(nèi)容在文本框中以反相顯示（即呈選中狀態(tài)），每找

到一次都給出提示，并在左下角文本框中顯示累計(jì)的次數(shù)，如圖3—44所示。

圖3*若單擊提示對(duì)話框的“是”

按鈕，則繼續(xù)向后查找；若單擊“否”按鈕，則終止杳找。在給出的窗體文件中已經(jīng)

有了全部控件，但程序不完整。請(qǐng)將事件過程中的注釋符去掉，把"?”改為正確的

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

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

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

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

容。參考代碼：IfFilel.Listindex=_1OrFilel.Listindex=File1.ListCount—I

ThenFilel.Listindex=Filel.Listindex+1Label1.Caption=App.Path+"\"+

Filel.FileNameFilel.Pallem="*.jpq”步驟2：按要求將文件保存至考生文件夾

中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件

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

容。參考代碼:Textl.SelStart=pos—1Textl.SelLength=Len(fstr)times=times

+1pos=InStr(pos,ostr,fstr)步窺2：按要求將文件保存至考生文件夾中。

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

3、(1)在考生文件夾下有一個(gè)工程文件sjt3.vbpo程序運(yùn)行時(shí)，單擊窗體則顯示如

圖所示的圖案。請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不

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

\一_____----------1(2)在考生文件夾下有一個(gè)工程文件

sjt4.vbp,窗體中有一個(gè)矩形和一個(gè)圓，程序運(yùn)行時(shí)，單擊“開始”按鈕，圓可以橫

向或縱向運(yùn)行(通過選擇單選按鈕米決定)，碰到矩形的邊時(shí)，則向其相反方向運(yùn)

動(dòng)，單擊“停止”按鈕，則停止運(yùn)動(dòng)，如圖所示?？梢酝ㄟ^選擇單選按鈕隨時(shí)改變運(yùn)

動(dòng)方向。已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符把

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

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

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

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

Form_Click()Fori=lTo5,輸入5行Forj=lTo6—i，循環(huán)實(shí)現(xiàn)輸入空格，每行依次

減少一個(gè)空格Print"：NextjForj=iTo2*i—1圖像每行*的個(gè)數(shù)Print”*"：Nextj

PrintNextiFori=1To4Forj=1Toi+1'同問題1Print'"；NextjForj=1To(9~

2*i)，同問題2Print"*"；NextjPrintNextiEndSub程序結(jié)束步驟3：調(diào)試并運(yùn)行程

序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：打開：木題工程文

件。步驟2：打開代碼編輯窗U,去掉程序中的注釋符“巾，將問號(hào)改為正確的內(nèi)

容。參考答案DimdAsIntegerPrivateSubCommandlClick()Timerl.Enabled=

True'當(dāng)單擊"開始"按鈕時(shí),Timer生效EndSubPrivateSubCommand!Click()

Timerl.Enabled=False'當(dāng)單擊"停止"按鈕時(shí)，Timer失效EndSubPrivateSub

Form_Load（）d=1EndSubPrivateSubTimerlTimer（）IfOption!Then'判斷Oplion】

是否版單擊Shape2.Top=Shape2.Top+d*50'實(shí)現(xiàn)圓垂直移動(dòng)IfShape2.Top<

=Shape1.ToporShape2.Top+Shape2.Width>=Shape1.Top+Shape1.Height

Then，判斷Shape2與Shapel的位置d=-d'當(dāng)圃移出Shape）時(shí)，改變移動(dòng)方向

EndIfElselfOption?ThenShape2.Left=Sh叩e2.Left+d*50'實(shí)現(xiàn)水平移動(dòng)If

Shape2.Left<=ShapeI.LeftOrSh叩e2.Left+Shape2.Width>=Shape1.Left

+Shapel.WidihThend=-d'當(dāng)圃移出Shapel時(shí)，則改變移動(dòng)方向EndIfEndIf

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

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

4、在考生文件夾下，存在一個(gè)數(shù)據(jù)庫文件“samp2.accdb”，里面已經(jīng)設(shè)計(jì)好三個(gè)

關(guān)聯(lián)表對(duì)象“tStud"、“Course"、"Score”和一個(gè)臨時(shí)表對(duì)象“tTemp”。試按以下要求

完成設(shè)計(jì)工（1）創(chuàng)建一個(gè)查詢，按所屬院系統(tǒng)計(jì)學(xué)生的平均年齡，字段顯示標(biāo)題為

“院系”和“平均年齡”，所建查詢命名為“qTl”。要求：平均年齡四舍五人取整處

理。（2）創(chuàng)建一個(gè)查詢，查找上半年入學(xué)的學(xué)生，井顯示“姓名”、“性別”、“課程

名''和"成績”等字段內(nèi)容，所建查詢命名為“qT2”。（3）創(chuàng)建一個(gè)查詢，查找沒有選

課的同學(xué)，并顯示其“學(xué)號(hào)”和“姓名”兩個(gè)字段內(nèi)容，所建查詢命名為“qT3”。（4）創(chuàng)

建刪除查詢，將表對(duì)象“tTemp”中年齡值高于平均年齡（不含平均年齡）的學(xué)生記錄

刪除，所建查詢命名為“qT40

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1:單擊“創(chuàng)建”選項(xiàng)卡下“查詢”組中的喳詢?cè)O(shè)計(jì)”

按鈕，在彈出的“顯示表”對(duì)話框中雙擊添加表“tStud”，然后單擊“關(guān)閉”按鈕，關(guān)閉

“顯示表”對(duì)話框。步驟2：在“字段”行中分別輸入“院系：所屬院系”和“平均年

齡：Round（Avg（［年齡］）,0）“。步驟3：單擊“查詢工具”的“設(shè)計(jì)”選項(xiàng)卡下“顯示/

隱藏”組中的“匯總”按鈕，然后在“平均年齡：Round（Avg（［年齡］）,0）”字段的“總計(jì)”

行的下拉列表中選擇“Expression”命令，如圖4.34所示。

圖4.34步驟張單擊陜速訪問工具欄

中的“保存”按鈕，另存為“qTl”。（2）【操作步驟】步驟1：單擊“創(chuàng)建”選項(xiàng)卡下

“查詢”組中的“查詢?cè)O(shè)計(jì)”按鈕，在彈出的“顯示表”對(duì)話框中版擊表“Stud”、

'Course”和“tScore”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對(duì)話框。步驟2：選中

表“tStud”中的“學(xué)號(hào)”字段,然后拖動(dòng)鼠標(biāo)指針到表“tScore”中的“學(xué)號(hào)”字段,放開

鼠標(biāo)左鍵，選中表々Course”中的“課程號(hào)”字段，然后拖動(dòng)鼠標(biāo)指針到表“Score”中

的“課程號(hào)”字段，放開鼠標(biāo)左鍵。步驟3：分別雙擊添加“姓名”、“性別”、“課程

名”、“成績”和“入校時(shí)間”字段，在其下一字段行中輸入“Month（［入校時(shí)間］）”，取

消“Month（［入校時(shí)間］）”字段顯示行復(fù)選框的勾選，在“Month（［入校時(shí)間］）”字段的

“條件'行中輸入">=1AndV=6”,如圖4.35所示。

圖4?35步驟張單擊快速訪問工

具欄中的“保存”按鈕，另存為“qT2L（3）【操作步驟】步驟1：單擊“創(chuàng)建”選項(xiàng)卡

下查詢”組中的“查詢?cè)O(shè)計(jì)”按鈕，在彈出的“顯示表”對(duì)話框中雙擊添加表“tStud”，

然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對(duì)話框。步驟2：雙擊添加“學(xué)號(hào)”和“姓名”字

段，在“學(xué)號(hào)”的“條件”行中輸入“Notln（SELECTtSlud.學(xué)號(hào)FROMtStudINNER

JOINtScoreON（Stud.學(xué)號(hào)=tScore.學(xué)號(hào)GROUPBYtStud.學(xué)號(hào)）”，如圖4.36

所示。圖4.36步驟3：單擊

快速訪問工具欄中的“保存”按鈕，另存為“qT3”。（4）【操作步驟】步驟1：單擊

“創(chuàng)建”選項(xiàng)卡“查詢”組中的“查詢?cè)O(shè)計(jì)”按鈕，在彈山的“顯示表”對(duì)話框中雙擊添加

表Fcmp”，然后單擊“關(guān)閉”按鈕，關(guān)閉、'顯示表”對(duì)話框。步驟2：雙擊添加、洋

齡”字段。步驟3：單擊“查詢工具”的“設(shè)計(jì)”選項(xiàng)卡下“查詢類型”組中的“刪除”按

鈕，在“年齡”字段的“條件”行中輸入“〉（selectavg（年齡）from[tTemp]）”，如圖4.37

所示。圖4.37步驟擊單擊“查詢工

具”的“設(shè)計(jì)”選項(xiàng)卡下“結(jié)果”組中的“運(yùn)行”按鈕，在彈出的“MicrosoftAccess”對(duì)話

框中單擊“是”按鈕。步驟5：單擊快速訪問工具欄中的“保存”按鈕，另存為

“qT4”，關(guān)閉“設(shè)計(jì)視圖”。

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

5、（I）在考生文件夾下有一個(gè)工程文件sjt3.vbp。程序運(yùn)行時(shí)，單擊窗體則顯示

序中的注釋符，把程序中的?改為正確的內(nèi)容。

0For...五

*

***

*****

*******

*********

*******

*****

***