國家二級VB機(jī)試（簡單應(yīng)用題）模擬試卷3（共60題）

國家二級VB機(jī)試（簡單應(yīng)用題）模擬試卷3（共6套）（共60題）國家二級VB機(jī)試（簡單應(yīng)用題）模擬試卷第1套一、簡單應(yīng)用題(本題共10題，每題1.0分，共10分。)1、(1)考生文件夾下有一個工程文件sjt3．vbp，其窗體上有1個名稱為Text1的控件數(shù)組；一個標(biāo)題為”排序”的命令按鈕。程序運行時，在文本框數(shù)組中輸入8個整數(shù)，如圖3－29(a)所示；然后單擊“排序”按鈕，則8個整數(shù)按降序排序，如圖3－29(b)所示。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。(2)在考生文件夾下有工程文件sjt4．vbp。其窗體界面如圖3－30所示，可以實現(xiàn)以下功能：“添加項目”按鈕可以把在組合框編輯區(qū)中輸入的新項目添加到組合框列表中，但不能添加重復(fù)項目；“刪除項目”按鈕從列表中刪除選中的項目；“添加愛好”按鈕把組合框編輯區(qū)中的內(nèi)容追加到下面的文本框原有內(nèi)容之后；“清除愛好”按鈕清除該文本框內(nèi)容。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：k＝iForj＝i＋1To7IfVal(Text1(j)．Text)＞Val(Text1(k)．Text)ThenText1(k)．Text＝j(luò)步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：IfCombo1．Text＝Combol．List(k)ThenCombo1．AddItemCombol．TextCombol．RemoveItemCombol．ListIndexText1．Text＝Text1．Text＆""＆Combol．TextText1．Text＝""步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析2、(1)在考生文件夾下有一個工程文件sjt3．vbp。程序運行后，單擊“讀入數(shù)據(jù)”按鈕，可將考生文件夾下in3．txt文件中的所有英文單詞讀入，并在Text1文本框中顯示；單擊“插入列表框”按鈕，則按順序?qū)⒚總€單詞作為一項添加到List1列表框中(如圖所示)。在in3．txt文件中，每個單詞之間用一個空格字符隔開，最后一個單詞的后而沒有空格。已經(jīng)給出了所有控件和程序，但程序不完整。要求：請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其能正確運行，但不能修改程序中的其他部分和控件屬性。最后用原來的文件名保存工程文件和窗體文件。(2)在考生文件夾下有一個工程文件件sjt4．vbp，窗體上已經(jīng)添加所有控件，如圖所示。在程序運行時，如果單擊“開始”按鈕，則每隔0．1秒窗體上的汽車圖標(biāo)向右移動一次(初始狀態(tài)下不移動)；如果單擊“停止”按鈕，則停止移動。請完成以下工作：①設(shè)置適當(dāng)控件的適當(dāng)屬性，使得每0．1秒汽車圖標(biāo)向右移動一次，而初始狀態(tài)下不移動。②請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。③為兩個命令按鈕編寫適當(dāng)?shù)氖录^程，最后以原文件名存盤。注意：不得修改已經(jīng)給出的程序。編寫事件的過程中不能使用變量，每個事件過程中只能有一條語句。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考答案PrivateSubCommandl_Click()Dimst$．ch$OpenApp．Path&"＼in3．txt"ForInputAs#1’打開文件DoWhileNotEOF(1)’文件指針是否到達(dá)文件末尾Input#，ch’迭到文件末尾返回true，否則返回falsest＝st&ch’將讀出的數(shù)據(jù)加到原有數(shù)據(jù)末尾LoopClose：&1’關(guān)閉文件Text1＝st’將內(nèi)容顯示在文本框中EndSubPrivateSubCommand2Click()Dimst$，word$，c$St＝Text1n＝Len(st)Fork＝1Tone＝Mid(st，k，1)’從st中依次取出1個字符進(jìn)行比較Ifc<>""Thenword＝Word&cE1seList1．AddItemwordword＝""將word清空，為下一次作準(zhǔn)備EndIfNextList1．AddItemwordEndSub步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：打開本題工程文件，設(shè)置計時器Inteval的屬性為100，將Enabled屬性設(shè)置為False。步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案PrivateSubTimer1_Timer()P1．Left＝P1．Left＋20EndSub需要考生編寫的內(nèi)容PrivateSubC1_Click()Timerl．Enabled＝TrueEndSubPrivateSubC2Click()Timer1．Enabled＝FalseEndSub步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。知識點解析：暫無解析3、在考生文件夾下有一個數(shù)據(jù)庫文件“samp2．a(chǎn)ecdb”，其中存在已經(jīng)設(shè)計好的3個關(guān)聯(lián)表對象“tStud”、“tCourse”和“tScore”及一個臨時表對象“tTmp”。請按以下要求完成設(shè)計。(1)創(chuàng)建一個查詢，查找并顯示照片信息為空的男同學(xué)的“學(xué)號”、“姓名”、“性別”和“年齡”4個字段的內(nèi)容，將查詢命名為“qT1”。(2)創(chuàng)建一個查詢，查找并顯示選課學(xué)生的“姓名”和“課程名”兩個字段的內(nèi)容，將查詢命名為“qT2”。(3)創(chuàng)建一個查詢，計算選課學(xué)生的平均分?jǐn)?shù)，顯示為“學(xué)號”和“平均分”兩列信息，要求按照平均分降序排列，將查詢命名為“qT3”。(4)創(chuàng)建一個查詢，將臨時表對象“tTmp”中女員工編號的第一個字符更改為“1”，所建查詢命名為“qT4”。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡“查詢”組中的“查詢設(shè)計”按鈕，從“顯示表”對話框中添加表“tStud”，關(guān)閉“顯示表”對話框。步驟2：分別雙擊“學(xué)號”、“姓名”、“性別”、“年齡”和“照片”字段，在“性別”字段“條件”行輸入“男”，在“照片”字段“條件”行輸入“IsNull”，取消“照片”行的顯示。步驟3：按Ctrl＋S將查詢保存為“qT1”，如圖3．241所示。關(guān)閉設(shè)計視圖。(2)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡“查詢”組中的“查詢設(shè)計”按鈕，從“顯示表”對話框中添加表“tStud”、“tCourse”和“tScore”，關(guān)閉“顯示表”對話框。步驟2：用鼠標(biāo)拖動“tScore”表中“學(xué)號”至“tStud”表中的“學(xué)號”字段，建立兩者的關(guān)系，用鼠標(biāo)拖動“tCourse”表中“課程號”至“tScore”表中的“課程號”字段，建立兩者的關(guān)系。步驟3：分別雙擊“姓名”和“課程名”字段將其添加到“字段”行，如圖3．242所示。步驟4：將查詢保存為“q12”。關(guān)閉沒計視圖。(3)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡“查詢”組中的“查詢設(shè)計”按鈕，從“顯示表”對話框中添加表“tScore”，關(guān)閉“顯示表”對話框。步驟2：分別雙擊“學(xué)號”和“成績”字段。單擊“查詢工具”的“設(shè)計”選項卡“顯示／隱藏”組中的“匯總”按鈕，在“成績”字段“總計”行下拉列表中選擇“平均值”，在“排序”行下拉列表中選擇“降序”。在“成績”字段前添加“平均分：”字樣，如圖3．243所示。將查詢保存為“qT3”，關(guān)閉設(shè)計視圖。(4)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡“查詢”組中的“查詢設(shè)計”按鈕，從“顯示表”對話框中添加表“tTmp”，關(guān)閉“顯示表”對話框。步驟2：分別雙擊“編號”和“性別”字段。單擊“查詢工具”的“設(shè)計”選項卡“查詢類型”組中的“更新”按鈕，在“編號”字段“更新到”行輸入“"1"&Mid([編號]，2，5)”。在“性別”字段“條件”行輸入“女”字樣，如圖3．244所示。單擊“設(shè)計”選項卡“結(jié)果”組中的“運行”按鈕，在彈出的對話框中單擊“是”按鈕。將查詢保存為“qT4”。關(guān)閉設(shè)計視圖。知識點解析：暫無解析4、在考生文件夾下，存在一個數(shù)據(jù)庫文件“samp2．a(chǎn)ccdb”，里而已經(jīng)設(shè)計好表對象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”，同時還設(shè)計出窗體對象“fQuery”。試按以下要求完成設(shè)計。(1)創(chuàng)建一個查詢，查找姓名為兩個字的姓“王”病人的預(yù)約信息，并顯示病人的“姓名”、“年齡”、“性別”、“預(yù)約日期”、“科室名稱”和“醫(yī)生姓名”，所建查詢命名為“qT1”。(2)創(chuàng)建一個查詢，統(tǒng)計星期一預(yù)約病人的平均年齡，要求輸出一列內(nèi)容，顯示標(biāo)題為“平均年齡”，所建查詢命名為“qT2”。(3)創(chuàng)建一個查詢，查找預(yù)約了但沒有留下電話的病人，并顯示“姓名”，所建查詢命名為“qT3”。注意：病人的姓名不允許重復(fù)顯示。(4)現(xiàn)有一個已經(jīng)建好的“fQuery”窗體，運行該窗體后，在文本框(文本框名稱為tName)中輸入要查詢的醫(yī)生姓名，然后按下“查詢”按鈕，即運行一個名為“qT4”的查詢。“qT4”杳詢的功能是顯爪所查醫(yī)生的“醫(yī)生姓名”和“預(yù)約人數(shù)”兩列信息，其中“預(yù)約人數(shù)”值由“病人ID”字段統(tǒng)計得到，請設(shè)計“qT4”查詢。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡下“查詢”組中的“查詢設(shè)計”按鈕，在彈出的“顯示表”對話框中雙擊添加表“tDoctor”、“tOffice”、“tPatient”和“tSubscl4be”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：雙擊tPatient表的“姓名”、“年齡”、“性別”字段，雙擊tSubscribe表的“預(yù)約日期”字段，雙擊tOffice表的“科室名稱”和tDoctor表的“醫(yī)生姓名”字段；在“姓名”字段的“條件”行中輸入“Like"王?"”，如圖4．12所示。步驟3：單擊快速訪問工具欄中的“保存”按鈕，另存為“qT1”，關(guān)閉設(shè)計視圖。(2)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡下“查詢”組中的“查詢設(shè)計”按鈕，在彈出的“顯示表”對話框中雙擊表“tPatient”和“tSubscribe”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：雙擊tPatient表中的“年齡”字段以及tSubscribe表中的“預(yù)約日期”字段，然后在“年齡”字段前加“平均年齡：”字樣。步驟3：單擊“查詢工具”的“設(shè)計”選項卡下“顯示／隱藏”組中的“匯總”按鈕，在“平均年齡”字段的“總計”行中選擇“平均值”，在“預(yù)約日期”字段的“總計”行中選擇“Where”，在“預(yù)約日期”的“條件”行中輸入“Weekday([預(yù)約日期])＝2”，如圖4．13所示，然后單擊快速訪問工具欄中的“保存”按鈕，另存為“qT2”。(3)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡下“查詢”組中的“查詢設(shè)計”按鈕，在彈出的“顯示表”對話框中雙擊表“tPatient”和“tSubscribe”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：雙擊“姓名”和“電話”字段，然后取消“電話”字段“顯示”行復(fù)選框的勾選。步驟3：單擊“查詢工具”的“設(shè)計”選項卡下“顯示／隱藏”組中的“匯總”按鈕，在“電話”字段對應(yīng)的“總計”行中選擇“Where”，在“條件”行中輸入“IsNull”，如圖4．14所示，然后單擊快速訪問工具欄中的“保存”按鈕，另存為“qT3”。(4)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡下“查詢”組中的“查詢設(shè)計”按鈕，在彈出的“顯示表”對話框中雙擊表“tDoctor”和“tSubscribe”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：雙擊tDoctor。表中“醫(yī)生姓名”字段，tSubscribe表中的“病人ID”字段，并在“病人ID”字段前加“預(yù)約人數(shù)：”字樣。步驟3：單擊“查詢工具”的“設(shè)計”選項卡下“顯示／隱藏”組中的“匯總”按鈕，在“預(yù)約人數(shù)”字段的“總計”行中選擇“計數(shù)”，在“醫(yī)生姓名”字段的“條件”行中輸入“[Forms]![fQuery]![tName]”，如圖4．15所示，然后單擊快速訪問工具欄中的“保存”按鈕，另存為“qT4”，關(guān)閉“設(shè)計視圖”。知識點解析：暫無解析5、（1）在考生目錄下有一個工程文件sjt3.vbp。程序的功能是：通過鍵盤向文本框中輸入數(shù)字，如果輸入的是非數(shù)字字符，則提示輸入錯誤，且文本框中不顯示輸入的字符。單擊名稱為Command1、標(biāo)題為“添加”的命令按鈕，則將文本框中的數(shù)字添加到名稱為Combo1的組合框中。在給出的窗體文件中已經(jīng)添加了全部控件，但程序不完整。要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序中的其他部分和其他控件的屬性。最后把修改后的文件按原文件名存盤。（2）在考生目錄下有一個工程文件sjt4.vbp。該程序的功能是計算M!+(M+1)!+(M+2)!+…+N!之和。窗體上有名稱分別為Text1、Text2的兩個文本框，用于接收輸入的M和N（要求M＜N）。單擊名稱為Command1、標(biāo)題為“計算”的命令按鈕，計算M!+(M+1)!+(M+2)!+…+N!之和，并將計算結(jié)果顯示在標(biāo)簽lblResult中。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt3.vbp。在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Combo1.AddItemText1.TextIfKeyAscii＞57OrKeyAscii＜48ThenKeyAscii=0步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Fori=mTont=f(i)s=s+tt=t*if=t步驟2：按＜F5＞鍵鍵運行程序，在第一個文本框中輸入一個整數(shù)，第二個文本框中輸入比第一個文本框中大的數(shù)，然后單擊“計算”按鈕。步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析6、（1）在考生文件夾中有一個工程文件sjt3.vbp，窗體控件布局如圖1－214（a）所示。程序運行時，在文本框Text1中輸入一個正整數(shù)，選擇“奇數(shù)和”或“偶數(shù)和”，則在Label2中顯示所選的計算類別。單擊“計算”按鈕時，將按照選定的“計算類別”計算小于或等于輸入數(shù)據(jù)的奇數(shù)和或偶數(shù)和，并將計算結(jié)果顯示在Label3中。程序的一次運行結(jié)果如圖1－214（b）所示。在窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。（2）在考生文件夾下有一個工程文件sjt4.vbp。程序運行后，如果單擊“開始”按鈕，則圖片自左向右移動，同時滾動條的滑塊隨之移動，每0.5秒移動一次。當(dāng)圖片完全移出窗體的右邊界時，立即再從窗體的左邊界開始重新移動，若單擊“停止”按鈕，則圖片停止移動，如圖1－215所示。在窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Callcalc(i)Lbl2.Caption=Option1(i).Captionx=Val(Text1.Text)IfiMod2=1ThenLabel3.Caption=result步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt4.vbp。步驟2：進(jìn)入代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Timer1.Enabled=FalseTimer1.Interval=500IfPicture1.Left＞Form1.WidthThenPicture1.Left=0步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析7、（1）在考生文件夾下有一個工程文件vbsj3.vbp。窗體上有一個標(biāo)題為“得分”的框架，在框架中有一個名稱為Txt1的文本框數(shù)組，含六個元素；文本框Txt2用來輸入難度系數(shù)。程序運行時，在左邊的六個文本框中輸入6個得分，輸入難度系數(shù)后，單擊“計算分?jǐn)?shù)”按鈕，則可計算出最后得分并在文本框Txt3中顯示（如圖1－335所示）。計算方法：去掉1個最高得分和1個最低得分，求剩下得分的平均分，再乘以3，再乘以難度系數(shù)。最后結(jié)果保留到第2位小數(shù)，不四舍五入。注意：文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。考生不能修改程序中的其他部分和各控件的屬性。最后把修改后的文件按原文件名存盤。程序源碼：PrivateSubCmd1_Click()DimkAsInteger,sAsSingle,aAs_Single,bAsSinglea＝Val(Txt1(0).Text)s＝ab＝a’Fork＝1To?s＝s＋Val(Txt1(k).Text)’If?＜Val(Txt1(k).Text)Thena＝Val(Txt1(k).Text)EndIfIfb＞Val(Txt1(k).Text)Thenb＝Val(Txt1(k).Text)EndIfNextk’s＝(s－a－b)/?’s＝?*3*Val(Txt2.Text)’?＝Int(s*100)/100EndSub（2）在名稱為Form1的窗體上畫一個名稱為picOpen的圖片框，并利用屬性窗口把考生目錄中的圖標(biāo)文件Open.ico放到圖片框中；再畫一個通用對話框控件，名稱為cdlOpen，利用屬性窗口設(shè)置相應(yīng)屬性，即打開對話框時：標(biāo)題為“打開文件”，文件類型為“Word文檔”，初始目錄為C盤根目錄。再編寫適當(dāng)?shù)氖录^程，使得在運行時，單擊P1圖片框，可以打開上述對話框。運行后的窗體如圖1－336所示。注意：存盤時必須存放在考生文件夾下，工程文件名為vbsj4.vbp，窗體文件名為vbsj4.frm。程序中不得使用任何變量。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Fork=1To5Ifa＜Val(Txt1(k).Text)Thens=(s-a-b)／4s=s*3*Val(Txt2.Text)Txt3.Text=Int(s*100)/100步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，按表2－177在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫如下事件過程。參考代碼：PrivateSubpicOpen_Click()cdlOpen.ShowOpenEndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析8、在考生文件夾下有一個工程文件sjt3．vbp。程序的功能是通過鍵盤向文本框中輸入大、小寫字母及數(shù)字。單擊“統(tǒng)計”按鈕，分別統(tǒng)計輸入字符串中大寫字母、小寫字母及數(shù)字字符的個數(shù)，并將統(tǒng)計結(jié)果分別顯示在標(biāo)簽控件數(shù)組x中，如圖3-132所示。在給出的窗體文件中已經(jīng)添加了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：審題分析本題源程序在For循環(huán)體中(其中循環(huán)終值應(yīng)為文本框的字符長度，即n=Len(Text1．Text))，用Mid函數(shù)逐一取出文本框中的每個字符，并用Asc函數(shù)返回其ASCII碼。若取出字符的ASCII碼在48～57之間，則記錄數(shù)字個數(shù)的數(shù)組變量a(0)增1；若ASCII碼在65～90之間，則記錄大寫字母個數(shù)的數(shù)組變量a(1)增1；若ASCII碼在97～122之間，則記錄小寫字母個數(shù)的數(shù)組變量a(2)增1。操作步驟步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“′”，將問號“?”改為正確的內(nèi)容。參考代碼：n=Len(Text1．Text)b=Asc(Mid(s，i，1))SelectCasebFori=0To2x(i)=a(i)步驟2：按要求將文件保存至考生文件夾中?？键c鏈接數(shù)組定義與操作、常用內(nèi)部函數(shù)、多分支結(jié)構(gòu)。知識點解析：暫無解析9、在考生文件夾下有一個工程文件sjt3．vbp。程序的功能是：在運行時，如果選中一個單選按鈕和一個或兩個復(fù)選框，并單擊”確定”按鈕，則對文本框中的文字做相應(yīng)的設(shè)置，如圖2-140所示。窗體上的控件已經(jīng)畫出，但沒有給出主要程序內(nèi)容，請編寫適當(dāng)?shù)氖录^程，完成上述功能。注意：不能修改已經(jīng)給出的程序部分和已有的控件；在結(jié)束程序運行之前，必須選中一個單選按鈕和至少一個復(fù)選框，并單擊”確定”按鈕：必須通過單擊窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：步驟1：打開考生文件下的本題工程文件sjt3．vbp。步驟2：打開代碼編輯窗口，編寫”確定”按鈕的Click事件過程，代碼如下。參考代碼：PrivateSubCommandl_Click()IfOpl．ValueThenTextl．FontName=Opl．CaptionElseIfOp2．ValueThenTextl．FontName=Op2．CaptiOnEndIfIfCh1．Value=1ThenTextl．FontUnderline=TrueElseTextl．FontUnderline=FalseEndIfIfCh2．Value=1ThenTextl．FontItalic=TrtleElseTextl．FontItalic=FalseEndIfEndSub步驟3：按要求將文件保存至考生文件夾中。步驟4：按＜F5＞鍵運行程序，選中一個單選按鈕和至少一個復(fù)選框，并單擊”確定”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。知識點解析：暫無解析10、在名稱為Forml的窗體上畫兩個圖片框，名稱分別為Pl、P2，高度均為1900，寬度均為1700，通過屬性窗口把圖片文件picl．bmp放入P1中，把圖片文件pic2．jpg放入P2中：再畫一個命令按鈕，名稱為C1，標(biāo)題為”交換圖片”(如圖2-208所示)。編寫適當(dāng)?shù)氖录^程，使得在運行時，如果單擊”交換圖片”按鈕，則在P1中顯示pic2．jpg，在P2中顯示picl．bmp。程序中不得使用任何變量，也不能使用第三個圖片框。注意：存盤時必須存放在考生文件夾下，工程文件名為sit3．vbp，窗體文件名為sjt3．frm。標(biāo)準(zhǔn)答案：步驟1：新建一個”標(biāo)準(zhǔn)EXE”工程，在窗體Forml中如表3-122畫出所列控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫命令按鈕的Click事件過程：參考代碼：PrivateSubCl_Click()Picl．Picture=LoadPicture(App．Path+_“＼pic2．bmp”)Pic2．Picture=LoadPicture(App．Path+_“＼picl．bmp”)EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機(jī)試（簡單應(yīng)用題）模擬試卷第2套一、簡單應(yīng)用題(本題共10題，每題1.0分，共10分。)1、(1)在考生文件夾下有一個工程文件vbsj3．vbp，相應(yīng)的窗體文件名為vbsj3．frm。在窗體上有一個命令按鈕，其名稱為cmdAdd，標(biāo)題為“添加”；有一個文本框，名稱為txtSentense，初始內(nèi)容為空白；有一個列表框，名稱為lstWord。程序運行后，在文本框中輸入一個英文句子(由多個單詞組成，各單詞之間用一個空格分開)，然后單擊命令按鈕，程序?qū)言撚⑽木渥臃纸鉃閱卧~，并把每個單詞作為一個項目添加到列表框中，如圖3—64所示。該程序不完整，請把它補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其能正確運行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。程序源碼：PrivateSubcmdAdd_click()DimS1AsString，S2AsStringDimI1AsInteger’S1=?I1=1Do’DoWhileMid(S1，I1，1)＜＞?AndI1＜=Len(S1)S2=S2&Mid(S1，I1，1)I1=I1+1Loop’lstword．AddItem?’S2=?I1=I1+1LoopWhileI1＜=Len(S1)(2)在考生文件夾下有一個工程文件vbsj4．vbp，請在窗體上畫三個文本框，其名稱分別為Txt1、Txt2和。txtResult，文本框內(nèi)容分別設(shè)置為“等級考試”、“全國計算機(jī)”和空白。然后畫兩個單選按鈕，其名稱分別為optChange和optLink，標(biāo)題分別為“交換”和“連接”，如圖3—65所示。編寫適當(dāng)?shù)氖录绦?，要求在程序運行時，先單擊“交換”單選按鈕，使Txt1文本框中內(nèi)容與Txt2文本框中內(nèi)容進(jìn)行交換，并使“交換”單選按鈕消失；然后單擊“連接”單選按鈕，則把交換后的Txt1和Txt2的內(nèi)容以Txt1在前，Txt2在后的順序連接起來，并在txtResult文本框中顯示連接后的內(nèi)容。存盤時，工程文件名為vbsj4．vbp，窗體文件名為vbsj4．frm。注意：不得修改已經(jīng)給出的程序。在結(jié)束程序運行之前，必須先單擊“交換”單選按鈕，后單擊“連接”單選按鈕。退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕，否則可能無成績。程序源碼：PrivateSubForm_Unload(CancelAsInteger)Open"out4．txt"ForOutputAs#1Print#1，Txt1．Text，Txt2．Text，_txtResult．TextClose#1EndSub標(biāo)準(zhǔn)答案：第1小題步驟1；打開考生文件夾下的工程文件vbsj3．vbp。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：S1=txtSentense．TextDoWhileMid(S1，I1，1)＜＞""AndI1_＜=Len(S1)lstWord．AddItemS2S2=""步驟3：按要求將文件保存至考生文件夾中。第2小題步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，按表4—40在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：在代碼編輯窗口，編寫3個按鈕的單擊事件過程。參考代碼：PrivateSuboptChange_Click()DimtempAsStringtemp=Txt1．TextTxt1．Text=Txt2．TextTxt2．Text=tempoptChange．Visible=FalseEndSubPrivateSuboptLink_Click()txtResult．Text=Txt1．Text&Txt2．TextEndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：第1小題：程序設(shè)計思路：從文本框的第1個字符開始依次檢查其后面的每一個字符，若發(fā)現(xiàn)空格則將其之前或兩個空格之間的字符串作為一個單詞添加到列表框中。在Do循環(huán)(指內(nèi)循環(huán)，循環(huán)條件為：取出的字符為非空格字符且取字符的起始位置沒有超出文本框的總字符數(shù)，表達(dá)式為：Mid(S1，I1，1)＜＞""AndI1＜=Len(S1)，其中S1=txtSentense．Text，將Mid函數(shù)從文本框中取出的非空格字符，逐個連接成一個單詞，語句為：S2=S2&Mid(S1，I1，1)，每執(zhí)行一次循環(huán)體取字符的起始位置加1，即I1=I1+1。當(dāng)遇到空格時結(jié)束循環(huán)，將得到的單詞(即變量S2的值)用AddItem方法添加到列表框中，并且清空變量s2，將取寧符的起始位置加1。之后繼續(xù)執(zhí)行內(nèi)循環(huán)以得到下一個單詞，直到取字符的起始位置(即變量I1的值)超過文本框的總字符數(shù)為止，外循環(huán)的條件為：I1＜=Len(S1)。第2小題：根據(jù)題目要求，設(shè)計本題程序的思路：在optChange單選按鈕的Click事件應(yīng)實現(xiàn)：將Txt1和Txt2文本框中的內(nèi)容互換，可以通過一個中間變量來交換兩個文木框中的內(nèi)容，然后將optChangc的Enable屬性設(shè)置為False。在optLink單選按鈕的Click事件應(yīng)實現(xiàn)：將兩個文本框中的內(nèi)容連接進(jìn)來，這罩我們可以采用連接字符符號“&”來連接兩個義本框的Text屬性。2、(1)在考生文件夾下有一個工程文件sjt3．vbp。程序的功能是：1)程序運行時，文件列表框顯示當(dāng)前文件夾中的所有擴(kuò)展名為jpg的文件。2)雙擊文件列表框中某個圖片文件名時，能在圖像框中顯示出該張圖片，并將該圖片文件的信息(包括路徑及文件名)顯示到標(biāo)簽中，如圖3－42所示。3)“下一張”命令按鈕的功能：選中并顯示上次選中文件的下一個圖片文件(如果文件列表框中沒有被選中的圖片文件或上次選中的是最后一個文件名，則從第1個圖片文件始)。在當(dāng)前程序所在文件夾中，已經(jīng)提供了所需要的圖片文件，運行時窗體如圖所示。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp。程序的功能是：程序運行時，文本框中顯示一篇英文短文，單擊“查找”按鈕時可輸入查找內(nèi)容，如圖3－43所示。若未找到查找內(nèi)容，查找結(jié)束；若找到查找內(nèi)容，被找到的內(nèi)容在文本框中以反相顯示(即呈選中狀態(tài))，每找到一次都給出提示，并在左下角文本框中顯示累計的次數(shù)，如圖3－44所示。若單擊提示對話框的“是”按鈕，則繼續(xù)向后查找；若單擊“否”按鈕，則終止查找。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjts．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：IfFile1．ListIndex＝－1OrFile1．ListIndex＝File1．ListCount－1ThenFile1．ListIndex＝File1．ListIndex＋1Label1．Caption＝App．Path＋"＼"＋File1．FileNameFile1．Pattern＝"*．jpq"步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”將問號“?”改為正確的內(nèi)容。參考代碼：Text1．SelStart＝pos－1Text1．SelLength＝Len(fstr)times＝times＋1pos＝InStr(pos，ostr，fstr)步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析3、(1)在考生文件夾下有一個工程文件sjt3．vbp。程序運行時，單擊窗體則顯示如圖所示的圖案。請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后將修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，窗體中有一個矩形和一個圓，程序運行時，單擊“開始”按鈕，圓可以橫向或縱向運行(通過選擇單選按鈕米決定)，碰到矩形的邊時，則向其相反方向運動，單擊“停止”按鈕，則停止運動，如圖所示?？梢酝ㄟ^選擇單選按鈕隨時改變運動方向。已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符把程序中的?改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：打丌本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考答案PrivateSubForm_Click()Fori＝1To5’輸入5行Forj＝1To6－i’循環(huán)實現(xiàn)輸入空格，每行依次減少一個空格Print""；NextjForj＝iTo2*i－1圖像每行*的個數(shù)Print"*"：NextjPrintNextiFori＝1To4Forj＝1Toi＋1’同問題1Print""；NextjForj＝1To(9－2*i)’同問題2Print"*"；NextjPrintNextiEndSub程序結(jié)束步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：打開：本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考答案DimdAsIntegerPrivateSubCommandlC1ick()Timerl．Enabled＝True’當(dāng)單擊"開始"按鈕時，Timer生效EndSubPrivateSubCommand2C1ick()Timer1．Enabled＝False’當(dāng)單擊"停止"按鈕時，Timer失效EndSubPrivateSubForm_Load()d＝1EndSubPrivateSubTimer1Timer()IfOptionlThen’判斷Option1是否被單擊Shape2．Top＝Shape2．Top＋d*50’實現(xiàn)圓垂直移動IfShape2．Top＜＝Shape1．ToporShape2．Top＋Shape2．Width＞＝Shape1．Top＋Shape1．HeightThen’判斷Shape2與Shape1的位置d＝－d’當(dāng)圃移出Shape1時，改變移動方向EndIfElseIfOption2ThenShape2．Left＝Shape2．Left＋d*50’實現(xiàn)水平移動IfShape2．Left＜＝Shape1．LeftOrShape2．Left＋Shape2．Width＞＝Shape1．Left＋Shape1．WidthThend＝－d’當(dāng)圃移出Shape1時，則改變移動方向EndIfEndIfEndSub步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。知識點解析：暫無解析4、在考生文件夾下，存在一個數(shù)據(jù)庫文件“samp2．a(chǎn)ccdb”，里面已經(jīng)設(shè)計好三個關(guān)聯(lián)表對象“tStud”、“tCourse”、“tScore”和一個臨時表對象“tTemp”。試按以下要求完成設(shè)計。(1)創(chuàng)建一個查詢，按所屬院系統(tǒng)計學(xué)生的平均年齡，字段顯示標(biāo)題為“院系”和“平均年齡”，所建查詢命名為“qT1”。要求：平均年齡四舍五人取整處理。(2)創(chuàng)建一個查詢，查找上半年入學(xué)的學(xué)生，并顯示“姓名”、“性別”、“課程名”和“成績”等字段內(nèi)容，所建查詢命名為“qT2”。(3)創(chuàng)建一個查詢，查找沒有選課的同學(xué)，并顯示其“學(xué)號”和“姓名”兩個字段內(nèi)容，所建查詢命名為“qT3”。(4)創(chuàng)建刪除查詢，將表對象“tTemp”中年齡值高于平均年齡(不含平均年齡)的學(xué)生記錄刪除，所建查詢命名為“qT4”。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡下“查詢”組中的“查詢設(shè)計”按鈕，在彈出的“顯示表”對話框中雙擊添加表“tStud”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：在“字段”行中分別輸入“院系：所屬院系”和“平均年齡：Round(Avg([年齡])，0)”。步驟3：單擊“查詢工具”的“設(shè)計”選項卡下“顯示／隱藏”組中的“匯總”按鈕，然后在“平均年齡：Round(Avg([年齡])，0)”字段的“總計”行的下拉列表中選擇“Expression”命令，如圖4．34所示。步驟4：單擊陜速訪問工具欄中的“保存”按鈕，另存為“qT1”。(2)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡下“查詢”組中的“查詢設(shè)計”按鈕，在彈出的“顯示表”對話框中艤擊表“tStud”、“tCourse”和“tScore”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：選中表“tStud”中的“學(xué)號”字段，然后拖動鼠標(biāo)指針到表“tScore”中的“學(xué)號”字段，放開鼠標(biāo)左鍵，選中表“tCourse”中的“課程號”字段，然后拖動鼠標(biāo)指針到表“tScore”中的“課程號”字段，放開鼠標(biāo)左鍵。步驟3：分別雙擊添加“姓名”、“性別”、“課程名”、“成績”和“入校時問”字段，在其下一字段行中輸入“Month([入校時間])”，取消“Month([入校時間])”字段顯示行復(fù)選框的勾選，在“Month([入校時間])”字段的“條件”行中輸入“＞＝1And＜＝6”，如圖4．35所示。步驟4：單擊快速訪問工具欄中的“保存”按鈕，另存為“qT2”。(3)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡下查詢”組中的“查詢設(shè)計”按鈕，在彈出的“顯示表”對話框中雙擊添加表“tStud”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：雙擊添加“學(xué)號”和“姓名”字段，在“學(xué)號”的“條件”行中輸入“Notln(SELECTtStud．學(xué)號FROMtStudINNERJOINtScoreONtStud．學(xué)號＝tScore．學(xué)號GROUPBYtStud．學(xué)號)”，如圖4．36所示。步驟3：單擊快速訪問工具欄中的“保存”按鈕，另存為“qT3”。(4)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡“查詢”組中的“查詢設(shè)計”按鈕，在彈山的“顯示表”對話框中雙擊添加表“tTemp”，然后單擊“關(guān)閉”按鈕，關(guān)閉“顯示表”對話框。步驟2：雙擊添加“年齡”字段。步驟3：單擊“查詢工具”的“設(shè)計”選項卡下“查詢類型”組中的“刪除”按鈕，在“年齡”字段的“條件”行中輸入“＞(selectavg(年齡)from[tTemp])”，如圖4．37所示。步驟4：單擊“查詢工具”的“設(shè)計”選項卡下“結(jié)果”組中的“運行”按鈕，在彈出的“MicrosoftAccess”對話框中單擊“是”按鈕。步驟5：單擊快速訪問工具欄中的“保存”按鈕，另存為“qT4”，關(guān)閉“設(shè)計視圖”。知識點解析：暫無解析5、（1）在考生文件夾下有一個工程文件sjt3.vbp。程序運行時，單擊窗體則顯示如圖1－43所示的圖案。請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。（2）在考生文件夾下有一個工程文件sjt4.vbp，窗體中有一個矩形和一個圓，程序運行時，單擊“開始”按鈕，圓可以縱向或橫向運動（通過選擇單選按鈕來決定），碰到矩形的邊時，則向相反方向運動，單擊“停止”按鈕，則停止運動，如圖1－44所示?？梢赃x擇單選按鈕隨時改變運動方向。已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Fori=1To5Forj=1To2*i-1Forj=1Toi+1Forj=1To9-2*i步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Timer1.Enabled=FalseShape2.Top=Shape2.Top+d*50IfShape2.Top<=Shape1.TopOrShape2.Top+Shape2.Width>=Shape1.Top+Shape1.HeightThenShape2.Left=Shape2.Left+d*50步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析6、在考生文件夾中有一個工程文件sjt4．vbp。窗體上已有控件，如圖2-47所示。請在屬性窗口中將Listl設(shè)置為可以多項選擇(允許使用Shift鍵或Ctrl鍵進(jìn)行選擇)列表項。要求：雙擊Listl．中的某一項時，該項目被添加到List2中，同時在Listl中清除該項目。若單擊”＞＞“按鈕，Listl中所有的項目顯示在List2中(List2中已有項目不變)，Listl中的內(nèi)容不變。要求：按照題目要求設(shè)置控件屬性，去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不得修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，代碼編輯窗口，去掉程序中的注釋符”’“，將問號”?”改為正確的內(nèi)容。參考代碼：L2．AddItemL1．List(L1．ListIndex)L1．RemoveItemL1．ListIndexFori=0ToList1．ListCount-1CallMoveItem(List1，List2)步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析7、在考生文件夾下有一個工程文件sjt3．vbp。程序的功能是通過鍵盤向文本框中輸入大、小寫字母及數(shù)字。單擊”統(tǒng)計”按鈕，分別統(tǒng)計輸入字符串中大寫字母、小寫字母及數(shù)字字符的個數(shù)，并將統(tǒng)計結(jié)果分別顯示在標(biāo)簽控件數(shù)組x中，如圖2-56所示。在給出的窗體文件中已經(jīng)添加了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：步驟1：打開考生文件中的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符”’“，將問號”?”改為正確的內(nèi)容。參考代碼：n=Len(Textl．Text)b=Asc(Mid(s，i，1))SelectCasebFori=0To2x(i)=a(i)步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析8、在考生文件夾下有一個工程文件sjt4．vbp，相應(yīng)的窗體文件為sjt4．frm。在窗體上有一個命令按鈕，其名稱為Commandl，標(biāo)題為”輸入／顯示”；此外還有一個文本框，其名稱為Textl，初始內(nèi)容為空白。程序的功能是，程序運行后，單擊命令按鈕，顯示輸入對話框，在對話框中輸入某個月份的數(shù)值(1～12)，然后單擊”確定”按鈕，即可在文本框中輸出該月份所在的季節(jié)。例如輸入5，將輸出”5月份是夏季”，如圖2-84所示。程序不完整，請補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其能正確運行，但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。標(biāo)準(zhǔn)答案：步驟1：打開考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符”’“，將問號”?”改為正確的內(nèi)容。參考代碼：LoopUntiln＞0Andn＜13SelectCasenSelectCasem步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析9、在考生文件夾下有一個工程文件sjt4．vbp，請在窗體上畫兩個文本框，其名稱分別為Textl、Text2，文本框的內(nèi)容分別設(shè)置為”計算機(jī)”、”等級考試”。然后畫一個標(biāo)簽，其名稱為Labl，高度為375，寬度為2000。再畫兩個單選按鈕，名稱分別為Opl和Op2，標(biāo)題分別為”交換”和”連接”，最后再畫一個命令按鈕，其名稱為Cl，標(biāo)題為”確定”，編寫適當(dāng)?shù)氖录绦?。程序運行后，如果選中”交換”單選按鈕并單擊”確定”按鈕，則Textl文本框中的內(nèi)容與’text2文本框中的內(nèi)容進(jìn)行交換，并在標(biāo)簽處顯示”交換成功”(如圖2-128所示)；如果選中”連接”單選按鈕并單擊”確定”按鈕后，則把交換后的Textl和Text2的內(nèi)容連接起來，并在標(biāo)簽處顯示連接后的內(nèi)容。存盤時，工程文件名為sjt4．vbp，窗體文件名為sjt4．frm。注意：不得修改已經(jīng)給出的程序。在結(jié)束程序運行之前，必須選中一個單選按鈕，并單擊”確定”按鈕。退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕，否則無成績。標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾下的本題工程文件sjt4．vbp。步驟2：在窗體Forml中加入兩個文本框、一個標(biāo)簽和兩個單選按鈕，分別設(shè)置它們的相關(guān)屬性，其屬性及值如表3-70所示。步驟3：打開代碼編輯窗口輸入如下代碼：參考代碼：PrivateSubC1_Click()IfOplThenLab1．Caption=Text1．TextText1．Text=Text2．TextText2．Text=Lab1．CaptionLab1．Caption=“交換成功”ElseIfOp2ThenLabl．Caption=Text1．Text&Text2．TextEndIfEndSub步驟4：按要求將文件保存至考生文件夾中。步驟5：按＜F5＞鍵運行程序，選擇一個單選按鈕，并單擊命令按鈕，最后單擊窗體右上角的關(guān)閉按鈕退出程序。知識點解析：暫無解析10、已知出租車行駛不超過4千米時一律收費10元。超過4千米時分段處理，具體處理方式為：15千米以內(nèi)每千米加收1．2元，15千米以上每千米收1．8元。在考生文件夾下有一個工程文件sjt4．vbp。程序的功能是：單擊“輸入”按鈕，將彈出一個輸入對話框，接收出租車行駛的里程數(shù)；單擊“計算”按鈕，則可根據(jù)輸入的里程數(shù)計算應(yīng)付的出租車費，并將計算結(jié)果顯示在名稱為Text1的文本框內(nèi)。在窗體文件中已經(jīng)給出了全部控件(如圖3-166所示)，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：審題分析本題源程序通過使用SelectCase語句對輸入的數(shù)據(jù)(已賦值給變量s)進(jìn)行檢驗，若不超過4，則按f=10計算；若在15以內(nèi)，則按f=10+(s-4)*1．2計算；若在15以上，則按f=10+(15-4)*1．2+(s-15)*1．8計算。操作步驟步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“′”，將問號“?”改為正確的內(nèi)容。參考代碼：SelectCasesf=10f=10+(s-4)*1．2CaseElsef=10+(15-4)*1．2+(s-15)*1．8步驟2：按要求將文件保存至考生文件夾中?？键c鏈接多分支結(jié)構(gòu)。知識點解析：暫無解析國家二級VB機(jī)試（簡單應(yīng)用題）模擬試卷第3套一、簡單應(yīng)用題(本題共10題，每題1.0分，共10分。)1、(1)在考生文件夾下有一個工程文件sjt3．vbp，窗體上有1個標(biāo)題為“計算”的命令按鈕，1個標(biāo)題為“1!＋2!＋…＋10!＝”的標(biāo)簽。請畫1個名稱為Text1，初始內(nèi)容為空的文本框。效果如圖3—34所示。程序功能：單擊“計算”命令按鈕，則計算“1!＋2!＋…＋10!”的值，并將結(jié)果顯示在Text1，文本框中。請將“計算”命令按鈕的Click事件過程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意，考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后，程序按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，窗體上有1個名稱為標(biāo)題為“運行”的命令按鈕。請畫2個名稱分別為Text1和Text2，初始內(nèi)容都為空的文本框，再畫2個名稱分別為Labe11、LabeE，標(biāo)題分別是“最大數(shù)”和“最大數(shù)位置”的標(biāo)簽。效果如圖3—35所示。程序功能：單擊“運行”按鈕，則產(chǎn)生50個不重復(fù)的介于0和100之間(含0和100)的隨機(jī)數(shù)，且以每行10個數(shù)的形式顯示在窗體上；最后將這些隨機(jī)數(shù)中的最大數(shù)和最大數(shù)所處的位置顯示在Text1和Text2中。如圖3—35所示為某一次的運行效果。請將“運行”命令按鈕的Click事件過程中的注釋符去掉，把“?”改為正確內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在窗體上添加一個文本框，按照如下表4—22設(shè)置屬性。步驟2：在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Whilei＜10i＝i＋1t＝1Fori＝1Tonjc＝t步驟3：按要求將文件保存至考生文件夾中。(2)【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在窗體上加入兩個文本框和兩個標(biāo)簽，按照表4—23設(shè)置相關(guān)屬性。步驟2：在代碼編輯窗口中，去掉程序中的注釋符“’”將問號“?”改為正確的內(nèi)容。參考代碼：j＝1j＝j(luò)＋1arr(j)＝xpos＝i－1步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析2、(1)在考生文件夾下有一個工程文件sjt3．vbp，其窗體中有一個紅色方框和一個計時器控件。程序運行時每隔0．5秒，方框的顏色交替變?yōu)辄S色和紅色(黃色值為&HFFFF&；紅色值為&HFF&)；若單擊鼠標(biāo)右鍵，則停止變色；若單擊鼠標(biāo)左鍵，則方框左上角移到鼠標(biāo)點擊的位置處(如圖3—53所示)。請將事件過程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，其窗口上有2個名稱分別為Command1和Command2，標(biāo)題分別為“開始查找”和“重新輸入”的命令按鈕；有2個名稱分別為Text1和Text2、初始值均為空的文本框。1)在Text1文本框中輸入僅含字母和空格(空格用于分隔不同的單詞)的字符串后，單擊“開始查找”按鈕，則可以將輸入字符串中最長的單詞顯示在Text2文本框中，如圖3—54所示。2)單擊“重新輸入”按鈕，則清除Text1和Text2中的內(nèi)容，并將焦點設(shè)置在Text1文本框中，為下一次輸入做好準(zhǔn)備。請將“開始查找”命令按鈕Click事件過程中的注釋符去掉，把“?”改為正確內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序。最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題步驟1：打開考生文件下的本題工程文件sjt3．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Timer1．Interval=500Shape1．Left=XShape1．Top=YTimer1．Enabled=FalseIfShape1．BackColor=vbRedThen步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：打開考生文件下的本題工程文件sjt4．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：word_s=ss=Mid(s，m+1)Ifn＜Len(word_s)ThenText2．Text=Word_max步驟2：按要求將文件保存在考生文件夾中。知識點解析：第1小題鼠標(biāo)事件分點擊事件和狀態(tài)事件：點擊事件有單擊(Click)和雙擊(DblClick)，不區(qū)分左鍵、右鍵：狀態(tài)事件有按下(MouseDown)、移動(MouseMove)和彈起(MouseUp)，能夠區(qū)分出鼠標(biāo)的左鍵、右鍵和中間鍵。按下鼠標(biāo)鍵事件過程的一般格式為：PrivateSubForm_MouseDown(BuaonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)EndSub其中各參數(shù)的含義：Button表示被按下的鼠標(biāo)鍵，可以取3個值，1為左鍵、2為右鍵、4為中間鍵；Shift表示Shift鍵、Ctrl鍵和Alt鍵的狀態(tài)，Shift鍵為1、Ctrl鍵為2、Alt鍵為4；X，Y表示鼠標(biāo)光標(biāo)的當(dāng)前位置。本題在計時器的Timer事件過程中，完成方框的顏色交替，因此在Timer事件中應(yīng)該是一個選擇語句，如果顏色為紅色(vbred)，將其設(shè)置為黃色，否則設(shè)置為紅色。由于要求0．5秒交替顯示一次，因此計時器的Interval屬性應(yīng)該設(shè)置為500。在窗體的MouseDown事件中，首先要判斷按下的是鼠標(biāo)的哪個鍵，如果是左鍵，則令形狀的Left和Top屬性分別為鼠標(biāo)事件的參數(shù)X和Y；如果是右鍵，則令計時器停止工作。第2小題：本題源程序在“開始查找”按鈕的Click事件過程中，先檢驗文本框Text1(已賦值給變量s)中是否讀入數(shù)據(jù)，并用InStr函數(shù)檢查空格的位置，以空格為單詞分隔依據(jù)找出每個單詞。每找到一個單詞，就將該單詞使用Left函數(shù)在s中分離出來，然后將s中的這個單詞去掉，判斷單詞的長度并且和預(yù)存的最長單詞長度相比較，若其比最長單詞還長，則這個單詞的長度成為新的最長單詞長度，這個單瀏成為新的最長單詞。循環(huán)結(jié)束后即可得出最長的單詞。3、(1)在名稱為Form1的窗體上畫一個名稱為lblPwd的標(biāo)簽，標(biāo)題為“密令”；畫兩個文本框，名稱分別為txtPwd、txtObi，都沒有初始內(nèi)容；再畫三個命令按鈕，名稱分別為cmdShow、cmdHide、cmdCopy，標(biāo)題分別為“顯示”、“隱藏”、“復(fù)制”，在開始運行時，向txtPwd中輸入的所有字符都顯示“*”，單擊“顯示”按鈕后，在txtPwd中顯示所有字符，再單擊“隱藏”后，txtPwd中的字符不變，但顯示的都是“?”，單擊“復(fù)制”后，把txtPwd中的實際內(nèi)容復(fù)制到txtObi中，如圖3—59所示。要求：①在屬性窗口中，把窗體的標(biāo)題改為“密令窗口”。②建立適當(dāng)?shù)氖录^程，完成上述功能。每個過程中只允許寫一條語句，且不能使用變量。存盤時，工程文件名為vbsj3．vbp，窗體文件名為vbsj3．frm。(2)在考生文件夾下有一個工程文件vbsj4．vbp，運行情況如圖3—60所示。程序的功能是計算如下表達(dá)式的值：Z=(X+2)^2+(X+3)^3+(x+4)^4+…+(X+N)^N。其中，N和X值通過鍵盤分別輸入到文本框txtN、txtX中。之后如果單擊名稱為cmdCal、標(biāo)題為“計算”的命令按鈕，則計算表達(dá)式的值Z，并將計算結(jié)果顯示在名稱為lblResult的標(biāo)簽中。在給出的窗體文件中已經(jīng)添加了全部控件和程序，但程序不完整。要求去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。注意：考生不得修改窗體文件中已經(jīng)存在的程序。程序中不得使用^運算符，而應(yīng)使用函數(shù)xn進(jìn)行冪運算。程序至少運行一次，按照下圖輸入數(shù)據(jù)，使N=5，X=10，單擊“計算”按鈕，計算Z的值，并將結(jié)果顯示在標(biāo)簽lblResult中，否則沒有成績。最后，程序按原文件名存盤。程序源碼：PrivateFunctionxn(aAsSingle，mAsInteger)DimiAsInteger：tmp=1’Fori=1Tomtmp=?Next’xn=?EndFunctionPrivateSubcmdCalClick()DimnAsInteger，iAsIntegerDimtAsSingle，s，xAsSinglen=Val(txtN．Text)x=Val(txtX．Text)：z=0Fori=2Tont=x+i’z=z+?Next’lblResult．Caption=?CallSaveResultEndSubPrivateSubSaveResult()OpenApp．Path&&"＼out4．dat"For_OutputAs#1Print#1，lblResult．CaptionClose#1EndSub標(biāo)準(zhǔn)答案：第1小題步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，按表4—36在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：在代碼編輯窗口，分別編寫3個按鈕的單擊事件過程。參考代碼：PrivateSubcmdShow_Click()txtPwd．PaSSWOrdChar=""EndSubPrivateSubcmdHide_Click()txtPwd．passwordChar="?"EndSubPrivateSubcmdCopy_Click()txtobj．Text=txtPwd．TextEndSub步驟3：按要求將文件保存至考生文件夾中。第2小題步驟1：打開考生文件夾中的本題工程文件vbsj4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：tmp=tmp*axn=tmpz=z+xn(t，i)lblResult．Caption=z步驟2：按＜F5＞運行程序，在第1個文本框中輸入5，第2個文本框中輸入10，再單擊“計算”按鈕。步驟3：按要求將文件保存至考生文件夾中。知識點解析：第1小題：PasswordChar屬性用于設(shè)置屏蔽文本框中內(nèi)容的字符，要去掉對文本框中輸入內(nèi)容的屏蔽，需將其PasswordChar屬性值清空。第2小題：本題源程序中，白定義函數(shù)xn的功能是進(jìn)行a^m冪運算，它通過For循環(huán)連續(xù)m次將a乘以累積變量tmp(初值為1)來實現(xiàn)。故自定義函數(shù)xn中第一個?處應(yīng)改為：tmp*a，作為函數(shù)返回值第二個?處應(yīng)改為：map。在“計算”按鈕的單擊事件過程中，根據(jù)程序所要計算表達(dá)式的特點，源程序利用一個For循環(huán)依次計算表達(dá)式中各項的值((x+i)＾i)，并將其累加入變量z。計算表達(dá)式中各項的值通過調(diào)用自定義函數(shù)xn(t，i)來實現(xiàn)的，其中t=x+j。故cmdCal_Click事件過程中第一個?處應(yīng)改為：xn(t，i)。計算結(jié)果顯示在標(biāo)簽中，故第二個?處應(yīng)改為：z。4、(1)考生文件夾下有一個工程文件sjt3．vbp，其窗體上有1個名稱為Text1的控件數(shù)組；一個標(biāo)題為”排序”的命令按鈕。程序運行時，在文本框數(shù)組中輸入8個整數(shù)，如圖3－29(a)所示；然后單擊“排序”按鈕，則8個整數(shù)按降序排序，如圖3－29(b)所示。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。(2)在考生文件夾下有工程文件sjt4．vbp。其窗體界面如圖3－30所示，可以實現(xiàn)以下功能：“添加項目”按鈕可以把在組合框編輯區(qū)中輸入的新項目添加到組合框列表中，但不能添加重復(fù)項目；“刪除項目”按鈕從列表中刪除選中的項目；“添加愛好”按鈕把組合框編輯區(qū)中的內(nèi)容追加到下面的文本框原有內(nèi)容之后；“清除愛好”按鈕清除該文本框內(nèi)容。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把“?”改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：k＝iForj＝i＋1To7IfVal(Text1(j)．Text)＞Val(Text1(k)．Text)ThenText1(k)．Text＝j(luò)步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：IfCombo1．Text＝Combol．List(k)ThenCombo1．AddItemCombol．TextCombol．RemoveItemCombol．ListIndexText1．Text＝Text1．Text＆""＆Combol．TextText1．Text＝""步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析5、在考生文件夾下有一個數(shù)據(jù)庫文件“samp2．a(chǎn)ecdb”，其中存在已經(jīng)設(shè)計好的3個關(guān)聯(lián)表對象“tStud”、“tCourse”和“tScore”及一個臨時表對象“tTmp”。請按以下要求完成設(shè)計。(1)創(chuàng)建一個查詢，查找并顯示照片信息為空的男同學(xué)的“學(xué)號”、“姓名”、“性別”和“年齡”4個字段的內(nèi)容，將查詢命名為“qT1”。(2)創(chuàng)建一個查詢，查找并顯示選課學(xué)生的“姓名”和“課程名”兩個字段的內(nèi)容，將查詢命名為“qT2”。(3)創(chuàng)建一個查詢，計算選課學(xué)生的平均分?jǐn)?shù)，顯示為“學(xué)號”和“平均分”兩列信息，要求按照平均分降序排列，將查詢命名為“qT3”。(4)創(chuàng)建一個查詢，將臨時表對象“tTmp”中女員工編號的第一個字符更改為“1”，所建查詢命名為“qT4”。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡“查詢”組中的“查詢設(shè)計”按鈕，從“顯示表”對話框中添加表“tStud”，關(guān)閉“顯示表”對話框。步驟2：分別雙擊“學(xué)號”、“姓名”、“性別”、“年齡”和“照片”字段，在“性別”字段“條件”行輸入“男”，在“照片”字段“條件”行輸入“IsNull”，取消“照片”行的顯示。步驟3：按Ctrl＋S將查詢保存為“qT1”，如圖3．241所示。關(guān)閉設(shè)計視圖。(2)【操作步驟】步驟1：單擊“創(chuàng)建”選項卡“查詢”組中的“查詢設(shè)計”按鈕，從“顯示表”對話框中添加表“tStud”、“tCourse”和“tScore”，關(guān)閉“顯示表”對話框。步驟2：用鼠標(biāo)拖動“tScore”表中“學(xué)號”至“tStud”表中的“學(xué)號”字段，建立兩者的關(guān)系，用鼠標(biāo)拖動“tCourse”表中“課程號”至“tScore”表中的“課程號”字段，建立兩者的關(guān)系。步驟3：分別雙擊“姓名”和“課程名”字段將其添加到“字段”行，如圖3．242所示。步驟4：將查詢保存為“q12”。關(guān)閉沒計視圖