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

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