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

國家二級VB機試（上機操作）模擬試卷27（共9套）（共67題）國家二級VB機試（上機操作）模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫一個名稱checkl的復選框數(shù)組(Index屬性從0開始)，含三個復選框，其標題分別為“語文”、“數(shù)學”、“體育”，利用屬性窗口設置適當?shù)膶傩?，使“語文”未選，“數(shù)學”被選中，“體育”為灰色，再把窗體的標題設置為“選課”，如圖2．178所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上畫兩個文本框，名稱分別為Text1、Text2．再畫兩個命令按鈕，名稱分別為Command1、Command2，標題分別為“復制”、“刪除”。程序運行時，在Text1中輸入一串字符，并用鼠標拖拽的方法選擇幾個字符，然后單擊“復制”按鈕，則被選中的字符被復制到Text2中(如圖2．179所示)。若單擊“刪除”按鈕．則被選擇的字符從Textl中被刪除。請編寫兩個命令按鈕的Click過程完成上述功能。注意：要求程序中不得使用變量，事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程。步驟2：在窗體Forml中加入一個復選框，并用“復制”和“粘貼”的方法，生成包含三個元素的復選框數(shù)組。步驟3：分別設置窗體和復選框數(shù)組中各元素的相關屬性，其屬性及值如表3．95所示。步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體Forml中畫兩個文本框和兩個命令按鈕，其相關屬性設置如表3．96所示。步驟2：在代碼編輯窗口，分別編寫“復制”和“刪除”按鈕的單擊事件過程。參考代碼：PrivateSubCommandl—Click()Text2=Textl．SelTextEndSubPrivateSubCommand2_Click()Forml．Textl．SeiText=’”’EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sjt3．vbp，窗體上有一個矩形和一個圓，還有垂直和水甲滾動條各一個。程序運行時，移動某個滾動條的滾動塊，可使圓做相應方向的移動。滾動條刻度值的范圍是圓可以在矩形中移動的范圍。以水平滾動條為例，滾動塊在最左邊時，圓靠在矩形的左邊線上，如圖2．140(a)所示；滾動塊在最右邊時，圓靠在矩形的右邊線上，如圖2．140(b)所示。垂直滾動條的情況與此類似。文件中已經(jīng)給出了全部控件和稗序，但程序不完整，請去掉程序中的汴釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sit4．vbp。窗體中已經(jīng)給出了所有控件，如圖2．141所示。運行時，單擊“發(fā)射”按鈕，航天飛機圖標將向上運動，速度逐漸加快，全部進入云中后則停止，并把飛行距離(用坐標值表示)、所用時問(單位為秒)分別顯示在標簽Label1和Label2中；單擊“保存”按鈕，則把飛行距離、所用時間存入考生文件夾下的out4．txt文件中。文件中已經(jīng)給出了程序，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“”’，將問號“?”改為正確的內(nèi)容。參考代碼：HScrolll．Max=Shape2．Width+Shape2．Left—Shapel．WidthVScrolll．Max；Shape2．Height+Shape2．Top—Shapel．HeightShapel．Left=HScr0111．ValueShapel.Top=VScr0111步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“”’，將問號“?”改為正確的內(nèi)容。參考代碼：TimeR1．Enabled：TrueTimerl．Enabled=Falsed=d—Imagel．Topt=t+1步驟2：按要求將文件保存至考生文件夾中。步驟3：按鍵運行程序，先單擊“發(fā)射”按鈕，計算完畢后單擊“存盤”按鈕，最后單擊窗體右上角的關閉按鈕結束程序。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在窗體上畫一個文本框，其名稱為Text1，初始內(nèi)容為空白，并設置成多行顯示格式；然后再畫兩個命令按鈕，其名稱分別為Command1和Command2，標題分別為“顯示”和“保存”，如圖2．92所示，編寫適當?shù)氖录^程。程序運行后，如果單擊“顯示”按鈕，則讀取考生文件夾下的inS．txt文件，并在文奉框中顯示出來，該文件是一個用隨機存取方式建立的文件，共有5個記錄，要求按記錄號順序顯示全部記錄，每個記錄一行；如果單擊“保存”按鈕，則把所有記錄保存到考生文件夾下的順序文件out5．txt中。隨機文件in5．txt中的每個記錄包括三個字段，分別為姓名、性別和年齡，其名稱和長度分別為：其類型定義為：PrivateTypeStudInfoNameAsString*8SexAsString*4AgeAsIntegerEndType要求：文件out5．txt以順序存取方式建立和保存。存盤時必須存放在考生文件夾下，工程文件名為sjt5．vbp，窗體文件名為sit5．frm。標準答案：【操作步驟】步驟1：新建一個“標準EXE”工程，如表3-51在窗體中畫出控件并設置其相關屬性。步驟2：打開代碼編輯窗口，編寫相應事件過程。參考代碼：PrivateTypeStudlnfoNameAsString*8SexAsString*4AgeAsIntegerEndTypeDimStudAsStudInfoDimRecNumAsLongPrivateSubCommandlC1ick()OpenApp．Path＆”＼in5．txt”ForRandomAs#1Len=Len(Stud)RecNum=1DoWhileNotEOF(1)Get#1，RecNum，StudTextl．Text=Textl．Text＆Stud．NameTextl．Text=Textl．Text＆StudSexTextl．Text=Textl．Text＆Str(Stud．Age)Textl．Text=Textl．Text+vbCrLfRecNum=RecNum+1LoopClose1EndSubPrivateSubCommand2Click()OpenApp．Path＆”＼out5．txt”ForOutputAs#1Print#1，Textl．TextClose1EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第2套一、選擇題(本題共40題，每題1.0分，共40分。)1、線性表常采用的兩種存儲結構是()。A、散列方法和索引方式B、鏈表存儲結構和數(shù)組C、順序存儲結構和鏈式存儲結構D、線性存儲結構和非線性存儲結構標準答案：C知識點解析：線性表的存儲通常要用兩種存儲結構：順序存儲結構和鏈式存儲結構。2、軟件需求分析階段的工作，可以分為四個方面：需求獲取、編寫需求規(guī)格說明書、需求評審和()。A、階段性報告B、需求分析C、需求總結D、都不正確標準答案：B知識點解析：軟件需求分析階段的工作，可以概括為四個方面：需求獲取、需求分析、編寫需求規(guī)格說明書和需求評審。需求獲取的目的是確定對目標系統(tǒng)的各方面需求。涉及到的主要任務是建立獲取用戶需求的方法框架，并支持和監(jiān)控需求獲取的過程。需求分析是對獲取的需求進行分析和綜合，最終給出系統(tǒng)的解決方案和目標系統(tǒng)的邏輯模型。編寫需求規(guī)格說明書作為需求分析的階段成果，可以為用戶、分析人員和設計人員之間的交流提供方便，可以直接支持目標軟件系統(tǒng)的確認，又可以作為控制軟件開發(fā)進程的依據(jù)。需求評審是對需求分析階段的工作進行復審，驗證需求文檔的一致性、可行性、完整性和有效性。3、在軟件生命周期中，能準確地確定軟件系統(tǒng)必須做什么和必須具備哪些功能的階段是()。A、需求分析B、詳細設計C、軟件設計D、概要設計標準答案：A知識點解析：軟件生命周期的主要活動階段為：可行性研究和計劃制定、需求分析、軟件設計、軟件實現(xiàn)、軟件測試、運行和維護。其中需求分析是對開發(fā)軟件提出的需求進行分析并給出詳細定義，即準確地確定軟件系統(tǒng)的功能，編寫軟件規(guī)格說明書及初步的用戶手冊，提交評審。4、對建立良好的程序設計風格，下面描述正確的是()。A、程序應簡單、清晰、可讀性好B、符號名的命名只要符合語法C、充分考慮程序的執(zhí)行效率D、程序的注釋可有可無標準答案：A知識點解析：程序設計應該簡單易懂，語句結構應該簡單直接，不應該為提高效率而把語句復雜化。5、下列工具中，不屬于結構化分析的常用工具的是()。A、數(shù)據(jù)流圖B、數(shù)據(jù)字典C、判定樹D、N-S圖標準答案：D知識點解析：結構化分析常用工具有數(shù)據(jù)流圖、數(shù)據(jù)字典、判定樹和判定表。6、在軟件生產(chǎn)過程中，需求信息的來源是()。A、程序員B、項目經(jīng)理C、設計人員D、軟件用戶標準答案：D知識點解析：軟件需求是指用戶對目標軟件系統(tǒng)在功能、性能、設計約束等方面的要求，是由用戶提出的。7、對關系S和R進行集合運算，結果中既包含S中的所有元組也包含R中的所有元組，這樣的集合運算稱為()。A、并運算B、交運算C、差運算D、積運算標準答案：A知識點解析：關系的并運算是指由結構相同的兩個關系合并，形成一個新的關系，新關系中包含兩個關系中的所有元組。8、設有關鍵碼序列(Q，G，M，Z，A，N，B，P，X，H，Y，S，T，L，K，E)，采用堆排序法進行排序，經(jīng)過初始建堆后關鍵碼值B在序列中的序號是()。A、1B、3C、7D、9標準答案：B知識點解析：建堆的算法：首先將要排序的所有關鍵碼放到一棵完全二叉樹的各個結點中(這時的二叉樹不具備堆的特性)，然后，從i=[n／2](n為結點的個數(shù))的結點Ki開始，逐步把以K[n/2]，K[n/2]-1，K[n/2]-2，…為根的子樹排成堆，直到以K1為根的樹排成堆，就完成了建堆過程。此題中，n=16，i=[16／2]=8，即從第8個結點開始，所以經(jīng)過初始建堆后關鍵碼值B在序列中的序號是3。9、數(shù)據(jù)庫的故障恢復一般是由()來執(zhí)行恢復。A、電腦用戶B、數(shù)據(jù)庫恢復機制C、數(shù)據(jù)庫管理員D、系統(tǒng)普通用戶標準答案：C知識點解析：數(shù)據(jù)庫一旦發(fā)生故障，需要及時進行故障恢復，并由數(shù)據(jù)庫管理員負責執(zhí)行故障恢復。10、下列選項中，不屬于數(shù)據(jù)模型所描述的內(nèi)容的是()。A、數(shù)據(jù)類型B、數(shù)據(jù)操作C、數(shù)據(jù)結構D、數(shù)據(jù)約束標準答案：A知識點解析：數(shù)據(jù)模型描述的內(nèi)容包含數(shù)據(jù)結構、數(shù)據(jù)操作和數(shù)據(jù)約束。11、在窗體上畫一個命令按鈕，然后編寫如下時間過程()。PrintSubCommandl_Click()a=InputBox(”EntertheFirstinterger”)b=InputBox(”EntertheSecondinterger”)Printb+aEndSub程序運行后，單擊命令按鈕，先后在兩個輸入對話框中分別輸入456和123，則輸出結果是A、579B、123C、456D、123456標準答案：D知識點解析：InputBox函數(shù)返回的是字符串格式的用戶輸入的數(shù)據(jù)，因此本題中，最后變a和變量b中存儲的是字符串‘456’和’123’，因此表達式b+a，就是將這兩個字符串連接起來，稱為字符串’123456’。12、確定一個控件在窗體上的位置的屬性是()。A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left標準答案：D知識點解析：本題考查對象的基本屬性。Height和Width屬性決定了控件的高度和寬度，而Top和Left屬性決定了控件在窗體中的位置屬性。13、以下()控件沒有Caption屬性。A、CommandButtonB、CheckBoxC、TextBoxD、Label標準答案：C知識點解析：本題考查基本控件的常用屬性。命令按鈕(CommandButton)、復選框(CheckBox)以及標簽(Label)都有標題(Caption)屬性；而文本框沒有Caption屬性，只有Text屬性。14、在窗體上有一個名稱為Commandl的命令按鈕，并有如下程序：PrivateSubCommandl_Click()StaticXAsIntegerStaticYAsIntegerC1sY=1：Y=Y+5：X=5+X：PrintX．YEndSub程序執(zhí)行時，單擊命令按鈕Command1三次后，窗體上顯示的結果為()。A、1516B、56C、1515D、156標準答案：D知識點解析：本題考查靜態(tài)變量。靜態(tài)變量的值有繼承性，上一次調(diào)用的結果在下一次調(diào)用時還是有效的。題目中每次調(diào)用Y的值都被重新賦值了，因此單擊3次以后Y的值仍然是6，而x每次調(diào)用的結果都保留，因此調(diào)用3次以后，結果為15。15、表達式Str(Len(”123”))+Str(77．7)的值是()。A、3+77．7B、377．7C、80．7D、12377．7標準答案：B知識點解析：本題考查字符串處理函數(shù)。Str的功能是把數(shù)字轉化為字符，Len函數(shù)的功能是求字符串中字符的個數(shù)。題中“+”為字符串連接運算符。16、表達式Int(一15．8)+Fix(一15．8)+Int(15．8)+Fix(15．8)的運算結果是()。A、一1B、一2C、0D、1標準答案：A知識點解析：本題考查函數(shù)Int的功能，Int(x)的作用是取不大于x的最小的整數(shù)，F(xiàn)ix(x)則是簡單的取整數(shù)部分。17、編寫如下事件過程：PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle，YAsSingle)If(ButtonAnd3)=3ThenPrint”AAAA”EndIfEndSub程序運行后，為了在窗體上輸出“AAAA”，應按下的鼠標鍵為()。A、按左鍵并移動B、按右鍵并移動C、同時按下左、右鍵并移動D、按什么鍵都不顯示標準答案：D知識點解析：鼠標單擊時，鼠標鍵按下的參數(shù)Button可取3個值：按下左鍵時，Button值為1、按下右鍵時，Button值為2、按下中間鍵時，Button值為4。因此始終不能執(zhí)行語句“Print”AAAA””，也就不能輸出“AAAA”。18、窗體上有一個名稱為Cbl的組合框，程序運行后，為了輸出選中的列表項，應使用的語句是()。A、PrintCbl．SelectedB、PrintCbl．List(Cbl．ListIndex)C、PrintCbl．Selected．TextD、PrintCbl．List(Listlndex)標準答案：B知識點解析：組合框的屬性ListIndex返回當前所選項目的索引號，List(Index)屬性返回指定索引號的列表項內(nèi)容，因此返回當前選定的列表項應該用Cb1．List(Cb1，LiStIndexl。19、窗體上有一個命令按鈕和一個文本框，程序執(zhí)行后，在文本框中輸入12345，單擊命令按鈕后的輸出結果為()。PrivateSubCommandl_Click()DimAAsInteger,BAsIntegerText1．SelStart=2：Text1．SelLength：2A=Val(Textl．SelText)：B=Len(Text1．Text)PrintA*BEndSubA、68B、115C、1700D、170標準答案：D知識點解析：本題考查文本框的常見屬性。文本框的SelStart屬性和SelLength屬性表示選中文本的開始位置和長度，第一個字符的位置為0，SelText表示選中的文本。Val把字符轉化為數(shù)字。所以A為34，B為5，因此輸出為34*5=170。20、使用()方法，可清除列表框中所有的列表項。A、RemoveB、ClearC、RemoveItemD、Move標準答案：B知識點解析：本題考查列表框項目清除。在列表框中可以使用RemoveItem方法和Clear方法來清除項目，其中RemoveItem清除某一項，而Clear清除所有項。21、下列循環(huán)能正常結束的是()。A、x=5Dox=x+1LoopUntilx<0B、x=1Dox=x+2LoopUntilx=10C、x=10Dox=x+1LoopUntilx>0D、x=6Dox=x一2LoopUntilx=1標準答案：C知識點解析：本題考查Do型循環(huán)。對于這種循環(huán)結構，首先看條件判斷在循環(huán)體的前面還是后面，如果是先判斷條件，則有可能一次也不執(zhí)行循環(huán)體；如果是后判斷條件，則無論條件如何至少執(zhí)行一次循環(huán)體。由Until引出的循環(huán)條件為False時執(zhí)行循環(huán)體，條件為True時退出循環(huán)；題目中選項A)中循環(huán)變量逐漸增加，不可能小于0，選項B)中循環(huán)變量的步長為2，初值為1，不可能等于10。而選項C)中執(zhí)行一次循環(huán)體，條件成立，退出循環(huán)。選項D)和選項B)相似，循環(huán)變量無法等于1。22、程序運行時，當在空文本框中依次輸入1234時，窗體上顯示的是()。PrivatesubText1_Change()PrintText1：EndSubA、1234B、12C、1121231234D、10標準答案：C知識點解析：本題考查文本框的Change事件，Change事件是每次文本框中的文本發(fā)生改變都要觸發(fā)的事件，因此輸入1234后，Change事件觸發(fā)了4次，每次都是把文本框的現(xiàn)有的內(nèi)容輸出，依次輸出為1121231234。23、在窗體上沒有進行任何屬性設置，然后編寫如下事件過程，則程序運行結果是()。PrivateSubForm_Load()Fori=1To10sum=sum+iNextiPrint”Sum=”：sumEndSubA、在窗體上輸出55B、在窗體上輸出sum=55C、出錯D、窗體上不輸出標準答案：D知識點解析：本題考查Load事件運行。當裝入窗體事件觸發(fā)時，通常用于對屬性和變量初始化，一般不使用Print方法，若想Print方法在FormLoad事件過程中起作用，必須設置窗體的AutoRedraw為True，否則Print方法不起作用。24、在窗體上畫兩個名稱分別為Hscroll1、Hscroll2的滾動條控件；6個名稱分別為Label1、Label2、Label3、Label4、Label5、Label6的標簽，其中，Label4-Label6分別顯示“A”、“B”、“A*B”等文字信息，標簽Label1、Label2分別顯示其右側的滾動條Value屬性值，Label3顯示A*B的計算結果，如圖1所示。當移動滾動框時，在相應的標簽中顯示滾動條的值。當單擊命令按鈕“計算”時，對標簽Label1、Label2中顯示的兩個值求積，并將結果顯示在Label3中。以下不能實現(xiàn)求積功能的事件過程是()。A、PrivateSubCommandl_Click()Label3．Caption=Str(Val(Label1．Caption)*Val(Label2．Caption))EndSubB、PrivateSubCommandlClick()Label3．Caption：HScrolll．Value*HScroll2．ValueEndSubC、PrivateSubCommandl_Click()Label3．Caption：HScroll1*HScroll2EndSubD、PrivateSubCommandl_Click()Label3．Caption=HScroll1．Text*HScroll2．TextEndSub標準答案：D知識點解析：本題考查滾動條的屬性。滾動條Value屬性表示滑塊的位置值，為數(shù)值型；而標簽的Caption為字符串型。因此，要將滾動條的Value屬性值顯示在標簽上，需要進行類型轉換(將數(shù)值型數(shù)據(jù)轉換成字符串型數(shù)據(jù))。25、設a=6，則執(zhí)行x=IIf(a>5，-1，0)后，x的值為()。A、5B、6C、0D、一1標準答案：D知識點解析：本題考查IIf函數(shù)。IIf函數(shù)可用于執(zhí)行簡單的條件判斷操作，其格式為：result=IIf(<條件>，．)，其中“result”是函數(shù)的返回值，“條件”是一個邏輯表達式。當“條件”為真時，IIf函數(shù)返回“True部分”的值；當“條件”為假時返回“False部分”的值?！癟rue部分”或“False部分”可以是表達式、變量或其他函數(shù)。題目中a大于5成立，因此表達式值為一1。26、以下程序執(zhí)行后，在窗體上輸出的圖案是()。Forml．ClsFora=1To5PrintSpace(5一a)；String(a，”*”)NextaA、***************B、*****************C、*****************D、***************標準答案：A知識點解析：本題考查循環(huán)語句的分析。循環(huán)中共輸出5行，每一行首先輸出5一a個空格，然后輸出a個“*”號。a的變化為1到5，步長為1。27、假定窗體上有一個標簽，名為Label。為了使該標簽透明并且沒有邊框，則正確的屬性設置為()。A、Labell．BackStyle=0Label1．BorderStyle=0B、Label1．BackStyle=1Label1．BorderStyle=1C、Label1．BackStyle=TrueLabel1．BorderStvle=TrueD、Label1．BackStyle=FalseLabel1．BorderStyle=False標準答案：A知識點解析：標簽控件的BackStyle屬性是設置背景，當BackStyle屬性值設置為0時，則標簽為“透明”的，當BackStyle屬性值設置為1時，則標簽為將覆蓋背景；標簽控件的BorderStyle屬性是設置標簽的邊框，當BorderStyle屬性值設置為0時，則標簽無邊框，當BorderStyle屬性值設置為1時，則標簽有邊框。因此選項A正確。28、單擊命令按鈕時，下列程序段的執(zhí)行結果為()。PrivateSubCommandl_Click()PrintFuncl(24，18)EndSubPublicFunctionFuncl(mAsInteger，nAsInteger)AsIntegerDoWhilem<>nDoWhilem>n：m=m．n：LoopDoWhilemA、8B、6C、4D、2標準答案：B知識點解析：本題考查循環(huán)程序的分析。在函數(shù)Funcl中，程序主要由一條嵌套的循環(huán)語句構成，如果m<>n，外循環(huán)內(nèi)部的第一條內(nèi)循環(huán)為除去m中包含的所有的n的倍數(shù)。第二條內(nèi)循環(huán)為除去n中包含的m的倍數(shù)。最后計算到m和n相等。29、下列程序段執(zhí)行后，輸出的結果是()。Fork1=0T04y=20Fork2=0To3y=10Fork3=0To2y=y+10Nextk3Nextk2NextklPrintyA、90B、60C、40D、1O標準答案：C知識點解析：本題考查循環(huán)程序的分析。程序的主要部分為一個3層循環(huán)的嵌套。前兩層循環(huán)共執(zhí)行5*4=20次，每次執(zhí)行前y的初值都是10，因此，只要考慮第3層循環(huán)就可以了。第3層循環(huán)執(zhí)行3次，也就是語句y=y+10執(zhí)行3次，y的初始值為10，因此計算結果為40。30、使用語句DimA(1To10)AsInteger聲明數(shù)組A后，以下敘述正確的是()。A、A數(shù)組中的所有元素值為0B、A數(shù)組中的所有元素值不確定C、A數(shù)組中的所有元素值為EmptyD、執(zhí)行語句“EraseA”后，A數(shù)組中的所有元素值為Null標準答案：A知識點解析：本題考查數(shù)組。VB中數(shù)值型數(shù)組定義后，所有的元素都自動賦值為0。而Erase僅可以清空自動數(shù)組中的元素值。31、以下程序段的功能是()。x=8．6y=Inf(x+0．5)PrintyA、輸出y的絕對值B、實現(xiàn)x的四舍五入C、實現(xiàn)x的絕對值D、實現(xiàn)y的四舍五入標準答案：B知識點解析：本題考查函數(shù)Int的功能，Int(x)的作用是取不大于x的最小的整數(shù)，可以實現(xiàn)數(shù)據(jù)的四舍五入。32、在窗體上建立一個命令控件數(shù)組Command1，并雙擊第一個命令按鈕，編寫如下事件過程：PrivateSubCommandl_Click(IndexAsInteger)Commandl(Index)．Caption=FormatS(Now,”hh：mm：ss”)EndSub以下描述正確的是()。A、當單擊某個命令按鈕時，數(shù)組中所有命令按鈕的Caption屬性將被設置為當前時間B、當單擊某個命令按鈕時，該按鈕的Caption屬性將被設置為當前時間C、程序有錯誤D、窗體的Caption屬性將被設置為當前時間標準答案：B知識點解析：本題考查控件數(shù)組。建立控件數(shù)組以后，數(shù)組中的每個元素名字相同，依靠Index屬性來區(qū)分單擊了哪個命令按鈕。題目中單擊哪個命令按鈕，哪個命令按鈕的標題屬性就變?yōu)楫斍皶r間。33、有如下的一個函數(shù)過程：Functionfn(ByValnumAsLong)DimkAsLongk=1：num=Abs(num)DoWhilenumk=k*(numMod10)num=Bum＼10Loopfn=kEndFunction通過以下事件過程調(diào)用該函數(shù)，程序運行后，在輸入對話框中輸入數(shù)字“123”，則運行結果為()。PrivateSubCommandl_Click()DimnAsLongDimrAsLongn=InputBox(”請輸入一個數(shù)值”)n=CLng(n)：r=fn(n)PrintrEndSubA、12B、6C、3D、1標準答案：B知識點解析：本題考查函數(shù)功能分析。定義函數(shù)過程fn時，在參數(shù)前加上ByVal表明參數(shù)為傳值調(diào)用。函數(shù)fn的主要功能為取出num的每一位，進行累計相乘，然后返回結果。34、下列關于函數(shù)過程的敘述中，正確的是()。A、如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型B、函數(shù)過程的返回值可以有多個C、函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關系D、當數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以引用方式傳遞標準答案：C知識點解析：本題考查過程定義。在VB中出現(xiàn)的變量，如果沒有聲明類型，那么為變體型。VB中可以通過調(diào)用函數(shù)過程得到返回值，一個函數(shù)過程只能有一個返回值，如果需要改變主調(diào)過程的參數(shù)，可以進行傳址方式調(diào)用函數(shù)。VB數(shù)組參數(shù)中不存在傳址調(diào)用，函數(shù)的參數(shù)和返回值類型之間沒有任何關系。35、以下程序段的功能是：從文本框中輸入一個數(shù)值，如果該數(shù)值滿足“除以4余1，除以5余2”的條件，則在窗體上輸出文本框中的數(shù)值，否則，將焦點定位在文本框中，并清除文本框的內(nèi)容，在橫線處應填寫()。PrivateSubCommandl_Click()x=Val(Textl．Text)If_______ThenPrintxElseText1．SetFOCUSText1．Text=””EndIfEndSubA、X％4=1AndX％5=2B、x％4=1Orx％5=2C、XMod4=1AndXMod5=2D、xMod4=1OrXMod5=2標準答案：C知識點解析：本題考查條件表達式的描述和如何獲得焦點。題中的兩個條件“除以4余1，除以5余2”關系為并列關系，可以表示為“xMod4=1AndxMod5=2”。36、要求當鼠標在圖片框Picturel中移動時，立即在圖片中顯示鼠標的位置坐標。下面能正確實現(xiàn)上述功能的事件過程是()。A、PrivateSubPicture1_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Picture1．PrintX，YEndSubB、PrivateSubPicturel_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)PrintX，YEndSubC、PrivateSubPicture1_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Picture．PrintX，YEndSubD、PrivateSubForm_MouseMove(ButtonAsIntegerShiftAsInteger，XAsSingle，YAsSingle)Picture1．PrintX，YEndSub標準答案：A知識點解析：在圖片框中移動鼠標觸發(fā)的事件是PicturelMouseMove事件，在事件中控制在圖片框中輸出坐標。37、一個工程中包含兩個名稱分別為Form1、Form2的窗體、一個名稱為Func的標準模塊。假定在Form1、Form2和Func中分別建立了自定義過程，其定義格式為：Form1中定義的過程：PrivateSubFunl()EndSubForm2中定義的過程：PrivateSubFun2()EndSubFunc中定義的過程：PrivateSubFun3(、)EndSub在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是()。A、上述3個過程都可以在工程中的任何窗體或模塊中被調(diào)用B、Fun1和Fun2過程能夠在工程中各個窗體或模塊中被調(diào)用C、上述3個過程都只能在各自被定義的模塊中調(diào)用D、只在Fun3過程能夠被工程中各窗體或模塊調(diào)用標準答案：C知識點解析：本題考查過程的作用域。在定義過程或者函數(shù)的時候選用了Private關鍵字說明，那么這個過程僅可以在本模塊中使用，標準模塊定義的函數(shù)或者過程也不例外。38、在窗體上有一個名稱為CDl的通用對話框和一個名稱為Commandl的命令按鈕。要求單擊命令按鈕時，打開一個保存文件的通用對話框。該窗口的標題為“保存”，缺省文件名為“ABC”，在“文件類型”欄中顯示*．txt。則能夠滿足上述要求的程序是()。A、PrivateSubCommandl_Click()CD1．FileName=”ABC”CD1．Filter=”AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc”CD1．Filterlndex=1CD1．DialogTitle=”保存”CD1．Action=2EndSubB、PrivateSubCommandl_Click()CD1．FileName=”ABC”CD1．Filter=”AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc”CD1．FilterIndex=2CD1．DialogTitle=”保存”CD1．Action=2EndSubC、PrivateSubCommand1_Click()CD1．FileName=”保存”CD1．Filter=”AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc”CD1．FilterIndex=2CD1．DialogTitle=”ABC”CD1．Action=2EndSubD、PrivateSubCommand1_Click()CD1．FileName=”ABC”CD1．Filter=”AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc”CD1．Filterlndex=1CD1．DialogTitle=”保存”CD1．Action=1EndSub標準答案：B知識點解析：本題考查通用對話框。程序中單擊命令按鈕時，要打開保存對話框，因此設置CDl的Action屬性為2，可以使用ShowSave方法，更改CDl的DialogTitle屬性為“保存”，同時設置Filter屬性，將FilterIndex屬性設置為2，表示默認的文件類型為“*．txt”，設置其FileName屬性為“ABC”，表示確定首次打開“保存”對話框時，在文件名中顯示的文件名。39、己知在菜單編輯器中設計了窗體的快捷菜單，其主菜單為al，且取消其“可見”屬性，如圖2所示。運行時，以下()事件過程可以使快捷菜單的菜單項響應鼠標右鍵單擊。A、PrivateSubForm_MouseDown(ButtonAs_Integer,_ShiftAsInteger,XAsSingle，YAsSingle)IfButton=2ThenPopupMenual，2EndSubB、PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle．YAsSingle)PopupMenual，0EndSubC、PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle，YAsSingle)PopupMenualEndSubD、PrivateSubForm_MouseDown(ButtonAsIntegeLShiftAs_Integer,XAsSingle，YAsSingle)If(Button=vbLetfButton)Or(Button=vbRightButton)ThenPopupMenualEndSub標準答案：A知識點解析：本題考查彈出菜單的顯示。PopupMenu為彈出菜單方法，使用格式為：[對象.]PopupMenu菜單名、標志，x,y；其中，標志表示彈出的位置和觸發(fā)的鍵，取值為0表示彈出菜單的左端在x處且識別左鍵單擊，取值為04表示位于x的中心，取值為08表示在x的右邊，一般判斷是否單擊右鍵，可通過判斷Button是否為2來實現(xiàn)。40、下面程序運行時，若輸入“VisualBasicProgramming”，則在窗體上輸出的是()。PrivateSubCommand1_Click()DimNum(25)AsInteger，ChrlAsStringChrl=LJCase(InputBox(”請輸入字母字符串”))Fork=1ToLenfChrl)n=Asc(Mid(Chr1，k，1))-Asc(”A”)Ifn>=O’FhenNum(n)=Num(n)+1EndIfNextkm=Num(0)Fork=1To25IfmA、3B、2C、1D、0標準答案：A知識點解析：該程序的第一個循環(huán)是遍歷整個字符串，其中數(shù)組Num的作用是存放對應字符的出現(xiàn)次數(shù)；第二個循環(huán)的作用是找到數(shù)組Num中的最大值，所以整個程序的功能就是找到在輸入字符串中出現(xiàn)次數(shù)最多的字母，并輸出其出現(xiàn)的次數(shù)。二、基本操作題(本題共1題，每題1.0分，共1分。)41、請根據(jù)以下各小題的要求設計Visual．Basic應用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫出包含三個命令按鈕的控件數(shù)組，名稱為cmdl，下標分別為0、1、2，Caption分別為“開始”、“停止”和“退出”，如圖3(a)所示。通過屬性窗口設置各命令按鈕的屬性，使得程序開始運行時，“停止”按鈕不可見，“退出”按鈕不可用，如圖3(b)所示。注意：存盤時，將文件保存至考生文件夾下，且窗體文件名為sjt1．frm，工程文件名為sjt1．vbp。(2)在名稱為Form1的窗體上畫兩個名稱分別為Command1和Command2、標題分別為“打開，，和“保存”的命令按鈕，和一個名稱為CD1的通用對話框，如圖4所示。請在屬性窗口中設置CD1的屬性，使得打開通用對話框時，其初始路徑是“C：＼”。再編寫適當?shù)氖录^程，使得運行程序，分別單擊“打開”或“保存”按鈕時，相應地出現(xiàn)“打開”或“保存”對話框。要求程序中不得使用變量，每個事件過程中只能寫一條語句。注意：存盤時，將文件保存至考生文件夾下，且窗體文件名為sjt2.frm，工程文件名為sjt2．vbp。標準答案：(1)【操作步驟】步驟1：新建一個“標準EXE”工程，如下表在窗體中用“復制”和“粘貼”畫出控件數(shù)組并設置屬性。(2)【操作步驟】步驟1：新建一個“標準EXE”工程，選擇【工程】→【部件】命令，在彈出的“部件”對話框的列表中選中“MicroSoftCommonDialogContro16．0”項目，單擊“確定”按鈕。步驟2：在窗體Form1上畫一個通用對話框，其相關屬性設置如下表所示。步驟3：編寫兩個命令按鈕的Click事件，加入下面的代碼：參考代碼：PrivateSubCommandl_Click()PrivateSubCommand2_Click()CD1．ShowOpen’或CD1．Action=1CD1．ShowSave’或CD1．Action：2EndSubEndSub步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、簡單應用題(本題共1題，每題1.0分，共1分。)42、(1)考生文件夾中有工程文件sjt3．vbp。在窗體上有名稱為Combo1的組合框，請設置該組合框的屬性，使該組合框只能用于選擇操作，不能輸入文本。窗體上還有兩個標題分別為“輸入正整數(shù)”、“判斷”的命令按鈕。程序運行時在組合框中選中一項，如圖5(a)所示，單擊“輸入正整數(shù)”按鈕，通過輸入對話框輸入一個正整數(shù)，再單擊“判斷”按鈕，則按照選定的選項內(nèi)容，將判斷結果顯示在信息框中。如圖5(b)所示的是輸入56且選中的組合框選項為“判奇偶數(shù)”時顯示的信息框。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整，要求：按照題目要求設置組合框的有關屬性，去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：考生不得修改窗體文件中已經(jīng)存在的程序。最后程序按原文件名存盤。(2)在考生目錄下有一個工程文件sjt4．vbp。窗體上有一大一小兩個名稱分別為Shape2、Shape1的Shape控件。請在屬性窗口中將Shapel控件設置為圓形，并將其顏色設置為紅色(顏色值為&H000000FF&)，如圖6所示。要求：當單擊窗體時，Shape1移動到矩形(即Shape2)左上角，再次單擊窗體，則鼠hapel移動到矩形的右下角。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。要求：在屬性窗口中設置有關的屬性值，去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：(1)【操作步驟】步驟l：打開考生文件中的本題工程文件sjt3．vbp，將組合框的Style屬性設置為2。步驟2：在代碼編輯窗口，去掉程序中的注釋符""，將問號“?”改為正確的內(nèi)容。參考代碼：SelectCaseCombo1．ListIndexMsgBoxStr(x)&f1(x)MsgBoxStr(x)＆f2(x)PrirateFunctiont2(ByValxAsInteger)AsStringIfxMod7=0Then步驟3：按要求將文件保存至考生文件夾中。(2)【操作步驟】步驟1：打開考生文件中的本題工程文件sit4．vbp，將Shape1控件的Shape屬性設置為3，BackColor屬性設置為&H000000FF&。步驟2：在代碼編輯窗口，去掉程序中的注釋符“”，將問號“?”改為正確的內(nèi)容。參考代碼：PrivateFlagAsBooleanShapel．Top=Shape2．1bp+Shape2．Height—Shape1．HeightShapel．Left=Shape2．Left+Shape2．Width—Shape1．Width步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析四、綜合應用題(本題共1題，每題1.0分，共1分。)43、在考生目錄下已有一個工程文件sjt5．vbp。運行程序后，分別從兩個文件中讀出數(shù)據(jù)，放入兩個一維數(shù)組a、b中。請編寫程序，當單擊“合并數(shù)組”按鈕時，將a、b數(shù)組中相同下標的數(shù)組元素的值求和，并將結果存入數(shù)組c。單擊“找最大值”按鈕時，調(diào)用find過程分別找出a、c數(shù)組中元素的最大值，并將所找到的結果分別顯示在Text1、Text2中。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，并編寫相應程序，實現(xiàn)程序的功能。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序調(diào)試通過后，各命令按鈕的事件過程必須至少各執(zhí)行一次。標準答案：【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt5．vbp，打開代碼編輯窗口，在指定位置編寫代碼。參考代碼：Max=x(1)Fori=2ToU=Bound(x)Ifx(i)>MaxThenMax=x(i)EndIfNextt．Text=MaxFori=1ToUBound(a)c(i)=a(i)+b(i)Next步驟2：按要求將文件保存至考生文件夾中。步驟3：按鍵運行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“合并數(shù)組”按鈕，最后單擊“找最大值”按鈕。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫一個文本框，名稱為Text1，內(nèi)容為“VB程序設計”；再畫兩個命令按鈕，其名稱分別為Command1和Command2，標題分別為“擴大”和“縮小”，如圖2．1所示，編寫適當?shù)氖录^程。程序運行后，每單擊Commandl命令按鈕一次，文本框中文本的字體擴大1．2倍；每單擊Command2單選按鈕一次，文本框中文本的字體縮小1．2倍。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sit1．frm。(2)在名稱為Forml的窗體上畫一個列表框，其名稱為List1，通過屬性窗口向列表框中輸入9個項目，分別為10、20、30、40、50、60、70、80、90；畫一個文本框，其名稱為Textl，初始內(nèi)容為空白；再畫一個水平滾動條，其名稱為HScrolll，Min屬性和Max屬性分別為0和100，如圖2．2(a)所示，編寫適當?shù)氖录^程。程序運行后，如果單擊列表框中的某個項目，則在文本框中顯示該項目內(nèi)容，并把滾動條的滾動框移到相應的位置，如圖2—2(b)所示。要求：不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sit2．frm。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體Forml中加入一個文本框和兩個命令按鈕，其相關屬性設置如表3—1所示。步驟2：打開代碼編輯窗口，輸入如下代碼：參考代碼：PrivateSubCommandl—Click()Textl．FontSize=Textl．FontSize*1．2EndSubPrivateSubCommand2一Click()Textl．FontSize=Textl．FontsiZe／1．2EndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體上畫一個列表框、一個文本框和一個水平滾動條，按表3—2設置其相關屬性。步驟2：在打開的代碼編輯窗口中，編寫列表框的單擊事件代碼：參考代碼：PrivateSubListl一C1ick()Textl．Text=LiStl．TextHSCroll1．ValUe=Val(LiStl．Text)EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sit3．vbp。程序運行時，單擊窗體則顯示如圖2．155所示的圖案。請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjc4．vbp，窗體中有一個矩形和一個圓，程序運行時，單擊“開始”按鈕，圓可以縱向或橫向運動(通過選擇單選按鈕來決定)，碰到矩形的邊時，則向相反方向運動，單擊“停止”按鈕，則停止運動，如圖2．156所示?？梢赃x擇單選按鈕隨時改變運動方向。已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件中的奉題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“”’，將問號“?”改為正確的內(nèi)容。參考代碼：Fori=1To5Forj=1To2*i—IForj=1Toi+1Forj=1To9-2*i步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sit4．vbp，在代碼編輯窗口，去掉程序中的注釋符“*”，將問號“?”改為正確的內(nèi)容。參考代碼：Timerl．Enabled=FalseShape2．Top=Shape2．Top+d*50IfShape2．Top<=Shapel．TopOrShape2．Top+Shape2．Width>=Shapel．Top+Shapel．HeightThenShape2．Left=Shape2．Left+d*50步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sit5．vbp，在該工程文件中已經(jīng)定義了一個學生記錄類型數(shù)據(jù)StudType。有三個標題分別為“學號”、“姓名”和“平均分”的標簽；三個初始內(nèi)容為空，用于接收學號、姓名和平均分的文本框Text1、Text2和Text3：一個用于顯示排序結果的圖片框。還有兩個標題分別為“添加”和“排序”的命令按鈕，如圖2．192所示。程序功能如下：①在Text1、Text2和Text3三個文本框中輸入學號、姓名和平均分后，單擊“添加”按鈕，則將輸入內(nèi)容存入自定義的學生記錄類型數(shù)組stud中(注：最多只能輸入10個學生信息，且學號不能為空)；②單擊“排序”按鈕，則將學生記錄類型數(shù)組stud中存放的學生信息，按平均分降序排列的方式顯示在圖片框中，每個學生一行，且顯示三項信息。清將“添加”按鈕、“排序”按鈕的Click事什過程中的注釋符去掉，把?改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后把修改后的文件按原文件名存盤。標準答案：【操作步驟】步驟1：打開考生文件下的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“”’，將問號“?”改為正確的內(nèi)容。參考代碼：n=n—1stud(n)．Num=Text1Fork=j+1TonIfstud(k)．Average>stud(J)．AverageThenstud(k)=stud(j)步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisuaIBasic應用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫一個文本框，名稱為Textl，字體為“黑體”，文本框中的初始內(nèi)容為“程序設計”；再畫一個命令按鈕，名稱為C1，標題為“改變字體”(如圖3—168所示)。請編寫適當事件過程，使得在運行時，單擊命令按鈕，則把文本框中文字的字體改為“宋體”。程序中不得使用任何變量。注意：保存時必須存放在考生文件夾下，工程文件名為sitl．vbp，窗體文件名為sitl．frm。(2)在名稱為Forml的窗體上畫一個圖片框，名稱為P1，高為1800，寬為1600，并放入文件名為picl．bmp的圖片(如圖3—169所示)。請編寫適當?shù)氖录^程，使得在運行時，如果雙擊窗體，則圖片框巾的圖片消失。程序中不得使用任何變量。注意：保存時必須放放在考乍文件災下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，按要求畫出控件并設置相應屬性。步驟2：打開代碼編輯窗口，編寫命令按鈕的單擊事件過程。參考代碼：PrivateSubC1Click()Me．Textl．Font．Name=“宋體”EndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，按要求畫出控件并設置屬性。步驟2：打開代碼編輯窗口，編寫窗體的雙擊事件過程。參考代碼：PrivateSubFormDblClick()P1．picture=L,oadPicture(“”)EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件vbsi3．vbp，相應的窗體文件為vbsi3．frm，在窗體上有一個標題為“計算”的命令按鈕和一個文本框。程序運行后，單擊命令按鈕，即可計算出數(shù)組ari。中每個元素與其下標相除所得的和，并在文本框中顯示出來，程序的運行情況如圖3-55所示。在窗體的代碼窗口中，已給出了部分程序，其中計算數(shù)組arr中每個元素與其下標相除所得的和的操作在通用過程Fun中實現(xiàn)，請編寫該過程的代碼。要求：請勿改動程序中的其他部分，只在FunctionFun()和EndFunction之間填入你編寫的若干語句并運行程序。在結束程序運行之前，必須至少正確運行一次程序，將結果顯示在文本框中，否則無成績。最后把修改后的文件按原文件名存盤。說明：數(shù)組art中共有40個元素，“數(shù)組arr中每個元素與其下標相除所得的和”，是指：arr(1)／1+arr(2)／2+arr(3)／3+…+arr(40)／40程序源碼:OptlonBase1FunctiOnFun(a()AsSingle)AsSingle由考生編寫============EndFunctionPrivateSubcmdCalClick()DimarrDimarr2(40)AsSinglearr=Array(12．5，65．4，56，73，46．23，58．25，83．49，96，27．3，36．78，29．26，89．4，34．7，45．4，56．9，67．4，78，98，87．5，76．8，34．6，55．8，64．7，43．7，99．4，84．7，66．2，23．9，55．5，44．1，33．2，43．5，41．2，28．3，78．6，98．3，56．1，73．6，49．3，48．3)Fori=1ToUBound(arr)arr2(i)=arr(i)Nextir=Fun(arr2())txtResult．Text=Str(r)SaveDataEndSubSubSaveData()Open“out3．txt”ForOutputAs#1print#1，txtResult．TextClose1EndSub(2)在考生文件夾下有一個工程文件vbsj4.vbp。程序運行后，如果單擊“開始”按鈕，則圖片自左向右移動，同時滾動條的滑塊隨之移動，每0．5秒移動一次。當圖片完全移出窗體的右邊界時，立即再從窗體的左邊界開始重新移動，若單擊“停止”按鈕，則圖片停止移動，如圖3．56所示。在窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序源碼：PrivateSubcmdStartClick()Tmr1．Enabled=TrueEndSubPrivateSubcmdStopClick()Tmr1.Enabled=?EndSubPrivateSubFormIJoad()Hsbl．Min=0Hsbl．Ha．x=Me．WidthTmrl.Interval=?EndSubPrivateSubTmrlTimer()Picl．Left=Picl．Left+200IfPicl.Left>?ThenPicl,Left=?EndIfHScrolll．Value=Picl．LeftEndSub標準答案：第1小題【操作步驟】步驟1：打開考生文件夾下的工程文件vbsj3．vbp。步驟2：進入代碼編輯窗口，在FunctionFun()和EndFunction之間輸入以下代碼：參考代碼：FunctionFun(a()AsSingle)AsSingleDimsumAsSingleDimiASInteqerFori=LBound(a)ToUBound(a)sum=sum+a(i)／iNextFun=SumEndFunction步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾下的工程文件vbs]4．vbp。步驟2：進入代碼編輯窗口，去掉程序中的注釋符“¨”，將問號“?”改為正確的內(nèi)容。參考代碼：Tmr1．Enabled=FalSeTmr1．Interval=500IfPicl．Left>Me．WidthThenPicl．Left=0步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sit5．vbp，其名稱為Forml的窗體上已有三個文本框Textl、Text2、Text3，以及程序。請完成以下工作：①在屬性窗口中修改Text3的適當屬性，使其在運行時不顯示，作為模擬的剪貼板使用，窗體如圖3．152所示；②建立下拉式菜單，見表3．3。③窗體文件中給出了所有事件過程，但不完整，請去掉程序中的注釋符，把程序中的?改為正確內(nèi)容。以便實現(xiàn)以下功能：當光標所在的文本框中無內(nèi)容時，“剪切”、“復制”不可用，否則可以把該文本框中的內(nèi)容剪切或復制到Text3中；若Text3中無內(nèi)容，則“粘貼”不能用，否則可以把Text3中的內(nèi)容粘貼在光標所在的文本框中的內(nèi)容之后。注意：不能修改程序中的其他部分。各菜單項的標題名稱必須正確。最后把修改后的文件按原文件名存盤。標準答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sit5．vbp，選中窗體中的文本框Text3，將其Visible屬性為False。步驟2：選擇【工具】→【菜單編輯器】命令，打開菜單設計器，按要求建立窗體菜單。步驟3：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Ifwhich=1TherlIfwhich=2ThenText；1．Text：=Text：1．Text+Text；3．TextText2．Text；=Text2．Text；+Text3．TeXt步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫兩個標簽(名稱分別為lblName和1blAge，標題分別為“姓名”和“年齡”)、兩個文本框(名稱分別為txtName和txtAge，Text屬性均為空白)和一個命令按鈕(名稱為cmdDisplay，標題為“顯示”)。然后編寫命令按鈕的Click事件過程。程序運行后，在兩個文本框中分別輸入姓名和年齡，然后單擊命令按鈕，則在窗體上顯示兩個文本框中的內(nèi)容，如圖2—32所示。要求程序中不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為vbsjl．vbp，窗體文件名為vbsj1．fm。(2)在名稱為F0nnl的窗體上畫一個文本框，名稱為txtlnput，無初始內(nèi)容；再畫一個圖片框，名稱為picOutput。請編寫適當?shù)氖录^程，使得在運行時，在文本框中每輸入一個字符，就在圖片框中輸出一行文本框中的完整內(nèi)容，運行時的窗體如圖2-33所示。程序中不能使用任何變量。注意：保存時必須存放在考生文件夾下，工程文件名為vbsi2．vbp，窗體文件名為vbsj2．frm標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，按表3-19在窗體中畫出控件并設置其相關屬性。步驟2：在代碼編輯窗口，編寫命令按鈕的Click事件過程。參考代碼：PrivateSubcmdDisplay—Click()PrinttxtName．Text＆”，現(xiàn)年”＆一txtAge．Text＆”“歲”EndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，按表3．20在窗體中畫出控件并設置其相關屬性。步驟2：打開代碼編輯窗口，編寫命令按鈕的單擊事件過程。參考代碼：PrivateSubtxtInput—Change()picoutput．PrinttxtInput．TextEndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sit3．vbp，其功能是：①單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下in3．dat文件中的20個整數(shù)讀入數(shù)組a中，同時顯示在Text1文本框中；②單擊“變換”按鈕，則數(shù)組a中元素的位置自動對調(diào)(即第一個數(shù)組元素與最后一個數(shù)組元素對調(diào)，第二個數(shù)組元素與倒數(shù)第二個數(shù)組元素對調(diào)……)，并將位置調(diào)整后的數(shù)組顯示在文本框Text2中。在窗體文件中已經(jīng)給出了全部控件(如圖2．190所示)，但程序不完整。要求：完善程序使其實現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結束程序運行前，必須執(zhí)行“變換”操作，且必須用窗體右上角的“關閉”按鈕結束程序，否則無成績。最后，程序按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，窗體上有兩個標題分別為“讀數(shù)據(jù)”和“統(tǒng)計”的命令按鈕：兩個名稱分別為Text1和Text2、初始值為空的文本框，如圖2．191所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in4．dat文件的內(nèi)容(該文件中僅含有字母和空格)顯示在Text1文本框中：②在Text1文本框中選中內(nèi)容后，單擊“統(tǒng)計”按鈕，則自動統(tǒng)計選中文本中從未出現(xiàn)過的字母(統(tǒng)計過程中不區(qū)分大小寫)，并將這些字母以大寫形式顯示在Text2文本框內(nèi)。請將“統(tǒng)計”按鈕的Click事件過程中的注釋符去掉，把?改為正確內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的工程文件sjt3．vbp步驟2：打開代碼編輯窗口中編寫“變換”按鈕的單擊事件過程。參考代碼：PrivateSubCommand2一Click()-考生編寫Fori=1To10temp=a(i)a(i)=a(20一i+1)a(20一i+1)=tempNexti‘以下程序段將已變換的數(shù)組元素顯示在Text2文本框中Fork=1To20Text2=Text2+Str(a(k))+Space(2)NextkEndSub步驟3：按鍵鍵運行程序，先單擊“讀數(shù)據(jù)”按鈕，然后單擊“變換”按鈕。步驟4：單擊窗體右上們的關閉按鈕以結束程序。步驟5：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt4．vbp，存代碼編輯窗口，去掉程序中的注釋符“”’，將問號“?”改為正確的內(nèi)容。參考代碼：Ifs1=0ThenFori=1ToS1a(n)=a(n)+1Fori=1To26步驟2：按要求將文件保存爭考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sit5．vbp，窗口有2個名稱分別為Commandl和Command2、標題分別為“讀數(shù)據(jù)”和“排序”的命令按鈕，有2個標題分別為“數(shù)組A”和“數(shù)組B”的標簽。請將窗體標題設置為“完全平方數(shù)排序”；再畫2個名稱分別為Text1和Text2、初始內(nèi)容都為空的文本框，并且可多行顯示，有垂直滾動條，如圖2．47所示。程序功能如下：1)單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下：in5．dat文件中的100個正整數(shù)讀入數(shù)組A，并將它們顯示在Text1文本框中；2)單擊“排序”按鈕，則首先將這100個數(shù)中的所有完全平方數(shù)放入數(shù)組B中，并將它們按降序排列顯示在Text2文本框中。提示：一個整數(shù)若是另一個整數(shù)的平方，那么它就是完全平方數(shù)。如144=12，所以144就是一個完全平方數(shù)。要求：去掉注釋符，把?改為正確內(nèi)容，并添加代碼使得“排序”命令按鈕的Click事件過程可以實現(xiàn)上述功能。提示：Sort過程可以把求出的完全平方數(shù)進行排序，可以直接調(diào)用。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結束程序運行之前，必須進行“排序”，且須用窗體右上角的關閉按鈕結束程序，否則無成績。最后，程序按原文件名存盤。標準答案：【操作步驟】步驟1：打開考生文件夾下的工程文件sjt5．vbp，在碼編輯窗口的指定位置輸入以下代碼：參考代碼：考生編寫的代碼n=0Fork=1To100Ifa(k)>0Thend=Sqr(a(k))IfInt(d)=dThenn=n+1b(n)=a(k)EndIfEndIfNext考生編寫代碼結束步驟2：在代碼編輯窗口中，去掉程序中的注釋符“”’，將問號“?”改為正確的內(nèi)容。參考代碼：CallSort(b，n)步驟3：按