國家二級VB機試（上機操作）模擬試卷47（共17題）

國家二級VB機試（上機操作）模擬試卷47（共5套）（共17題）國家二級VB機試（上機操作）模擬試卷第1套一、基本操作題(本題共2題，每題1.0分，共2分。)1、在名稱為Form1、標題為“歡迎”的窗體上畫1個名稱為Label1的標簽，其標題內容為“歡迎使用本系統(tǒng)”，標題文字字體和字號分別為“宋體”、“三號”，標簽大小能根據(jù)標題內容自動調整，效果如圖所示。程序執(zhí)行時，窗體的最大化按鈕不可用(如圖所示)，請設置相應屬性。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjt1．frm。標準答案：[操作步驟]步驟1：新建一個窗體，在屬性窗口中設置窗體的屬性，按照表4．3所示在屬性窗口中設置相應屬性，其運行效果如圖4．3所示。步驟2：在窗體上添加一個標簽控件，在屬性窗口中設置標簽的屬性，按照表4．4所示在屬性窗口中設置相應屬性，其運行效果如圖4．4所示。步驟3：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：暫無解析2、在名稱為Form1的窗體上，畫1個名稱為Label1的標簽，其標題為“橫坐標X”，且能根據(jù)標題內容自動調整標簽的大小；再畫1個名稱為Text1的文本框，其中的文字顯示為空白；再畫1個名稱為Picture1的圖片框，大小適中即可。要求：編寫適當?shù)氖录^程，使得程序運行時，如果鼠標在圖片框中移動，則能在文本框Text1中顯示鼠標在圖片框中的當前位置的橫坐標，運行情況如圖所示。注意：要求程序中不得使用變量，事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標準答案：[操作步驟]步驟1：新建一個窗體，在窗體上添加一個標簽控件，在屬性窗口中設置標簽的屬性，按照表4．5所示在屬性窗口中設置相應屬性，其運行效果如圖4．5所示。步驟2：在窗體上添加一個文本框控件，在屬性窗口中設置文本框的屬性，按照表4．6所示在屬性窗口中設置相應屬性，其運行效果如圖4．6所示。步驟3：在窗體上添加一個圖片框控件，適當調整大小，其運行效果如圖4．7所示。步驟4：雙擊“左擊”按鈕，打開代碼編輯窗口，在代碼編輯窗口中添加Picture1_MouseMove事件，并編寫以下代碼。編寫程序代碼。參考代碼(畫下劃線部分是需填入的內容)PrivateSubPicture1_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)TExt1．TeXt=XEndsub步驟5：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：暫無解析二、簡單應用題(本題共2題，每題1.0分，共2分。)3、在考生文件夾下有一個工程文件sjt3．vbp。程序的功能是：1)程序運行時，文件列表框顯示當前文件夾中的所有擴展名為jpg的文件。2)雙擊文件列表框中某個圖片文件名時，能在圖像框中顯示出該張圖片，并將該圖片文件的信息(包括路徑及文件名)顯示到標簽中。3)“下一張”命令按鈕的功能：選中并顯示上次選中文件的下一個圖片文件(如果文件列表框中沒有被選中的圖片文件或上次選中的是最后一個文件名，則從第1個圖片文件開始)。在當前程序所在文件夾中，已經(jīng)提供了所需要的圖片文件，運行時窗體如圖所示。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把?改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。標準答案：[操作步驟]步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內容。參考代碼(畫下劃線部分是需填入的內容)PrivateSubCommand1_Click()IfFile1．ListIndex=-1OrFile1．ListIndex=File1．Lis％Count-1ThenFile1．LiStIndex=0ElseIfFile1．ListIndex＞=0ThenFile1．ListIndex=File1．ListIndex+1EndIfEndIfShowInforEndSubPrivateSubFile1_DblClick()CallShowInforEndSubPrivateSubShowInfor()Label1．Caption=App．Path+"”+File1．FileNameImage1．Picture=LoadPicture(Label1．Caption)EndSubPrivateSubForm_Load()File1．Path=App．PathFile1．Pattern="*．jig"EndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：暫無解析4、在考生文件夾下有一個工程文件sjt4．vbp。程序的功能是：程序運行時，文本框中顯示一篇英文短文，單擊“查找”按鈕時可輸入查找內容，如圖1所示。若未找到查找內容，查找結束；若找到查找內容，被找到的內容在文本框中以反相顯示(即呈選中狀態(tài))，每找到一次都給出提示，并在左下角文本框中顯示累計的次數(shù)，如圖2所示，若單擊提示對話框的“是”按鈕，則繼續(xù)向后查找；若單擊“否”按鈕，則終止查找。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把?改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。標準答案：[操作步驟]步驟l：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內容。參考代碼(畫下劃線部分是需填入的內容)PrivateSubCommand1_Click()DimfstrAsString，ostrAsStringDimtimesAsInteger，posAsIntegerDimansAsIntegerfstr=InputBox("輸入待查內容"，"查找")Iffstr=""ThenExitSubEndIftimes=0ostr=Text1．TextPOS=InStr(1，ostr，fstr)DoWhilepos＜＞0Text1．SelStart=posText1．SelLength=Len(fstr)times=times+1Text2．Text=timeSans=MsgBox("找到了，是否繼續(xù)查找?"，vbYesNo)Ifans=vbYesThenpos=pos+Len(fstr)pos=InStr(pos，ostr，fstr)ElseExitDoEndItLoopEndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)5、在考生文件夾下有一個工程文件sjt5．vbp。程序運行時，單擊“顯示數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內容讀入一維數(shù)組a中，并按下標順序將數(shù)組a各元素的值顯示在List1列表框中；單擊“移動”按鈕，則將數(shù)組a中的最大值移動到數(shù)組的最前面，其他數(shù)據(jù)的排列順序不變，并將移動后的結果顯示在List2列表框中。單擊“保存”按鈕。則保存移動后的結果。要求：“顯示數(shù)據(jù)”和“保存”按鈕的Click事件過程已經(jīng)給出，請編寫“移動”按鈕的Click事件過程實現(xiàn)上述功能。程序窗體界面如圖所示。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結束程序運行之前必須單擊“移動”按鈕，并單擊“保存”按鈕保存結果，否則無成績。最后程序按原文件名存盤。標準答案：[操作步驟]步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內容。參考代碼(畫下劃線部分是需填入的內容)Dimi，max，maxindexAsIntegermax=a(1)Fori=2ToUBound(a)Ifa(i)＞maxThenmax=a(i)maxindex=iEndIfNextiList2．AddItem(a(maxindex))Fori＜＞maxindexThenList2．AddItem(a(i))EndIfNexti步驟3：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設訃VisualBasic應川程序(包括界面和代碼)。(1)在名稱為Forml的窗體上建市一個二級下拉菜單(菜單項見表2-2)，運行時的窗體如圖2-98所示。注意：存盤時必須存放在考生文件夾下，上程文件名為sitl．vbp，窗體文件名為sitl．frm。(2)在名稱為Forml的窗體上畫兩個文本框，名稱分別為Text1、Text2，均無初始內容。要求：①通過屬性窗口設置適當?shù)膶傩?，使Text1、Text2中顯示的文本的字體為“隸書”；②編寫適當?shù)氖录^程，使得在Text1中輸入每一個7符時，立即在Text2中顯示Text1中的內容，如圖2．99所示。注意：要求程序中不得使用變量，事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，打開VB菜單設計器設計菜單，各菜單項及屬性設置如表3．55所示。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體Form1中畫兩個文奉框，并分別設置它們的相關屬性，其屬性及值如表3．56所示。步驟2：打開代碼編輯窗口，編寫TextI的Change事件過程。參考代碼：PrvateSubTextl—Change()Text2．Text=Textl．TextEndSub步驟3：按要求將文件保存幣考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sjt3．vbp。窗體上有名稱為Timer1的定時器，以及名稱為Linel和Line2的兩條水平直線。請用名稱為Shapel的形狀控件，在兩條直線之間畫一個寬和高都相等的形狀，其顯示形式為圓，并設置適當屬性使其滿足以下要求：①圓的頂端距窗體Forml頂端的距離為360；②圓的顏色為紅色(紅色對應的值為&H000000FF&或&HFF＆)，如圖2．70所示。程序運行時，Shapel將在Line1和Line2之間運動。當Shapel的頂端到達Linel時，會自動改變方向而向下運動；當Shapel的底部到達Line2時，會改變方向而向上運動。文件中給出的程序不完整，請去抻程序中的注釋符，把程序中的?改為正確內容，使其實現(xiàn)上述功能。注意：不能修改程序的其他部分和已給出控件的屬性。最后將修改后的文件按原文件名存盤。(2)在考生義件災下有一個工程文件sjt4．vbp，包含了所有控件和部分程序，如圖2．71所示。程序功能如下：①單擊“讀數(shù)據(jù)”按釩，可將考生文件夾下in4．dat文件中的100個整數(shù)讀到數(shù)組a中；②單擊“計算”按鈕，則根據(jù)從名稱為Combol的組合框中選中的項目，對數(shù)組a中的數(shù)據(jù)計算平均值，并將計算結果四舍五入取整后顯示存文本框Text1中。“讀數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，請為“計算”按鈕編寫適當?shù)氖录^程實現(xiàn)上述功能。注意：不得修改已經(jīng)存在的控件和程序，在結束程序運行之前，必須進行一次計算，且必須用窗體有上角的關閉按鈕結束程序，否則無成績。最后，程序按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件下的奉題工程文件sit3。vbp在窗體上兩條水平直線間畫一個形狀控件，并如表3．42設置其屬性。步驟2：在代碼編輯窗口，去掉程序中的注釋符“”’，將問號“?”改為正確的內容。參考代碼：Timerl．Enabled=TrueIfShapel．Top<=Linl．Y1ThenIfShapel．Top+Shapel．Height>=Lin2．Y1Then步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sit4．vbp，在代碼編輯窗口，編寫“計算”按鈕的單擊事件過程以及三個自定義過程。參考代碼：PrivateSubCommand2一Click()SelectCaseCombol．ListIndexCase0Text：l=lverl()Case1Textl=odd()Case2Text；1=all()EndSelect：EndSubFunctioneven()D~msAsSingle，rlAs"rntegers=0Fork=1To1001fa(k)／2=Fix(a(k)／2)Thens=s+a(k)n=n+1EndIfNexts=s／neven=CInt(s)EndFunctionFunctionodd()DimsAsSingle．nAsIntegers=0Fork=1To100Tfa(k)／2<>Fix(a(k)／2)Thens=s+a(k)n=n+1EndTfNexts=s／nodd=CInt(s)EndFunctionFunctionall()DimsAsSingle，nAsrntegers=0Fork=1To100s=s+a(k)Nexts=s／100all=CInt(s)EndFunction步驟2：按鍵運行程序，先單擊“讀數(shù)據(jù)”按鈕，然后選擇組合框中的一項再單擊“計算”按鈕，最后單擊窗體右上角的關閉按鈕結束程序。步驟3：按要求將義件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生目錄下有一個工程文件sit5．vbp。窗休左邊的圖片框名稱為Picturel，框中還有六個小圖片框，它們是一個數(shù)組，名稱為Pic，住窗體右邊從上到下有三個顯示不同物品的圖片框，名稱分別為Picture2、Picture3、Picture4，還有一個文本框Text1以及四個標簽，如圖2．52(a)所示。程序運行時，可以用鼠標拖拽的方法把右邊的物品放到左邊的圖片框中(右邊的物品不動)，同時把該物品的價格累加到Text1中，如圖2．52(b)所示。最多可放六個物品。實現(xiàn)此功能的方法是：程序剛運行時，Picturel中的圖片框數(shù)組不顯示，當拖拽一次物晶時，就顯示一個圖片框數(shù)組元素，并在該圖片框數(shù)組元素中加載相應的圖片，產(chǎn)生物品被放入的效果。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的灃釋符，把程序中的?改為正確的內容。注意：不得修改已經(jīng)存在的內容和控件屬性，最后把修改后的文件按原文件名存盤。標準答案：【操作步驟】步驟1：打開考生文件夾下的工程文件sits．vbp。步驟2：在代碼編輯窗口中，去掉程序中的注釋符“”，將問號“?”改為正確的內容。參考代碼：SelectCaseSourCe．NameFork=0To5IfPic(k)．Visible=FalSeThenPic(k)．Visible=TrueTextl=Text1+a步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫兩個文本框，其名稱分別為Text1和Text2，它們的高、寬分別為300、2400和1200、2400。窗體的標題為“窗口”。請通過屬性窗口設置適當?shù)膶傩詽M足以下要求：①Text2可以顯示多行文本，且有垂直和水平兩個滾動條；②運行時在Text1中輸入的字符都顯示為“*”。運行后的窗體如圖3-148所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上畫一個圖像框，名稱為Imagel，其高、寬分別為1900、1700，通過屬性窗口把考生文件夾下的圖像文件picl．bmp裝入圖像框；再畫兩個命令按鈕，名稱分別為C1、C2，標題分別為“放大”、“縮小”，如圖3．149所示。要求：①請編寫適當?shù)氖录^程，程序運行后，如果單擊“放大”按鈕，則把圖像框的高度、寬度均增加100：單擊“縮小”按鈕，則把圖像框的高度、寬度均減少100。要求程序中不得使用任何變量。②通過屬性窗口設置圖像框的適當屬性，使得在放大、縮小圖像框時，其中的圖像也自動放大、縮小。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體Forml中按要求畫出控件并設置屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，按要求畫出控件并設置屬性。步驟2：打開代碼編輯窗口，編寫兩個命令按鈕的Click事件過程。參考代碼：prirateSubC1Click()Imagel．Width=Imagel．Width+100Imagel．Height=Imagel．Height+100EndSubPrivateSubC2C1ick()Imagel．Width=Imagel．Width一100Imagel．Height=Imagel．Height一100EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sit3．vbp。程序的功能是：在運行時，如果選中一個單選按鈕和一個或兩個復選框，并單擊“確定”按鈕，則對文本框中的文字做相應的設置，如圖3．100所示。窗體上的控件已經(jīng)畫出，但沒有給出主要程序內容，請編寫適當?shù)氖录^程，完成上述功能。注意：不能修改已經(jīng)給出的程序部分和已有的控件；在結束程序運行之前，必須選中一個單選按鈕和至少一個復選框，并單擊“確定”按鈕；必須通過單擊窗體右上角的關閉按鈕結束程序，否則無成績。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp。窗體中已經(jīng)給出了所有控件。程序運行時，單擊“讀入文件”按鈕，將顯示一個“打開”對話框，可以在該對話框中選擇考生文件夾下的文本文件in4．txt，并把該文件的內容顯示到Text1文本框中。要求：請去掉程序中的注釋符，并把程序中的?改為正確的內容，使其能正確運行，但不能修改程序中的其他部分和控件屬性。最后用原來的文件名保存工程文件和窗體文件。標準答案：第1小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt3．vbp。步驟2：打開代碼編輯窗口，編寫“確定”按鈕的Click事件過程，代碼如下。參考代碼：PrivateSubCommandlC1ick()IfOpl．ValueThenTextl．FontName=Opl．CaptionE1seIfOp2．ValueThenText1．FontName=Op2．CaptionEndIfIfChl．Value=1ThenTextl．FontUnderline=TrueElseText1．FontUnderline=FalseEndIfIfCh2．Value=1ThenText1．FontItalic=TrueElseText1．FontItalic=FalseEndIfEndSub步驟3：按鍵運行程序，選中一個單選按鈕和至少一個復選框，并單擊“確定”按鈕，最后單擊窗體右上角的關閉按鈕結束程序。步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“。”，將問號“?”改為正確的內容。參考代碼：PrivateSubCommandlClick()DimnAsLongCDl．FileName=“”CDI．Filter=”所有文件｜*．*｜文本文件｜*．txt｜Word文檔｜*．doc”CD1．FiiterIndex=2CD1．Action=1IfCDl．FileName<>“”ThenOpenCDI．FileNameForInputAs拌1n=LOF(1)Text1=Input$(n，#1)Close#1EndIfEndSub步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、考生文件夾下的工程文件sit5．vbp中有一個初始內容為空的文本框Text1，兩個標題分別是“讀數(shù)據(jù)”和“計算”的命令按鈕；請畫一個標題為“各行平均數(shù)的最大值為”的標簽Label2，再畫一個初始內容為空的文本框Text2，如圖3．97所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內容讀入20行5列的二維數(shù)組a中，并同時顯示在Text1文本框內；②單擊“計算”按鈕，則自動統(tǒng)計二維數(shù)組a中各行的平均數(shù)，并將這些平均數(shù)中的最大值顯示在Text2文本框內?！白x數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，清編寫“計算”按鈕的Click事件過程實現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結束程序運行之前，必須用“計算”按鈕進行計算，且必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后，程序按原文件名存盤。標準答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，在窗體Forml中畫一個標簽和一個文本框，其屬性及值如表4．54所示。步驟2：打開代碼編輯窗口，在指定位置編寫以下代碼：參考代碼：Fori=1To20Sum=0Forj=1To5Sum=sum+a(i，j)NextAvq=Sum／5Ifi=1ThenMax=AvgElseIfNax鍵運行程序，先單擊“讀數(shù)據(jù)”按鈕，接著單擊“計算”按鈕，然后單擊窗體右上角的關閉按鈕結束程序。步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Form1，標題為“框架”的窗體上添加一個名稱為Framel，且標題為空的框架?？蚣軆群袃蓚€單選按鈕，名稱分別為Optl和Opt2，其標題分別為“字體”、“大小”。注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1．vbp，窗體文件名保存為sjt1．frm。(2)考生文件夾下的工程文件sjt2．vbp中有一個由直線Line1、Line2和Line3組成的三角形，直線Line1、Line2和Line3的坐標值如下所示：名稱X1Y1X2Y2Line160012001600300Line2600120026001200Line3160030026001200要求添加一條直線Line4以構成三角形的高，且該直線的初始狀態(tài)為不可見。再添加兩個命令按鈕，名稱分別為Cmd1、Cmd2，標題分別為“顯示高”、“隱藏高”，如圖所示。請編寫適當?shù)氖录^程使得在程序運行時，單擊“顯示高”按鈕，則顯示三角形的高；單擊“隱藏高”按鈕，則隱藏三角形的高。注意：要求程序中不得使用變量，每個事件過程只能寫一條語句。不得修改已經(jīng)存在的控件，最后將修改后的文件按原文件名存盤。標準答案：(1)步驟1：建立界面，添加相應的控件并設置控件的屬性。程序中涉及的控件及屬性見表3．56。步驟2：調試并運行程序，關閉程序后按題目要求存盤。(2)步驟l：打開sjt2工程，按照題目要求建立Line控件并設置其屬性，如圖3．33所示。步驟2：按照步驟1建立其他控件并設置相關屬性，程序中涉及的控件及屬性見表3．57。步驟3：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案PrivateSubCmdl_Click()Line4．Visible=True’將Line4顯示EndSubPrivateSubCmd2_Click()Line4．Visible-False’將Line4隱藏EndSub步驟4：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：(1)通過窗體的Caption屬性設置窗體的標題，通過框架的Name和Caption屬性設置框架的名稱和標題，通過單選按鈕的Name和Caption屬性設置單選按鈕的名稱和標題。(2)通過對直線Line1、Line2和Line3的坐標值的計算，確定線條的X1、X2、Y1和Y2屬性的值，畫出線段Line4，并將其Visible屬性設置為False，使得在初始狀態(tài)下為不可見。再通過命令按鈕的Name和Caption屬性設置命令按鈕的名稱和標題。在Cmdl_Click事件過程中將Line4的Visible屬性設置True，則可以顯示高，在Cmd2_Click事件過程中把Line4的Visible屬性設置False，則可以隱藏高。二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)在名稱為Form1的窗體上添加一個名稱為Label1、標題為“添加項目”的標簽；添加一個名稱為Text1的文本框，初始內容為空；添加一個名稱為Combol的下拉式組合框，并通過屬性窗口輸入若干項目(不少于3個，內容任意)；再添加兩個命令按鈕，名稱分別為Cmnmandl、Cmnmand2，其標題分別為“添加”、“統(tǒng)計”。在程序運行時，向Text1中輸入字符，單擊“添加”按鈕后，則將Text1中的內容作為一個列表項被添加到組合框的列表中；單擊“統(tǒng)計”按鈕，則在窗體空白處顯示組合框中列表項的個數(shù)，如圖所示。請編寫兩個命令按鈕的Click事件過程。注意：程序中不得使用變量，也不能使用循環(huán)結構，存盤時必須存放在考生文件夾F，工程文件名保存為sjt3．vbp．窗體文件名保存為sjt3．frm。(2)在考生文件夾下有一個工程文件sjt4．vbp．其窗休如圖所示。該程序用來對在上面的文本框中輸入的英文字母串(稱為“明文”)加密，加密結果(稱為“密文”)顯示在下面的文本框中。加密的方法為：選中一個單選按鈕，單擊“加密”按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字n，將“明文”中的每個字母改為它后面的第n個字母(“z”后面的字母認為是“a”，“Z”后面的字母認為是“A”)，如圖所示。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內容。注意：不得修改程序中的其他部分和控件的屬性。最后將修歧后的文件按原文件名存盤。標準答案：(1)步驟1：新建一個窗體，按照題目要求建立控件并設置控件屬性，如圖3．22所示。程序中用到的控件及屬性設置見表3．15。步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案PrivatesubCommand1_Slick()Combol．AddItemText1EndSubPriVateSubCommand2_Slick()PrintCombol．ListCountEndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。(2)步驟l：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內容。參考答案PrivateSubCommand1Click()DimnAsInteger，kAsInteger，mAsIntegerDimcAsString，aAsStringF0rk=0To2IfOp1(k)．ValueThenn=Val(Op1(k)．Caption)EndIfNextkm=Len(Text1．Text)a=""Fork=1Tomc=Mid$(Text1．Text，k，1)c=String(1，Asc(c)+n)Ifc>"z"Orc>"Z"Andc<"a"Thenc=String(1，Asc(c)一26)EndIfa=a+cNextkText2．Text=aEndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：(1)命令按鈕和標簽的標題用屬性窗口中的Caption屬性設置。要使Text1的文本框沒有初始內容，需要將屬性窗口中的Text屬性設為空。要在下拉式組合框中輸入內容，可以在屬性窗口中對下拉式組合框的List屬性進行設置。AddItem方法用來向組合框中添加一個列表項，其格式為：組合框．AddItem列表項[索引]ListCount屬性用來返回組合框中列表項的個數(shù)。(2)根據(jù)題意，首先要確定移動的位數(shù)，移動的位數(shù)是通過單選按鈕來選擇的，移動的值是由單選按鈕的Caption屬性值決定的，然后要確定循環(huán)的次數(shù)，循環(huán)的次數(shù)是由輸入字母的個數(shù)決定的。使用Mid()函數(shù)取出字符串中的字符，利用Asc()函數(shù)返回字符的代碼，利用String()函數(shù)將字符代碼轉換成字符。Mid()函數(shù)的格式為Mid(字符串，p，n)。其中，Mid()函數(shù)從第p個字符開始，向后截取n個字符，p和n都是算術表達式。Mid()函數(shù)的第3個變量可以省略，這樣將從第p個字符開始向后截取到字符串的結尾。String()函數(shù)用于重復指定字符串中的字符，返回新的字符串。Asc()函數(shù)用于返回一個Integer，代表字符串中首字母的字符代碼。三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生目錄下有工程文件sjt5．vbp和文本文件：in5．txt，in5．txt中有不超過100個4位正整數(shù)。窗體上有2個命令按鈕，其功能是：單擊“讀入數(shù)據(jù)”按鈕，可以讀入in5．txt文件中的所有數(shù)，并顯示在文本框中。單擊“計算并保存”按鈕，能夠把滿足下述條件的整數(shù)的個數(shù)，以及這些數(shù)的累加和存入out5．txt文件。這些數(shù)需滿足的條件是：數(shù)中各位數(shù)字累加后能夠被5整除(例如：5235各位數(shù)字累加和是15，能夠被5整除，所以是滿足條件的數(shù))。要求：1)把“讀入數(shù)據(jù)”按鈕的Click事件過程中的?改為正確的內容；2)為“計算并保存”按鈕的Click事件過程編寫代碼。(事件過程的最后一行用于存盤，已經(jīng)給出，考生不得修改，否則無成績!)。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：步驟1：打開本題項目工程。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內容，并在“考生編寫的代碼”區(qū)域填入相應的代碼以實現(xiàn)題目的功能。參考答案OptionBase1Dima(100)AsInteger，numAsIntegerPrivateSubCommand1_Click()DimkAsIntegerk=1OpenApp．Path&"＼in5．txt"ForInputAs#1DoWhileNotEOF(1)Input#1，a(k)k=k+1LoopClose#1hum=k-1Fork=1ToRUmText1=Text1&a(k)&""NextkEndSubPrivateSubCommand2_Click()DimsumAsLong，nAsInteger，sAsIntegerDimjAsIntegersum=0：n=0Fori=1T0nums=a(i)Mod10+a(i)＼10Mod10+a(i)＼100Mod10+a(i)＼1000IfsMod5=0Thensum=sum+a(i)n=n+1EndIfNextiCallSaveFile(sum，n)’此行用于存盤，考生不得修改，否則無成績!EndSubPrivateSubSaveFile(sumAsLong，nAsInteger)OpenApp．Path&"＼out5．txt"ForOutputAs#lPrint#1，n，sumClose#1EndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：Command1_Click事件過程中使用Open語句打開文件，并通過DoWhile循環(huán)依次將文件中的數(shù)據(jù)讀入到數(shù)組中，并保存讀入元素的個數(shù)；Command2_Click事件過程中通過For循環(huán)取出每個元素，然后拆分出每個數(shù)組元素的個位，十位，百位和千位，并將各位數(shù)字累加到變量s中，再通過If語句判斷s能否被5整除，并將滿足條件的元素累加到變量slim中。國家二級VB機試（上機操作）模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Form1、標題為“列表框練習"的窗體上畫一個名稱為List1的列表框，表項內容依次輸入XXX、ddd、mmm和aaa，且以宋體14號字顯示表項內容，如圖3．102(a)所示。最后設置相應屬性，使運行后列表框中的表項按字母升序方式排列，如圖3．102(b)所示。注意：存盤時，將文件保存至考生文件夾下，且窗體文件名為sjtl．frm，工程文件名為sjtl．vbp。(2)在名稱為Form1的窗體上，畫一個名稱為Label1的標簽，其標題為“計算機等級考試”，字體為宋體，字號為12號，且能根據(jù)標題內容自動調整標簽的大小。再畫兩個名稱分別為Command1、Command2，標題分別為“縮小”和“還原”的命令按鈕(如圖3．103所示)。要求：編寫適當?shù)氖录^程，使得單擊“縮小”按鈕，Label1中所顯示的標題內容自動減小兩個字號；單擊“還原”按鈕，labell所顯示的標題內容的大小自動恢復到12號。注意：存盤時，將文件保存至考生文件夾下，窗體文件名為sjt2．frm，工程文件名為sjt2．vbp。要求程序中不得使用變量，每個事件過程中只能寫一條語句。標準答案：(1)步驟1：新建一個“標準EXE”工程，如表4-62在窗體中畫出控件并設置其相關屬性。步驟2：按要求將文件保存至考生文件夾中。(2)步驟1：新建一個“標準EXE”工程，如表4．63在窗體中畫出控件并設置其相關屬性。步驟2：打開代碼編輯窗口，編寫兩個命令按鈕的Click事件過程。參考代碼：PrivateSubCommand1_Click()Label1．FontSize=Label1．FontSize-2EndSubPrivateSubCommand2_Click()Label1．FontSize=12EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：(1)本題只需新建窗體和控件，然后設置相關屬性即可。(2)程序運行時要改變標簽的標題的字體大小，可通過修改其FontSize屬性值來實現(xiàn)。二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)考生文件夾中有工程文件sjt3．vbp。窗體上已有部分控件。在窗體上畫一個名稱為Text1的文本框，設置相應屬性，使得該文本框能夠顯示多行文本，且有垂直滾動條，如圖3-26所示。運行程序時，將在文本框Text1中顯示一段英文短文。要求：向文本框Text2中輸入一個字符串(例如enjoy)，然后單擊“查找”命令按鈕，則判斷輸入的字符串是否存在于Text1顯示的文本中。如果存在，則顯示它在Text1中首次出現(xiàn)的位置(Text1中第1個字符的位置為1)；否則用消息框顯示“沒有找到!”。注意：按照題目要求在窗體上添加控件，并設置有關屬性。去掉程序中的注釋符，把程序中的“?”改為正確的內容。考生不得修改窗體文件中已經(jīng)存在的程序。最后把修改后的文件按原文件名存盤。(2)在考生目錄下有一個工程文件sjt4．vbp。窗體上已有文本框Text1和圖片框Picture1(兩者位置重疊)，并建立了菜單。要求單擊“顯示圖片”菜單項時，隱藏文本框，在圖片框中顯示圖片Pic4．bmp，同時將該菜單標題改為“清除圖片”；單擊“清除圖片”菜單項時，清除圖片框中的圖片，同時將菜單標題改為“顯示圖片”；單擊“顯示文本”菜單項，則隱藏圖片框，并將指定文件的內容顯示在文本框中。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內容。最后把修改后的文件按原文件名存盤。標準答案：(1)步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在窗體中加入一個文本框。按步驟2：在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：表4．17設置其相關屬性。步驟2：在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：n=Len(str2)’或n=Len(Text2．Text)Fori=1ToLen(strl)MsgBoxstr2&"的起始位置是："&，iIfi>Len(strl)ThenMsgBox”沒有找到!”’或Ifi>Len(Text1．Text)步驟3：按要求將文件保存至考生文件夾中。(2)步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：IfshowPic．caption="顯示圖片"ThenPicture1．Picture=LoadPieture("")Picture1．Visible=FalseOpenApp．P