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

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