VB機試模擬試卷11（共27題）

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