國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷26（共27題）

國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷26（共9套）（共27題）國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為Frame1、標(biāo)題為“目的地”的框架，在框架中添加三個(gè)復(fù)選框，名稱(chēng)分別為Check1、Check2、Check3，其標(biāo)題分別是“上?！薄ⅰ皬V州”、“巴黎”，其中“上?！睘檫x中狀態(tài)，“廣州”為未選狀態(tài)，“巴黎”為灰色狀態(tài)，如圖3—117所示。請(qǐng)畫(huà)控件并設(shè)置相應(yīng)屬性。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjt1．frm。(2)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為Picture1的圖片框，其寬和高分別為1700、1900。請(qǐng)編寫(xiě)適當(dāng)事件過(guò)程，使得在運(yùn)行時(shí)，單擊圖片框，則裝入考生目錄下的圖形文件pic1．bmp，如圖3—118所示。單擊窗體則圖片框中的圖形消失。要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程。步驟2：在窗體Form1中加入一個(gè)框架，然后依次在框架中畫(huà)出三個(gè)復(fù)選框。步驟3：分別沒(méi)置框架和各復(fù)選框的相關(guān)屬性，其屬性及值如表4—70所示。步驟4：按要求將文件保存至考生文件夾中。第2小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表4—71在窗體中畫(huà)出圖片框并設(shè)置其相關(guān)屬性。步驟2：打開(kāi)代碼編輯窗口，編寫(xiě)圖片框和窗體的單擊事件過(guò)程。參考代碼：PrivateSubForm_Click()Picture1．Picture=LoadPicture("")EndSubPrivateSubPicture1_Click()Picture1．Picture=LoadPicture("pic1．bmp")EndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題：本題只需按要求畫(huà)出框架以及框架中的復(fù)選框，并設(shè)置其Value屬性。第2小題：本題需分別住圖片框和窗體的Click事件過(guò)程中，用LoadPicture()函數(shù)為圖像框加載或清除圖片。二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生目錄下有一個(gè)工程文件sjt3．vbp，窗體文件中己給出所有控件和部分程序，如圖3—119所示。要求：①利用屬性窗口設(shè)置適當(dāng)?shù)膶傩裕筎ext1、Text2中數(shù)據(jù)右對(duì)齊；②請(qǐng)編寫(xiě)適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽涸赥ext1中輸入40(度數(shù))，選擇一個(gè)單選按鈕，單擊“計(jì)算”按鈕，則根據(jù)所選擇的單選按鈕，計(jì)算出相應(yīng)的正弦、余弦值(保留3位小數(shù)，第4位截去，π取3．14159)，并顯示在Text2中。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行一種計(jì)算，在Text1中輸入的必須是40，必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后程序按原文件名存盤(pán)。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，窗體上已經(jīng)給出所有控件。程序運(yùn)行時(shí)，單擊“開(kāi)始”按鈕，則汽車(chē)圖標(biāo)向右運(yùn)動(dòng)；單擊“停止”按鈕則汽車(chē)停止運(yùn)動(dòng)；移動(dòng)滾動(dòng)條上的滾動(dòng)框，可以改變汽車(chē)的運(yùn)動(dòng)速度(滾動(dòng)框向右移動(dòng)，速度減慢)。如圖3—120所示。要求如下：去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。提示：窗體上有一個(gè)計(jì)時(shí)器，計(jì)時(shí)器的事件過(guò)程每執(zhí)行一次，汽車(chē)向右移動(dòng)10，程序通過(guò)改變計(jì)時(shí)器控件的Interval屬性來(lái)改變汽車(chē)的運(yùn)動(dòng)速度。注意：不得修改控件的屬性。最后按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：第1小題步驟1：打開(kāi)考生文件夾中的本題工程文件sjt3．vbp，程序界面如圖4—4所示。步驟2：依次選中窗體中的兩個(gè)文本框，將其Alignment屬性位設(shè)置為1-RightJustify。步驟3：雙擊窗體中的“計(jì)算”命令按鈕，在打開(kāi)的代碼編輯窗口中編寫(xiě)其單擊事件過(guò)程。參考代碼：PrivateSubCommand1_Click()IfOption1．Item(0)=TrueThenText2．Text=Format(Sin(Val(Text1．Text)*3．14159／180)，"0．000")EndIfIfOption1．Item(1)=TrueThenText2．Text=Format(Cos(Val(_Text1．Text)*3．14159／180)，"0．000")EndIfEndSub步驟4：按＜F5＞鍵運(yùn)行程序，在左側(cè)文本框中輸入“40”，選擇不同選項(xiàng)，單擊“計(jì)算”按鈕，結(jié)果圖4—5所示。步驟5：?jiǎn)螕舸绑w右上角的關(guān)閉按鈕以結(jié)束程序。步驟6：按要求將文件保存至考生文件夾中。第2小題步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”。將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：Timer1．Enabled=TrueTimer1．Interval=HScroll1．ValuePicture1．Left=Picture1．Left+10步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題：本題可通過(guò)利用If…Else…語(yǔ)句來(lái)判斷第一個(gè)單選按鈕是否被選中，若是則進(jìn)行正弦運(yùn)算，否則進(jìn)行余弦運(yùn)算。第2小題：本題要求在單擊“開(kāi)始”按鈕時(shí)，汽車(chē)向右運(yùn)動(dòng)，其實(shí)質(zhì)是在“開(kāi)始”按鈕的單擊事件過(guò)程中啟動(dòng)計(jì)時(shí)器，故第一個(gè)?處應(yīng)改為T(mén)rue。要通過(guò)移動(dòng)滾動(dòng)條上的滾動(dòng)框來(lái)改變汽車(chē)的運(yùn)動(dòng)速度，需在滾動(dòng)條的Change事件過(guò)程中，將滾動(dòng)條當(dāng)前Value屬性值賦予計(jì)時(shí)器的Interval屬性，第二個(gè)?處應(yīng)改為T(mén)imer1。汽車(chē)向右移動(dòng)是在計(jì)時(shí)器的Timer事件過(guò)程中，通過(guò)不斷增加圖片框的Left屬性值來(lái)實(shí)現(xiàn)的，故第三個(gè)?處應(yīng)改為Picture1．Left。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、數(shù)列1，1，2，3，5，8，13，21，…的規(guī)律是從第三個(gè)數(shù)開(kāi)始，每個(gè)數(shù)是它前面兩個(gè)數(shù)之和。在考生目錄下有一個(gè)工程文件sjt5．vbp。窗體中已經(jīng)給出了所有控件，如圖3—121所示。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程實(shí)現(xiàn)以下功能：在Text1中輸入整數(shù)40，單擊“計(jì)算”按鈕，則在Text2中顯示該數(shù)列第40項(xiàng)的值；如果單擊“存盤(pán)”按鈕，則將計(jì)算的第40項(xiàng)的值存到考生目錄下的out5．txt文件中。(提示：因數(shù)據(jù)較大，應(yīng)使用Long型變量。)注意：在結(jié)束程序運(yùn)行之前必須單擊“存盤(pán)”按鈕，把結(jié)果存入out5．txt文件，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾下的工程文件sjt5．vbp。步驟2：編寫(xiě)“計(jì)算”按鈕的單擊事件過(guò)程。參考代碼：PrivateSubCommand1_Click()Dimf1，f2，fAsLongDima(40)AsLongf1=1：f2=1a(1)=f1：a(2)=f2Fori=3ToVal(Text1．Text)f=f1+f2a(i)=f：f1=f2：f2=fNextText2．Text=a(40)EndSub步驟3：運(yùn)行程序，在文本框中輸入40，并單擊“計(jì)算”按鈕獲得一個(gè)結(jié)果，然后單擊“存盤(pán)”按鈕保存計(jì)算結(jié)果。步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：根據(jù)題意，從數(shù)列的第三個(gè)數(shù)開(kāi)始，每個(gè)數(shù)是其前兩個(gè)數(shù)之和，數(shù)列第n項(xiàng)的值可表示為：a(n)=a(n-1)+a(n-2)?？梢岳肍or循環(huán)語(yǔ)句(循環(huán)變量i的初值為3，終值為n)，從數(shù)列的第三個(gè)數(shù)開(kāi)始，逐一計(jì)算山該數(shù)列第3～n項(xiàng)的值，計(jì)算表達(dá)式為a(i)=a(i-1)+a(i-2)。國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱(chēng)為Forml、標(biāo)題為“標(biāo)簽”的窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)abell的標(biāo)簽，并設(shè)置適當(dāng)屬性以滿(mǎn)足以下要求：①標(biāo)簽的內(nèi)容為“計(jì)算機(jī)等級(jí)考試”；②標(biāo)簽可根據(jù)顯示內(nèi)容自動(dòng)調(diào)整其大??；③標(biāo)簽帶有邊框，且標(biāo)簽內(nèi)容顯示為三號(hào)字。運(yùn)行后的窗體如圖3．68所示。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sitl．vbp，窗體文件名為sjtl．frm。(2)在名稱(chēng)為：Forml的窗體上畫(huà)一個(gè)名稱(chēng)為Hscrolll的水平滾動(dòng)條，其刻度范圍為1～100；再畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，初始內(nèi)容為1。程序開(kāi)始運(yùn)行時(shí)，焦點(diǎn)在滾動(dòng)條上。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，文本框中實(shí)時(shí)顯示滾動(dòng)框的當(dāng)前位置。運(yùn)行情況如圖3—69所示。注意：要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjl2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Fontal中畫(huà)一個(gè)標(biāo)簽，并設(shè)置它的相關(guān)屬性，其屬性和值如表4-40所示。步驟2：按要求將文件保存至考生文件夾中?！静僮鞑襟E】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Fonnl中畫(huà)一個(gè)文本框和一個(gè)水平滾動(dòng)條，在屬性設(shè)置窗口中設(shè)置其相關(guān)屬性，其屬性及值如表4．41所示。步驟2：打開(kāi)代碼編輯窗口，編寫(xiě)水平滾動(dòng)條的Change事件過(guò)程。參考代碼：PrivateSubI-IScrolll—Change()Text：1．Text=HScEOlll．ValueEndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sit3．vbp，在Forml的窗體中有一個(gè)文本框、兩個(gè)命令按鈕和一個(gè)計(jì)時(shí)器。程序的功能是在運(yùn)行時(shí)，單擊“開(kāi)始計(jì)數(shù)”按鈕，就開(kāi)始計(jì)數(shù)，每隔1秒，文本框中的數(shù)加1；單擊“停止計(jì)數(shù)”按鈕，則停止計(jì)數(shù)(如圖3—165所示)。要求：修改適當(dāng)?shù)目丶膶傩?，并去掉程序中的注釋符，把程序中?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原來(lái)的文件名存盤(pán)。(2)已知出租車(chē)行駛不超過(guò)4千米時(shí)一律收費(fèi)10元。超過(guò)4千米時(shí)分段處理，具體處理方式為：15千米以?xún)?nèi)每千米加收1．2元，15千米以上每千米收1．8元。在考生文件夾下有一個(gè)工程文件sit4．vbp。程序的功能是：?jiǎn)螕簟拜斎搿卑粹o，將彈出一個(gè)輸入對(duì)話(huà)框，接收出租車(chē)行駛的里程數(shù)；單擊“計(jì)算”按鈕，則可根據(jù)輸入的里程數(shù)計(jì)算應(yīng)付的出租車(chē)費(fèi)，并將計(jì)算結(jié)果顯示在名稱(chēng)為T(mén)extl的文本框內(nèi)。在窗體文件中已經(jīng)給出了全部控件(如圖3—166所示)，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開(kāi)本題工程文件sjt3．vbp，去掉程序中的注釋符“””，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：SelectCaSeIndexCaSe0Textl．Text=Textl．Text+1步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開(kāi)考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：SelectCasesf=10f=10+(S一4)*1．2CaSeE1Sef=10+(15—4)*1．2+(s一15)*1．8步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5．vbp。程序功能為：在文本框Textl中輸入一個(gè)正整數(shù)N后，單擊“計(jì)算”按鈕，則計(jì)算11+22+33+…+NN，并將計(jì)算結(jié)果顯示在Text2中。程序中的函數(shù)f可以計(jì)算mm的值。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，并編寫(xiě)相應(yīng)的程序，實(shí)現(xiàn)程序的功能，并且必須在運(yùn)行時(shí)計(jì)算N=8時(shí)的結(jié)果。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。程序調(diào)試通過(guò)后，必須計(jì)算N=8時(shí)的結(jié)果，否則無(wú)成績(jī)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾下的工程文件sit5．vbp，在碼編輯窗口的指定位置輸入以下代碼：參考代碼：PrirateSubCommandlClick()=====考生編寫(xiě)程序開(kāi)始======Dimi，jAsInteger，kAsLongi=Text1．Textk=0Forj=1Toik=k+f(j)NextText2．Text=k=====考生編寫(xiě)程序結(jié)束======OpenApp．Path&“＼out：5．ctat”ForOutputAs#1Print#1，Text1，Text2Close#1ErldSub步驟2：在代碼編輯窗口中，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：s=1s=s*mf=s步驟3：按鍵運(yùn)行程序，在文本框中輸入8，單擊“計(jì)算”按鈕。步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)標(biāo)簽，名稱(chēng)為L(zhǎng)1，標(biāo)題為“業(yè)余愛(ài)好”，再畫(huà)一個(gè)名稱(chēng)為Ch1的復(fù)選框數(shù)組，含三個(gè)復(fù)選框，它們的Index屬性分別為0、1、2，標(biāo)題依次為“體育”、“音樂(lè)"、“美術(shù)”，請(qǐng)?jiān)O(shè)置復(fù)選框的屬性，使其初始狀態(tài)見(jiàn)表3—1。運(yùn)行后的窗體如圖3．83所示。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)文本框，名稱(chēng)為T(mén)ext1；再建立一個(gè)下拉菜單，菜單標(biāo)題為“操作”，名稱(chēng)為M1，此菜單下含有兩個(gè)菜單項(xiàng)，名稱(chēng)分別為Show和．Hide，標(biāo)題分別為“顯示”、“隱藏”，請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，單擊“隱藏”菜單項(xiàng)，則文本框消失；單擊“顯示”菜單項(xiàng)，則文本框顯示出來(lái)。運(yùn)行后的窗體如圖3．84所示。要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：(1)步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程。步驟2：在窗體Form1中加入一個(gè)標(biāo)簽和一個(gè)復(fù)選框，并用“復(fù)制”和“粘貼”的方法，生成包含三個(gè)元素的復(fù)選框數(shù)組。步驟3：分別設(shè)置窗體和復(fù)選框數(shù)組中各元素的相關(guān)屬性，其屬性及值如表4．51所示。步驟4：按要求將文件保存至考生文件夾中。(2)步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Form1中畫(huà)一個(gè)文本框，在屬性設(shè)置窗口中將其N(xiāo)ame屬性值設(shè)置為T(mén)ext1。步驟2：選擇【工具】→【菜單編輯器】命令，打開(kāi)菜單設(shè)計(jì)器，如表4．52中的設(shè)置建立菜單項(xiàng)。步驟3：打開(kāi)代碼編輯窗口，編寫(xiě)以下事件過(guò)程。參考代碼：PrivateSubhideCliCk()Text1．Visible=FalseEndSubPrivateSubshowCliCk()Text1．Visible=TrueEndSub步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：(1)本題只需按要求畫(huà)出控件數(shù)組，并設(shè)置其Value屬性。(2)本題需用菜單設(shè)計(jì)器建立菜單，并編寫(xiě)“顯示”和“隱藏”菜單項(xiàng)的單擊事件過(guò)程控制文本框的Visible屬性變化。二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp。程序運(yùn)行后，單擊“讀入數(shù)據(jù)”按鈕，可把考生文件夾下in3．txt文件中的所有英文單詞讀入，并顯示在Text1文本框中；單擊“插入列表框”按鈕，則按順序把每個(gè)單詞作為一項(xiàng)添加到List1列表框中(如圖3．176所示)。在in3．txt文件中每個(gè)單詞之間用一個(gè)空格字符隔開(kāi)，最后一個(gè)單詞的后面沒(méi)有空格。已經(jīng)給出了所有控件和程序，但程序不完整。要求：請(qǐng)去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的其他部分和控件屬性。最后用原來(lái)的文件名保存工程文件和窗體文件。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，窗體上已經(jīng)畫(huà)出所有控件，如圖3．177所示。在運(yùn)行時(shí)，如果單擊“開(kāi)始”按鈕，則窗體上的汽車(chē)圖標(biāo)每O．1秒向右移動(dòng)一次(初始狀態(tài)下不移動(dòng))；如果單擊“停止”按鈕，則停止移動(dòng)。請(qǐng)完成以下工作：①設(shè)置適當(dāng)控件的適當(dāng)屬性，使得汽車(chē)圖標(biāo)每O．1秒向右移動(dòng)一次，而初始狀態(tài)下不移動(dòng)；②請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容；③為兩個(gè)命令按鈕編寫(xiě)適當(dāng)?shù)氖录^(guò)程。最后以原文件名存盤(pán)。注意：不得修改已經(jīng)給出的程序。編寫(xiě)的事件過(guò)程中不能使用變量，每個(gè)事件過(guò)程中只能有一條語(yǔ)句。標(biāo)準(zhǔn)答案：(1)步驟1：打開(kāi)考生文件夾下的工程文件sjt3．vbp，打開(kāi)代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：st=st&chc=Mid(st，k，1)Word=""步驟2：按要求將文件保存至考生文件夾中。(2)步驟1：打開(kāi)考生文件夾中的本題工程文件sjt4．vbp，將計(jì)時(shí)器Timerl的Enabled屬性設(shè)置為False，Interval屬性設(shè)置為100。步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容并編寫(xiě)兩個(gè)命令按鈕的單擊事件過(guò)程。參考代碼：PrivateSubC1_Click()Timerl．Enabled=TrueEndSubPrivateSubC2_Click()Timerl．Enabled=FalseEndSubPrivateSubTimerl_Timer()P1．MoveP1．Left+20EndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：(1)本題在“讀入數(shù)據(jù)”按鈕的單擊事件中，首先將in3．txt文件以Input方式打開(kāi)，然后利用Do循環(huán)依次讀入文件中的每一個(gè)數(shù)據(jù)，在每一次循環(huán)中讀入文件中的一個(gè)數(shù)據(jù)并連接至變量st中，循環(huán)結(jié)束后st的值就是文件中所有單詞連接而成的字符串。在“插入列表框”按鈕的單擊事件中，以空格為單詞分隔依據(jù)找出每個(gè)單詞，然后將單詞插入列表框中，清空變量word準(zhǔn)備繼續(xù)尋找下一個(gè)單詞。(2)計(jì)時(shí)器只在設(shè)計(jì)時(shí)可見(jiàn)，計(jì)時(shí)器是否啟用由其Enabled屬性設(shè)置，值可取True或False。啟用后由Interval屬性設(shè)置間隔多長(zhǎng)時(shí)間觸發(fā)一次其Timer事件，Interval屬性的單位為毫秒，缺省值為0，此時(shí)計(jì)時(shí)器不啟用。Timerl用于控制汽車(chē)行駛，每觸發(fā)一次Timerl的Timer事件，汽車(chē)向右移動(dòng)20，即P1．MoveP1．Left+20。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、數(shù)列1，1，3，5，9，15，25，41，…，的規(guī)律是從第三個(gè)數(shù)開(kāi)始，每個(gè)數(shù)是它前面兩個(gè)數(shù)的和加1。在考生目錄下有一個(gè)工程文件sjt5．vbp。窗體中已經(jīng)給出了所有控件，如圖3．192所示。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程實(shí)現(xiàn)以下功能：在Text1中輸入整數(shù)40，單擊“計(jì)算”按鈕，則在Text2中顯示該數(shù)列第40項(xiàng)的值。如果單擊“存盤(pán)”按鈕，則將計(jì)算的第40項(xiàng)的值存到考生目錄下的out5．txt文件中。(提示：因數(shù)據(jù)較大，應(yīng)使用Long型變量。)注意：在結(jié)束程序運(yùn)行之前，必須單擊“存盤(pán)”按鈕，把結(jié)果存入out5．txt文件，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾下的工程文件sjl5．vbp。步驟2：編寫(xiě)“計(jì)算”按鈕的單擊事件過(guò)程。參考代碼：PrivateSubCommand1_Click()DimfAsLonga(1)=1：a(2)=1Fori=3ToVal(Text1．Text)f=a(i-2)+a(i-1)+1a(i)=fNextText2．Text=fEndSub步驟3：運(yùn)行程序，在文本框中輸入40，并單擊“計(jì)算”按鈕獲得一個(gè)結(jié)果，然后單擊“存盤(pán)”按鈕保存計(jì)算結(jié)果。步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：根據(jù)題意，從數(shù)列的第三個(gè)數(shù)開(kāi)始，每個(gè)數(shù)是其前兩個(gè)數(shù)之和加1，數(shù)列第n項(xiàng)的值可表示為：a(i)=a(i-1)+a(i-2)+1?？梢岳肍or循環(huán)語(yǔ)句(循環(huán)變量i的初值為3，終值為T(mén)ext1．Text)，從數(shù)列的第三個(gè)數(shù)開(kāi)始，逐一計(jì)算出該數(shù)列第3～n項(xiàng)的值，計(jì)算表達(dá)式為a(i)=a(i-1)+a(i-2)+1。國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為C1、標(biāo)題為“改變顏色”的命令按鈕，窗體標(biāo)題為“改變窗體背景色”。編寫(xiě)程序，使得單擊命令按鈕時(shí)，將窗體的背景顏色改為紅色(&HFF&)。運(yùn)行程序后的窗體如圖3—78所示。要求：程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjt1．frm。(2)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)Shape1的形狀控件，在屬性窗口中將其設(shè)置為圓形。畫(huà)一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，并在屬性窗口中設(shè)置列表項(xiàng)的值分別為1、2、3、4、5。將窗體的標(biāo)題設(shè)為“圖形控件”。單擊列表框中的某一項(xiàng)，則將所選的值作為形狀控件的填充參數(shù)。例如，選擇3，則形狀控件中被豎線(xiàn)填充。如圖3—79所示。要求：程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Form1中畫(huà)一個(gè)命令按鈕，設(shè)置相關(guān)屬性，其屬性及值如表4—49所示。步驟2：打開(kāi)代碼編輯窗口，編寫(xiě)按鈕的Click事件過(guò)程中。參考代碼：PrivateSubC1_Click()Form1．BackColor=&HFF&EndSub步驟3：按要求將文件保存至考生文件夾中。第2小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程。步驟2：在窗體Form1中加入一個(gè)列表框和一個(gè)形狀控件，并分別如表4—50設(shè)置它們的相關(guān)屬性。步驟3：打開(kāi)代碼編輯窗口，編寫(xiě)列表框的Click事件過(guò)程。參考代碼：PrivateSubList1_Click()Shape1．FillStyle=List1．TextEndSub步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題：本題需在命令按鈕的單擊事件過(guò)程中，通過(guò)語(yǔ)句設(shè)置窗體的BackColor屬性值為“&HFF&”。第2小題：當(dāng)形狀控件的Shape屬性值是3時(shí)顯示為圓：形狀控件的填充色樣式通過(guò)FillStyle屬性設(shè)置，其中0為實(shí)線(xiàn)、1為透明、2為水平線(xiàn)、3為垂直線(xiàn)、4為向上對(duì)角線(xiàn)、5為向下對(duì)角線(xiàn)、6為交義線(xiàn)、7為對(duì)角交叉線(xiàn)，缺省值為1。要通過(guò)單擊列表框中的項(xiàng)目，來(lái)改變形狀控件的填充樣式，需在列表框的Click事件過(guò)程中，用語(yǔ)句將列表框中所選的值(通過(guò)其Text屬性返回)作為形狀控件的填充參數(shù)。二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp。程序的功能是通過(guò)鍵盤(pán)向文本框中輸入正整數(shù)。在“除數(shù)”框架中選擇一個(gè)單選按鈕，然后單擊“處理數(shù)據(jù)”按鈕，將大于文本框中的正整數(shù)且能夠被所選除數(shù)整除的5個(gè)數(shù)添加到列表框List1中，如圖3—80所示。在窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請(qǐng)去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp。程序運(yùn)行后，單擊“開(kāi)始”按鈕，圖片自上而下移動(dòng)，同時(shí)滾動(dòng)條的滑塊隨之移動(dòng)，每0．5秒移動(dòng)一次。當(dāng)圖片頂端移動(dòng)到距窗體的下邊界的距離少于200時(shí)，再回到窗體頂部，重新向下移動(dòng)，如圖3—81所示。在窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請(qǐng)去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：第1小題步驟1：打開(kāi)考生文件下的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：IfOption1．Item(i)=TrueTheny=val(Option1(i)．Caption)DoWhilei＜=5List1．AddItemx步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：打開(kāi)考生文件夾下的工程文件sjt4．vbp。步驟2：進(jìn)入代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：Timer1．Interva1=500VScroll1．Value=Picture1．TopPicture1．Top=0步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題：判斷整數(shù)A能被整數(shù)B整除的條件表達(dá)式為：AModB=0。本題源程序在“計(jì)算數(shù)據(jù)”的單擊事件過(guò)程中，通過(guò)For循環(huán)逐一判斷單選按鈕數(shù)組中的每個(gè)元素是否選中，用變量y記錄選中單選按鈕所標(biāo)識(shí)的數(shù)字，并調(diào)用過(guò)程“calc”計(jì)算滿(mǎn)足條件的正整數(shù)。在過(guò)程“calc”中，通過(guò)Do循環(huán)依次判斷大干文本框中數(shù)的正整數(shù)是否能被變量y整除，將能被整除的前5個(gè)數(shù)添加到列表框List1中。第2小題：本題源程序利用計(jì)時(shí)器的Timer事件來(lái)控制圖片的移動(dòng)，因此單擊“開(kāi)始”按鈕啟動(dòng)計(jì)時(shí)器，而單擊“停止”按鈕就是要停止計(jì)時(shí)器。在計(jì)時(shí)器的Timer事件過(guò)程中，通過(guò)每次使圖片框的Top屬性值增量200實(shí)現(xiàn)移動(dòng)，并讓垂直滾動(dòng)條滑塊的位置隨圖片框的Top屬性值變化。當(dāng)圖片頂端移動(dòng)到距窗體的下邊界的距離少于200時(shí)(即VScroll1．Value+200＞=Form1．Height．200)時(shí)，則重新從窗體頂端開(kāi)始移動(dòng)，即Picture1．Top=0。由于題目要求不能在設(shè)計(jì)階段修改控件屬性，要想在單擊“開(kāi)始”按鈕時(shí)能啟動(dòng)計(jì)時(shí)器，就需在窗體加載事件過(guò)程中設(shè)置計(jì)時(shí)器的Interval屬性，即Timer1．Interva1=500。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5．vbp，窗體如圖3—82所示。運(yùn)行程序時(shí)，從數(shù)據(jù)文件中讀取學(xué)生的成績(jī)(均為整數(shù))。要求編寫(xiě)程序，統(tǒng)計(jì)總?cè)藬?shù)，并統(tǒng)計(jì)不及格、60～69、70～79、80～89及90～100各分?jǐn)?shù)段的人數(shù)，將統(tǒng)計(jì)結(jié)果顯示在相應(yīng)的文本框中。結(jié)束程序之前，必須單擊“保存”按鈕，保存統(tǒng)計(jì)結(jié)果。注意：不能修改程序的其他部分和控件屬性。程序調(diào)試通過(guò)后，運(yùn)行程序，將統(tǒng)計(jì)結(jié)果顯示在文本框中，再按“保存”按鈕保存數(shù)據(jù)，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口的指定位置編寫(xiě)以下代碼。參考代碼：Text1．Text=ncount1=0：count2=0：count3=0count4=0：count5=0：count6=0Fori=1Tony=Int(arr(i)／10)SelectCaseyCase1，2，3，4，5count1=COUnt1+1Case6count2=count2+1Case7count3=count3+1Case8count4=count4+1Case9，10count5=Count5+1EndSelectNextText2．Text=count1：Text3．Text=count2Text4．Text=count3：Text5．Text=count4Text6．Text=count5步驟2：按＜F5＞鍵運(yùn)行程序，先單擊“統(tǒng)計(jì)”按鈕，再單擊“保存”按鈕。步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：本題要求編寫(xiě)“統(tǒng)計(jì)”按鈕的單擊事件過(guò)程。程序設(shè)計(jì)思路：在一個(gè)For循環(huán)中逐一取出存于數(shù)組arr中的各學(xué)生成績(jī)，用SelectCase語(yǔ)句對(duì)取出的某學(xué)生成績(jī)進(jìn)行判斷，根據(jù)成績(jī)所屬情況，使對(duì)應(yīng)文本框中的數(shù)增1。國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱(chēng)為Forml的窗體上畫(huà)一個(gè)名稱(chēng)為Combol的組合框，其寬度為1200，其類(lèi)型如圖3．102所示(即簡(jiǎn)單組合框)。要求如下：①請(qǐng)按圖中所示，通過(guò)屬性窗口輸入“北京”、“上海”、“廣州”、“深圳”。②設(shè)置適當(dāng)?shù)膶傩裕沟眠\(yùn)行時(shí)，窗體的最大化按鈕和最小化按鈕消失。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sitl．fm。(2)在名稱(chēng)為Forml的窗體上畫(huà)兩個(gè)文本框，名稱(chēng)分別為T(mén)ext1、Text2，再畫(huà)兩個(gè)命令按鈕，名稱(chēng)分別為Command1、Command2，標(biāo)題分別為“左”、“右”，如圖3-103。要求：編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，單擊“左”按鈕，則焦點(diǎn)位于Text1上；單擊“右”按鈕，則焦點(diǎn)位于Text2上。注意：程序巾不得使用變量，事件過(guò)程中只能寫(xiě)一條語(yǔ)句。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt2-Vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按要求畫(huà)出控件并設(shè)置屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按要求畫(huà)出控件并設(shè)置屬性。步驟2：雙擊“左”命令按鈕，打開(kāi)代碼編輯窗口，在按鈕的Click事件過(guò)程中輸入代碼。步驟3：從代碼編輯窗口的“對(duì)象”下拉列表中選擇Command2，從“事件”下拉列表選擇Click，編寫(xiě)以下事件過(guò)程。參考代碼：PrivateSubCommandlClick()Text1．SetFocusEndSubPrivateSubCommand2Click()Text2．SetFocusEndSub步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生目錄下有一個(gè)工程文件sit3．vbp，包含了所有控件和部分程序，如圖3一180所示。要求如下：①利用屬性窗口設(shè)置適當(dāng)?shù)膶傩裕筎ext1、Text2中數(shù)據(jù)右對(duì)齊；②請(qǐng)編寫(xiě)適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽涸赥ext1中輸入40(度數(shù))，選擇組合框中的一個(gè)項(xiàng)目，單擊“計(jì)算”按鈕，則根據(jù)所選擇的項(xiàng)目，計(jì)算出相應(yīng)的正弦、余弦值(保留3位小數(shù)，第4位截去，π取3．14159)，并顯示在Text2中。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行一種計(jì)算；在Text1中輸入的必須是40；必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后按原文件名存盤(pán)。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，窗體上已經(jīng)畫(huà)出所有控件。程序的作用是構(gòu)成一個(gè)簡(jiǎn)單的時(shí)鐘。剛運(yùn)行時(shí)，不計(jì)時(shí)，選擇一個(gè)單選按鈕后，再單擊“計(jì)時(shí)”按鈕，則開(kāi)始計(jì)時(shí)，并根據(jù)所選的單選按鈕決定是每秒顯示一次秒數(shù)，還是每10秒顯示一次秒數(shù)。Text2用于顯示秒，如圖3一181所示。窗體文件中已經(jīng)給出了程序，但不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不得修改已經(jīng)給出的程序。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：第l小題【操作步驟】步驟1：打開(kāi)考生文件夾中的工程文件sjt3．vbp，依次選中窗體中的兩個(gè)文本框，將其Alignment屬性值設(shè)置為1-RightJustify。步驟2：雙擊窗體中的“計(jì)算”命令按鈕，在打開(kāi)的代碼編輯窗口中編寫(xiě)其單擊事件過(guò)程。參考代碼：PrivateSubCommandlClick()ConstPI=3．14159SelectCaseComb01．TextCase”sin”：a=Sin(CInt(Text1．Text)*PI／180)Case“Cos”：a=Cos(CInt(Textl．Text)*PI／180)EndSelectText2=Int(a*1000)／1000EndSub步驟3：按鍵運(yùn)行程序，在左側(cè)文本框中輸入“40”，選擇不同選項(xiàng)，單擊“計(jì)算”按鈕。步驟4：?jiǎn)螕舸绑w右上角的關(guān)閉按鈕以結(jié)束程序。步驟5：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開(kāi)考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：num=num+1Text2．Text=Text2．Text+10Textl．Text=Text1．Text+1步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sit5．vbp，在該工程文件中已經(jīng)定義了一個(gè)學(xué)生記錄類(lèi)型數(shù)據(jù)StudType。有三個(gè)標(biāo)題分別為“學(xué)號(hào)”、“姓名”和“平均分”的標(biāo)簽；三個(gè)初始內(nèi)容為空，用于接收學(xué)號(hào)、姓名和平均分的文本框Text1、Text2和Text3；一個(gè)用于顯示排序結(jié)果的圖片框。還有兩個(gè)標(biāo)題分別為“添加”和“排序”的命令按鈕，如圖3—192所示。程序功能如下：①在Text1、Text2和Text3三個(gè)文本框中輸入學(xué)號(hào)、姓名和平均分后，單擊“添加”按鈕，則將輸入內(nèi)容存入自定義的學(xué)生記錄類(lèi)型數(shù)組stud中(注：最多只能輸入10個(gè)學(xué)生信息，且學(xué)號(hào)不能為窄)；②單擊“排序”按鈕，則將學(xué)生記錄類(lèi)型數(shù)組stud中存放的學(xué)生信息，按平均分降序排列的方式顯示在圖片框中，每個(gè)學(xué)生一行，且顯示三項(xiàng)信息。請(qǐng)將“添加”按鈕、“排序”按鈕的Click事件過(guò)程中的注釋符去掉，把?改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件下的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：n=n一1stud(n)．Num：Text1Fork=j+1TonIfstd(k)．Average>stud(j)．AVerageThenstud(k)=stud(j)步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，在屬性窗口中為列表框添加三個(gè)選項(xiàng)：北京、上海、天津。再建立一個(gè)下拉菜單，菜單標(biāo)題為“文件"，名稱(chēng)為File，此菜單下含有一個(gè)子菜單項(xiàng)，標(biāo)題為“顯示列表框”，名稱(chēng)為Show，初始狀態(tài)為選中，運(yùn)行時(shí)的效果如圖3．165所示。注意：存盤(pán)時(shí)，將文件保存至考生文件夾下，且窗體文件名為sjtl．frm，工程文件名為sjtl．vbp。(2)新建一個(gè)名稱(chēng)為Form1，標(biāo)題為“使用輸入對(duì)話(huà)框”的窗體，該窗體上無(wú)任何控件。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得運(yùn)行程序并單擊窗體時(shí)，出現(xiàn)輸入對(duì)話(huà)框，該對(duì)話(huà)框的標(biāo)題為“等級(jí)考試”，提示信息為“請(qǐng)輸入”，默認(rèn)值為“Basic”。如圖3．166所示。注意：存盤(pán)時(shí)，將文件保存至考生文件夾下，且窗體文件名為sjt2．frm，工程文件名為sjt2．vbp。要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。標(biāo)準(zhǔn)答案：(1)步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE"工程，按要求畫(huà)出控件并設(shè)置屬性。步驟2：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，選擇【工具】→【菜單編輯器】命令，打開(kāi)菜單設(shè)計(jì)器按要求設(shè)置建立菜單項(xiàng)。步驟3：按要求將文件保存至考生文件夾中。(2)步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，將窗體Form1的Caption屬性設(shè)置為“使用輸入對(duì)話(huà)框”。步驟2：打開(kāi)代碼編輯窗口，編寫(xiě)以下事件過(guò)程。參考代碼：PriVateSubForm_Click()InputBox"請(qǐng)輸入"，"等級(jí)考試"，"Basic"EndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：(1)本題只需按要求畫(huà)出控件和菜單并設(shè)置其相關(guān)屬性即可。(2)本題需在窗體的Click事件過(guò)程中，編寫(xiě)一行InputBox語(yǔ)句，其中Prompt參數(shù)值為“請(qǐng)輸入”，Title參數(shù)值為“等級(jí)考試”，Default參數(shù)值為“Basic”。二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp，已給出了所有控件和部分程序。程序運(yùn)行時(shí)，請(qǐng)按以下順序操作：1)單擊“讀入數(shù)據(jù)”按鈕，可把考生目錄下的文件in3．dat中的100個(gè)整數(shù)讀到數(shù)組a中；2)從名稱(chēng)為L(zhǎng)ist1的列表框中選中一項(xiàng)(如圖3．139所示)。3)單擊“計(jì)算”按鈕，則可按該選項(xiàng)的要求計(jì)算出結(jié)果并放到文本框中。4)單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。“讀入數(shù)據(jù)”按鈕的Click事件過(guò)程已經(jīng)給出，請(qǐng)為“計(jì)算”按鈕編寫(xiě)適當(dāng)?shù)氖录^(guò)程實(shí)現(xiàn)上述功能。注意：不得修改已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行一次計(jì)算，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，程序按原文件名存盤(pán)。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp。窗體中橫線(xiàn)(橫坐標(biāo))的名稱(chēng)為L(zhǎng)inel，豎線(xiàn)(縱坐標(biāo))的名稱(chēng)為L(zhǎng)ine2；五個(gè)不同顏色的矩形是一個(gè)形狀控件數(shù)組，名稱(chēng)為Shape，它們的Visible屬性都為False；從左到右的兩個(gè)按鈕的名稱(chēng)分別為Command1、Command7．；另有一個(gè)有五個(gè)元素的標(biāo)簽數(shù)組，名稱(chēng)為L(zhǎng)abel1，其所有元素的Visible屬性都為False。如圖3．140(a)所示。程序運(yùn)行時(shí)，單擊“輸入5個(gè)數(shù)據(jù)”按鈕，可輸入五個(gè)整數(shù)(最好在100～2000之間)，并作為刻度值顯示在縱坐標(biāo)的左面；單擊“畫(huà)直方圖"按鈕，則按五個(gè)數(shù)的輸入順序顯示直方圖。例如若輸入的五個(gè)數(shù)是1200、500、800、1900、1500，則結(jié)果如圖3．140(b)所示。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容a注意：不能修改程序的其他部分和各控件的屬性。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：(1)步驟1：打開(kāi)考生文件夾中的本題工程文件sjt3．vbp，雙擊窗體中的“計(jì)算”命令按鈕，在打開(kāi)的代碼編輯窗口中編寫(xiě)其單擊事件過(guò)程。參考代碼：PrivateSubCommand2_Click()DimkAsInteger，i1，i2AsIntegeri1=a(1)：i2=a(1)Fork=2To100Ifa(k)>i1Theni1=a(k)EndIfIfa(k)鍵運(yùn)行程序，單擊“讀入數(shù)據(jù)”按鈕，然后在列表框中選擇一項(xiàng)，并單擊“計(jì)算”按鈕，統(tǒng)計(jì)出結(jié)果。步驟3：?jiǎn)螕舸绑w右上角的關(guān)閉按鈕以結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。(2)步驟1：打開(kāi)考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：Fork=1To5Label1(k-1)．ViSible=TrueShape1(k-1)．Height=s(k)a=Line1．Y1步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：(1)本題在命令按鈕的單擊事件中先利用循環(huán)統(tǒng)計(jì)字符串中大寫(xiě)字母和小寫(xiě)字母的值。首先假設(shè)數(shù)組中的第一個(gè)元素既為最大值也為最小值，然后依次從第二個(gè)元素開(kāi)始向后循環(huán)，對(duì)每一個(gè)數(shù)組元素都加以判斷，若其比最大值還大，則其成為新的最大值：若其比最小值還小，則其成為新的最小值。這樣循環(huán)結(jié)束后可以得到數(shù)組的最大值和最小值。接下來(lái)判斷列表框中選中的是哪一項(xiàng)然后執(zhí)行對(duì)應(yīng)計(jì)算，并輸出結(jié)果。(2)“輸入5個(gè)數(shù)據(jù)”按鈕的單擊事件過(guò)程中，需要連續(xù)輸入5個(gè)數(shù)據(jù)并且存放到數(shù)組s中，因此k應(yīng)該由1循環(huán)到5，在循環(huán)中將輸入的數(shù)據(jù)保存到數(shù)組s中并且將其賦值給五個(gè)標(biāo)簽組成的控件數(shù)組，隨后將標(biāo)簽的Visible屬性設(shè)置為T(mén)rue以便顯示出來(lái)?！爱?huà)直方圖”按鈕的單擊事件過(guò)程中，源程序用For循環(huán)來(lái)依次計(jì)算每一個(gè)形狀控件的高度，該高度應(yīng)該為對(duì)應(yīng)數(shù)組元素的值；然后計(jì)算該直方圖的Top屬性值(應(yīng)為水平直線(xiàn)的Y1或Y2屬性值減去直方圖的高度)，最后顯示該直方圖(通過(guò)設(shè)置其Visible實(shí)現(xiàn))。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5．vbp，相應(yīng)的窗體文件為sjt5．tim，此外還有一個(gè)名為datain．txt的文本文件，其內(nèi)容如下：32437658281298573142536475869713243546576879805937程序運(yùn)行后單擊窗體，將把文件datain．txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中，在窗體上按5行、5列的矩陣形式顯示出來(lái)，然后交換矩陣第二列和第四列的數(shù)據(jù)，并在窗體上輸出交換后的矩陣，如圖3．126所示。在窗體的代碼窗口中，已給出了部分程序，這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容(可以是多行)，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)本題對(duì)應(yīng)工程文件sjt5．vbo。步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：DimMat(M，N)AsIntegerOpenApp．Path&"＼"&"datain．txt"ForInputAs#1nput#1，Mat(i，j)Mat(i，4)=t步驟3：按要求將文件保存在考生文件夾中。知識(shí)點(diǎn)解析：本題源程序的大致設(shè)計(jì)思路是：程序運(yùn)行后單擊窗體，則打開(kāi)數(shù)據(jù)文件datain．txt并從中讀取數(shù)據(jù)，并依次存入二維數(shù)組Mat(下界為1，上界為5)的各元素中，故第一個(gè)?處是定義數(shù)組，應(yīng)改為：Mat(M，N)AsInteger：第二個(gè)?處是指明打開(kāi)文件的方式，應(yīng)改為：ForInput：第三個(gè)?處是將數(shù)據(jù)文件中的數(shù)據(jù)讀入并賦值給數(shù)組元素，應(yīng)改為：Input#1，Mat(i，i)；然后用一個(gè)嵌套的For循環(huán)將數(shù)組Mat中的數(shù)據(jù)在窗體上按5行、5列的矩陣形式顯示出來(lái)，接著再用一個(gè)For循環(huán)將數(shù)組Mat中第2維下標(biāo)為2和第2維下標(biāo)為4的元素對(duì)應(yīng)(即第1維下標(biāo)一致)交換值，交換值時(shí)引入一個(gè)中間變量t，故第4個(gè)?處是將中間變量t的值賦給數(shù)組元素Matfi，4)，應(yīng)改為：Mat(i，4)=t。最后將交換后的數(shù)組Mat中的數(shù)據(jù)，再按5行、5列的矩陣形式在窗體上顯示出來(lái)。國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷第7套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，在屬性窗口中為列表框添加三個(gè)選項(xiàng)：北京、上海、天津。再建立一個(gè)下拉菜單，菜單標(biāo)題為“文件”，名稱(chēng)為File，此菜單下含有一個(gè)子菜單項(xiàng)，標(biāo)題為“顯示列表框”，名稱(chēng)為Show，初始狀態(tài)為選中，運(yùn)行時(shí)的效果如圖3—165所示。注意：存盤(pán)時(shí)，將文件保存至考生文件夾下，且窗體文件名為sjt1．frm，工程文件名為sjt1．vbp。(2)新建一個(gè)名稱(chēng)為Form1，標(biāo)題為“使用輸入對(duì)話(huà)框”的窗體，該窗體上無(wú)任何控件。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得運(yùn)行程序并單擊窗體時(shí)，出現(xiàn)輸入對(duì)話(huà)框，該對(duì)話(huà)框的標(biāo)題為“等級(jí)考試”，提示信息為“請(qǐng)輸入”，默認(rèn)值為“Basic”。如圖3—166所示。注意：存盤(pán)時(shí)，將文件保存至考生文件夾下，且窗體文件名為sjt2．frm，工程文件名為sjt2．vbp。要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。標(biāo)準(zhǔn)答案：第1小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按要求畫(huà)出控件并設(shè)置屬性。步驟2：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，選擇[工具]→[菜單編輯器]命令，打開(kāi)菜單設(shè)計(jì)器按要求設(shè)置建立菜單項(xiàng)。步驟3：按要求將文件保存至考生文件夾中。第2小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，將窗體Form1的Caption屬性設(shè)置為“使用輸入對(duì)話(huà)框”。步驟2：打開(kāi)代碼編輯窗口，編寫(xiě)以下事件過(guò)程。參考代碼：PrivateSubForm_Click()InputBox"請(qǐng)輸入"，"等級(jí)考試"，"Basic"EndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題：本題只需按要求畫(huà)出控件和菜單并設(shè)置其相關(guān)屬性即可。第2小題：本題需在窗體的Click事件過(guò)程中，編寫(xiě)一行InputBox語(yǔ)句，其中Prompt參數(shù)值為“請(qǐng)輸入”，Title參數(shù)值為“等級(jí)考試”，Default參數(shù)值為“Basic”。二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp。程序的功能是通過(guò)鍵盤(pán)向文本框中輸入大、小寫(xiě)字母及數(shù)字。單擊“統(tǒng)計(jì)”按鈕，分別統(tǒng)計(jì)輸入字符串中大寫(xiě)字母、小寫(xiě)字母及數(shù)字字符的個(gè)數(shù)，并將統(tǒng)計(jì)結(jié)果分別顯示在標(biāo)簽控件數(shù)組x中，如圖3—167所示。在給出的窗體文件中已經(jīng)添加了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。(2)考生文件夾下的工程文件sjt4．vbp中有兩個(gè)名稱(chēng)分別為L(zhǎng)ist1、List2的列表框控件，兩個(gè)名稱(chēng)分別為Command1、Command2，標(biāo)題分別為“＞＞”、“＜＜”的命令按鈕。請(qǐng)?jiān)贚ist1中添加“文本框”、“標(biāo)簽”、“列表框”、“單選鈕”等表項(xiàng)，如圖3—168所示。程序的功能是：?jiǎn)螕簟埃荆尽卑粹o，將List1中的表項(xiàng)添加到List2中，同時(shí)將List1清空；單擊“＜＜”按鈕，將List2中的表項(xiàng)添加到List1中，同時(shí)將List2清空。程序已給出，但是不完整。請(qǐng)將程序中的注釋符去掉，把“?”改為正確的內(nèi)容，實(shí)現(xiàn)上述功能。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：第1小題步驟1：打開(kāi)考生文件夾中的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：n=Len(Text1．Text)b=Asc(Mid(s，i，1))SelectCasebFori=0To2x(i)=a(i)步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：打開(kāi)考生文件夾中的本題工程文件sjt4．vbp，通過(guò)List1列表框的List屬性添加四個(gè)項(xiàng)目：文本框、標(biāo)簽、命令按鈕、單選按鈕。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：Fori=0ToLa．ListCount-1Lb．AddItemLa．List(i)NextLa．Clear步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題：本題源程序在For循環(huán)體中(其中循環(huán)終值應(yīng)為文本框的字符長(zhǎng)度，即n=Len(Text1．Text))，用Mid函數(shù)逐一取出文本框中的每個(gè)字符，并用Asc函數(shù)返回其ASCII碼。若取出字符的ASCII碼在48～57之間，則記錄數(shù)字個(gè)數(shù)的數(shù)組變量a(0)增1；若ASCII碼在65～90之間，則記錄大寫(xiě)字母?jìng)€(gè)數(shù)的數(shù)組變量a(1)增1；若ASCII碼在97～122之間，則記錄小寫(xiě)字母?jìng)€(gè)數(shù)的數(shù)組變量a(2)增1。第2小題：本題列表框中列表項(xiàng)的移動(dòng)功能，是通過(guò)調(diào)用remove過(guò)程來(lái)實(shí)現(xiàn)的，在remove過(guò)程中通過(guò)For循環(huán)(循環(huán)變量終值為L(zhǎng)a．ListCount-1)將列表框La中的各項(xiàng)逐一添加到列表框Lb中，全部項(xiàng)目添加完成后，用列表框的Clear方法清除該列表框中的所有項(xiàng)目。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾中有一個(gè)工程文件sjt5．vbp。窗體外觀如圖3—169所示。運(yùn)行程序，單擊“讀數(shù)據(jù)”按鈕，文件中的數(shù)據(jù)被讀入字符串變量中并顯示在Label2標(biāo)簽中。單擊“排序”按鈕時(shí)，對(duì)讀入的數(shù)據(jù)從小到大排序，并將排序結(jié)果顯示在窗體的Label4控件中。要求：工程文件中己給出部分程序，“讀數(shù)據(jù)”命令按鈕的事件過(guò)程不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。請(qǐng)編寫(xiě)“排序”命令按鈕的事件過(guò)程中的部分程序代碼。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。程序調(diào)試通過(guò)后，兩個(gè)命令按鈕的事件過(guò)程必須至少各執(zhí)行一次。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為止確的內(nèi)容。參考代碼：DoWhileNotEOF(1)s=s&str(a(i))步驟2：在代碼編輯窗口指定位置編寫(xiě)以下代碼。參考代碼：num=UBound(a)Fori=1Tonum-1Forj=iTonumIfa(i)＞a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextNext步驟3：按＜F5＞鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“排序”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：設(shè)計(jì)思路：在“讀數(shù)據(jù)”按鈕的單擊事件中，首先使用DoWhile當(dāng)型循環(huán)結(jié)構(gòu)從文件中讀取全部數(shù)據(jù)，并以NotEOF(文件號(hào))(非文件結(jié)尾)作為循環(huán)條件，通過(guò)Input#語(yǔ)句將打開(kāi)文件中的數(shù)據(jù)逐一讀出后賦值給a(i)，然后將數(shù)組連接起來(lái)顯示在標(biāo)簽中。在“排序”按鈕的單擊事件過(guò)程中，源程序利用“冒泡法”對(duì)記錄數(shù)組中的元素從小到大進(jìn)行排序。國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷第8套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱(chēng)為Form1、標(biāo)題為“歡迎”的窗體上畫(huà)1個(gè)名稱(chēng)為L(zhǎng)abel1的標(biāo)簽，其標(biāo)題內(nèi)容為“歡迎使用本系統(tǒng)”，標(biāo)題文字字體和字號(hào)分別為“宋體”、“三號(hào)”，標(biāo)簽大小能根據(jù)標(biāo)題內(nèi)容自動(dòng)調(diào)整，效果如圖3—40所示。程序執(zhí)行時(shí)，窗體的最大化按鈕不可用，請(qǐng)?jiān)O(shè)置相應(yīng)屬性。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjt1．frm。(2)在名稱(chēng)為Form1的窗體上，畫(huà)1個(gè)名稱(chēng)為L(zhǎng)abel1的標(biāo)簽，其標(biāo)題為“橫坐標(biāo)X”，且能根據(jù)標(biāo)題內(nèi)容自動(dòng)調(diào)整標(biāo)簽的大?。辉佼?huà)1個(gè)名稱(chēng)為T(mén)ext1的文本框，其中的文字顯示為空白；再畫(huà)1個(gè)名稱(chēng)為Picture1的圖片框，大小適中即可。要求：編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，如果鼠標(biāo)在圖片框中移動(dòng)，則能在文本框Text1中顯示鼠標(biāo)在圖片框中的當(dāng)前位置的橫坐標(biāo)，運(yùn)行情況如圖3—41所示。注意：要求程序中不得使用變量，事件過(guò)程中只能寫(xiě)一條語(yǔ)句。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Form1中加入一個(gè)標(biāo)簽控件。按表4—27設(shè)置其相關(guān)屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Forml中加入一個(gè)文本框、標(biāo)簽和圖片框。按表4—28設(shè)置其相關(guān)屬性。步驟2：在打開(kāi)的代碼編輯窗口中，編寫(xiě)圖片框的的MouseMove事件代碼。參考代碼：PrivateSubPicture1_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Textl1．Text=XEndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題：根據(jù)題目要求在窗體上加入一個(gè)標(biāo)簽控件，并設(shè)置相關(guān)屬性。第2小題：根據(jù)題目要求在窗體上加入文本框、標(biāo)簽和圖片框，并設(shè)置相關(guān)屬性。題目要求鼠標(biāo)在圖片框中移動(dòng)時(shí)顯示當(dāng)前的橫坐標(biāo)，需要在圖片框的MouseMove事件代碼里面把橫坐標(biāo)顯示在文本框里面。二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sit3．vbp。程序的功能是：1)程序運(yùn)行時(shí)，文件列表框顯示當(dāng)前文件夾中的所有擴(kuò)展名為jpg的文件。2)雙擊文件列表框中某個(gè)圖片文件名時(shí)，能在圖像框中顯示出該張圖片，并將該圖片文件的信息(包括路徑及文件名)顯示到標(biāo)簽中，如圖3—42所示。3)“下一張”命令按鈕的功能：選中并顯示上次選中文件的下一個(gè)圖片文件(如果文件列表框中沒(méi)有被選中的圖片文件或上次選中的是最后一個(gè)文件名，則從第1個(gè)圖片文件始)。在當(dāng)前程序所在文件夾中，已經(jīng)提供了所需要的圖片文件，運(yùn)行時(shí)窗體如圖所示。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請(qǐng)將事件過(guò)程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤(pán)。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp。程序的功能是：程序運(yùn)行時(shí)，文本框中顯示一篇英文短文，單擊“查找”按鈕時(shí)可輸入查找內(nèi)容，如圖3—43所示。若未找到查找內(nèi)容，查找結(jié)束；若找到查找內(nèi)容，被找到的內(nèi)容在文本框中以反相顯示(即呈選中狀態(tài))，每找到一次都給出提示，并在左下角文本框中顯示累計(jì)的次數(shù)，如圖3—44所示，若單擊提示對(duì)話(huà)框的“是”按鈕，則繼續(xù)向后查找；若單擊“否”按鈕，則終止查找。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請(qǐng)將事件過(guò)程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：第1小題步驟1：打開(kāi)考生文件夾中的本題工程文件sjt3．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：IfFile1．ListIndex=-1OrFile1．ListIndex=File1．ListCount-1ThenFile1．ListIndex=File1．ListIndex+1Label1．Caption=ADp．Path+"＼"+File1．FileNameFile1．Pattern="*．jPg"步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：打開(kāi)考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：Text1．SelStart=pos-1Text1．SelLength=Len(fstr)times=times+1pos=InStr(pos，ostr，fstr)步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題：本題主要考察文件列表框的屬性和事件響應(yīng)。文件列表框的Path屬性用來(lái)設(shè)置或返回其當(dāng)前的目錄(缺省值是當(dāng)前路徑)；文件列表框的FileName屬性可返回所選文件的文件名；Pattern屬性設(shè)置要顯示的文件類(lèi)型，默認(rèn)表示所有文件；ListCount屬性返回文件列表框中匹配Pattern屬性設(shè)置的文件個(gè)數(shù)：ListIndex返回控件中當(dāng)前項(xiàng)目的索引號(hào)，取值范圍是0～ListCount-1。第一個(gè)“?”處是的If判斷文件列表框當(dāng)前的ListIndex是不是最后一個(gè)或者文件列表框里面沒(méi)有文件。即ListIndex的值為-1；第二個(gè)“?”處是在命令按鈕的事件代碼里面把圖片向后移動(dòng)一個(gè)，然后調(diào)用Showlnfor來(lái)顯示圖片，因此第二個(gè)“?”處是將ListIndex加1；第三個(gè)“?”處是顯示圖片的路徑和名稱(chēng)，圖片的名稱(chēng)可通過(guò)列表框的FileName屬性得到；最后一個(gè)“?”是設(shè)置文件列表框的屬性，包括Path和Pattern屬性，因?yàn)轭}目要求文件列表框濕示擴(kuò)展名為fpg的文件。第2小題：題目要求在一個(gè)字符串里面杳找另外一個(gè)字符串，由于字符串可能出現(xiàn)多次，因此需要使用循環(huán)來(lái)遍歷。字符串查找使用InStr函數(shù)，該函數(shù)指定一字符串在另一字符串中最先出現(xiàn)的位置，如果沒(méi)有找劍返回0。兇此在循環(huán)中，用一個(gè)變量保存Instr的返回值，只要InStr返回值不為0，就可以繼續(xù)往后查找。第一個(gè)和第二個(gè)“?”處是設(shè)置找到的字符反相顯示，即把找到的字符串設(shè)置為選中狀態(tài)，通過(guò)設(shè)置SleStart和SelLength兩個(gè)屬性。第三個(gè)“?”處是統(tǒng)計(jì)找到的次數(shù)變量times加1，根據(jù)“Text2．Text=times”可知times是統(tǒng)計(jì)變量；最后一個(gè)“?”處如果If成立則需要再次查找，因?yàn)橄麓芜M(jìn)入循環(huán)的時(shí)候直接設(shè)置選中狀態(tài)，說(shuō)叫在下次進(jìn)入循環(huán)前已經(jīng)找到了。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5．vbp。程序運(yùn)行時(shí)，單擊“顯示數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內(nèi)容讀入一維數(shù)組a中，并按下標(biāo)順序?qū)?shù)組a各元素的值顯示在List1列表框中；單擊“移動(dòng)”按鈕，則將數(shù)組a中的最大值移動(dòng)到數(shù)組的最前面，其他數(shù)據(jù)的排列順序不變，并將移動(dòng)后的結(jié)果顯示在List2列表框中。單擊“保存”按鈕，則保存移動(dòng)后的結(jié)果。要求：“顯示數(shù)據(jù)”和“保存”按鈕的Click事件過(guò)程已經(jīng)給出，請(qǐng)編寫(xiě)“移動(dòng)”按鈕的Click事件過(guò)程實(shí)現(xiàn)上述功能。程序窗體界面如圖3—45所示。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前必須單擊“移動(dòng)”按鈕，并單擊“保存”按鈕保存結(jié)果，否則無(wú)成績(jī)。最后程序按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾中的工程文件sjt5．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：PrivateSubCommand2_Click()’======考生編寫(xiě)的程序============DimnAsInteger，sAsStringDimi，jAsIntegern=0：j=0Fori=1To10Ifa(i)＞nThenn=a(i)：j=iEndIfNextFori=jTo2step-1a(i)=a(i-1)Nexta(1)=nForj=1To10List2．AddItem(a(i))Nexti’==============================EndSub步驟2：按＜F5＞運(yùn)行程序，單擊各按鈕測(cè)試驗(yàn)證。步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：只需要完成“移動(dòng)”命令按鈕的Click事件代碼．根據(jù)題目要求在點(diǎn)擊移動(dòng)命令按鈕，找出數(shù)組a的最大值，可以通過(guò)循環(huán)來(lái)查找最大值；接下來(lái)把最大值移動(dòng)到數(shù)組的最前面，即把最大值前面的數(shù)往后移動(dòng)一個(gè)位置，然后把最大值放到第一個(gè)元素位置，移動(dòng)過(guò)程同樣通過(guò)循環(huán)實(shí)現(xiàn)；最后一步是通過(guò)循環(huán)，把數(shù)組a的內(nèi)容添加到List2列表框罩面。國(guó)家二級(jí)VB機(jī)試（上機(jī)操作）模擬試卷第9套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為CD1的通用對(duì)話(huà)框，通過(guò)屬性窗口設(shè)置CD1的初始路徑為C：＼，默認(rèn)的文件名為None，標(biāo)題為“保存等級(jí)考試”，如圖3—160所示。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjt1．frm。(2)在名稱(chēng)為Form1的窗體上設(shè)計(jì)一個(gè)菜單。要求在窗體上添加名為menu0，標(biāo)題為“菜單命令”的主菜單，再添加兩個(gè)名稱(chēng)分別為“menu1”、“menu2”，標(biāo)題分別為“不可用菜單項(xiàng)”、“上一菜單項(xiàng)可用”