VB機(jī)試模擬試卷11（共27題）

VB機(jī)試模擬試卷11（共9套）（共27題）VB機(jī)試模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、在名為Form1的窗體上繪制一個(gè)垂直滾動(dòng)條(名稱為VS1)和一個(gè)水平滾動(dòng)條(名稱為HS1)。在屬性窗口中對(duì)兩個(gè)滾動(dòng)條設(shè)置如下屬性：Min2000Max8000LargeChange500SmallChange50編寫適當(dāng)?shù)氖录^程，使程序運(yùn)行后，若移動(dòng)滾動(dòng)條上的滾動(dòng)框，則可擴(kuò)大或縮小窗體。運(yùn)行后的窗體如下圖所示。注意：程序中不得使用任何變量；文件必須存放在考生文件夾中，工程文件名為execise22.vbp，窗體文件名為exeeise22.frm。標(biāo)準(zhǔn)答案：知識(shí)點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、在考生文件夾中有工程文件execise99.vbp和窗體文件execise99.frm。在名為Fom1的窗體上有一個(gè)名為Text1的文本框，有兩個(gè)命令按鈕(名稱分別是Cmd1和Cmd2，標(biāo)題分別是Read和Save)。要求程序運(yùn)行后，單擊Read按鈕，將文本文件in99．txt中的所有數(shù)字讀到數(shù)組arr中，并在文本框內(nèi)顯示出來。隨后Read按鈕變?yōu)闊o效；然后單擊Save按鈕，求出數(shù)組alt中的各元素的立方并賦值回相應(yīng)的元素，例如，arr(2)=2,則令art(2)=arr(2)*arr(2)*arr(2)=8。把計(jì)算后的數(shù)組的值全部寫入考生文件夾中的文本文件out99.txt中，并在文本框中顯示出來，最后Save按鈕也變?yōu)闊o效。本程序不完整，請(qǐng)補(bǔ)充完整，并能正確運(yùn)行。要求；去掉程序中的注釋符“’”，把程序中的問號(hào)“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夾中保存修改后的文件。標(biāo)準(zhǔn)答案：知識(shí)點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾中有一個(gè)工程文件execise32.vbp(相應(yīng)窗體文件為execise32.frm)。窗體Form1中已經(jīng)給出了所有控件。其功能是：單擊“讀入”命令按鈕，則把考生目錄下的in32.txt文件中的所有英文字符放入Text1(可多行顯示)：如果單擊“統(tǒng)計(jì)”命令按鈕，則統(tǒng)計(jì)文本框中字母A、B、c、D各自出現(xiàn)的次數(shù)，并把結(jié)果在文本框中顯示出來，如下圖所示；如果單擊“保存”命令按鈕，則把統(tǒng)計(jì)結(jié)果存入考生文件夾下的out32.txt文件中。文件中已給出了“讀入”和“保存”按鈕的Click事件過程。請(qǐng)編寫“統(tǒng)計(jì)”按鈕的Click事件過程。要求：(1)統(tǒng)計(jì)每個(gè)字母出現(xiàn)的次數(shù)時(shí)，不區(qū)分大小寫。(2)統(tǒng)計(jì)后的每個(gè)字母的次數(shù)必須存入考生文件夾下的out32.txt文件中，否則沒有成績。在文件中的格式為：字母A出現(xiàn)的次數(shù)為xx字母B出現(xiàn)的次數(shù)為xx字母C出現(xiàn)的次數(shù)為xx字母D出現(xiàn)的次數(shù)為xx注意：不能修改已經(jīng)給出的程序部分：在結(jié)束程序運(yùn)行之前，必須單擊“保存”按鈕，把結(jié)果存入out32.txt文件，否則無成績。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：知識(shí)點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml、標(biāo)題為“框架”的窗體上畫一個(gè)名稱為Framel，且沒有標(biāo)題的框架?？蚣軆?nèi)含有兩個(gè)單選按鈕，名稱分別為Optl和opt2、標(biāo)題分別為“字體”、“大小”，如圖1-216所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)考生文件夾下的工程文件sjt2．vbp中有一個(gè)由直線Linel、Line2和Line3組成的三角形，直線Linel、Line2和Line3的坐標(biāo)值見表1-10：要求畫一條直線Line4以構(gòu)成三角形的高，且該直線的初始狀態(tài)為不可見。再畫兩個(gè)命令按鈕，名稱分別是Cmdl、Cmd2，標(biāo)題分別為“顯示高”、“隱藏高”，如圖1-217所示。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊“顯示高”按鈕，則顯示三角形的高；單擊“隱藏高”按鈕，則隱藏三角形的高。注意：要求程序中不得使用變量，每個(gè)事件過程只能寫一條語句。不得修改已經(jīng)存在的控件，最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-126在窗體上繪制控件并設(shè)置屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟l：打開本題工程文件sjt2．vbp，在窗體中畫一個(gè)直線控件和兩個(gè)命令按鈕，并設(shè)置其相關(guān)屬性如表2-127所示。步驟2：打開代碼編輯窗口，編寫命令按鈕的Click事件過程。參考代碼：PrivateSubCmdl_Click()Line4．ViSible=TrueEndSubPrivateSubCmd2_Click()Line4．Visible=FalseEndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題本題只需按題目要求畫出框架和單選按鈕，并分別設(shè)置其屬性。第2小題Visible(可見)屬性用于設(shè)置控件或菜單項(xiàng)在程序運(yùn)行時(shí)是否可見，值為True表示可見，值為False表示不可見。本題的考核要求有兩項(xiàng)。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp，運(yùn)行情況如圖1-23所示。程序的功能是計(jì)算表達(dá)式的值：z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的N和x值通過鍵盤分別輸入到兩個(gè)文本框Textl、Text2中。單擊名稱為Commandl、標(biāo)題為“計(jì)算”的命令按鈕，則計(jì)算表達(dá)式的值，并將計(jì)算結(jié)果顯示在名稱為Labell的標(biāo)簽中。在窗體文件中已經(jīng)給出了全部控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確內(nèi)容。要求：程序調(diào)試通過后，必須按照如圖1-23所示輸入N=5，x=12，然后計(jì)算z的值，并將計(jì)算結(jié)果顯示在標(biāo)簽Labell中，否則沒有成績。注意；不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp。窗體上有名稱為Labell的標(biāo)簽和名稱為Timerl的計(jì)時(shí)器控件。該程序的功能是在名稱為Labell的標(biāo)簽中循環(huán)顯示不同的字符串。程序開始運(yùn)行，在標(biāo)簽中顯示“第一項(xiàng)”(如圖1-24所示)，且每隔1秒鐘依次顯示“第二項(xiàng)”、“第三項(xiàng)”、“第四項(xiàng)”，如此循環(huán)。在給出的窗體文件中已經(jīng)有了全部控件和程序，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第l小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號(hào)“?”改為正確的內(nèi)容。參考代碼：tmp=1tmp=temp+ixn=tmpz=z+xn(t)步驟2：按鍵鍵運(yùn)行程序，在第一個(gè)文本框中輸入5，第兩個(gè)文本框中輸入12，然后單擊“計(jì)算”按鈕。步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號(hào)“?”改為正確的內(nèi)容。參考代碼：arr=Array("第一項(xiàng)"，"第二項(xiàng)"，"第三項(xiàng)"，"第四項(xiàng)")StaticiAsIntegerLabell．Caption=arr(i)i=0步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第l小題本題原程序中，自定義函數(shù)xn的功能是進(jìn)行m！階乘運(yùn)算，它通過For循環(huán)連續(xù)m次將循環(huán)變量i的值乘以累積變量tmp(第一個(gè)?處map初值應(yīng)為1)來實(shí)現(xiàn)。故自定義函數(shù)xn中第兩個(gè)?處應(yīng)改為：tmp*i，作為函數(shù)返回值第三個(gè)?處應(yīng)改為：)xn。在“計(jì)算”按鈕的單擊事件過程中。根據(jù)程序所要計(jì)算表達(dá)式的特點(diǎn)，原程序利用一個(gè)For循環(huán)依次計(jì)算表達(dá)式中各項(xiàng)的值((x-i)1)，并將其累加入變量z。計(jì)算表達(dá)式中各項(xiàng)的值通過調(diào)用自定義函數(shù)xn(t)來實(shí)現(xiàn)的，其中t=x-i。故Commandl_Click事件過程中第一個(gè)?處應(yīng)改為：xn(t)。計(jì)算結(jié)果顯示在標(biāo)簽中。第2小題要實(shí)現(xiàn)本題中的功能，在窗體的Load事件過程中，首先使用Array函數(shù)建立一個(gè)新數(shù)組，然后設(shè)置計(jì)時(shí)器的相關(guān)屬性并啟用計(jì)時(shí)器；在計(jì)時(shí)器的Timer事件中，由于需要計(jì)算Timer事件的執(zhí)行次數(shù)才能判斷出應(yīng)該顯示何種文字，因此計(jì)數(shù)變量i應(yīng)該聲明為Static類型的變量，然后把數(shù)組的第i項(xiàng)顯示在標(biāo)簽中，接下來令i+l，一旦i超過了3就將其重新置O以便實(shí)現(xiàn)循環(huán)顯示。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾中有一個(gè)工程文件sjt5．vbp。窗體外觀如圖1-58所示。運(yùn)行程序，單擊“讀數(shù)據(jù)”按鈕，文件中的數(shù)據(jù)被讀入字符串變量中并顯示在Label2標(biāo)簽中。單擊“排序”按鈕時(shí)，對(duì)讀入的數(shù)據(jù)從小到大排序，并將排序結(jié)果顯示在窗體的Label4控件中。要求：工程文件中已給出部分程序，“讀數(shù)據(jù)”命令按鈕的事件過程不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。請(qǐng)編寫“排序”命令按鈕的事件過程中的部分程序代碼。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序調(diào)試通過后，兩個(gè)命令按鈕的事件過程必須至少各執(zhí)行一次。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號(hào)“?”改為正確的內(nèi)容。參考代碼：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：按鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“排序”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：冒泡法的核心思路是按順序讓一個(gè)數(shù)列中的每一個(gè)數(shù)都與它之后的所有的數(shù)逐一進(jìn)行比較，如果該數(shù)大于其后面的數(shù)。則把這兩個(gè)位置的數(shù)進(jìn)行交換。通過這樣的循環(huán)，最終按照從小到大的順序排列出該數(shù)列。設(shè)計(jì)思路：在“讀數(shù)據(jù)”按鈕的單擊事件中，首先使用DoWhile當(dāng)型循環(huán)結(jié)構(gòu)從文件中讀取全部數(shù)據(jù)，并以NotEOF(文件號(hào))(非文件結(jié)尾)作為循環(huán)條件，通過Input#語句將打開文件中的數(shù)據(jù)逐一讀出后賦值給a(i)，然后將數(shù)組連接起來顯示在標(biāo)簽中。在“排序”按鈕的單擊事件過程中，原程序利用“冒泡法”對(duì)記錄數(shù)組中的元素從小到大進(jìn)行排序。VB機(jī)試模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)請(qǐng)?jiān)诿Q為Forml的窗體上繪制一個(gè)名稱為H1水平滾動(dòng)條，請(qǐng)?jiān)趯傩源翱谥性O(shè)置它的屬性值，使其滿足下列要求：它的最小刻度值為1，最大刻度值為100，在程序運(yùn)行時(shí)，用鼠標(biāo)單擊滾動(dòng)條上滾動(dòng)框以外的區(qū)域(不包括兩邊按鈕)，滾動(dòng)框移動(dòng)10個(gè)刻度。再在滾動(dòng)條下面畫兩個(gè)名稱分別為U和L2的標(biāo)簽，并分別顯示1和100．運(yùn)行時(shí)的窗體如圖44—1所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjl．vb，窗體文件名為sjl．frm。(2)在窗體上畫兩個(gè)文本框，名稱分別為Text1和Text2。請(qǐng)?jiān)O(shè)置適當(dāng)?shù)目丶傩裕⒕帉戇m當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)。如果在Text1中每輸入一個(gè)字符，則顯示一個(gè)“*”，同時(shí)在Text2中顯示輸入的內(nèi)容，如圖44—2所示。程序中不得使用仟何變量。注意：存盤時(shí)必須存放在光盤相應(yīng)目錄下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)滾動(dòng)條控件和兩個(gè)標(biāo)簽控件添加到窗體中，滾動(dòng)條的名稱為H1，Min屬性為1，Max屬性為100，LargeChange屬性為10，兩個(gè)標(biāo)簽的名稱分別為L1和L2，Caption屬性分別為“1”和100。設(shè)置完成后，單擊按鈕運(yùn)行程序，并按要求保存。(2)建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見下表。雙擊“工具箱”中的文本框控件在窗體上建立2個(gè)文本框，用鼠標(biāo)分別拖動(dòng)它們的邊框到合適的大小，然后再用鼠標(biāo)將它們分別調(diào)整到合適的位置。并按下表分別設(shè)置它們的屬性。編寫程序代碼。PrivateSubTextl_Change()Text2．Text=Textl．TextEndSub然后，調(diào)試并運(yùn)行。最后，按題目要求存盤。知識(shí)點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有工程文件sj3．vbp及窗體文件sj3．frm，在窗體上畫一個(gè)名稱為Text1的文本框和兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為“大寫A”和“小寫a”的命令按鈕。要求程序運(yùn)行后，如果單擊“大寫A”命令按鈕，則彈出對(duì)話框，輸入要顯示的個(gè)數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應(yīng)數(shù)量的大寫字符串A；如果單擊“小寫a”命令按鈕，也彈出對(duì)話框，輸人要顯示的個(gè)數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應(yīng)數(shù)量的小寫字符串a(chǎn)。程序運(yùn)行時(shí)的窗體界面如圖5—3所示。注意：該程序是不完整的，請(qǐng)?jiān)谟小?”的地方添入正確的內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。(2)在考生文件夾下有工程文件sj4．vbp及窗體文件sj4．frm，在窗體上有一個(gè)名稱為HScrolll的水平滾動(dòng)條(Min為400，Max為2000)和三個(gè)名稱分別為Command1、Command2和Command3、標(biāo)題分別為“減200”、“顯示”和“加200”的命令按鈕。程序運(yùn)行后，如果單擊“減200”命令按鈕，則滾動(dòng)塊向左滾動(dòng)200單位；如果單擊“顯示”命令按鈕，則顯示當(dāng)前滾動(dòng)條的值；如果單擊“加200”命令按鈕，則滾動(dòng)塊向右滾動(dòng)200單位。程序運(yùn)行時(shí)效果如圖5—4所示。注意：請(qǐng)?jiān)谟小?”的地方正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。編寫程序使程序運(yùn)行時(shí)滿足下列的條件。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)本題主要考查考生對(duì)For循環(huán)、文本框內(nèi)容的顯示和InputBox()函數(shù)的理解。Inpu,Box()函數(shù)用于顯示一個(gè)輸入框，提示用戶輸入一個(gè)數(shù)據(jù)，該函數(shù)返回值默認(rèn)為字符串類型，其常用語法格式為：InputBox(Prompt[，Title][，Default])。其中．Prompt字符串為輸入框上顯示的提示文本；Title字符串在輸入框的標(biāo)題欄．i：顯示；Default字符串為輸入框的缺省文本。根據(jù)題意，將一個(gè)文本框控件和兩個(gè)命令按鈕添加到窗體中，文本框的名稱為Textl、Text屬性為空，命令按鈕的名稱分別為Commandl和Command2、Caption屬性分別為“大寫A”和“小寫a”。雙擊Commandl進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：PrivateSubCommandl_Click()DimaAsIntegerDimstrAsStringDimiASIntegera=Val(InputBox("輸入個(gè)數(shù)"))’讀取輸入的個(gè)數(shù)str=""Fori=1Toastr=str+"A"’循環(huán)寫入大寫字母"A"NextiTextl．Text=str’在Text1中顯示結(jié)果EndSubPrivateSubCommand2_Click()DimaAsIntegerDimstrASStringDimiAsIntegera=Val(InputBox("輸入個(gè)數(shù)"))’讀取輸入的個(gè)數(shù)str=""Fori=1Toastr=str十"a"’循環(huán)寫入小寫字母"a"NextiTextl．Text=str’在Textl中顯示結(jié)果EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)滾動(dòng)條常用于取代數(shù)據(jù)的鍵盤輸入，通過調(diào)整滾動(dòng)條滑塊的位置即可改變其Valtie屬性的值。滾動(dòng)條的Max屬性、Min屬性限定了滾動(dòng)條所能表示的最大值和最小值，即Value屬性值的取值范圍．在程序中改變Value屬性的值，滾動(dòng)條滑塊會(huì)隨之移動(dòng)到相應(yīng)位置。根據(jù)題意，將一個(gè)水平滾動(dòng)條控件和3個(gè)命令按鈕添加到窗體中，水平滾動(dòng)條的名稱為HScrolll、Min屬性為400、Max屬性為2000，命令按鈕的名稱分別為Commandl、Command2和Command3，Caption屬性分別為“減200”、“顯示”和“加200”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()IfHScrolll．Value-200Value’在窗口上顯示HScrolll的當(dāng)前值EndSubPrivateSubCommand3_Click()IfHScroll1．Value+200>HScrolll．MaxThen’如果移動(dòng)后大于最大值HScrolll．Value=HScroll1．Max’則HScrolll的值為最大值Else’否則HScrolll．Value=HScrolll．Value+200’HScrolll的值加200EndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、打開考生文件夾下的sj5．vbp，在名稱為Forml的窗體上有一個(gè)名稱為Text1的文本框．兩個(gè)命令按鈕，名稱分別為Commandl和Command2，命令按鈕上分別顯示“讀入”和“排序”(如圖70—5所示)。程序運(yùn)行時(shí)單擊“讀入”按鈕，將文件in5．dat中的數(shù)據(jù)讀人數(shù)組a中，單擊“排序”則把數(shù)組a中的數(shù)值按照升序排列，并顯示在文本框中。注意：請(qǐng)?jiān)谟小?”號(hào)的地方填入正確的內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)本題主要考查了從文件中讀取數(shù)據(jù)和數(shù)據(jù)的排序。要從文件中讀取數(shù)據(jù)，首先要打開文件，在讀文件的時(shí)候要用到EOF函數(shù)判斷文件是否已讀完。本題補(bǔ)充后的代碼如下：Dima()AsIntegerDimnumAsIntegerPrivateSubCommandl_Click()DimstrAsStringnum=0str=""Open"App．Path&＼in5．dat"ForInputAs#1’打開文件準(zhǔn)備讀取WhileEOF(1)=False’查看是否讀到文件尾Input#1，str’讀取文件num=num+1’計(jì)數(shù)WendClose#1’關(guān)閉文件ReDima(num)’動(dòng)態(tài)分配數(shù)組空間DimiAsIntegerstr=""Open"App．Path&＼in5．dat"ForInputAs#1Fori=1Tonuml’利用For循環(huán)Input#1，a(i)’逐個(gè)讀取數(shù)據(jù)str=str+CStr(a(i))+""’將數(shù)組寫入字符串中NextiClose#1Textl．Textstr’將字符串顯示在Textl中EndSubPrivateSubCommand2_Click()DimtexAsStringFori=1Tonum’升序排列temp=a(i)Forj=1ToiIfa(j)>tempThen’讀取的數(shù)據(jù)比原位置的數(shù)據(jù)大Fork=iToj+lStep-la(k)=a(k-1)’數(shù)據(jù)向后偏移一個(gè)Nextka(j)=tempExitForEndIfNextjNextitex=""Fori=1To40tex=rex+CStr(a(i))+""NextiTextl．Text=tex’在Textl中顯示排序后的結(jié)果Open"App．Path&＼out5．txt"For0utputAs#2Print#2，Textl.TextClose#1EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上畫一個(gè)名稱為Checkl的復(fù)選框數(shù)組，它含4個(gè)復(fù)選框，它們的標(biāo)題依次為“Iteml”、“Item2”、“Item3”和“Item4”，其索引號(hào)分別為0，l，2，3。初始狀態(tài)下，“Iteml”和“Item4”為選中狀態(tài)。程序運(yùn)行后的窗體界面如圖19—1所示。注意：存盤時(shí)必須存放考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sjl．frm。(2)在名稱為Forml的窗體上畫一個(gè)名稱為VScrolll的垂直滾動(dòng)條，其刻度值范圍為1～200；畫一個(gè)命令按鈕，名稱為Commandl、標(biāo)題為“向下移動(dòng)”。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得程序運(yùn)行時(shí)，每單擊命令按鈕一次(假定單擊次數(shù)少于10次)，滾動(dòng)塊向下移動(dòng)20個(gè)刻度。程序運(yùn)行時(shí)的窗體界面如圖19—2所示。要求程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)本題主要考查在窗體中添加控件數(shù)組及設(shè)置復(fù)選按鈕控件(CheckBox)的Value屬性?？丶?shù)組是一組具有共同名稱和類型的控件，它們擁有共同的事件，數(shù)組中的每個(gè)控件都有唯一的索引號(hào)(Index)，即下標(biāo)。添加控件數(shù)組的方法是：先通過工具箱建立第一個(gè)控件，然后對(duì)該控件進(jìn)行“復(fù)制”、“粘貼”操作，粘貼時(shí)在彈出的對(duì)話框中選擇建立控件數(shù)組，這時(shí)控件數(shù)組的Index值會(huì)自動(dòng)從0開始編號(hào)。復(fù)選按鈕組可用于提供多重選擇，每個(gè)復(fù)選按鈕的選中狀態(tài)由其Value屬性值決定：0-UnChecked為未選；1-Checked為選中；2-Grayed為禁用(即灰色)。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)復(fù)選按鈕控件添加到窗體中，再選中、復(fù)制、粘貼，在彈出的對(duì)話框中單擊“是”，即創(chuàng)建一個(gè)控件數(shù)組，設(shè)置其Index屬性分別為0、1、2、3，Caption屬性分別為“Iteml”、“Item2”、“Item3”和“Item4”，“heml”和“Item4”的值為1，“Item2”和“Item3”的屬性為0，單擊按鈕運(yùn)行程序，并按要求保存。(2)本題主要考查滾動(dòng)條(HScrollBar)控件的畫法、屬性設(shè)置及簡單事件的編寫。滾動(dòng)條多用于取代數(shù)據(jù)的鍵盤輸入，通過調(diào)整滾動(dòng)條滑塊的位置即可改變其Value屬性的值。滾動(dòng)條的Max屬性、Min屬性限定了滾動(dòng)條所能表示的最大值和最小值，即Value屬性值的取值范圍，在程序中改變Value屬性的值，滾動(dòng)條滑塊會(huì)隨之移動(dòng)到相應(yīng)位置。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)垂直滾動(dòng)條控件和一個(gè)命令按鈕添加到窗體中，垂直滾動(dòng)條的名稱為VScrolll、Min屬性為1、Max屬性為200，命令按鈕的名稱為Commandl、Caption屬性為“向下移動(dòng)”。雙擊命令按鈕進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()VScrolll．Value=VScrolll．Value+20’每按一次按鍵，則VScroll的數(shù)值加20EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在窗體上設(shè)置兩個(gè)標(biāo)簽，名稱分別為Labell與Label2、標(biāo)題分別為“當(dāng)前時(shí)間為：”和空；要求當(dāng)單擊窗體時(shí)，Label2顯示當(dāng)前時(shí)間。請(qǐng)編寫相應(yīng)的程序代碼來完成這個(gè)功能。程序運(yùn)行時(shí)的窗體界面如圖21—3所示。注意：要求考生在編寫完程序后，把工程文件與窗體文件保存到考生文件夾下，文件名分別為sj3．vbp與sj3．frm。(2)在考生文件夾下有工程文件sj4．vbp及窗體文件sj4．frm，該程序是不完整的。本程序的功能是利用隨機(jī)數(shù)函數(shù)模擬投幣，方法是：每次隨機(jī)產(chǎn)生一個(gè)0或1的整數(shù)，相當(dāng)于一次投幣，1代表正面，O代表反面。在窗體上畫3個(gè)名稱分別為Textl、Text2和Text3的文本框與一個(gè)名稱為Commandl的命令按鈕，其中Commandl的標(biāo)題為“開始”。文本框分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反而的次數(shù)。程序運(yùn)行后，在文本框Textl中輸入總次數(shù)，然后單擊“開始”按鈕，按照輸人的次數(shù)模擬投幣，分別統(tǒng)計(jì)出現(xiàn)正面、反面的次數(shù)，并顯示結(jié)果。如圖21—4所示。注意：請(qǐng)?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)本題主要考查計(jì)時(shí)器控件和簡單事件編程。計(jì)時(shí)器控件用以實(shí)現(xiàn)在規(guī)定的時(shí)間間隔觸發(fā)其Timer事件，執(zhí)行有關(guān)事件過程代碼來完成對(duì)應(yīng)功能。Interval屬性用于設(shè)置觸發(fā)計(jì)時(shí)器的Timer事件的時(shí)間間隔，單位為毫秒。Enabled屬性控制計(jì)時(shí)器是否開始啟用，True為啟用，F(xiàn)alse為不啟用；Time()函數(shù)用于返回系統(tǒng)當(dāng)前時(shí)間。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將兩個(gè)標(biāo)簽添加到窗體中，名稱分別為Labell和Label2，Caption屬性都為空，設(shè)置完成后雙擊Form1，進(jìn)入代碼窗口，編寫如下代碼：PrivateSubForm_Click()Label2．Caption=TimeEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)Rnd()函數(shù)用于產(chǎn)生0～1之內(nèi)的隨機(jī)數(shù)。根據(jù)題意，將3個(gè)標(biāo)簽、3個(gè)文本框控件和一個(gè)命令按鈕添加到窗體中，標(biāo)簽的Caption屬性分別為“總次數(shù)”“正面”和“反面”，文本框的名稱分別為Textl、Text2和Text3，Caption屬性為空，命令按鈕的名稱為Commandl、Caption屬性為“開始”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()DimaAsIntegerDimiAsIntegerDimblAsIntegerDimb2AsIntegerbl=0b2=0a=Val(Textl．Text)’通過Textl獲得總的次數(shù)Fori=1Toaa=Rnd()’取隨機(jī)數(shù)Ifa=1Thenb1=b1+1’當(dāng)隨機(jī)到1時(shí)，則b1加1Elseb2=b2+1’當(dāng)隨機(jī)到0時(shí)，則b2加1EndIfNextiText2．Text=bl’在Text2中顯示1的個(gè)數(shù)Text3．Textb2’在Text3中顯示0的個(gè)數(shù)EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sj5．vbp，其窗體上有4個(gè)標(biāo)簽Labell、Lable2、Label3和Label4，標(biāo)題分別為“用戶名”、“密碼”、“剩余次數(shù)”和“5”；一個(gè)命令按鈕Commandl、標(biāo)題為“登錄”；兩個(gè)文本框名稱分別為Textl和Text2，其中Textl用來輸入用戶名，Text2用來輸入密碼(輸入時(shí)，顯示“*”)，無初始內(nèi)容。程序給出了Cornmandl的事件過程，但不完整，要求去掉程序中的注釋符“’”，把程序中的“?”改為正確內(nèi)容，使得在運(yùn)行時(shí)，在Textl中輸入用戶名，Text2中輸入密碼后，單擊“登錄”按鈕，如果輸入的用戶名和密碼都是“abcd”時(shí)，則在Textl中顯示“登錄成功”；如果輸入其他內(nèi)容，單擊“登錄”后，彈出如圖35—5所示的錯(cuò)誤提示對(duì)話框，并且Label4中的數(shù)字減1。最多可輸人5次口令，若5次都輸入錯(cuò)誤，則禁止再次輸入。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤，運(yùn)行結(jié)果如圖35—5所示。標(biāo)準(zhǔn)答案：在文本框里顯示的內(nèi)容通過Text屬性設(shè)置，其格式為：文本框名．Text=顯示的內(nèi)容。要使文本框內(nèi)容顯示為“*”，需將PasswordChar屬性設(shè)置為“*”。MsgBox函數(shù)的格式為：MsgBox提示[，按鈕][，標(biāo)題]根據(jù)題意，將4個(gè)標(biāo)簽、兩個(gè)文本框控件和一個(gè)命令按鈕添加到窗體中，標(biāo)簽的名稱分別為Labell、Label2、Label3和Label4，Caption屬性分別為“用戶名”、“密碼”、“剩余次數(shù)”和“5”，文本框的名稱分別為Textl和Text2、Caption屬性都為空，Text2的Passwordchar屬性為“*”，命令按鈕的名稱為Commandl，Caption屬性為“登錄”。補(bǔ)充后的具體代碼如下：PrivateSubCommandlClick()IfTextl．Text="abcd"AndText2．Text="abcd"ThenMsgBox("登錄成功")ElseMsgBox("登錄失敗")Label4．Caption=Val(Label4．Caption)-1EndIfIfVal(Label4．Caption)=0ThenTextl．Enabled=FalseText2．Enabled=FalseCommandl．Enabled=FalseEndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在Forml的窗體上畫一個(gè)名稱為I．a(chǎn)bell的標(biāo)簽，然后建立一個(gè)主菜單，標(biāo)題為“命令”，名稱為Com，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“輸出”和“關(guān)閉”，其名稱分別為Pri和Close。編寫適當(dāng)?shù)氖录^程，使程序運(yùn)行后，如果單擊“命令”菜單中的“輸出”命令，則在標(biāo)簽中顯示“模擬考試”；如果單擊“關(guān)閉”命令，則結(jié)束程序運(yùn)行。程序運(yùn)行時(shí)，單擊“輸出”命令的效果如圖40-1所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sjl．Inn。(2)在窗體上畫一個(gè)列表框，名稱為Listl，通過“屬性”窗口向列表框中添加5個(gè)項(xiàng)目，分別為“足球”、“籃球”、“排球”、“乒乓球”和“羽毛球”，單擊列表框中的一項(xiàng)，則該項(xiàng)就從列表框中刪除。程序的運(yùn)行情況如圖40-2和圖40-3所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)標(biāo)簽添加到窗體中，其名稱設(shè)為Labell、Caption屬性為空，按“Ctrl+E”組臺(tái)鍵打開菜單編輯器，在其中添加如下菜單項(xiàng)：單擊“確定”按鈕，完成菜單設(shè)計(jì)，在對(duì)應(yīng)事件窗口中編寫如下代碼：PrivateSubClose_Click()’單擊關(guān)閉命令的處理函數(shù)UnloadMeEndSubPrivateSubPri_Click()’單擊輸出命令的處理函數(shù)Labell．Caption="模擬考試"EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題考查用RemoveItem方法刪除列表框中指定的項(xiàng)目。其格式為：列表框．RemoveItem索引值。RemoveItem方法從列表框中刪除以“索引值”為地址的項(xiàng)目，該方法每次只能刪除一個(gè)項(xiàng)目。Listlndex屬性是已被選中的表項(xiàng)的位置。如果沒有選中任何項(xiàng)，ListIndex的值將設(shè)置為-1。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)List控件添加到窗體中，其名稱為Listl，在其List屬性欄中輸入元素，每輸入一個(gè)后按“Ctrl+enter”組合鍵換行輸入下一個(gè)元素，當(dāng)輸入完成后，按回車鍵。雙擊List進(jìn)入代碼編寫窗口，編寫如下代碼：PrivateSubListl_Click()Listl．RemovehemListl．ListIndex’removeltem的參數(shù)是索引號(hào)EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在名稱為Forml的窗體上畫兩個(gè)圖片框，名稱分別為Pl、P2，高度均為1900，寬度均為1700。通過屬性窗口把圖片文件picl．bmp放入P1中，把圖片文件pic2：jpg放入P2中；再畫一個(gè)命令按鈕，名稱為Cl，標(biāo)題為“交換圖片”(如圖l-208所示)。編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，如果單擊“交換圖片”按鈕，則在Pl中顯示pic2．jpg，在P2中顯示pic1．bmp。程序中不得使用任何變量，也不能使用第三個(gè)圖片框。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt3．vbp，窗體文件名為sjl3．frm。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，請(qǐng)?jiān)诖绑w上畫兩個(gè)復(fù)選框，名稱分別為Chl、Ch2，標(biāo)題分別為“程序設(shè)計(jì)”、“數(shù)據(jù)庫原理”；然后畫一個(gè)文本框，名稱為Textl；再畫一個(gè)命令按鈕，名稱為Cl，標(biāo)題為“確定”(如圖1-209所示)。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，選中復(fù)選框并單擊“確定”按鈕，就可以按照下表的要求把結(jié)果顯示在文本框中。存盤時(shí)，工程文件名為sjt4．vbp，窗體文件名為sjt4．frm。注意：考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前，必須進(jìn)行產(chǎn)生表1-9一個(gè)結(jié)果的操作。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟l：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Forml中如表2-122畫出所列控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫命令按鈕的Click事件過程：參考代碼：PriVateSubC1_Click()Picl．Picture=LoadPicture(App．Path+"＼pic2．bmp")Pic2．Picture=LoadPicture(App．Path+"＼picl．bmp")EndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟l：打開考生文件中的本題工程文件sjt3．vbp，如表2-123在窗體中畫出控件并設(shè)置屬性。步驟2：在代碼編輯窗口，編寫“確定”按鈕的單擊事件。參考代碼：PrivateSubC1_C1ick()Textl．Text="我選的課是"IfChl．ValueThenTextl．Text=Textl．Text+Chl．CaptionEndIfIfCh2．Value=1ThenTextl．Text=Textl．Text+Ch2．CaptionEndIfEndSub步驟3：按要求將文件保存壘考生文件夾中。知識(shí)點(diǎn)解析：第1小題本題要求在程序運(yùn)行后，單擊“交換圖片”命令按鈕時(shí)，交換兩個(gè)圖片框中的圖片。因此可在命令按鈕的Click事件過程中，通過LoadPicture()函數(shù)分別為兩個(gè)圖片框重新加載圖片。App．Path可返回當(dāng)前工程文件所在的文件夾路徑，是使用相對(duì)路徑的一種用法。第2小題為實(shí)現(xiàn)本題所要求的功能可在“確定”按鈕的單擊事件過程中，先設(shè)置文本框的初始內(nèi)容為“我選的課是”，然后用兩個(gè)If語句分別判斷兩個(gè)復(fù)選框是否選中，若選中則將其對(duì)應(yīng)信息輸入文本框中。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件execise39.vbp及窗體文件execise39.frm。在窗體Form1上給出了所有控件和不完整的程序，請(qǐng)去掉程序中的注釋符“’”，把程序中的問號(hào)“?”改為正確的內(nèi)容。本程序的功能是：如果單擊“讀取”按鈕，則把考生目錄下的in39.txt文件中的15個(gè)姓名讀到數(shù)組a中，并在窗體上顯示這些姓名：當(dāng)在Text1中輸入一個(gè)姓名，或一個(gè)姓氏后，如果單擊“查找”按鈕，則進(jìn)行查找，若找到，就把所有與Text1中相同的姓名或所有具有Text1中姓氏的姓名顯示在Text2中(如下圖所示)：若未找到，則在Text2中顯示“不存在!”：若Text1中沒有查找內(nèi)容，則在Text2中顯示“未輸入查找內(nèi)容!”。注意：考生不得修改程序的其他部分和控件的屬性，最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：知識(shí)點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml標(biāo)題為“選課”的窗體上畫一個(gè)復(fù)選框數(shù)組，名稱為CH1，共有四個(gè)復(fù)選框，按順序其標(biāo)題分別是“數(shù)學(xué)”、“語文”、“外語”、“計(jì)算機(jī)”，其中“語文”、“計(jì)算機(jī)”復(fù)選框處于選中狀態(tài)，運(yùn)行時(shí)的窗體如圖1-86所示。請(qǐng)畫控件并設(shè)置相應(yīng)屬性。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjt1．frm。(2)在名稱為Forml的窗體上畫一個(gè)名稱為HS1的水平滾動(dòng)條，其刻度值范圍為1～100；畫一個(gè)命令按鈕，名稱為c1，標(biāo)題為“移動(dòng)滾動(dòng)框”。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，每單擊命令按鈕一次(假定單擊次數(shù)少于10次)，滾動(dòng)框向右移動(dòng)10個(gè)刻度。運(yùn)行時(shí)的窗體如圖1-87所示。要求程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjl2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程。步驟2：在窗體Forml中加入一個(gè)復(fù)選框．并用“復(fù)制”和“粘貼”的方法，生成包含四個(gè)元素的復(fù)選框數(shù)組。步驟3：分別設(shè)置窗體和復(fù)選框數(shù)組中各元素的相關(guān)屬性，其屬性及值如表2-44所示。步驟4:按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟l：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程。步驟2：在窗體Forml中加入一個(gè)命令按鈕，分別設(shè)置它們的相關(guān)屬性，其屬性及值如表2-45所示。步驟3：在代碼編輯窗口，編寫命令按鈕的Click事件過程。參考代碼：PriVateSubC1_Click()HSl．Value=HSI．Value+10EndSub步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題復(fù)選框(Check．Box)組常用于提供多個(gè)選項(xiàng)間的多重選擇，Value屬性值決定每個(gè)復(fù)選框的選中狀態(tài)：O—Unchecked為未選，1一Checked為選中，2一Grayed為禁用(以灰色呈現(xiàn))。選擇某復(fù)選框后，該復(fù)選框?qū)@示“√”，而取消選擇后，“√”消失。本題只需按要求畫出控件數(shù)組，并設(shè)置其Value屬性。第2小題滾動(dòng)條分為水平滾動(dòng)條(HscrollBar)和垂直滾動(dòng)條(VscrollBar)兩種，常用來提供簡便的定位或用于取代數(shù)據(jù)的鍵盤輸入。通過調(diào)整滾動(dòng)條滑塊的位置即可改變其Value屬性的值，滾動(dòng)條的Max屬性、Min屬性限定了滾動(dòng)條所能表示的最大值和最小值，即Value屬性值的取值范圍，在程序中改變Value屬性的值，滾動(dòng)條滑塊會(huì)隨之移動(dòng)到相應(yīng)位置。LargeChange屬性用于設(shè)置當(dāng)點(diǎn)擊滾動(dòng)條滑塊與兩側(cè)箭頭間區(qū)域時(shí)、Value屬性值的改變量，SmallChange屬性用于設(shè)置當(dāng)點(diǎn)擊滾動(dòng)條兩側(cè)箭頭時(shí)Value屬性值的改變量。本題只需要在單擊命令按鈕時(shí)改變滾動(dòng)條的Value值即可。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp。窗體上有名稱為Timerl的定時(shí)器，以及名稱為Line1和Line2的兩條水平直線。請(qǐng)用名稱為Shape1的形狀控件，在兩條直線之間畫一個(gè)寬和高都相等的形狀，其顯示形式為圓，并設(shè)置適當(dāng)屬性使其滿足以下要求：①圓的頂端距窗體Forml頂端的距離為360．②圓的顏色為紅色(紅色對(duì)應(yīng)的值為&H000000FF&或&HFF&)，如圖1-13所示。程序運(yùn)行時(shí)，Shapel將在Linel和Line2之間運(yùn)動(dòng)。當(dāng)Shapel的頂端到達(dá)Linel時(shí)，會(huì)自動(dòng)改變方向而向下運(yùn)動(dòng)；當(dāng)ShapeI的底部到達(dá)Line2時(shí)，會(huì)改變方向而向上運(yùn)動(dòng)。文件中給出的程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確內(nèi)容，使其實(shí)現(xiàn)上述功能。注意：不能修改程序的其他部分和已給出控件的屬性。最后將修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，包含了所有控件和部分程序，如圖1-14所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，可將考生文件夾下in4．dat文件中的100個(gè)整數(shù)讀到數(shù)組a中；②單擊“計(jì)算”按鈕，則根據(jù)從名稱為Combol的組合框中選中的項(xiàng)目，對(duì)數(shù)組a中的數(shù)據(jù)計(jì)算平均值，并將計(jì)算結(jié)果四舍五入取整后顯示在文本框Textl中。“讀數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，請(qǐng)為“計(jì)算”按鈕編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)上述功能。注意：不得修改已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行一次計(jì)算，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序。否則無成績，最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟l：打開考生文件下的本題工程文件sjt3．vbp，在窗體上兩條水平直線間畫一個(gè)形狀控件，并如表2-10設(shè)置其屬性。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問號(hào)“?”改為正確的內(nèi)容。參考代碼：Timerl．Enabled=True工fShapel．Top<=Linl．YlThenIfShapel．．Top+Shapel．Hei．ght>=Lin2．Y1Then步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1．打開考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，編寫“計(jì)算”按鈕的單擊事件過程以及三個(gè)自定義過程。參考代碼：PrivateSubCommand2_Click()SelectCaseCombo1．ListIndexCase0Textl=even()Case1Textl=odd()Case2Textl=all()EndSelectEndSubFunctioneven()DimsAsSingle，nAsInteger。s=OFor．k=1T0100Ifa(k)／2=Fix(a(k)／2)Thens=s+a(k)n=n+lEndIfNexts=s／neven=CInt(s)EndFunctionFunctionodd()DimsASSingle，nAsInteger8=0Fork=1To100Ifa(k)／2<>Fix(a(k)／2)Thens=s+a(k)n=n+1EndIfNexts=s／nodd=CInt(s)EndFunctionFunctionall()DimsAsSingle，nAsIntegers=0Fork=1TO100s=s+a(k)Nexts=s／100all=CInt(s)EndFunction步驟2：按要求將文件保存至考生文件夾中。步驟3：按鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，然后選擇組合框中的一項(xiàng)再單擊“計(jì)算”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。知識(shí)點(diǎn)解析：第1小題①形狀控件(Shape)提供了顯示一些規(guī)則圖形的簡易方法。通過設(shè)置形狀控件Shape屬性值，可顯示6種圖形：0一矩形、l一正方形、2一橢圓、3一圓、4一圓角矩形、5一圓角正方形。Width屬性用于設(shè)置形狀的寬度，當(dāng)形狀為圓時(shí)即為圓的直徑。②Move方法用于移動(dòng)窗體或控件，其語法為：對(duì)象名．MoveLeR,Top,Width,Height。本題在計(jì)時(shí)器的Timer事件過程中，Shapel每次上下移動(dòng)的距離為s(值為負(fù)向上移動(dòng)，值為正向下移動(dòng)，初值為-40)，若Shapel向上移動(dòng)后其Top屬性值小于或等于Linel的Yl(或Y2)屬性值，則s取其相反數(shù)，Shapel向下移動(dòng)。若Shapel向下移動(dòng)后其Top屬性值與其Width屬性值之和大于或等于Line2的Yl(或Y2)屬性值，則s再取其相反數(shù)，Shapel向上移動(dòng)。窗體加載時(shí)，計(jì)時(shí)器啟動(dòng)，Shapel開始在Linel和Line2之間運(yùn)動(dòng)。第2小題調(diào)用過程有兩種方式：一種是過程名參數(shù)1，參數(shù)2，…；另一種是Call過程名(參數(shù)1，參數(shù)2，…)。本題原程序在“計(jì)算”按鈕的單擊事件過程中，逐一檢查組合框中的列表項(xiàng)是否選中，將選中列表項(xiàng)的索引號(hào)作為判斷依據(jù)，根據(jù)選中不同的項(xiàng)來調(diào)用不同的過程。過程even用來求得數(shù)組中的偶數(shù)平均值，首先預(yù)設(shè)累加和變量s=O以及計(jì)數(shù)器n=O，然后通過一個(gè)執(zhí)行100次的For循環(huán)來遍歷整個(gè)數(shù)組，依次判斷數(shù)組元素是否為偶數(shù)，若是偶數(shù)則將其加入類價(jià)格變量s中以及令計(jì)數(shù)器加1，循環(huán)結(jié)束后用累加和除以計(jì)數(shù)器即得到平均值。同理編寫odd過程用來求得數(shù)組中奇數(shù)的平均值，all過程用來求得數(shù)組中所有數(shù)的平均值。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、數(shù)列1，1，3，5，9，15，25，41，…，的規(guī)律是從第三個(gè)數(shù)開始。每個(gè)數(shù)是它前面兩個(gè)數(shù)的和加1。在考生目錄下有一個(gè)工程文件sjt5．vbp。窗體中已經(jīng)給出了所有控件，如圖1-99所示。請(qǐng)編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)以下功能：在Textl中輸入整數(shù)40，單擊“計(jì)算”按鈕，則在Text2中顯示該數(shù)列第40項(xiàng)的值。如果單擊“存盤”按鈕，則將計(jì)算的第40項(xiàng)的值存到考生目錄下的out5．txt文件中。(提示：因數(shù)據(jù)較大，應(yīng)使用Long型變量。)注意：在結(jié)束程序運(yùn)行之前，必須單擊“存盤”按鈕，把結(jié)果存入outS．txt文件，否則無成績。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟l：打開考生文件夾下的本題工程文件sjl5．vbp。步驟2：編寫“計(jì)算”按鈕的單擊事件過程。參考代碼：Pr5．VateSubCommand1_Click()DimfAsLonga(1)=1a(2)=1Fori=3ToVal(Textl．Text)f=a(i-2)+a(i-1)+la(i)=fNextText2．Text=fEndSub步驟3：運(yùn)行程序，在文本框中輸入40，并單擊“計(jì)算”按鈕獲得一個(gè)結(jié)果，然后單擊“存盤”按鈕保存計(jì)算結(jié)果。步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：①數(shù)組使用相同的名字引用一系列變量，并用數(shù)字索引來識(shí)別它們。數(shù)組有上界和下界，數(shù)組的元素在上、下界內(nèi)是連續(xù)的。VisualBasic對(duì)每一個(gè)索引值都分配空間，所以不要不切實(shí)際地聲明一個(gè)太大的數(shù)組。在很多情況下，使用數(shù)組可以縮短和簡化程序，因?yàn)榭梢岳盟饕翟O(shè)計(jì)循環(huán)，高效處理多種情況。②可以聲明具有任何基本數(shù)據(jù)類型的數(shù)組，數(shù)組中的所有元素具有相同的數(shù)據(jù)類型，當(dāng)數(shù)據(jù)類型為Variant時(shí)，各元素能夠包含不同種類的數(shù)據(jù)(對(duì)象、字符串、數(shù)值等)。根據(jù)題意，從數(shù)列的第三個(gè)數(shù)開始，每個(gè)數(shù)是其前兩個(gè)數(shù)之和加l，數(shù)列第n項(xiàng)的值可表示為：a(i)=a(i-1)+a(i-2)+1?？梢岳肍or循環(huán)語句(循環(huán)變量i的初值為3，終值為Text1．Text)，從數(shù)列的第三個(gè)數(shù)開始，逐一計(jì)算出該數(shù)列第3-n項(xiàng)的值，計(jì)算表達(dá)式為a(i)=a(i-1)+a(i-2)+1。VB機(jī)試模擬試卷第7套一、基本操作題(本題共1題，每題1.0分，共1分。)1、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在Form1的窗體上建立一個(gè)主菜單，標(biāo)題為“操作”，名稱為Op，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“顯示”和“清除”，其名稱分別為Dis和Clea。編寫適當(dāng)?shù)氖录^程，程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在窗體上顯示“等級(jí)考試”；如果單擊“清除”命令，則清除窗體上顯示的內(nèi)容。程序的運(yùn)行情況如圖14-1所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。(2)在Form1的窗體上畫一個(gè)標(biāo)簽，其名稱為Lab1；再畫一個(gè)列表框，其名稱為L1，通過屬性窗口向列表框中添加若干個(gè)項(xiàng)目，每個(gè)項(xiàng)目的具體內(nèi)容不限，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果雙擊列表框中的任意一項(xiàng)，則把列表中的項(xiàng)目數(shù)在標(biāo)簽中顯示出來。程序中不準(zhǔn)使用任何變量，運(yùn)行情況如圖14-2所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標(biāo)準(zhǔn)答案：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。VisualBasic中，菜單被看作控件，具有屬性和事件。菜單由“菜單編輯器”來創(chuàng)建。在窗體上打印信息通過Print方法方法來實(shí)現(xiàn)。清除在窗體上的打印的信息要通過Cis方法來實(shí)現(xiàn)Cis方法清除運(yùn)行時(shí)Form或PictureBox所生成的圖形和文本：語法：Object.Clsobject代表一個(gè)對(duì)象表達(dá)式。如果省略object，則默認(rèn)為當(dāng)前的Form窗體。解題步驟：第一步：打開“菜單編輯器”，建立菜單并設(shè)置菜單屬性。菜單的屬性設(shè)置見表14-1。第二步：編寫程序代碼。參考代碼：PrivateSubClea_Click()ClSEndSubPrivateSubDis_Click()Prin"等級(jí)考試"EndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。(2)在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。雙擊控件觸發(fā)DblClick事件，ListCount屬性返回列表框中表項(xiàng)的數(shù)量。列表框中的表項(xiàng)可以通過“屬性”窗口的List屬性設(shè)置，也可以通過AddItem方法在程序中添加。本題是通過屬性窗口來設(shè)置的。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表14-2。第二步：編寫程序代碼。參考代碼：PrivateSubL1_DblClick()Lab1.Caption=L1.ListCountEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識(shí)點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。(1)在考生文件夾下有工程文件sjt3.vbp及窗體文件sjt3.frm，該程序是不完整的，請(qǐng)?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即’號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。如圖16-3所示。在名稱為Form1的窗體上有1個(gè)Labe1控件，四個(gè)Text控件及七個(gè)命令按鈕，功能為：開始啟動(dòng)工程時(shí)，界面上除“開始錄入”及“退出”按鈕之外，其他按鈕均不可用(灰色顯示)；單擊“開始錄入”按鈕之后，利用InputBox讓用戶連續(xù)且必須錄入10個(gè)數(shù)。若錄入為非數(shù)字符號(hào)，則給出警告“輸入數(shù)據(jù)無效，請(qǐng)重新輸入數(shù)值數(shù)據(jù)，請(qǐng)輸入第n個(gè)數(shù)”；錄入完畢后，“開始錄入”變灰，其他變?yōu)榭捎脿顟B(tài)；按相應(yīng)的按鈕可分別求出所錄入數(shù)據(jù)的升序、降序排列及最大數(shù)和最小數(shù)，并在右側(cè)對(duì)應(yīng)的文本框中顯示(注意用A(10)存放最大數(shù)，A(1)存放最小數(shù))；單擊“清除”按鈕將所有文本框清空。(2)在考生文件夾下有工程文件sit4.vbp及窗體文件sjt4.frm，該程序是不完整的，請(qǐng)?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即’號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。如圖16-4所示。在名稱為Form1，標(biāo)題為“求和程序”的窗體上有3個(gè)Labe1控件，2個(gè)Text控件和3個(gè)命令按鈕。該程序的主要功能是求從1到Text1中用戶輸入的任意自然數(shù)n的累加和。剛啟動(dòng)工程時(shí)，“顯示結(jié)果”和“清除”按鈕均為灰色；可以在輸入框內(nèi)輸入任意自然數(shù)(n值太大時(shí)，運(yùn)算時(shí)間將很長，建議不超過9位)。在輸入數(shù)的同時(shí)“顯示結(jié)果”變?yōu)榭捎?。?dāng)輸入為非數(shù)值時(shí)，累加結(jié)果為0；單擊“顯示結(jié)果”可以在Text2中顯示累加和，且該框內(nèi)的文字不可修改，同時(shí)“顯示結(jié)果”變灰，“清除”變?yōu)榭捎茫粏螕簟扒宄?，輸入框和顯示框均顯示“0”單擊“關(guān)閉”按鈕結(jié)束程序的運(yùn)行。標(biāo)準(zhǔn)答案：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。用數(shù)組a(10)來接收InputBox輸入的10數(shù)，InputBox的格式為：InputBox(提示[，標(biāo)題][，默認(rèn)][，X坐標(biāo)位置][，Y坐標(biāo)位置])；控件是否可用可利用其Enabled屬性設(shè)置，當(dāng)該值為True時(shí)可用，為False時(shí)不可用(灰色)；判斷是否是數(shù)字可用IsNumeric()，如果是數(shù)字返回True，否則返回False；本程序中用到的排序方法是將某一個(gè)元素做為標(biāo)桿，其后的每一個(gè)元素與其比較，若小于標(biāo)桿則兩者交換，依此類推，題中要求排完序后a(1)至a(10)依次存放大數(shù)，在文本框中顯示升序和降序的時(shí)候只要兩者反序顯示即可，即升序可依次顯示a(1)到a(10)，降序可依次顯示a(10)到a(1)。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表16-3。第二步：編寫程序代碼。程序提供的代碼：OptionExplicitDima(10)AsVariantDimiAsInteger,jAsIntegerDimmAsSinglePrivateSubCommand1_Click()’Text2.Text=Command1.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand2_Click()’Text3.Text=?Command2.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand3_Click()Fori=1To10’Text1.Text=Text1.Text&?&","NextiCommand3.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand4_Click()Fori=10To1Step-1’Text4.Text=Text4.Text&?&","NextiCommand4.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubCommand6Click()Label1.Enabled=FalseFori=1To10a(i)=InputBox("請(qǐng)輸入第"&i&"個(gè)數(shù),請(qǐng)務(wù)必輸入數(shù)值數(shù)據(jù)!","輸入")DoWhileIsNumeric(a(i))=Falsea(i)=InputBox("輸入數(shù)據(jù)無效,請(qǐng)重新輸入數(shù)值數(shù)據(jù)!!!"&"請(qǐng)輸入第"&_i&"個(gè)數(shù)","輸入")LoopNextiFori=1To9Forj=i+1To10’IfVal(a(j))?Val(a(i))Thenm=a(j)a(j)=a(i)a(i)=mEndIfNextjNextiCommand6.Enabled=FalseCommandl.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand7.Enabled=FalseEndSubPrivateSubCommand7_Click()’Text1.Text=?’Text2.Text=?’Text3.Text=?’Text4.Text=?Label1.Enabled=TrueCommand6.Enabled=TrueCommand4.Enabled=FalseCommand3.Enabled=FalseCommand2.Enabled=FalseCommandl.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubForm_Load()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand7.Enabled=FalseEndSub參考代碼：OptionExplicitDima(10)AsVariantDimiAsInteger,jAsIntegerDimmAsSinglePrivateSubCommand1_Click()Text2.Text=a(10)Command1.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand2_Click()Text3.Text=a(1)Command2.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand3_Click()Fori=1To10Text1.Text=Text1.Text&a(i)&","NextiCommand3.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand4_Click()Fori=10To1Step-1Text4.Text=Text4.Text&a(i)&","NextiCommand4.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubCommand6_Click()Label1.Enabled=FalseFori=1To10a(i)=InputBox("請(qǐng)輸入第"&i&"個(gè)數(shù),請(qǐng)務(wù)必輸入數(shù)值數(shù)據(jù)!","輸入")DoWhileIsNumeric(a(i))=Falsea(i)=InputBox("輸入數(shù)據(jù)無效,請(qǐng)重新輸入數(shù)值數(shù)據(jù)!!!"&"請(qǐng)輸入第"&i&_"個(gè)數(shù)","輸入")LoopNextiFori=1To9Forj=i+1To10IfVal(a(j))＜Val(a(i))Thenm=a(j)a(j)=a(i)a(i)=mEndIfNextjNextiCommand6.Enabled=FalseCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand7.Enabled=FalseEndSubPrivateSubCommand7_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Label1.Enabled=TrueCommand6.Enabled=TrueCommand4.Enabled=FalseCommand3.Enabled=FalseCommand2.Enabled=FalseCommand1.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubForm_Load()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand7.Enabled=FalseEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。(2)控件是否可用可利用其Enabled屬性設(shè)置，當(dāng)該值為True時(shí)可用，為False時(shí)不可用(灰色)；計(jì)算從1到n的數(shù)字的和可從1開始向后計(jì)算，每一步計(jì)算的結(jié)果都保留然后再用上一步計(jì)算的值和后面的數(shù)字計(jì)算；清除可使文本框的內(nèi)容置空來實(shí)現(xiàn)(文本框.Text="")；顯示結(jié)果框內(nèi)的文字不可修改，是通過Locked屬性變?yōu)門rue時(shí)鎖定的。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表16-4。第二步：編寫程序代碼：程序提供的代碼：OptionExplicitPrivateSubCommandlClick()DimiAsDoubleDimsumAsDoubleDimnAsDoublesum=0n=Val(Text1.Text)Fori=1Ton’sum=?Next1’Text2.Text=?Command1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2Click()’Text1.Text=?’Text2.Text=?Command1.Enabled=TrueCommand2.Enabled=FalseEndSubPri