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

VB機試模擬試卷9（共9套）（共27題）VB機試模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫一個名稱為CDl的通用對話框，通過屬性窗口設(shè)置CDI的初始路徑為C：＼，默認的文件名為None，標題為“保存等級考試”，如圖1-44所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上設(shè)計一個菜單。要求在窗體上添加名為menu0，標題為“菜單命令”的主菜單，再添加兩個名稱分別為“menul”、“menu2”，標題分別為“不可用菜單項”、“上一菜單項可用”的子菜單，并且使程序運行時，menul子菜單不可用，menu2子菜單已經(jīng)選中(運行時的效果如圖1-45所示)。再編寫適當?shù)氖录^程，使得程序運行時，單擊“上一菜單項可用”，則“不可用菜單項”變?yōu)楹谏?可用)。要求程序中不得使用變量，且只有一條語句。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．Frm標準答案：第l小題【操作步驟】步驟l：新建一個“標準EXE”工程，選擇【工程】→【部件】命令，在彈出的“部件”對話框的列表中選中“MicroSoftCommonDialogContr016．0”項目，單擊“確定”按鈕。步驟2：在窗體．Forml上畫一個通用對話框，其相關(guān)屬性設(shè)置如表2-24所示。步驟3：編寫Forml的Load事件，加入下面的代碼：CD1．ShowSave步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟l：新建一個“標準EXE”工程，打開VB菜單設(shè)計器設(shè)計菜單，各菜單項及屬性設(shè)置如表2-25所示。步驟2：打開代碼編輯窗口，編寫“上一菜單項可用”命令的Click事件過程。參考代碼：PriVateSubmenu2_Click()menul．Enabled=TrueEndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：第l小題通用對話框的InitDir屬性用于為打開或另存為對話指定初始的目錄，如果此屬性沒有指定，則使用當前目錄。通用對話框的初始路徑由InitDk屬性設(shè)置，默認文件名由FileName屬性設(shè)置，標題由DialogTitle屬性設(shè)置。第2小題①VB中的菜單是通過菜單編輯器來設(shè)計的。菜單編輯器中的基本設(shè)置項有：“標題”項，對應(yīng)出現(xiàn)在菜單中的顯示內(nèi)容；“名稱”項，系統(tǒng)識別菜單項的唯一關(guān)鍵字(不能重復(fù))；“索引”項，用于設(shè)置菜單數(shù)組中各元素的索引號；“快捷鍵”項，是一個下拉列表框，用于設(shè)置菜單項的快捷鍵；“幫助上下文”項，設(shè)置當鼠標移動到某菜單項上按鍵時顯示的幫助信息在幫助文件中的對應(yīng)位置；Visible(可見)項，用于設(shè)置控件或菜單項在程序運行時是否可見，值為’rme表示可見，值為False表示不可見；Enabled(有效)項，用于設(shè)置控件或菜單項在程序運行時是否有效，值為True時表示有效，值為False時表示無效(顯示為灰色)。通過編輯按鈕區(qū)的七個按鈕可對菜單進行添加、插入、刪除、提升(設(shè)置為上一級菜單)、縮進(設(shè)置為下一級菜單)、上移、下移等操作。②文本框的’Text屬性用于設(shè)置或返回其顯示的文本內(nèi)容。本題原程序設(shè)計思路：在“上一菜單項可用”命令的單擊事件過程中，通過語句設(shè)置“不可用菜單項”命令的Enabled屬性值為True。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sjt3．vbp，它的功能是在運行時只顯示名為Form2的窗體，單擊Form2上的“C2”按鈕，則顯示名為Forml的窗體：單擊Forml上的“Cl”按鈕，則Forml的窗體消失。這個程序并不完整，要求如下：①把Form2設(shè)為啟動窗體；把Forml上按鈕的標題改為“隱藏”，把Form2上按鈕的標題改為“顯示”。②去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盤。③工程文件和窗體文件仍以原來的文件名存盤。正確程序運行后的界面如圖l-102所示。(2)在考生文件夾下有一個工程文件sjt4．vbp，它的功能是在文本框中輸入一個整數(shù),單擊“移動”按鈕后，如果輸入的是正數(shù)，滾動條中的滾動框向右移動與該數(shù)相等的刻度，但如果超過了滾動條的最大刻度，則不移動，并且顯示“文本框中的數(shù)值太大”；如果輸入的是負數(shù)，滾動條中的滾動框向左移動與該數(shù)相等的刻度，但如果超過了滾動條的最小刻度，則不移動，并且顯示“文本框中的數(shù)值太小”，如圖1-103所示。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的程序以原來的文件名存盤。標準答案：第l小題【操作步驟】步驟l：打開考生文件夾下的本題工程文件sjt3．vbp，然后將按鈕C1的Caption屬性設(shè)置為“隱藏”，將按鈕C2的Caption屬性設(shè)置為“顯示”。步驟2：選擇【工程】一【工程屬性】命令，打開“工程屬性”對話框，設(shè)置Form2為啟動窗體。步驟3：打開Form2和FormI的代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：PriVateSubC1_Click()Forml．Visible=FalseEndSubPriVateSubC2_Click()Forml．Visible=TrueEndSub步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：IfHSl．Value+Textl．Text>HSl．MaxThenMsgBox”文本框中的數(shù)值太大”ElseIfHSl．Value+Textl．Text知識點解析：第l小題從本題題目要求及所提供原程序可知，程序運行時首先顯示窗體Form2，然后在Form2的“顯示”按鈕的單擊事件過程中，通過設(shè)置窗體Forml的Visible屬性值為True來顯示該窗口。第2小題本題程序設(shè)計思路：在“移動”按鈕的單擊事件過程中，首先判斷滾動條在當前位置基礎(chǔ)上移動與文本框中輸入數(shù)值相等的刻度時，是否超過滾動條Max屬性值的限制，若是則彈出消息框顯示“文本框中的數(shù)值太大”；否則接著判斷滾動條在當前位置基礎(chǔ)上移動與文本框中輸入數(shù)值相等的刻度時，是否超過滾動條．Min屬性值的限制，若是則彈出消息框顯示“文本框中的數(shù)值太小”，否則設(shè)置滾動條的Value屬性值為原有Value屬性值加上文本框中的輸入值。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生目錄下有一個工程文件sjt5．vbp。其功能是產(chǎn)生并顯示一個數(shù)列的前n項。數(shù)列產(chǎn)生的規(guī)律是：數(shù)列的前2項是小于10的正整數(shù)，將此2數(shù)相乘，若乘積<10，則以此乘積作為數(shù)列的第3項；若乘積≥10，則以乘積的十位數(shù)為數(shù)列的第3項，以乘積的個位數(shù)為數(shù)列的第4項。再用數(shù)列的最后2項相乘，用上述規(guī)則形成后面的項，直至產(chǎn)生了第n項。窗體上部從左到右三個文本框的名稱分別為：Textl、Text2、Text3，窗體下部的文本框名稱為。Text4。程序運行時，在Textl、Text2中輸入數(shù)列的前兩項，Text3中輸入要產(chǎn)生的項數(shù)n，單擊“計算”按鈕則產(chǎn)生此數(shù)列的前n項，并顯示在Text4中。如圖1-230所示。注意：文件中已經(jīng)給出了全部控件，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。不得修改原有程序和控件的屬性。最后把修改后的文件按原文件名存盤。標準答案：【操作步驟】步驟1：打開考生文件中的本題工程文件sjt．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Text4=Text4&a&""&ba=bIfk<=nThenb=d步驟2：按要求將文件保存至考生文件夾中。知識點解析：While循環(huán)和Do循環(huán)是用條件來控制的循環(huán)。Do循環(huán)語句的功能是：當指定的“循環(huán)條件”為真或直到指定的“循環(huán)條件”變?yōu)檎嬷爸貜?fù)執(zhí)行循環(huán)體。根據(jù)題意，數(shù)列第n項的值源于該項前兩項的乘積。本題原程序中，將文本框Textl的輸入值賦予變量a作初值，將文本框Text2的輸入值賦予變量b作初值，并把a、b初值作為數(shù)列的前兩項。故第一個?處應(yīng)改為．b。將文本框Text3的輸入值賦予變量n，以標記數(shù)列最終要生成的項數(shù)。變量k用于記錄數(shù)列當前項數(shù)，初值為2。在Do循環(huán)中，首先將a、b的乘積賦予變量c(當前項數(shù)k增1)，然后判斷c的值是否小于10，若c小于10則c即為數(shù)列的第3項，并將b的值賦予變量a，c的值賦予變量b，以便計算數(shù)列下一項的值；若c不小于10，則取a和b乘積十位上的數(shù)(即d=c＼10)作數(shù)列的第3項，將d的值賦予變量a(當前項數(shù)k增1)，并進一步判斷當前k值是否小于或等于最終要生成的項數(shù)n，若是則取a和b乘積個位上的數(shù)(即d=cMod10)作數(shù)列的第4項，將d的值賦予變量b，以便計算數(shù)列下一項的值。重復(fù)執(zhí)行循環(huán)體，即可依次求出數(shù)列后續(xù)項的值。VB機試模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Form1的窗體上建立兩個命令按鈕，名稱分別為Command1和Commarld2、標題分別為“顯示”和“刪除”，一個名稱為：Pic1的圖片框。要求程序運行后，每單擊一次“顯示”按鈕，不使用任何變量而直接在圖片框中顯示“Picture1”；如果單擊“刪除”按鈕，則清除圖片框中的文本，如圖6—1所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj1．frm，工程文件名為sj1．vbp。(2)在名稱為Form1的窗體上建立一個名稱為List1的列表框。在程序運行后，通過Form_Load()事件過程加載窗體時，執(zhí)行語句List1．AddItem“Item1”和List1．AddItem“Item2”，每當單擊列表項時，就將執(zhí)行語句List1．AddItemList1．Text一次。如圖6—2所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為si2．vbp。標準答案：(1)命令按鈕的標題由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。打印信息用Print方法，清除用Cls方法。根據(jù)題意，新建“標準EXE”工程，在窗體中添加一個圖片框控件和兩個命令按鈕，將兩個命令按鈕的Caption屬性為“顯示”和“刪除”，然后雙擊Commandl進入代碼窗VI，編寫如下代碼：PrivateSubCommandlClick()’顯示"Picturel"Picl．Print"Picturel"EndSubPrivateSubCommand2_Click()’清除"Picturel"Picl．ClsEndSub單擊按鈕運行程序，并按要求保存。(2)本題主要考查列表框控件的事件和方法。列表框用于在很多項目中做出選擇的操作。向列表框中添加項目既可以在屬性窗口進行，也可以在程序代碼中進行。單擊列表框中的項目觸發(fā)Click事件，題目要求使用AddItem方法給列表框添加項目，所以應(yīng)該將Listl．AddItemListl．Text語句寫入列表框的Click事件中。根據(jù)題意，新建“標準EXE”工程，將列表框控件添加到窗體上。然后設(shè)置其名稱為Listl，然后雙擊Forml，進入代碼編寫窗口，輸入以下代碼：PrivateSubForm_Load()List1．Addltem"Iteml"List1．AddItem"Item2"EndSubPrivateSubListl_Click()Listl．AddltemListl．TextEndSub單擊按鈕運行程序，并按要求保存。知識點解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sj3．vbp，在窗上設(shè)置4個標簽，名稱分別為Labell、Label2、Label3、Label4，標題分別為“工廠A用煤量”、“工廠B用氣量”、“共用煤”、“共用氣”；設(shè)置4個文本框，名稱分別為Textl、Text2、Text3、Texl4，內(nèi)容為空。另設(shè)一個命令按鈕，名稱為Commandl，標題為“計算”。要求考生編寫程序，求解用煤用氣問題。其中Textl與Text2中輸入的數(shù)值為A的用煤量和B的用氣量Text3與Text4用來顯示共用煤量和共用氣量。該問題描述為：A的用氣量是B的用氣量的3倍，B的用煤量是A的用煤量的2倍，共用多少煤、多少氣?程序運行時的窗體界面如圖53—3所示。注意：請去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容。但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有工程文件sj4．vbp及窗體文件sj4．frm，該程序是不完整的。在窗體Form1中有兩個文本框，名稱分別為Text1與Text2。要求在Textl中最多只能輸入5個字符，多余字符在Text2中顯示出來，如圖53—4所示。1注意：請有“?”號的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。標準答案：(1)本題方法相當于求解一個簡單的二元一次方程題，或者說是求兩個一元一次方程題。即x+2x=a，3y+y=b。根據(jù)題意，將4個文本框控件、4個標簽和一個命令按鈕添加到窗體中，文本框的名稱分別為Textl、Text2、Text3和1ext4，Text屬性都為空，標簽的Caption屬性分別為“工廠A用煤量”“工廠B用氣量”“共用煤”“共用氣”，命令按鈕的名稱為Commandl、Caption屬性為“計算”。雙擊Commandl進入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()Text3．Text=Val(Textl．Text)+2*Val(Textl．Text)’將用煤量在Text3中顯示Text4．Text=3*Val(Text2．Text)+Val(Text2．Text)’將用氣量在Text4中顯示EndSub單擊按鈕運行程序，并按要求保存。(2)本題主要考查文本框的事件和方法。Change事件是當用戶向文本框中輸入新信息，或當程序把Text屬性設(shè)置為新值從而改變文本框的Text屬性時觸發(fā)的；SetFocus是文本框中較常用的方法，其格式為：[對象．]SetFocus。該方法可以把輸入光標(焦點)移到指定的文本框中。LostFocus事件是當通過Tab鍵切換或單擊等操作使對象獲得焦點時觸發(fā)的事件；GotFocus實現(xiàn)當文本框具有輸入焦點(即處于活動狀態(tài))時，鍵盤上輸入的每個字符都將在該文本框中顯示出來。本題功能描述為：每往Textl中輸入內(nèi)容(觸發(fā)其Change事件)，判斷文本當前字符數(shù)是否超過5個(含5個)，若是，將焦點移到Text2。根據(jù)題意，將兩個文本框控件添加到窗體中，文本框的名稱分別為Textl和Text2，Text屬性都為空。雙擊Text進入代碼窗口，編寫如下代碼：PrivateSubTextl_Change()DimiAsIntegerDimstrAsStringIfLen(Textl．Text)>=5Then’判斷Textl中的字符串長度是否大于等于5Text2．SetFocus’如果是，則焦點在Text2中EndIfEndSub單擊按鈕運行程序，并按要求保存。知識點解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sj5．vbp在名稱為Forml的窗體上畫一個文本框，名稱為Textl，允許多行顯示；再域三個命令按鈕，名稱分別為Commandl、Command2和Command3，標題分別為“讀取文本”、“大寫”和“保存”，運行界面如圖48—5所示。請編寫適當?shù)氖录^程，使得在運行時，單擊“讀取文本”按鈕，則從考生文件夾中讀入sjin．txt文件(文件中只有字母和空格)，放入Textl中；單擊“大寫”按鈕，則把Textl中的所有小寫字母轉(zhuǎn)換為大寫字母；單擊“保存”按鈕，則把Textl中的內(nèi)容存人sjout．txt文件中。注意：去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，考生必須把轉(zhuǎn)換后的內(nèi)容用“保存”按鈕存入sjout．txt文件，否則無成績?？忌墓こ涛募晕募鹲j5．vbp存盤，窗體文件以文件名si5．frm存盤。標準答案：文本框的MuhiLine屬性設(shè)置其是否能多行顯示，為T1。ue表示能多行顯示，為False表示不能多行顯示。ScrollBars屬性設(shè)置其是否有滾動條，值為0時表示沒有滾動條，值為1時表示有水平滾動條，值為2時表示有垂直滾動條，值為3時表示水平、垂直滾動條都有。對文件的操作一般包括以下步驟：打開或建立文件；進行讀／寫操作；關(guān)閉文件。要將字符串的小寫字母轉(zhuǎn)換成大寫字母，可以通過UCase函數(shù)實現(xiàn)。UCase函數(shù)將小寫字母轉(zhuǎn)換成大寫字母，而大寫或非字母字符均保持不變。其語法格式為：UCase(string)。省略string為任何有效的字符串表達式。根據(jù)題意，將一個文本框控件和3個命令按鈕添加到窗體中，文本框的名稱為Textl、MultiLine屬性為True、ScrollBar屬性為2，命令按鈕的名稱分別為Commandl、Command2和Command3，Caption分別為“讀取文本”、“大寫”和“保存”，設(shè)置完成后雙擊Commandl進入代碼編寫窗口，其中Mid()函數(shù)是將字符串中的字符提取出來，以判斷字符是不是小寫字母，EOF()函數(shù)判斷文件是否讀取完成，補充后的具體代碼如下：DimrelAsStringPrivateSubCommandl_Click()DimstrAsStringstr=""Textl．Text=""’初始化Textl的文本Open”App．Pathg&＼sjin．txt”ForInputAs#1’打開文件，進行讀取WhileEOF(1)=False’斷文件是否讀取完Input#1．str’讀取文本Textl．Text=Textl．Text+strWendClose#1EndSubPrivateSubCornmand2_Click()Textl．Text=Ucase(Textl．Text)EndSubPrivateSubCommand3_Click()Open”App．Path&＼sjout．txt”ForOutputAs#2Print#2，Textl．Text’將Textl中的文本存入文件中Close#2EndSub單擊按鈕運行程序，并按要求保存。知識點解析：暫無解析VB機試模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Form1的窗體上放置一個名稱為Drive1的DriveListBox控件，一個名稱為Dir1的DirListBox控件和一個名稱為Filel的FileListBox控件。程序運行時，可以對系統(tǒng)中的文件進行瀏覽；當雙擊File1中的文件名時，用MsgBox顯示文件名(不顯示路徑名)。如圖16-1所示。注意：程序中不得使用任何變量；保存時必須存放在考生文件夾下，窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。(2)在名稱為Form1的窗體上放置一個名為Text1的文本框控件和一個名為Timer1的計時器控件，程序運行后，文本框中顯示的是當前的時間，而且每一秒文本框中所顯示的時間都會隨時間的變化而改變。注意：程序中不得使用任何變量；保存時必須存放在考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp，如圖16-2所示。標準答案：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。文件系統(tǒng)控件有3種：驅(qū)動器列表框(DriveListBox)，目錄列表框(DirListBox)和文件列表框(FileListBox)。3個文件系統(tǒng)控件必須協(xié)調(diào)工作才能構(gòu)成一個文件管理系統(tǒng)，當用戶在驅(qū)動器列表框中選擇一個新的列表框或在當目錄列表框Path的屬性改變都觸發(fā)Change事件，將三者(利用本題中3個對象的名稱)實現(xiàn)同步的代碼為：File1.Path=Dir1.Path，Dir1.Path=Drive1.Drive。雙擊觸發(fā)DblClick事件彈出MsgBox顯示文件名，其格式為：MsgBox提示[,按鈕][,標題]。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表16-1。第二步：編寫程序代碼。參考代碼：OptionExpliCitPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubFile1_dblClick()MsgBoxFilel.FileNameEndSubPrivateSubForm_Load()Dir1.Path=Drive1.DriveFile1.Path=Dir1.PathEndSub第三步：調(diào)試并運行程序。第四步：按題目要求存盤。(2)在窗體上建立好控件后，先設(shè)置控件的屬性，再編寫事件過程。時鐘控件作用是以一定的時間間隔激發(fā)計時器事件(Timer)而執(zhí)行相應(yīng)程序代碼，其Interval屬性決定時間間隔的長短，以毫秒為單位，所以要實現(xiàn)每一秒文本框的時間改變只要使該屬性設(shè)置為1000即可，要使程序運行后取得當前時間可用Time函數(shù)取得，程序用到的Str函數(shù)將其中的內(nèi)容轉(zhuǎn)化為字符串。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表16-2。第三步：調(diào)試并運行程序。第四步：按題目要求存盤。知識點解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。(1)在考生文件夾下有一個工程文件sjt3.vbp，窗體上有一個單選按鈕數(shù)組，含三個單選按鈕，均沒有標題，請利用“屬性”窗口為單選按鈕依次添加標題為“北京”、“上?！?、“廣州”；再添加一個標題為“顯示”的命令按鈕，如圖18-3所示。程序的功能是在運行時，如果選中一個單選按鈕后，單擊“顯示”按鈕，則根據(jù)單選按鈕的選中情況，在窗體上顯示“我的出生地是北京”、“我的出生地是上?！被颉拔业某錾厥菑V州”。要求：依次添加單選按鈕標題為“北京”、“上?！薄ⅰ皬V州”；設(shè)初始選中的是“廣州”，添加命令按鈕標題為“顯示”；去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的其他屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4.vbp，請在Form1窗體中畫三個標簽，名稱分別為B1、B2和L1，標題分別為“字號”、“字體”、“計算機等級考試”，其中L1的高為500，寬為3000；再在B1和B2標簽的下面畫兩個組合框，名稱分別為Cb1和Cb2，并為Cb1添加項目：“10”、“15”和“20”，為Cb2添加項目：“黑體”、“隸書”和“宋體”，以上請在設(shè)計時實現(xiàn)。請編寫適當?shù)氖录^程，使得程序在運行時，當在Cb1中選一個字號，在Cb2中選一個字體，標簽11中的文字立即變?yōu)檫x定的字號和字體。程序運行界面如圖18-4所示。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運行之前，必須選擇一個字號和字體。必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，按原文件名存盤，程序中不能使用任何變量。標準答案：單選按鈕的標題由Caption屬性設(shè)置，檢測單選按鈕的狀態(tài)通過Value屬性來實現(xiàn)。如果單選按鈕被選中，則Value值為1；沒選中，Value值為0。當建立控件數(shù)組時，系統(tǒng)給每個元素賦一個惟一的索引號(Index)，通過屬性窗口的Index屬性，可以知道該控件的下標是多少；在窗體上顯示信息通過Print方法實現(xiàn)，其形式為：[對象.]print要顯示的內(nèi)容。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見表18-3。第二步：編寫程序代碼。程序提供的代碼：PrivateSubC1_Click()’Fori=?To?’IfOp1(i)．?=TrueThen’Print"我的出生地是"+Op1(i).?EndIfNextEndSub參考代碼：PrivateSubC1_Click()Fori=0ToOp1.Count-1IfOp1(i).Value=TrueThenPrint"我的出生地是"+Op1(i).CaptionEndIfNextEndSub第三步：調(diào)試并運行程序。第四步：按題目要求存盤。(2)在窗體上建立好控件后，先設(shè)置控件的屬性，再編寫事件過程。標簽的標題由Caption屬性設(shè)置，控件的高和寬分別由Height和Width屬性來設(shè)置?？丶拿Q由Name屬性設(shè)置，向組合框添加項目有兩種方法，可以在“屬性”窗口的List屬性里直接添加，也可以在代碼中添加。題目要求在設(shè)計時添加。字體和字號分別由控件FontSize屬性和FontName屬性來設(shè)置。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見表18-4。第二步：編寫程序代碼。參考代碼：PrivateSubCb1_Click()L1.Font.Size=Cb1.TextEndSubPrivateSubCb2_Click()L1.Font.Name=Cb2.TextEndSubPrivateSubFormUnload(CancelAsInteger)DimiAsLong，jAsLongOpen"out4.txt"ForOutputAs#1Fori=0ToCb1.LiStCount-1Cb1.ListIndex=iForj=0ToCb2.ListCount-1Cb2.ListIndex=jPrint#1，Cb1.Text&Cb2.Text&CInt(L1.Font.Size)&L1.FontNextjNextiClose#1EndSub第三步：調(diào)試并運行程序。第四步：按題目要求存盤。知識點解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。在考生文件夾下有工程文件sjt5.vbp及窗體文件sjt5.frm，該程序是不完整的，請在有?號的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即’號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。如圖17-5所示。在名稱為Form1，標題為“分蘋果”的窗體上，有名稱為Frame1，標題為“分蘋果大賽”的一個Frame控件。其中包括4個Picture控件、4個Labe1控件和4個Command控件。具體如下：PicSmile(0)～(1)為Tom和Marry的笑臉圖案,PicCry(0)～(1)為哭臉圖案；PicSmile(0)和PicCry(0)重疊，PicSmile(1)和PicCry(1)重疊。按Command1(0)和Command1(1)時，Labe1(0)和labe1(1)減少。當Labe1(0)或Labe1(1)的值為零時，相對應(yīng)的Command按鈕失效(變灰)；按Command2(0)和Command1(1)時，Labe1(0)和Labe1(1)增加。程序啟動時兩人均為笑臉。兩人當中所分蘋果比較多的呈現(xiàn)笑臉，另一個是哭臉；如果兩人的蘋果一樣多，則兩人都為笑臉。標準答案：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程?？丶?shù)組是由一組相同類型的控件組成，建立控件數(shù)組時系統(tǒng)給每個元素賦一個惟一的索引號(Index)，控件數(shù)組cmdName(3)表示控件數(shù)組名為cmdName的第4個元素；利用其下標號可選擇不同的控件數(shù)組元素，如：控件是否可用由其Enabled屬性決定，當該屬性值為True時可用，為False時不可用(灰色)；控件是否可見由其Visible屬性決定，該值為True時，控件可見，為False時控件不可見。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表17-5。第二步：編寫程序代碼。程序提供的代碼：OptionExplicitPrivateSubCommand1_Click(IndexAsInteger)IfIndex=0ThenIfVal(Label3(0).Caption)＞1ThenCommand1(0).Enabled=TrueLabel3(0).Caption=Labe13(0).Caption-1ElseIfVal(Label3(0).Caption)=1ThenLabe13(0).Caption=Labe13(0).Caption-1EndIf’Command1(0).Enabled=EndIfElseIfVal(Label3(1).Caption)＞1ThenCommand1(1).Enabled=TrueLabel3(1).Caption=Label3(1).Caption-1ElseIfVal(Label3(1).Caption)=1ThenLabel3(1).Caption=Label3(1).Caption-1EndIfCommandl(1).Enabled=FalseEndIfEndIf’IfVal(Label3(0).Caption)?Val(Label3(1).Caption)ThenpicSmile(0).Visible=TruepicCry(0).Visible=FalsepicCry(1).Visible=TruepicSmile(1).Visible=FalseElse’IfVal(Label3(0).Caption)?Val(Label3(1).Caption)ThenpicCry(0).Visible=TruepicSmile(0).Visible=FalsepicSmile(1).Visible=TruepicCry(1).Visible=FalseElsepicSmile(0).Visible=TruepicCry(0).Visible=FalsepicSmile(1).Visible=TruepicCry(1).Visible=FalseEndIfEndIfEndSubPrivateSubCommand2_Click(IndexAsInteger)IfIndex=0Then’Label3(0).Caption=Command1(0).Enabled=TrueElse:’Label3(1).Caption=Command1(1).Enabled=TrueEndIf’IfVal(Label3(0).Caption)?Val(Label3(1).Caption)ThenpicSmile(0).Visible=TruepicCry(0).Visible=FalsepicCry(1).Visible=TruepicSmile(1).Visible=FalseElse’IfVal(Label3(0).Caption)?Val(Label3(1).Caption)ThenpicCry(0).Visible=TruepicSmile(0).Visible=FalsepicSmile(1).Visible=TruepicCry(1).Visible=FalseElsepicSmile(0).Visible=TruepicCry(0).Visible=FalsepicSmile(1).Visible=TruepicCry(1).Visible=FalseEndIfEndIfEndSubPrivateSubFormLoad()PicSmile(0).Visible=TruepicSmile(1).Visible=TrueCommand1(0).Enabled=FalseCommand1(1).Enabled=FalseEndSub參考代碼：OptionExplicitPrivateSubCommand1_Click(IndexAsInteger)IfIndex=0ThenIfVal(Label3(0).Caption)＞1ThenCommand1(0).Enabled=TrueLabel3(0).Caption=Label3(0).Caption-1ElseIfVal(Label3(0).Caption)=1ThenLabel3(0).Caption=Label3(0).Caption-1EndIfCommand1(0).Enabled=FalseEndIfElseIfVal(Label3(1).Caption)＞1ThenCommand1(1).Enabled=TrueLabel3(1).Caption=Label3(1).Caption-1ElseIfVal(Label3(1).Caption)=1ThenLabel3(1).Caption=Label3(1).Caption-1EndIfCommand1(1).Enabled=FalseEndIfEndIfIfVal(Label3(0).Caption)＞Val(Label3(1).Caption)ThenpicSmile(0).Visible=TruepicCry(0).Visible=FalsepicCry(1).Visible=TruepicSmile(1).Visible=FalseElseIfVal(Label3(0).Caption)＜Val(Label3(1).Caption)ThenpicCry(0).Visible=TruepicSmile(0).Visible=FalsepicSmile(1).Visible=TruepicCry(1).Visible=FalseElsepicSmile(0).Visible=TruepicCry(0).Visible=FalsepicSmile(1).Visible=TruepicCry(1).Visible=FalseEndIfEndIfEndSubPrivateSubCommand2_Click(IndexAsInteger)IfIndex=0ThenLabel3(0).Caption=Label3(0).Caption+1Command1(0).Enabled=TrueElse:Label3(1).Caption=Label3(1).Caption+1Commandl(1).Enabled=TrueEndIfIfVal(Label3(0).Caption)＞Val(Label3(1).Caption)ThenpicSmile(0).Visible=TruepicCry(0).Visible=FalsepicCry(1).Visible=TruepicSmile(1).Visible=FalseElseIfVal(Label3(0).Caption)＜Val(Label3(1).Caption)ThenpicCry(0).Visible=TruepicSmile(0).Visible=FalsepicSmiie(1).Visible=TruepicCry(1).Visible=FalseElsepicSmile(0).Visible=TruepicCry(0).Visible=FalsepicSmile(1).Visible=TruepicCry(1).Visible=FalseEndIfEndIfEndSubPrivateSubFormLoad()picSmile(0).Visible=TruepicSmile(1).Visible=TrueCommand1(0).Enabled=FalseCommand1(1).Enabled=FalseEndSub第三步：調(diào)試并運行程序。第四步：按題目要求存盤。知識點解析：暫無解析VB機試模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、1.在窗體上畫兩個文本框，名稱分別為T1、T2，初始情況下均為空白，編寫適當?shù)氖录^程。程序運行后，如果在T1中輸入字符，則所輸入的字符立即在T2中顯示出來，并把小寫字母轉(zhuǎn)換為相應(yīng)的大寫字母，如圖1—1所示。要求：程序中不得使用任何變量。注意：存盤時，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。2．在窗體上畫二個文本框，名稱為Text1和Text2，內(nèi)容為空；再畫二個標簽，名稱分別為L1和L2，標題分別為“輸入A，B，C：”和“A×B+C＝”；再畫一個命令按鈕，名稱為C1，標題為“運算”。編寫適當?shù)某绦?。程序運行時，在文本框Text1中輸入用逗號隔開的3個整數(shù)A、B、C，單擊“運算”按鈕，則計算出A×B+C的值，顯示在文本框Text2中。程序運行結(jié)果如圖1—2所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標準答案：①啟動VisualBasic，在窗體上畫兩個文本框。②按F4鍵激活屬性窗口，在屬性窗口中設(shè)置文本框的屬性，見表1。③編寫命令按鈕的Click事件過程：PrivateSubT1_change()T2.Text＝UCase(T1.Text)EndSub2．①對象主要屬性設(shè)置如表2所示。②分析：按試題要求在窗體上畫兩個文本框、兩個標簽和一個單選按鈕，并分別將它們的屬性按表2的內(nèi)容進行設(shè)置。Split()函數(shù)返回一個下標從零開始的一維數(shù)組，它包含指定數(shù)目的子字符串。Val()函數(shù)返回包含于字符串內(nèi)的數(shù)字，字符串中是一個適當類型的數(shù)值。CStr()函數(shù)將一數(shù)值轉(zhuǎn)換為字符串。③編程代碼：PrivateSubC1_Click()Dimaa＝Split(Text1.Text,",")Text2.Text＝CStr(Val(a(0))*Val(a(1))+Val(a(2)))EndSub知識點解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、如下圖所示，在名為Form1的窗體上建立一個名稱為Text1的文本框，然后建立兩個主菜單，標題分別為“名單”和“幫助”，名稱分別為VbMenu和vbHelp，其中“名單”菜單包括“張平”、“李杰”和“王?！?，3個菜單項，名稱分別為vbMenu1、vbMenu2和vbMenu3。要求程序運行后，如果在“名單”的下拉菜單中選擇“張平”，則在文本框內(nèi)顯示“張平”；如果選擇“李杰”則在文本框內(nèi)顯示“李杰”(如下圖所示)；如果選擇“王?！眲t在文本框內(nèi)顯示“王海”。注意：文件必須存放在考生文件夾中，窗體文件名為execise87.tim，工程文件名為execise87.Vbp。標準答案：知識點解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件execise24.vbp，相應(yīng)的窗體文件為execise24.frm，此外還有一個名為in24.txt的文本文件，其內(nèi)容如下：132423365858169854531442522473269122637545760728051327。程序運行后，單擊窗體，將把文件in24.txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中，在窗體上按5行、5列的矩陣形式顯示出來，然后計算矩陣第3行各項的和，并在窗體上顯示出來，如下圖所示。在窗體的代碼窗口中，已給出了部分程序，這個程序不完整，請把它補充完整，并能正確運行。要求：去掉程序中的注釋符“’”，把程序中的問號“?”改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標準答案：知識點解析：暫無解析VB機試模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在窗體Forml上畫一個名稱為Textl的文本框和一個名稱為Labell的標簽，程序運行時，在文本框Textl中輸入字符，文本框中的字符將值賦到Labell中。注意，本程序代碼中不得使用任何變量。程序運行時的窗體界面如圖50—l所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sil．vbp。(2)在窗體Forml中畫一個文本框，名稱為Textl、內(nèi)容為空。要求設(shè)置適當?shù)目丶傩?，使得程序運行時，可以多行顯示且具備垂直滾動條。要求程序中不得有任何變量。程序運行時的窗體界面如圖50一2所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標準答案：(1)本題考查控件畫法、文本框的屬性及其Change事件。文本框的Text屬性設(shè)置或返回其顯示的文本內(nèi)容，當在文本框中輸入文本時將觸發(fā)其Change事件。根據(jù)題意，新建“標準EXE”工程，將一個標簽和一個文本框控件添加到窗體中，標簽的名稱為Labell、Caption屬性為空，文本框的名稱為Textl、Text屬性為空。雙擊Textl進入代碼窗口，編寫如下代碼：PrivateSubTextl_Change()Labell．Caption=Textl．Text’將Textl中的文本在Labell中顯示出來EndSub單擊按鈕運行程序，并按要求保存。(2)本題考查文本框多種屬性的設(shè)置。文本框(TextBox)一般用于接收或顯示輸入／輸出的信息。文本框的Text屬性設(shè)置或返回其顯示的文本內(nèi)容；MultiLine屬性設(shè)置文本框是否允許以多行顯示文本，值為True表示允許，值為False表示不允許；ScrollBars屬性設(shè)置文本框是否有水平或垂直滾動條，0、1、2、3四種值：0表示沒有滾動條(默認值)；1表示只有水平滾動條；2表示只有垂直滾動條；3表示有水平和垂直滾動條，設(shè)置0以外的值時MultiLine屬性值必須為True。根據(jù)題意，新建“標準EXE”工程，將一個文本框控件添加到窗體中，其名稱為Textl、MultiLine屬性為True、ScrollBar控件為2。單擊按鈕運行程序，并按要求保存。知識點解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在名稱為Forml的窗體上繪制兩個名稱分別為Labell和Label2的標簽，標題分別為“項數(shù)”和“新添”；繪制兩個名稱分別為Textl和Text2的文本框，沒有初始內(nèi)容；繪制一個名稱為Combo1的下拉式組合框，并通過屬性窗口輸入若干項目(不少于5個，內(nèi)容任意)；再繪制兩個命令按鈕，名稱分別為Commandl和Command2、標題分別為“添加”和“項數(shù)”，運行界面如圖38—3所示。在運行時，向Textl中輸入字符，單擊“添加”按鈕后，則Textl中的內(nèi)容作為一個列表項被添加到組合框的列表中；單擊“項數(shù)”按鈕，則在窗體上顯示組合框中列表項的個數(shù)。請編寫兩個命令按鈕的Click事件過程。注意：程序中不得使用變量，也不能使用循環(huán)。存盤時必須存放在考生文件夾下，工程文件名為sj3．vbp，窗體文件名為sj3．frm。(2)在考生文件夾下有1個工程文件sj4．vbp，該程序用來對在上面文本框中輸入的英文字母串(稱為“明文”)加密，加密結(jié)果(稱為“密文”)顯示在下面的文本框中。加密的方法是：選中1個單選按鈕，單擊“加密”按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字n，把明文中的每個字母改為它前面的第n個字母(“a”前面的字母認為是“z”，“Z”后面的字母認為是“A”)，如圖38—4所示。注意：窗體中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容。不能修改程序中的其他部分和控件的屬性。最后把修改后的文件按原文件名存盤。標準答案：(1)根據(jù)題意，新建“標準EXE”工程，將兩個文本框控件、兩個命令按鈕、兩個標簽和一個ComboBox控件添加到窗體中，文本框的名稱分別為Textl和Text2、Text屬性都為空，命令按鈕的名稱分別為Commandl和Command2、Caption屬性分別為“添加”和“項數(shù)”，標簽的Caption屬性分別為“項數(shù)”和“新添”，ComboBox的名稱為Comb01，Style設(shè)為2。AddItem方法用來向組合框中添加一個表項，其格式為：組合框．AddItem列表項[索引]。ListCount屬性返回組合框中列表項的個數(shù)。雙擊Commandl，進入代碼編寫窗口，具體代碼如下：PrivateSubCommandlClick()’單擊添加Comb01．AddItemText2．Text’向Comb01中添加Text2的文本EndSubPrivateSubCommand2_Click()’單擊項數(shù)Textl．Text=Comb01．ListCount’將Comb01的項數(shù)賦給TextlEndSub單擊按鈕運行程序，并按要求保存。(2)本題首先要確定移動的位數(shù)，移動的位數(shù)是由單選按鈕的Caption屬性確定的，然后要確定循環(huán)的次數(shù)，循環(huán)的次數(shù)是由輸入字母的個數(shù)來確定的。對于字符串，需要對字符進行逐個處理。使用Asc()函數(shù)來獲得字符的ASCII碼，Chr()函數(shù)將ASCII碼轉(zhuǎn)換成字符，先獲得移位后的ASCII碼值，保證符合條件，然后再轉(zhuǎn)換成字符。Mid函數(shù)的格式為：Mid(字符串，P，n)，表示從第P個字符開始，向后截取n個字符，P和n都是算術(shù)表達式。Mid函數(shù)的第三個變量可以省略，這樣將從第P個字符開始向后截取到字符串的結(jié)尾。雙擊Commandl進入代碼編寫窗口，具體代碼如下：PrivateSubCommandl_Click()DimstrAsStringDimtmpAsStringDimiAsIntegerDimindAsIntegerIfOptionl．Value=TrueThenind=1’當選中Optionl時，則移1位ElseIfOption2．Value=TrueThenind=2’當選中Option2時，則移2位Elseind=3’當選中Option3時，則移3位EndIfstr=""Fori=1ToLen(Textl．Text)tmp=Mid(Textl．Text，i，1)’一個一個讀人字符IfAsc(tmp)<=Asc("z")AndAsc(tmp)>=Asc("A")Then’當輸人為字母時加密IfAsc(trap)<=Asc("z")AndAsc(tmp)>=Asc("a")Thentmp=Chr((Asc(tmp)-ind-Asc("a")+26)Mod26+Asc("a"))’右移ind位，以26為循環(huán)周期Else’當輸入為大寫字母時tmp=Chr((Asc(tmp)-ind-Asc("A")+26)Mod26+Asc("A"))’右移ind位，以26為循環(huán)周期EndIfEndIfstr=str+tmp’將字符串連起來NextiText2．Text=str’在Textl中顯示加密后的字符串EndSub單擊按鈕運行程序，并按要求保存。知識點解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sj5．vbp，其窗體上有一個文本框，名稱為Textl；有三個命令按鈕，名稱分別為Commandl、Command2和Command3，標題分別為“輸入”、“計算顯示”和“保存”，運行界面如圖45—5所示。在給定程序中有一個函數(shù)過程isPrimeNum，其功能是判斷參數(shù)是否為素數(shù)，如果是素數(shù)，則返回True，否則返回False。請將程序中有問號(即“?”)的地方替換為相應(yīng)的代碼，使得在運行時，單擊“輸入”按鈕，彈出“輸入”對話框，單擊“計算顯示”按鈕，則找出大于輸人參數(shù)的最小素數(shù)，并顯示在Textl中；單擊“保存”按鈕，則把Textl中的計算結(jié)果存入考生文件夾下的out5．txt文件中。注意：去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實現(xiàn)下述功能，但不能修改程序中的其他部分，也不能修改控件的其他屬性。最后把修改后的文件按原文件名存盤?？忌坏眯薷膇sPrimeNum函數(shù)過程和控件的屬性，必須把計算結(jié)果通過“保存”按鈕存入out5．txt文件中，否則無成績。標準答案：判斷一個數(shù)是否為素數(shù)就是看該數(shù)是否除了1及其本身外別無其他約數(shù)(即從2到n-1之間沒有可以將其整除的數(shù))即可，從Function函數(shù)中可知，變量isPrimeNum用于保留判斷數(shù)是否是素數(shù)的結(jié)果，值為True表示是素數(shù)，值為False表示不是素數(shù)。文本框通過Text屬性顯示計算結(jié)果，其形式為：文本框名．Text=要顯示的內(nèi)容。將數(shù)據(jù)寫入文件可用命令Write#語句或Print#語句，本程序中用的是前者，其形式為：Write#文件號，[輸出列表]。根據(jù)題意，將一個文本框控件和3個命令按鈕添加到窗體中，文本框的名稱為Textl，Text屬性為空，命令按鈕的名稱分別為Commandl，Command2和Command3，Caption屬性分別為“輸入”、“計算顯示”和“保存”。雙擊Commandl進入代碼窗口，編寫如下代碼：DimaAsIntegerDimresAsIntegerPrivateSubCommandlClick()a=Val(InputBox("輸入?yún)?shù)："))’彈出輸入對話框EndSubPrivateSubCommand2_Click()WhileisPrimeNum(a)=False’如果輸入?yún)?shù)不是素數(shù)則繼續(xù)循環(huán)a=a+1WendTextl．Text=a’將獲得的素數(shù)在Textl中顯示出來EndSubFunctionisPrimeNum(numAsInteger)AsBoolean’判斷輸入是否為素數(shù)isPrimeNum=TrueDimiAsIntegerFori=2Tonum-1IfnumModi=0ThenisPrimeNum=FalseEndIfNextiEndFunctionPrivateSubCommand3Click()OpenApp．Path&"out．txt"ForOutputAs#1Write#l，aClose#1EndSub單擊按鈕運行程序，并按要求保存。知識點解析：暫無解析VB機試模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上畫兩個標簽(名稱分別為Labell和Label2，標題分別顯示為“姓名”和“年齡”)、兩個文本框(名稱分別為Textl和Text2，初使內(nèi)容均為空)和一個命令按鈕(名稱為Commandl，標題為“顯示”)。然后編寫命令按鈕的Click事件過程。程序運行后，在兩個文本框中分別輸入姓名和年齡，然后單擊“顯示”按鈕，則在窗體上顯示兩個文本框中的內(nèi)容，如圖42—1所示。注意：要求程序中不得使用任何變量。存盤時必須存放在考生文件夾下，工程文件名保存為sil．vbp，窗體文件名保存為sjl．frm。(2)在名稱為Forml的窗體上畫一個圖片框(其名稱為Picturel)、一個水平滾動條(名稱為HScrooll1)和一個命令按鈕(名稱為Commandl)，標題為“設(shè)置屬性”，通過屬性窗口在圖片框中裝入一個圖形(文件名為picl．jpg，位于考生目錄下)，圖片框的高度與圖形的高度相同，圖片框的寬度任意(如圖42—2所示)。編寫適當?shù)氖录^程，程序運行后，如果單擊命令按鈕，則設(shè)置水平滾動條的如下屬性：之后就可以通過移動滾動條上的滾動塊來放大或縮小圖片框。程序運行后的窗體如圖42—3所示。注意：要求程序中不得使用任何變量。存盤時必須存放在考生文件夾下，工程文件名為si2．vbp，窗體文件名為si2．frm。標準答案：(1)根據(jù)題意，新建“標準EXE”工程，將2個標簽控件、2個文本框控件、1個命令按鈕控件添加到窗體中，2個標簽控件名稱分別為Labell和Label2，Caption屬性分別為“姓名”和“年齡”，2個文本框控件名稱分別為Textl和Text2，Text屬性都為空，命令按鈕Caption屬性為“顯示”。雙擊進入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()Forml．PrintTextl．Text&"，現(xiàn)年"&Text2．Text&"歲"EndSub單擊按鈕運行程序，并按要求保存。(2)根據(jù)題意，新建“標準EXE”工程，將一個圖片框控件、水平滾動條控件和命令按鈕添加到窗體中，圖片框控件名稱為Picturel，AutoSize屬性為“True”，Picture設(shè)置為picl．jpg，水平滾動條控件名稱為HScrolll，命令按鈕控件名稱為Commandl，Caption屬性為“設(shè)置屬性”。雙擊進入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()HScrolll．Max=1500HScrolll．Min=100HScrolll．LargeChange=100HScrolll．SmallChange=10EndSubPrivateSubHScrolll_Change()Picturel．Width=HScrolll．ValueEndSub單擊按鈕運行程序，并按要求保存。知識點解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、在考生文件夾中有一個工程文件execise45.vbp和窗體文件execise45.frm。它的功能是在運行時只顯示名為Form2的窗體，單擊Form2上的“上線”命令按鈕，則顯示名為Form1的窗體；單擊Form1上的“隱身”命令按鈕，則Form1的窗體消失。這個程序并不完整，要求：(1)把Form2設(shè)為啟動窗體；把Form1上按鈕的標題改為“隱身”，把Form2上按鈕的標題改為“上線”。(2)去掉程序中的注釋符“’”，把程序中的問號“?”改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不得修改程序的其他部分。最后把修改后的文件存盤。(3)工程文件和窗體文件仍按原名保存。正確程序運行后的界面如卜圖所示。標準答案：知識點解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件Sj5．vbp，窗體上有一個文本框，名稱為Textl，可以多行顯示。還有3個命令按鈕，名稱分別為Commandl、Command2和Command3，標題分別為“讀取數(shù)據(jù)”、“降序排列”和“保存”?！白x取數(shù)據(jù)”按鈕的功能是從考生文件夾下的in5．dat文件中讀取40個整數(shù)到數(shù)組中，并在Textl中顯示出來；“降序排列”按鈕的功能是對這40個數(shù)降序排序，并顯示在Textl中；“保存”按鈕的功能是把排好序的40個數(shù)存到考生文件夾下的out5．dat文件中。程序運行界面如圖38—5所示。注意：在窗體中已經(jīng)給出了全部控件和部分程序，要求閱讀程序并去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。標準答案：本題在排序中，使用雙重循環(huán)，外循環(huán)每循環(huán)一次，確定內(nèi)循環(huán)的次數(shù)，內(nèi)循環(huán)就是把本次循環(huán)中最小的數(shù)，放在數(shù)組的最后面，這樣就可以實現(xiàn)對40個數(shù)的降序排序。原代碼補充后如下：Dima(40)AsLongDimstr(40)AsStringDimtexAsStringDimiAsIntegerPrivateSubCommandlClick()’讀取數(shù)據(jù)tex=""Open"App．Path&＼in5．dat"ForInputAs#1Fori=1To40Input#1，a(i)’逐個讀取40個數(shù)據(jù)str(i)=a(i)tex：tex+str(i)+""’將數(shù)組放到一個字符串中NextiClose#1Textl．Text=tex’在Textl中顯示字符串EndSubPrivateSubCommand3Click()’保存數(shù)據(jù)Open"App．Path&＼out5．dat"ForOutputAs#1Print#1，Textl．TextClose#1EndSub并在Command2的Click事件中編寫以下代碼：PrivateSubCommand2Click()Fori=1To40’降序排列temp=a(i)Forj=1ToiIfa(j)按鈕運行程序，并按要求保存。知識點解析：暫無解析VB機試模擬試卷第7套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)新建一個工程，包含兩個窗體，窗體文件名為sjll．frm和sjl2．frm，名稱分別為Forml和Form2，F(xiàn)orml上包含一個計時器Timerl，兩個窗體上均包含一個標簽。運行后，在Forml的標簽上顯示“祝您”，時間為3秒，3秒后，F(xiàn)orml消失，F(xiàn)orm2出現(xiàn)，在標簽上面顯示“考試成功”。程序中不得使用任何變量，程序運行時的窗體界面如圖23—1所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj11．frm和sj12．frm工程文件名為sj1．vbp。(2)在窗體上繪制一個命令按鈕，名稱為Commandl、標題為“剪切粘貼”．兩個名稱分別為Textl和Text2的文本框控件。請編寫適當?shù)氖录^程，使得程序在運行時，單擊“剪切粘貼”按鈕，Textl中的內(nèi)容將在Text2中顯示，同時將Text1中的內(nèi)容刪除。程序中不得使用任何變量，程序運行時的窗體界面如圖23—2所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標準答案：(1)本題主要考查窗體設(shè)計和Timer控件的使用。根據(jù)題意，新建“標準EXE”工程，將一個Label添加到窗體Forml中，其Caption屬性為“祝您”，再添加一個Timer控件，設(shè)置其Interval屬性為3000毫秒，名稱為Timerl，再添加一個名為Form2的窗體，并添加一個標簽，其Caption屬性為“考試成功”。在Forml的Timerl控件中編寫如下代碼：PrivateSubTimerl_Timer()Forml．HideForm2．Show’調(diào)用Form2EndSub單擊按鈕運行程序，并按要求保存。(2)根據(jù)題意，新建“標準EXE”工程，將一個Command控件和兩個Text控件添加到窗體上，Command的名稱為Commandl、Caption屬性為“剪切粘貼”，Text的名稱分別為Textl和Text2，Text屬性都為空。雙擊Commandl命令按鈕，編寫如下代碼：PrivateSubCommandl_Click()Text2．Text=Textl．Text’在Text2中顯示Textl的內(nèi)容Textl．Text""’清空Textl中的內(nèi)容EndSub單擊按鈕運行程序，并按要求保存。知識點解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在名稱為Forml的窗體中畫一個名稱為Textl的文本框，再添加一個名稱為Timer1的計時器。請設(shè)置適當?shù)目丶傩圆⒕帉戇m當?shù)氖录^程，使得程序在運行時，每隔3秒鐘文本框中的數(shù)字加1，如圖62—3所示。程序中不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為sj3．vbp，窗體文件名為sj3．frm。(2)在考生文件夾下有一個工程文件sj4．vbp和窗體文件sj4．frm，要求程序運行后，單擊可以選擇列表中的多項。而如果單擊“輸出”按鈕，則在Labell上輸出所有選中的列表項，如圖62—4所示。注意：修改列表框的適當屬性，使得運行時可以多選并去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原來的文件名存盤。標準答案：(1)根據(jù)題意，新建“標準EXE”工程，將一個文本框控件和一個計時控件添加到窗體中，文本框的名稱為Textl、Text屬性為“0”，Timer的名稱為Timerl、Interval屬性為3000(毫秒)。雙擊Timerl，進入代碼窗口，編寫如下代碼：PrivateSubTimerl_Timer()Textl．Text=Val(Textl．Text)+1’每執(zhí)行一次數(shù)值加1EndSub單擊按鈕運行程序，并按要求保存。(2)根據(jù)題意，將一個List控件、一個標簽和一個命令按鈕添加到窗體中，列表框的名稱為Listl，在其List屬性中添加以下6項：“Iteml”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，每輸入一個后按“Ctrl+Enter”組合鍵換行輸入下一個元素，當輸入完成后，按回車鍵，則元素添加完成，標簽的名稱為Labell、Caption屬性為空，命令按鈕的名稱為Commandl、Caption屬性為“輸出”。雙擊Commandl進入代碼編寫窗口，編寫如下代碼：PrivateSubCommandl_Click()DimstrAsStringDimiAsIntegerstr=""Fori=0ToListl．ListCount-1’利用for循環(huán)來逐個判斷List項是否被選中IfListl．Selected(i)=TrueThenstr=str+Listl．List(i)+vbCrLf’如果被選中，則放入到str字符串中EndIfNextiLabell．Caption=str’在Labell中輸出字符串EndSu