VB機(jī)試模擬試卷22（共18題）

VB機(jī)試模擬試卷22（共6套）（共18題）VB機(jī)試模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Form1的窗體上畫一個命令按鈕，名稱為Commandl、標(biāo)題為“退出”、高為500、寬為1200。窗體的標(biāo)題為“退出”，窗體標(biāo)題欄上不顯示最大化、最小化。編寫適當(dāng)?shù)氖录^程，使程序運(yùn)行時，單擊Commandl命令按鈕，退出窗體。程序運(yùn)行時的窗體界面如圖27—1所示。注意：存盤時必須保存到考生文件夾下，工程文件名為sj1．vbp，窗體的文件名為sjl．frm。(2)在名稱為Form1的窗體上畫一個空白文本框，名稱為Textl，其寬為1000、高度為400；再畫一個水平滾動條，名稱為HScrolll，其刻度值范圍是500～1500。請編寫滾動條的Change事件過程．程序運(yùn)行后，如果移動滾動框，則可按照滾動條的刻度值改變文本框的寬度，如圖27—2所示。程序中不能使用任何變量。注意：保存時必須存放到考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，將一個命令按鈕添加到窗體中，名稱為Commandl、Caption屬性為“退出”，將Forml的Caption屬性設(shè)為“退出”，MaxButton屬性為False、MinButton屬性為False。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()UnloadMe’關(guān)閉窗口EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題考查控件畫法、水平滾動條(HScrollBar)相關(guān)屬性和事件。滾動條常用于取代數(shù)據(jù)的鍵盤輸入，通過調(diào)整滾動條滑塊的位置即可改變其Value屬性的值。滾動條的Max屬性、Min屬性限定了滾動條所能表示的最大值和最小值，即Value屬性值的取值范圍。滾動條滑塊移動時觸發(fā)其Change事件，編寫代碼：Textl．Width=HScrolll．Value，即可實(shí)現(xiàn)移動滾動框來改變文本框的寬度。根據(jù)題意，將一個水平滾動條控件和一個文本框控件添加到窗體中，水平滾動條的名稱為HScrolll，Min屬性為500、Max屬性為1500，文本框的名稱為Textl、Width屬性為500、Height屬性為400，設(shè)置完成后雙擊HScrolll，進(jìn)入代碼窗口，編寫如下代碼：PrivateSubHScroll1_Change()Textl．Width=HScrolll．Value’根據(jù)HScrolll的值來改變Textl的寬度EndSub知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在名稱為Form1的窗體上建立兩個主菜單，其標(biāo)題分別為“文件”和“編輯”，名稱分別為vbFile和vbEdit，在“文件，，菜單下有三個子菜單項，標(biāo)題分別為“打開”、“保存”和“關(guān)閉”，名稱分別為vbOpen、vbSave和vbClose。要求程序運(yùn)行后，如果選中“文件”下的某個菜單項，則通過MsgB0x對話框顯示該菜單項的標(biāo)題，如圖6—3所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj3.frm，工程文件名為si3．vbp。(2)在考生文件夾下有工程文件sj4．vbp及窗體文件sj4．frm。該程序是不完整的。在窗體上建立一個名稱為Comrnand1，標(biāo)題為“計算”的命令按鈕，再建立一個名稱為Text1的文本框。運(yùn)行界面如圖6—4所示。要求程序運(yùn)行后，若單擊“計算”按鈕，將計算200～350之間所有素數(shù)的和，在文本框中顯示結(jié)果，同時把結(jié)果存入文件out．txt中。(在考生文件夾中有標(biāo)準(zhǔn)模塊mode．bas，其中的writedata過程可以把結(jié)果存入文件，而isprinlenum函數(shù)可以判斷整數(shù)x是否為素數(shù)，如果是素數(shù)，則函數(shù)返回True，否則返回False，考生可以把該模塊文件添加到自己的工程中。)注意：請在有“?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)本題主要考查MsgBox函數(shù)的使用。MsgBox函數(shù)用于在對話框中顯示消息，等待用戶單擊按鈕，并返回一個Integer告訴用戶單擊哪一個按鈕。其格式為：MsgBox(prompt[，buttons][，title][，helpfile，conText])。Prompt參數(shù)是必選的，是字符串表達(dá)式，作為顯示在對話框中的消息；Buttons是可選的，是數(shù)值表達(dá)式值的總和，指定顯示按鈕的數(shù)目及形式；Title是可選的，是在對話框標(biāo)題欄中顯示的字符串表達(dá)式。如果省略title，則將應(yīng)用程序名放在標(biāo)題欄中；Helpfile是可選的，是字符串表達(dá)式．識別用來向?qū)υ捒蛱峁┥舷挛南嚓P(guān)幫助的幫助文件；ConText是可選的，是數(shù)值表達(dá)式，由幫助文件的作者指定給適當(dāng)?shù)膸椭黝}的幫助上下文編號。在窗體空白處單擊右鍵，按“Ctrl+E”組合鍵打開菜單編輯器，添加菜單項如下：單擊“確定”按鈕，菜單建立完成后，進(jìn)入代碼窗口編寫以下代碼：PrivateSubvbClose_Click()’關(guān)閉命令調(diào)用的函數(shù)MsgBox("關(guān)閉")EndSubPrivateSubvbOpen_Click()’打開命令調(diào)用的函數(shù)MsgBox("打開")EndSubPrivateSubvbSave_Click()’保存命令調(diào)用的函數(shù)MsgBox("保存")EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)先按要求將一個文本框控件和一個命令按鈕添加到窗體中，文本框的名稱為Text1，命令按鈕的名稱為Command1、Caption屬性為計算。然后將mode．bas模板加人到工程當(dāng)中，模板的代碼如下：FunctionisPrimeNum(numAsInteger)AsBoolean’判斷輸入是否為素數(shù)isPrimeNum=TrueDimiAsIntegerFori=2Tonum-1IfnumModi=0ThenisPrimeNum=FalseExitForEndIfNextiEndFunctionFunctionwriteData(totalAsLong)’將結(jié)果寫入out．txt文件中OpenApp．Path&．"＼out．txt"ForOutputAs#1Write#1，totalClose#1EndFunction然后單擊Commandl，進(jìn)入代碼窗口，編寫以下代碼：PrivateSubCommandl_Click()DimnAsIntegerDimtotalAsLongtotal=0Forn=200To350IfisPrimeNum(n)=TrueThen’如果是素數(shù)則累加到total中total=total+nEndIfNextnTextl．Text=IotalwriteData(total)’將結(jié)果寫入out．txt文件中EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sj5．vbp，窗體Forml上有兩個標(biāo)簽、兩個文本框與一個命令按鈕。其中命令按鈕的名稱為Commandl、標(biāo)題為“查找”；文本框的名稱分別是Textl與Text2，內(nèi)空；標(biāo)簽名稱分別是Labell與Label2，標(biāo)題為“查找內(nèi)容”、“查找結(jié)果”。窗體上給出了所有程序需要的控件，但程序代碼是不完整的，請去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容。本程序的功能是：當(dāng)在Textl中輸入一個姓氏后，如果單擊“查找”按鈕，則在in5．txt中進(jìn)行查找，若找到，就把所有與Textl中相同姓氏的姓名顯示在Text2中，如圖53—5所示；若未找到，則在Text2中顯示“未找到!”；若Textl中沒有查找內(nèi)容，單擊“查找”按鈕，則在Text2中顯示“未輸入查找內(nèi)容!”。注意：考生不得修改程序的其他部分和控件的屬性，把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：本題程序功能描述為：先用Open語句打開文件in5．txt，用While循環(huán)的Input#方法讀取文件，再判斷若有輸入，用For循環(huán)在in5．txt文件中逐一查找與Textl中內(nèi)容相符的元素，相符的標(biāo)準(zhǔn)是Textl．Text=Mid(str(i)，j，1)，若有相匹配的，則在文本框中顯示結(jié)果，若沒找到則顯示“未找到”，若Textl中未輸入內(nèi)容，則顯示“未輸入查找內(nèi)容!”的提示。補(bǔ)充后的代碼如下：Dimstr()AsStringDimnumAsIntegerDimrelAsStringPrivateSubCommandl_Click()DimtmpAsStringDimjAsIntegerDimiAsIntegernum=0rel=""Open”App．Patb&＼in5．txt”ForInputAs#1’打開文件進(jìn)行讀取WhileEOF(1)=False’判斷是否讀取到文件末尾Input#1，tmpnum=num+1’獲得字符串個數(shù)WendClose#1ReDimstr(num)’重新分配數(shù)組控件Open"App．Path&＼in5．txt"ForInputAs#1Fori=1TonumInput#1，str(i)’讀取字符串?dāng)?shù)組NextiClose#1Fori=1Tonum’利用For循環(huán)進(jìn)行查找Forj=1ToLen(str(i))’逐個字符查找IfTextl．Text=Mid(str(i)，i，1)Thenrel=rel+str(i)+""’將查找到的結(jié)果放人字符串中Elsej=j+1’如果沒有查找則計數(shù)加1EndIfNextjNextiIfrel=""Thenrel="未找到!"’如果沒有查找到則顯示"未找到"EndIfIfTextl．Text=""Thenrel="未輸入查找內(nèi)容!"EndIfText2．Text=rel’在Text2中顯示結(jié)果EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上畫一個名稱Checkl的復(fù)選框數(shù)組(Index屬性從0開始)，含4個復(fù)選框，其標(biāo)題分別為“Iternl”、“Item2”、“Itern3”和“Item4”。利用屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使“Iteml”未選，“Item2”、“Item3”被選中，“Item4．”為灰色，程序運(yùn)行時的窗體界面如圖64—1所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sj1．frm。(2)在窗體上畫一個命令按鈕。其名稱為Commandl，標(biāo)題為“清空標(biāo)題”，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，窗體的標(biāo)題為“模擬考試”，如圖64—2所示，如果單擊命令按鈕，則清除窗體的標(biāo)題，如圖64—3所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標(biāo)準(zhǔn)答案：(1)本題考查在窗體中加入控件數(shù)組及復(fù)選框控件(CheckBox)的使用。復(fù)選框組可用于實(shí)現(xiàn)多重選擇，每個復(fù)選框的選中狀態(tài)由其Value屬性值決定：0為未選；1為選中；2為不可用(即灰色)。根據(jù)題意，將一個復(fù)選框控件添加到窗體中，其名稱為Checkl，再選中此復(fù)選框，復(fù)制、粘貼，在彈出的對話框中選擇‘‘是”，即創(chuàng)建含有4個控件的控件數(shù)組。Index屬性分別為0、1、2、3，Caption屬性分別為“heml”、“hem2”、“hem3”和“Item4”，“Iteml，，的Value屬性為0，“Item2’’和“hem3”的Value屬性為1，“Item4”的Value屬性為2。單擊按鈕運(yùn)行程序，并按要求保存。、(2)本題考查命令按(CommandButton)控件的畫法和窗體相關(guān)屬性，以及簡單的事件過程編寫。根據(jù)題意，將一個命令按鈕添加到窗體中，其名稱為Commandl、Caption屬性為。“清空標(biāo)題”，F(xiàn)orml的Caption屬性為“模擬考試”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()Forml．Caption=""EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有工程文件sj3．vbp及窗體文件sj3．frm，該程序是不完整的。在窗體上建立一個列表框、一個組合框和兩個命令按鈕。程序運(yùn)行后，在列表框中選擇所需要的項目，單擊“導(dǎo)出”按鈕，把所選擇的項目移到組合框中。如果單擊“導(dǎo)人”按鈕，則把組合框中所選擇的項目移到列表框中。程序運(yùn)行時的窗體界面如圖50—3所示。注意：請在有“?”號的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。(2)在考生文件夾下有工程文件sj4．vbp及窗體文件sj4．frm，該程序是不完整的。本題在窗體Forml中有一個文本框，名稱為Textl；另有一個命令按鈕，名稱為Commandl，標(biāo)題為“判斷”。要求該應(yīng)用程序具有數(shù)據(jù)過濾功能，即檢查用戶在文本框中輸入的數(shù)值是否在能被3整除。如果是，則退出程序；否則在文本框巾顯示“不能被3整除”，同時使焦點(diǎn)重新回到文本框中。程序運(yùn)行時的窗體界面如圖50—4所示。注意：請在有“?”號的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)列表框控件用于顯示可供單一或多個選擇的列表項。給列表框添加列表項既可以在設(shè)計階段通過其List屬性設(shè)置加入(注意每輸入完一項后按“Ctrl+Enter”組合鍵換行再輸人下一項)，也可在程序運(yùn)行時通過代碼“列表框名．AddItem“巧目”加入”；MultiSelect用于設(shè)置是否可在列表項中做多個選擇，值為0(缺省設(shè)置)表示不允許做多項選擇，值為1表示允許做簡單多項選擇，值為2表示允許按住“Shift+Ctrl”鍵做多項選擇；Selected(Index)屬性用于設(shè)置或返回指定索引號的列表項選擇狀態(tài)(索引號從0開始)，值為True表示被選中，值為False表示未被選中；List(Index)屬性用于設(shè)置或返回指定索弓1號的列表項的內(nèi)容；ListCount屬性用來返回列表框中當(dāng)前的列表項條數(shù)；RemoveItem方法用于刪除指定索引號的列表項。根據(jù)題意，將一個列表框控件、一個組合框ComboBox控件和兩個命令按鈕添加到窗體中，列表框的名稱為Listl、Sorted屬性為True，ComboBox的名稱為Comb01，命令按鈕的名稱分別為Commandl和Command2，Caption屬性分別為“號出”和“導(dǎo)入”。雙擊Commandl進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：PrivateSubCommandl_Click()IfListl．Listlndex>-1Then，’如果Listl有選中項Comb01．AddItemListl．List(Listl．ListIndex)’將Listl中的選中項添加到Combol中Listl．RemoveItem(Listl．Listlndex)’將選中項從Listl中刪除EndIfEndSubPrivateSubCommand2_Click()IfComb01．ListIndex>-1Then，’如果Combol有選中項則執(zhí)行Listl．AddhemCombo1．List(Comb01．Listlndex)’將Comb01的選中項添加到List中Comb01．RemoveItemComb01．ListIndex’將選中項從Combol中刪除EndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題主要考查考生對SetFocus方法和LostFocus事件的掌握。當(dāng)按鍵盤上“Tab”鍵或單擊其他對象時，當(dāng)前對象將失去焦點(diǎn)并觸發(fā)LostFocus事件；SetFocus方法用于將焦點(diǎn)移到擗定的對象上。題目要求文本框應(yīng)具有數(shù)據(jù)過濾功能，即當(dāng)在文本框中輸入數(shù)據(jù)時，會自動完成對輸入數(shù)據(jù)的檢查，故要用SetFocus方法使文本框獲取焦點(diǎn)。根據(jù)題意，將一個命令按鈕和一個文本框控件添加到窗體中，命令按鈕的名稱為Commandl、Caption屬性為“判斷”，文本框的名稱為Textl、Text屬性為空。雙擊Commandl，進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()DimaAsIntegera=Val(Textl．Text)’讀取Textl中讀取的數(shù)IfaMod3=0ThenUnloadMe’當(dāng)能被3整除時，關(guān)閉窗口ElseTextl．Text="不能被3整除"’當(dāng)不能被3整除時，在Textl中顯示Textl．SetFocusEndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件Sj5．vbp，窗體上有一個文本框，名稱為Textl，可以多行顯示。還有3個命令按鈕，名稱分別為Commandl、Command2和Command3，標(biāo)題分別為“讀取數(shù)據(jù)”、“降序排列”和“保存”?！白x取數(shù)據(jù)”按鈕的功能是從考生文件夾下的in5．dat文件中讀取40個整數(shù)到數(shù)組中，并在Textl中顯示出來；“降序排列”按鈕的功能是對這40個數(shù)降序排序，并顯示在Textl中；“保存”按鈕的功能是把排好序的40個數(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)對40個數(shù)的降序排序。原代碼補(bǔ)充后如下：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)按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在Forml的窗體上建立一個主菜單，標(biāo)題為“命令”，名稱為Com，該菜單有3個子菜單，其標(biāo)題分別為“輸出”、“刪除”和“關(guān)閉”，其名稱分別為Prin、Del和Close。編寫適當(dāng)?shù)氖录^程，程序運(yùn)行后，如果單擊“命令”菜單中的“輸出”命令，則在窗體上顯示“HelloWorld!”；如果單擊“刪除”命令，則刪除窗體上顯示的內(nèi)容，“關(guān)閉”命令為關(guān)閉對話框。程序的運(yùn)行情況如圖37—1所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sjl．frm。(2)在Form1的窗體上畫一個標(biāo)簽，其名稱為Labell；再畫一個列表框，其名稱為Listl，通過屬性窗口向列表框中添加若干個項目，每個項目的具體內(nèi)容不限，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果雙擊列表框中的任意一項，則把列表中的項目序號數(shù)和項目文本在標(biāo)簽中顯示出來。程序中不準(zhǔn)使用任何變量，運(yùn)行情況如圖37—2所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)VisualBasic中，菜單也具有屬性和事件。菜單由“菜單編輯器”來創(chuàng)建。在窗體上打印信息通過Print方法來實(shí)現(xiàn)。清除在窗體上的打印信息要通過Cls方法來實(shí)現(xiàn)，Cls方法清除運(yùn)行時Form或PictureBox所生成的圖形和文本。其語法為：object．Cls。object表示一個對象表達(dá)式。如果省略object，則默認(rèn)為當(dāng)前的Form窗體。根據(jù)題意，在窗體空白處單擊右鍵，選擇“菜單編輯器”，進(jìn)人“菜單編輯器”對話框，添加以下菜單項：設(shè)置完成后，在代碼窗口編寫如下代碼：PrivateSubClose_Click()’關(guān)閉命令UnloadMeEndSubPrivateSubDel_Click()’刪除命令Me．ClsEndSubPrivateSubPrin_Click()’輸出命令Print"HelloWorld!"EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)雙擊控件觸發(fā)其DblClick事件。列表框中的表項可以通過“屬性”窗口的List屬性設(shè)置，也可以通過AddItem方法在程序中添加。本題是通過屬性窗口來設(shè)置的。根據(jù)題意，將一個列表框控件和一個標(biāo)簽添加到窗體中，列表框的名稱為Listl，在List屬性中添加“足球”“籃球”“排球”和“乒乓球”，每輸人完一項按“Ctrl+Enter”組合鍵換行，進(jìn)行新的輸入，當(dāng)輸入完成后，按回車鍵，標(biāo)簽的名稱為Labell、Caption屬性為空。雙擊Listl進(jìn)入代碼編寫窗口，將選中項的序號和內(nèi)容連在一起放人Labell中顯示出來，注意題目要求程序中不得使任何變量，應(yīng)該編寫如下代碼：PrivateSubListl_DblClick()Labell．Caption=Str(Listl．Listlndex+1)+Listl．List(Listl．ListIndex)EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)考生文件夾下有一個工程文件sj3．vbp。程序的功能是：通過鍵盤向文本框中輸入數(shù)字，如果輸入的是非數(shù)字字符，則提示輸入錯誤，且文本框中不顯示輸入的字符。單擊名稱為Commandl、標(biāo)題為“添加”的命令按鈕，則將文本框中的數(shù)字添加到名稱為Comb01的組合框中。在給出的窗體文件中已經(jīng)添加了全部控件，但程序不完整。要求去掉程序中的注釋符(即“’”)，把程序中的“?”改為正確的內(nèi)容。注意：不能修改程序中的其他部分和其他控件的屬性。最后把修改后的文件按原文件名存盤。(2)在考生目錄下有一個工程文件sj4．vbp。該程序的功能是計算M!+(M+1)!+(M+2)!+…+N!之和。窗體上有名稱分別為Textl、Text2的兩個文本框，用于接收輸入的M和N(要求M標(biāo)準(zhǔn)答案：(1)本題主要考查組合框的List屬性，文本框的Text屬性，MsgBox()函數(shù)以及If判斷語句。根據(jù)題意，編寫如下代碼：PrivateSubCommandl_Click()Comb01．AddItemTextl．TextTextl．Text=""EndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii>57OrKeyAscii<48ThenMsgBox"請輸入數(shù)字!"KeyAscii=0EndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題主要考查標(biāo)簽的Caption屬性，Val()函數(shù)和For循環(huán)語句。根據(jù)題意，編寫如下代碼：PrivateSubCommandl_Click()DimmAsIntegerDimnAsIntegerDimSAsLongDimiAsIntegerDimtAsIntegerm=Val(Textl．Text)n=Val(Text2．Text)s=0Fori=mTont=f(i)s=s+tNextilblResult．Caption=sEndSubPrivateFunctionf(ByRefxAsInteger)AsLongDimtAsLongt=1Fori=1Toxt=t*iNextif=tEndFunction單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在名稱為Form1的窗體上畫一個文本框，名稱為Text1，MultiLine屬性為True，ScrollBars屬性為2；兩個命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為“讀人數(shù)據(jù)”和“計算保存”，如圖3—6所示。要求程序運(yùn)行后，如果單擊“讀人數(shù)據(jù)”按鈕．則讀人in．txt文件中的100個整數(shù)，放人一個數(shù)組中(數(shù)組下界為1)，同時在文本框中顯示出來；如果單擊“計算保存”按鈕，則計算數(shù)組中大于或等于400并且小于800的所有數(shù)之和，并將結(jié)果在文本框Text1中顯示出來，同時把結(jié)果存入考生文件夾的result．txt文件中(在prog．bas中的putdata過程可以把結(jié)果存人result．txt文件)。注意：文件必須存放在考生文件夾下，窗體文件名為sj5．frm，工程文件名為sj5．vbp，計算結(jié)果存入result．txt文件中，否則沒有成績。標(biāo)準(zhǔn)答案：文本框顯示的內(nèi)容通過Text屬性設(shè)置；按鈕的標(biāo)題通過Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。本題涉及到文件的操作，讀入順序文件以順序的方式打開，用”Input#”語句讀取數(shù)據(jù)。另外需要注意的是，對文件操作結(jié)束后，一定要關(guān)閉文件。①建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性如下表所示：②打開工程資源管理器，在其空白處右鍵添加模塊prog．bas(此文件已在考生文件夾里)，模塊代碼如下：OptionExplicitSubputdata(ByValaAsLong)DimsFileAsStringsFile="＼resuh．txt"OpenApp．Path&sFileForOutputAs#1Print#1，a；Close#1EndSub③打開工程資源管理器，右擊窗體，選擇查看代碼項，在彈出的代碼窗口輸入代碼如下：Dimi(1To100)AsIntegerPrivateSubCmdlClick()DimjAsIntegerj=0OpenApp．Path&"＼in．txt"ForInputAs#1Fori=1To100Input#1，i(j)NextjClose#1Fori=iTo100Textl．Text=Textl．Text&i(j)&Space(5)NextjEndSubPrivateSubCmd2Click()DimsumASLongDimjAsIntegersum=0Textl．Text=""Forj=1To100Ifi(j)>=400Andi(j)<800Thensum=sum+i(j)EndIfNextjTextl．Text=Textl．Text&sum&Space(5)putdatasumEndSub標(biāo)準(zhǔn)模塊代碼OptionExplicitSubputdata(ByValaAsLong)DimsFileAsStringsFile="＼result．txt"OpenApp．Path&sFileForOutputAs#lPrint#1，a；Close#1EndSub知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、在Form1窗體上繪制一個名稱為Textl的文本框，然后建立一個主菜單，標(biāo)題為“操作”，名稱為Op，該菜單有兩個子菜單，其標(biāo)題分別為“顯示”和“隱藏”，名稱分別為Dis和Hid，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在文本框中顯示“計算機(jī)考試”；如果單擊“隱藏”命令，則隱藏文本框。程序的運(yùn)行情況如圖47—1和圖47—2所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sjl．vbp。(2)在名為Forml的窗體上繪制一個標(biāo)簽，名為Labl，標(biāo)題為“請輸入一個攝氏溫度”；繪制兩個文本框，名稱分別為Textl和Text2，內(nèi)容設(shè)為空；再繪制一個名為Cmdl的命令按鈕，其標(biāo)題為“華氏溫度等于”。編寫適當(dāng)?shù)某绦?，使得單擊“華氏溫度等于”按鈕時，將Textl中輸人的攝氏溫度(c)轉(zhuǎn)換成為華氏溫度(f)，轉(zhuǎn)換公式為：f=c*9／5+32，并顯示在Text2中。程序運(yùn)行結(jié)果如圖47—3所示。注意：程序中不得使用任何變量；文件必須存放在考生文件夾中，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標(biāo)準(zhǔn)答案：(1)本題主要考查菜單的使用。菜單在“菜單編輯器”中創(chuàng)建；在程序運(yùn)行時控件是否可見由該控件的Visible屬性決定，如果將該屬性設(shè)置為True時，則對象可見；如果設(shè)置為False，則隱藏該控件。①建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見下表：②編寫程序代碼。參考代碼如下：PrivateSubDisClick()Textl．Text="計算機(jī)考試"EndSubPrivateSubHidClick()Textl．Visible=FalseEndSub③調(diào)試并運(yùn)行程序。④按題目要求存盤。(2)①新建一個名為Forml的窗體。②單擊工具箱中的Label控件圖標(biāo)，在窗體上拖拉出一個標(biāo)簽，在其屬性窗口設(shè)置名稱為Labl、Caption屬性為“請輸入一個攝氏溫度”。③單擊工具箱中的CommandButton控件圖標(biāo)，在窗體上拖拉出一個命令按鈕，在屬性窗口設(shè)置該命令按鈕名稱為Cmdl、Caption為“華氏溫度等于”。④單擊工具箱中的T"extBox控件圖標(biāo)，在窗體上拖拉出兩個文本框，在屬性窗口將文本框的名稱分別設(shè)置為Textl和Text2、Text屬性設(shè)置為空。⑤打開代碼窗口輸入如下代碼：PrivateSubCmdl_Click()DimcAsSingle．fAsSinglec=Val(Textl．Text)f=c*9／5+32text2．Text=CStr(f)EndSub⑥按要求保存文件即完成本題。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有工程文件sj3．vbp與窗體文件sj3．frm，該程序和窗體是不完整的。請在窗體上設(shè)置一個標(biāo)簽，名稱為Labell，標(biāo)題為“計算1／2-1／3+1／4-1／5+1／6的值”；另設(shè)一個文本框與一個命令按鈕。命令按鈕的名稱為Commandl、標(biāo)題為“計算”；文本框的名稱為Textl，用于顯示結(jié)果，并初始化為空。然后編寫相應(yīng)的代碼，要求運(yùn)行程序時，單擊“計算”按鈕，程序可以計算出1／2-1／3+1／4-1／5+1／6的值，并將結(jié)果顯示在文本框中，如圖26—3所示。注意：考生完成程序編寫后，將工程文件與窗體文件按原文件名保存到考生文件夾下，不得更改程序的其他部分，否則可能無成績。(2)新建一個工程文件，在名稱為Forml的窗體上建立兩個名稱分別為Commandl和Command2、標(biāo)題分別為“平均分”和“清空”的命令按鈕；一個名為Textl的文本框。要求程序運(yùn)行后，單擊“平均分”按鈕，可通過輸入對話框輸入7個整數(shù)，去掉最大的和最小的然后求平均分，將結(jié)：果在文本框中顯示出來。如果單擊“清空”按鈕，則將文本框清空。在程序中不得使用任何其他變量。程序運(yùn)行時的窗體界面如圖26—4所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj4．frm，工程文件名為sj4．vbp。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，將一個Label控件，一個Text控件和一個Command控件添加到窗體上，Label的Caption屬性為“計算1／2-1／3+1／4-1／5+1／6的值”，Text的名稱分別為Textl，Text屬性為空，Command的名稱為Commandl，Caption屬性為“計算”。雙擊Commandl命令按鈕，編寫如下代碼：PrivateSubCommandl_Click()DimtotalASDoubleDimnAsIntegerDimaAsIntegertotal=0a=-1Fori=1To5a=a*(-1)total=total+a／(i+1)NextiTextl．Text=totalOpen"App．Path&＼out3．txt"ForOutputAs#1Pnt#1，Textl．TextClose1EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體上添加一個Text控件和兩個Command控件，Text的名稱為Textl、Text屬性為空，Command的名稱分別為Commandl和Command2，Caption屬性分別為“平均分”和“清空”。雙擊Commandl命令按鈕，編寫如下代碼：Dima(7)AsIntegerPrivateSubCommandlClick()DimiAsIntegerFori=1To7a(i)=Val(InputBox("請輸入第"+CStr(i)+"個得分"))NextiFori=1To7’降序排列temp=a(i)Forj=1ToiIfa(j)按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在窗體上繪制兩個命令按鈕，名稱分別為Commandl和Command2，標(biāo)題分別為“輸人”和“調(diào)換”，兩個標(biāo)簽，名稱為Labell和Label2、Caption屬性為“調(diào)換前：”和“調(diào)換后：”，兩個名稱分別為Text1和Text2的文本框控件。請編寫適當(dāng)?shù)氖录^程，從鍵盤上輸人10個整數(shù)，并放人一個一維數(shù)組中，然后將其前5個元素與后5個元素對換，即第一個元素與第10個元素互換，第2個元素與第9個元素互換第5個元素與第6個元素互換。使得在運(yùn)行時單擊“調(diào)換”按鈕，則分別在Textl和Text2中輸出數(shù)組原來的各元素的值和對換后各元素的值，如圖23—5所示。注意：去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：要對數(shù)據(jù)進(jìn)行對調(diào)，也就是數(shù)據(jù)交換，一般要借助中間變量，如本題的tmp。本題首先通過InputBox函數(shù)輸入10個數(shù)，然后通過For循環(huán)，每次循環(huán)調(diào)換一組數(shù)。補(bǔ)充后的代碼如下：Dima(10)AsIntegerPrivateSubCommandlClick()DimiAsIntegerDimstrAsStringstr=""Fori=1To10a(i)=Val(InputBox("請輸入數(shù)字"))’通過對話框輸入10個數(shù)，并放人數(shù)字中str=str+CStr(a(i))+""’將數(shù)組放入字符串中保存NextiTextl．Text=str’在Textl中顯示結(jié)果EndSubPrivateSubCommand2Click()DimtmpAsIntegerDimiAsIntegerDimstrAsStringstr=""For1=1To5tmp=a(i)’進(jìn)行對調(diào)，先將a(i)的數(shù)據(jù)放人tmp中a(i)=a(10-i+1)’將a(10-i)的數(shù)據(jù)放人a(i)中a(10-i+1)=tmp’將tmp的數(shù)據(jù)放人a(10-i)中NextiFori=1To10str=str+CStr(a(i))+""NextiText2．Text=str’將結(jié)果在Text2中顯示出來EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上建立一個主菜單，標(biāo)題為“操作”，名稱為op，該菜單有兩個子菜單，其標(biāo)題分別為“顯示”和“清除”，其名稱分別為Dis和Clear，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在窗體上顯示“等級考試”；如果單擊“清除”命令，則清除窗體上顯示的內(nèi)容。程序的運(yùn)行情況如圖1-196所示。注意；存盤時必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上畫一個標(biāo)簽，其名稱為Labl；再畫一個列表框，其名稱為L1，通過屬性窗口向列表框中添加若干項目，每個項目的具體內(nèi)容不限。編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果雙擊列表框中的任意一項，則把列表中的項目數(shù)在標(biāo)簽中顯示出來。程序運(yùn)行情況如圖1-197所示。程序中不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，選擇【工具】→【菜單編輯器】命令，打開菜單設(shè)計器，如表2-112中的設(shè)置建立菜單項。步驟2：打開代碼編輯窗口，編寫以下事件過程：參考代碼：PriVateSubClea_Click()ClsEndSubPriVateSubDis_Click()Print"等級考試"EndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，在窗體Forml中加入一個列表框，在屬性設(shè)置窗口中將其Name屬性設(shè)置為Ll，在其List屬性中任意添加四個項目。注意：每輸入完一項后按鍵換行再輸入下一項。在窗體上再畫出一個標(biāo)簽，名稱為Labl。步驟2：打開代碼編輯窗口，編寫列表框的DblClick事件過程：參考代碼：PriVateSubL1_DblClick()Labl．Caption=L1．ListCountEndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題本題需用菜單設(shè)計器建立菜單，并編寫“顯示”和“清除”菜單項的單擊事件過程。第2小題列表框控件(ListBox)用于顯示可供單一或多個選擇的列表項，給列表框添加列表項既可以在設(shè)計階段通過其List屬性設(shè)置加入，也可在程序運(yùn)行時使用Addltem方法加入，列表框中的項目總數(shù)由列表框的ListCount屬性可以得到。雙擊列表框中的某個項目，將觸發(fā)其DblClick事件。要實(shí)現(xiàn)雙擊列表框中的某一項，就把列表框中的項目總數(shù)顯示在標(biāo)簽中，只需在DblCliek事件過程中編寫添加項目的語句即可。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sjt3．vbp，其窗體上有一個名稱為Labell的控件數(shù)組，含三個標(biāo)簽，標(biāo)題分別是“開始時間”、“結(jié)束時間”和“通話費(fèi)用”；有一個名稱為Textl的控件數(shù)組，含三個初始值為空的文本框；此外還有兩個名稱分別為Cmdl和Cmd2的命令按鈕，標(biāo)題分別是“通話開始”和“通話結(jié)束”。其中通過屬性窗口對“通話結(jié)束”命令按鈕的初始狀態(tài)設(shè)置為禁用，如圖1-73所示。該程序的功能是計算公用電話計時收費(fèi)。計時收費(fèi)標(biāo)準(zhǔn)為：通話時間在3分鐘以內(nèi)時，收費(fèi)0．5元；3分鐘以上時，每超過1分鐘加收0．15元，不足1分鐘按1分鐘計算。程序執(zhí)行的操作如下：①如果單擊“通話開始”按鈕，則在“開始時間”右側(cè)的文本框中顯示開始時間，且“通話結(jié)束”命令按鈕變?yōu)榭捎脿顟B(tài)，“通話開始”命令按鈕不可用；②如果單擊“通話結(jié)束”按鈕，則“結(jié)束時間”右側(cè)的文本框中顯示結(jié)束時間，同時計算通話費(fèi)用，并將其顯示在“通話費(fèi)用”右側(cè)的文本框中，“通話開始”命令按鈕變?yōu)榭捎脿顟B(tài)，“通話結(jié)束”命令按鈕不可用。在窗體文件中已經(jīng)給出了全部控件(如圖l-73所示)和程序，但程序不完整，要求去掉程序中的注釋符，把?改為正確的內(nèi)容，以實(shí)現(xiàn)上述功能。注意；不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，文件in4．txt中有5組數(shù)據(jù)，每組10個，依次代表語文、英語、數(shù)學(xué)、物理、化學(xué)這5門課程10個人的成績。程序運(yùn)行時，單擊“讀入數(shù)據(jù)”按鈕，可從文件m4．mr中讀入數(shù)據(jù)放到數(shù)組a中。單擊“計算”按鈕，則計算5門課程的平均分(平均分取整)，并依次放入Textl文本框數(shù)組中。單擊“顯示圖形”按鈕，則顯示平均分的直方圖，如圖1-74所示。窗體文件中已經(jīng)有了全部控件，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟l：打開考生文件下的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Textl(0)．text=Str(Time())s=s+(m-3)*0．15Cmdl．Enabled=TrueCmd2．Enabled=False步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟l：打開考生文件下的本題工程文件sjt4．vbp。在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：OpenApp．Path&"＼in4．txt"ForInputAs#1s(i)=s(i)+a(i，j)8(i)=CInt(s(i)／10)Shapel(k-1)．Top=m-Shapel(k-1)．-HeightShape1．(k-1)．Visible=True步驟2：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題Enabled屬性用于設(shè)置控件或菜單項在程序運(yùn)行時是否有效，值為True時表示有效，值為False時表示無效(顯示為灰色)。題目要求在單擊“通話開始”按鈕時，在“開始時間”右側(cè)的文本框中顯示開始時間，故CmdlClick事件過程中的?處應(yīng)改為：Textl(0)．text。在單擊“通話結(jié)束”按鈕時，先計算通話時長，再計算通話費(fèi)用。若通話時長在3分鐘以上，則通話費(fèi)用為：s+(m-3)*0．15。設(shè)置Cmdl的．Enabled屬性值為True，將使“通話開始”命令按鈕變?yōu)榭捎?，設(shè)置Cmd2的Enabled屬性值為Fasle，將使“通話結(jié)束”命令按鈕不可用。第2小題“讀入數(shù)據(jù)”按鈕的單擊事件過程中，Open語句用于打開數(shù)據(jù)文件以讀入數(shù)據(jù)，故?應(yīng)改為：Input?！坝嬎恪卑粹o的單擊事件過程中，原程序用嵌套For循環(huán)來計算5門課程的平均分，其中內(nèi)循環(huán)體中變量s(i)用于統(tǒng)計：某課程的總分，表達(dá)式為：s(i)=s(i)+a(i，j)，外循環(huán)體中變量s(i)的最終值應(yīng)為某課程的平均分?！帮@示圖形”按鈕單擊事件過程的For循環(huán)中，根據(jù)每門課程的平均分，先計算出對應(yīng)直方圖的高度，然后計算該直方圖的Top屬性值(應(yīng)為水平直線的Y1(或Y2)屬性值減去直方圖的高度)，最后顯示該直方圖(通過設(shè)置其Visible實(shí)現(xiàn))。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sit5．vbp，在該工程中為考生提供了一個通用過程，考生可以直接調(diào)用。請在窗體上畫一個名稱為Textl的文本框；畫一個名稱為cl、標(biāo)題為“計算”的命令按鈕；再畫兩個單選按鈕，名稱分別為Opl、Op2，標(biāo)題分別為“求500到600之間能被7整除的數(shù)之和”、“求500到600之間能被3整除的數(shù)之和”(如圖1-225所示)。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時，選中一個單選按鈕，再單擊“計算”按鈕，就可以按照單選按鈕后的文字要求計算，并把計算結(jié)果放入文本框中，最后把已經(jīng)修改的工程文件和窗體文件以原來的文件名存盤。注意：考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前，必須至少要進(jìn)行一種計算，否則不得分。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾下的本題工程文件sit5．vbp，如表2-132所列在窗體Forml中畫出控件，分別設(shè)置它們的相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫“計算”按鈕的單擊事件過程。參考代碼：PriVateSubC1_Click()IfOpl．ValueThenTextl．Text=fun(7)EndIfIfOp2．ValueThenTextl．Text=fun(3)EndIfEndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：本題原程序中已包含一個能計算“500～600之間能被整數(shù)a整除的數(shù)之和”的自定義函數(shù)，其中a為函數(shù)的形參，還需編寫“計算”按鈕的單擊事件過程。在該事件過程中根據(jù)單選按鈕的選擇情況，來確定除數(shù)的值：如果opl被選中，則除數(shù)應(yīng)為7，通過執(zhí)行語句Textl．Text=fun(7)可調(diào)用自定義函數(shù)求出500～600之間能被7整除的數(shù)之和，并顯示在文本框中；如果Op2被選中，則除數(shù)應(yīng)為3，通過執(zhí)行語句Textl．Text=fun(3)可調(diào)用自定義函數(shù)求出500～600之間能被3整除的數(shù)之和，并顯示在文本框中。VB機(jī)試模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上畫一個名稱為Textl的文本框，其高、寬分別為600、1800。請在屬性框中設(shè)置適當(dāng)?shù)膶傩詽M足以下要求：Text1的字體為“隸書”，字號為“三號”；窗體的標(biāo)題為“字體大小”，不顯示最大化按鈕和最小化按鈕，如圖49—1所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sjl．frm。(2)在Forml的窗體上畫一個文本框，其名稱為Textl；再畫兩個命令按鈕，其名稱分別為Commandl和Command2、標(biāo)題分別為“顯示”和“清空”，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“顯示”按鈕，則在文本框中顯示“模擬考試”，并使“清空”按鈕可用。此時如果單擊“清空”按鈕，則清空文本框，同時該按鈕變?yōu)椴豢捎谩３绦蛑胁坏檬褂萌魏巫兞?。程序運(yùn)行時的窗體界面如圖49—2和圖49—3所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個文本框控件添加到窗體中，其名稱為Textl、Caption屬性為“模擬考試”，F(xiàn)onl屬性為“隸書”、“三號”，F(xiàn)orml的MaxButton和MinButton屬性為“False”，Caption屬性為“字體大小”。單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個文本框控件和兩個命令按鈕添加到窗體中，文本框的名稱為Textl、Text屬性為“模擬考試”，命令按鈕的名稱分別為Commandl和Command2、Caption屬性分別為“顯示”和“清空”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()Textl．Text="模擬考試"’在Textl中顯示"模擬考試"Command2．Enabled=True’將“清空”按鈕變?yōu)榭捎肊ndSubPrivateSubCommand2_Click()Textl．Text=""’單擊“清空”，則清空Textl中的文本Command2．Enabled=False’將“清空”按鈕變?yōu)椴豢捎肊ndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在名稱為Forml的窗體中畫一個名稱為Textl的文本框，其標(biāo)題為“0”；再添加一個名稱為Timerl的計時器。請設(shè)置適當(dāng)?shù)目丶傩裕⒕帉戇m當(dāng)?shù)氖录^程．使得在運(yùn)行時，每隔1秒鐘文本框中的數(shù)字加1，當(dāng)達(dá)到10時，在窗口上打印“10”，然后重新從O開始計數(shù)，如圖43—3所示。程序中不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為sj3．vbp，窗體文件名為sj3．frm。(2)在考生文件夾下有工程文件sj4．vbp，窗體文件sj4．frm，該程序是不完整的。在窗體上已經(jīng)畫出兩個圖像框，名稱分別為Imagel和Image2；一個水平滾動條，名稱為HScrolll。要求考生不改動Imagel和Image2的Wi