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

VB機(jī)試模擬試卷19（共9套）（共27題）VB機(jī)試模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。(1)在名稱為Form1的窗體上畫一個(gè)名稱為H1的水平滾動(dòng)條，請(qǐng)?jiān)凇皩傩浴贝翱谥性O(shè)置它的屬性值，使之滿足以下要求：它的最大刻度值為100，最小刻度值為1，在運(yùn)行時(shí)鼠標(biāo)單擊滾動(dòng)條上滾動(dòng)框以外的區(qū)域(不包括兩邊按鈕)，滾動(dòng)框移動(dòng)10個(gè)刻度。再在滾動(dòng)條下面畫兩個(gè)名稱分別為L(zhǎng)1和L2的標(biāo)簽，并分別顯示1和100，運(yùn)行時(shí)的窗體如圖19-1所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm(2)在名稱為Form1的窗體上畫兩個(gè)文本框，名稱分別為Text1和Text2，均無(wú)初始內(nèi)容；再建立一個(gè)下拉菜單，菜單標(biāo)題為“操作”，名稱為M1，此菜單下含有兩個(gè)子菜單項(xiàng)，名稱分別為Cooy和Clear、標(biāo)題分別為“復(fù)制”和“清除”。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，單擊“復(fù)制”菜單項(xiàng)，則把Text1中的內(nèi)容復(fù)制到Text2中，單擊“清除”菜單項(xiàng)，則清除Text2中的內(nèi)容(即在Text2中填入空字符串)。程序運(yùn)行界面如圖19-2所示。要求在程序中不得使用任何變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標(biāo)準(zhǔn)答案：滾動(dòng)條的最大值由Max屬性設(shè)置，最小值由Min屬性設(shè)置。鼠標(biāo)卓擊滾動(dòng)條上滾動(dòng)框以外的區(qū)域(不包括兩邊按鈕)滑塊移動(dòng)的增量值由LargeChange屬性設(shè)置。標(biāo)簽上的標(biāo)題由Caption屬性設(shè)置，控件的名稱由Name屬性設(shè)置。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見(jiàn)表19-2。第二步：調(diào)試并運(yùn)行程序。第三步：按題目要求存盤。(2)在VisualBasic中，菜單項(xiàng)通過(guò)“菜單編輯器”窗口建立，在窗體上單擊右鍵選擇“菜單編輯器”選項(xiàng)可以打開(kāi)“菜單編輯器”窗口；文本框的內(nèi)容由Text屬性設(shè)置，其形式為：文本框名．Text=要顯示的內(nèi)容。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的菜單項(xiàng)和控件的屬性見(jiàn)表19-3。第二步：編寫程序代碼。參考代碼：OptionExplicitPrivateSubClear_Click()Text2.Text=""EndSubPrivateSubCopy_Click()Text2.Text=Text1.TextEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識(shí)點(diǎn)解析：暫無(wú)解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm，請(qǐng)裝入該文件，在窗體上畫兩個(gè)命令按鈕，名稱分別為Command1和Command2，標(biāo)題分別為“添加項(xiàng)目”和“刪除項(xiàng)目”，再畫一個(gè)列表框和一個(gè)文本框，名稱分別為L(zhǎng)ist1和Text1，如圖21-4所示。編寫適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果單擊“添加項(xiàng)目”命令按鈕，則從鍵盤上輸入要添加到列表框中的項(xiàng)目(內(nèi)容任意，不少于三個(gè))；如果單擊“刪除項(xiàng)目”命令按鈕，則從鍵盤上輸入要?jiǎng)h除的項(xiàng)目，將其從列表框中刪除。程序的運(yùn)行情況如圖21-5所示。提供的窗體文件可以實(shí)現(xiàn)上述功能，但這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的?改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjtt4.vbp，相應(yīng)的窗體文件名為sjt4.frm，其功能是通過(guò)調(diào)用過(guò)程FindMax求數(shù)組的最大值，請(qǐng)裝入該文件。程序運(yùn)行后，在4個(gè)文本框中各輸入一個(gè)整數(shù)，然后單擊命令按鈕，即可求出數(shù)組的最大值，并在窗體上顯示出來(lái)，如圖21-6所示。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：使用AddItem方法向列表框中添加列表項(xiàng)目，其格式為：列表.AddItem項(xiàng)目字符串[,索引值]AddItem方法把“列表字符串”的文本內(nèi)容放入“列表框”中。如果省略“索引值”則文本本放在列表框的尾部?！八饕怠笨梢灾付ú迦腠?xiàng)在列表框中的位置，表中的項(xiàng)目從0開(kāi)始計(jì)數(shù)，“索引值”不能大于表中的項(xiàng)數(shù)減1。該方法只能單個(gè)的項(xiàng)列表框中添加項(xiàng)目。使用RemoveItem方法從列表框中刪除列表項(xiàng)目其格式為：列表.RemoveItem索引值RemoveItem方法從列表框中刪除以“索引值”為地址的項(xiàng)目，該方法每次只能刪除一個(gè)項(xiàng)目。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見(jiàn)表21-3。第二步：編寫程序代碼。程序提供的代碼：PrivateSubCommand1_Click()Text1.Text=InputBox("請(qǐng)輸入要添加的項(xiàng)目")’List1.AddItem?EndSubPrivateSubCommand2_Click()Text1.Text=InputBox("請(qǐng)輸入要?jiǎng)h除的項(xiàng)目")’Fori=0To?’IfList1.List(i)=?Then’List1.RemoveItem?EndIfNextiEndSub參考代碼：PrivateSubCommand1_Click()Text1.Text=InputBox("請(qǐng)輸入要添加的項(xiàng)目")List1.AddItemText1.TextEndSubPrivateSubCommand2_Click()Text1.Text=InputBox("請(qǐng)輸入要?jiǎng)h除的項(xiàng)目")Fori=0ToList1.ListCount-1IfList1.List(i)=Text1.TextThenList1.RemoveItemiEndIfNextiEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。(2)文本框里的內(nèi)容(包括數(shù)字)默認(rèn)都是當(dāng)作字符串來(lái)處理的，如果要參與數(shù)據(jù)運(yùn)算則需先用Val()函數(shù)將其轉(zhuǎn)化為數(shù)字(如：Va1(Text1.Text))。這里需要指出的是利用Array對(duì)數(shù)組各元素賦值，聲明數(shù)組的類型只能是Variant。數(shù)組的上下界可用LBound函數(shù)和UBound函數(shù)分別獲得：程序中變量Max保存最大數(shù)，最初把數(shù)組的第一個(gè)元素賦給Max，然后將其后的元素依次與之比較，如果大于Max的值則與之交換，后面又將Max作為標(biāo)桿，依次類推，最終MAX中的元素就是最大值。在窗體上打印信息可以通過(guò)Print方法來(lái)實(shí)現(xiàn)，其形式為：[對(duì)象.]Print要顯示的內(nèi)容解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見(jiàn)表21-4。第二步：編寫程序代碼。程序中提供的代碼：OptionBase1PrivateFunctionFindMax(a()AsInteger)DimStartAsIntegerDimFinishAsInteger,iAsInteger’Start=?(a)’Finish=?(a)’Max=?(start)Fori=StartToFinish’Ifa(i)?MaxThenMax=?NextiFindMax=MaxEndFunctionPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=1To4’arr2(i)=CInt(?)Nexti’M=FindMax(?)Print"最大值是：";MEndSub參考代碼：OptionBase1PrivateFunctionFindMax(a()AsInteger)DimStartAsIntegerDimFinishAsInteger,iAsIntegerStart=LBound(a)Finish=UBound(a)Max=a(Start)Fori=StartToFinishIfa(i)＞MaxThenMax=a(i)NextiFindMax=MaxEndFunctionPrivateSubCommand1Click()Dimarr1Dimart2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=1To4arr2(i)=CInt(arr1(i))NextiM=FindMax(arr2)Print"最大值是：";MEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識(shí)點(diǎn)解析：暫無(wú)解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。在考生文件夾下有一個(gè)工程文件sjt5.vbp，其窗體上有一個(gè)文本框，名稱為Text1；兩個(gè)命令按鈕，名稱分別為C1和C2，標(biāo)題分別為“計(jì)算”、“存盤”，設(shè)計(jì)界面如圖20-5所示。并有一個(gè)函數(shù)過(guò)程isprime，其功能是判斷參數(shù)a是否為素?cái)?shù)，如果是素?cái)?shù)，則返回True，否則返回False。請(qǐng)將程序中問(wèn)號(hào)的地方用相應(yīng)的代碼補(bǔ)充完整，使得在運(yùn)行時(shí)，單擊“計(jì)算”按鈕，則找出小于18000的最大的素?cái)?shù)，并顯示在Text1中；單擊“存盤”按鈕，則把Text1中的計(jì)算結(jié)果存入考生文件夾下的out5.txt文件中。注意：考生不得修改isprime函數(shù)過(guò)程和控件的屬性，必須把計(jì)算結(jié)果通過(guò)“存盤”按鈕存入out5.txt文件中，否則無(wú)成績(jī)。標(biāo)準(zhǔn)答案：在窗體上建立好控件后，先設(shè)置控件的屬性，再編寫事件過(guò)程。素?cái)?shù)的判斷準(zhǔn)則就是看是否該數(shù)除了1和其本身外別無(wú)其他約數(shù)(即從2到n-1之間沒(méi)有可以將其整除的數(shù))即可，變量flag是用于保留判斷數(shù)是否是素?cái)?shù)的結(jié)果的，值有True和False兩個(gè)(從程序中可以看出)所以應(yīng)將其定義為布爾型(Boolean)，并且在函數(shù)中判斷完之后，將flag的值賦給函數(shù)過(guò)程isprime的名字。文本框用Text屬性來(lái)顯示計(jì)算機(jī)結(jié)果，其形式為：文本框名.Text=要顯示的內(nèi)容將數(shù)據(jù)寫入文件可用命令Write#或Print#，本程序中用的是后者，其形式為：Pint#文件號(hào)，[輸出列表]。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性值見(jiàn)表20-5。第二步：編寫程序代碼。程序中提供的代碼：PrivateFunctionisprime(aAsInteger)AsBoolean’DimflagAs?flag=Trueb%=2DoWhileb%＜=Int(a/2)AndflagIfInt(a/b%)=a/b%Thenflag=FalseElseb%=b%+1EndIf’?isprime=flagEndFunctionPrivateSubC1Click()DimiAsIntegeri=18000Doi=i-1LoopUntilisprime(i)’Text1.?=iEndSubPrivateSubC2Click()Open"out5.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSub參考代碼：PrivateFunctionisprime(aAsInteger)AsBooleanDimflagAsBooleanflag=Trueb%=2DoWhileb%＜=Int(a/2)AndflagIfInt(a/b%)=a/b%Thenflag=FalseElseb%=b%+1EndIfLoopisprime=flagEndFunctionPrivateSubC1_Click()DimiAsIntegeri=18000Doi=i-1LoopUntilisprime(i)Text1.Text=iEndSubPrivateSubC2_Click()Open"out5.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識(shí)點(diǎn)解析：暫無(wú)解析VB機(jī)試模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上繪制一個(gè)標(biāo)簽和兩個(gè)單選按鈕。標(biāo)簽的名稱為L(zhǎng)abell，初始時(shí)內(nèi)容為空。單選按鈕的名稱分別為Optionl、Option2，標(biāo)題分別為“Iternl”和“Item2”。編寫適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)Optionl按鈕被選中，標(biāo)簽中顯示“選中Iternl”，如圖24—1所示。如果單擊Option2按鈕，標(biāo)簽中顯示的內(nèi)容為“選中Item2"。程序中不得使用任何變量。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sjl．Vbp。(2)在名稱為FOrml的窗體上，繪制一個(gè)形狀控件和一個(gè)命令按鈕。形狀控件為圓形，名稱為Shapel。命令按鈕為Commandl，標(biāo)題為“變正方形”。編寫適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，單擊命令按鈕，圓形將隱藏起來(lái)，顯示正方形。程序中不得使用任何變量。程序運(yùn)行時(shí)的窗體界面如圖24—2所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)標(biāo)簽和兩個(gè)單選按鈕控件添加到窗體中，標(biāo)簽的名稱為L(zhǎng)abell、Caption屬性為空，單選按鈕的名稱分別為Optionl和Option2、Caption屬性分別為“Iteml”和“Item2”。雙擊窗體進(jìn)入代碼窗口，編寫如下代碼：PrivateSubForm_Load()’初始化Labell．Caption="選中"+Optionl．CaptionEndSubPrivateSubOptionl_Click()’選中ItemlLabell．Caption="選中"+Optionl．CaptionEndSubPrivateSubOption2_Click()’選中Item2Labell．Caption=”選中”+Option2．CaptionEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)命令按鈕和一個(gè)Shape控件添加到窗體中，命令按鈕的名稱為Commandl、Caption屬性為“變正方形”，Shape的名稱為Shapel、Shape屬性為3。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()Shapel．Shape=1’單擊變正方形，Shapel變?yōu)檎叫蜤ndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無(wú)解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有工程文件sj3．vbp及窗體文件sj3．frm，該程序是不完整的。在名稱為Forml的窗體上有兩個(gè)名稱分別為L(zhǎng)abell和Label2的標(biāo)簽，兩個(gè)名稱分別為Textl和Text2的文本框控件和兩個(gè)名稱分別為Commandl和Command2的命令按鈕。該程序的主要功能是求從1到用戶輸入的任意自然數(shù)n的偶數(shù)的累加和。本題要求剛啟動(dòng)工程時(shí)，“計(jì)算”和“清空”按鈕均為灰色，可以在Textl文本框內(nèi)輸入任意自然數(shù)(n值太大時(shí)，運(yùn)算時(shí)間將很長(zhǎng)，建議不超過(guò)9位)。在輸入數(shù)的同時(shí)“計(jì)算”變?yōu)榭捎?；?dāng)計(jì)算完成后．“計(jì)算”變?yōu)椴豢捎?；?dāng)輸人為非數(shù)值時(shí)，累加結(jié)果為0。單擊“計(jì)算”可以在Text2中顯示累加和，且該框內(nèi)的文字不可修改；同時(shí)“計(jì)算”變灰?！扒蹇铡弊?yōu)榭捎?。單擊“清空”，輸入框和顯示框均被清空，同時(shí)“計(jì)算”和“清空”變?yōu)椴豢捎?。如圖56—3所示。注意：請(qǐng)?jiān)谟小?”號(hào)的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。(2)在考生文件夾中有文件sj4．vbp及其窗體文件sj4．frm，窗體已經(jīng)設(shè)計(jì)好，要求考生用If語(yǔ)句編寫程序，使得程序運(yùn)行。窗體上有兩個(gè)復(fù)選框，名稱分別為Checkl和Check2。標(biāo)題分別為“ItelTll”和“Itern2”；兩個(gè)單選按鈕，名稱分別為Optionl和Option2。標(biāo)題分別為“選擇”和“其他”；一個(gè)名稱為L(zhǎng)abell、Caption屬性為空的標(biāo)簽；一個(gè)名稱為Commandl、標(biāo)題為“顯示”的命令按鈕，一個(gè)名稱為Textl的文本框，Text屬性為空。要求程序運(yùn)行后，對(duì)選中Optionl時(shí)checkl和Check2可用，Textl也可用，當(dāng)選中Option2的時(shí)候，Textl可用，Checkl和claeck2不可用，然后單擊顯示按鈕．可在窗體上顯示相應(yīng)的信息，如選中Optionl，則顯示選中復(fù)選框的信息，選擇Option2則顯示Textl中的信息。程序運(yùn)行時(shí)的界面如圖56—4所示。注意：不得使用任何變量。存盤時(shí)不得改變文件夾和文件名。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，將一個(gè)Label控件、兩個(gè)Text控件和兩個(gè)Command控件添加到窗體上，Label的Caption屬性為“求1到用戶輸入數(shù)之間的所有偶數(shù)之和，并將結(jié)果顯示出來(lái)?！?，Text的名稱分別為Textl和Text2、Text屬性分別為空和Text2，Text2的Enable屬性為False，Command的名稱分別為Commandl和Command2、Caption屬性分別為“計(jì)算”和“清空”。雙擊Commandl命令按鈕，編寫如下代碼：PrivateSubCommandl_Click()DimaAsIntegerDimtotalAsLongDimiAsIntegera=Val(Textl．Text)’將Textl中的數(shù)據(jù)讀入，放到a中total=0Fori=1Toa’利用For循環(huán)逐個(gè)判斷IfiMod2=0Then’當(dāng)判斷是偶數(shù)時(shí)total=total+i’則相加EndIfNextiText2．Text=total’將結(jié)果寫入Text2中Commandl．Enabled=False’Commandl不可用EndSubPrivateSubCommand2一Click()Textl．Text=""’Textl清空Text2．Text=""’Text2清空Commandl．Enabled=False’Commandl不可用Command2．Enabled=False’Command2不可用EndSubPriyateSubText1_Change()Commandl．Enabled=True’Commandl可用Command2．Enabled=True’Command2可用EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)按要求設(shè)計(jì)好窗體后，雙擊Commandl命令按鈕打開(kāi)代碼窗口，補(bǔ)充完整后的代碼如下：PrivateSubCommandl_Click()DimstrAsStringstr=""IfOptionl．Value=TrueThen’如果選擇的是OptionlIfCheckl．Value=1Then’則判斷選中的復(fù)選按鈕str=str+Checkl．Caption’如果選中Checkl，則顯示ItemlEndIfIfCheck2．Value=1Then’如果選中Check2str=str+Check2．Caption’則顯示Item2EndIfC1sPrintstr’在窗體上打印出來(lái)Else，’如果選擇的是Option2ClsPrintTextl．Text’則顯示Textl的內(nèi)容EndIfEndSubPrivateSubOptionl_Click()’單擊OptionlTextl．Enabled=False’Textl不可用Checkl．Enabled=True’Checkl可用Check2．Enabled=True’Check2可用EndSubPrivateSubOption2_Click()Textl．Enabled=TrueCheckl．Enabled=FalseCheck2．Enabled=FalseEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無(wú)解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有工程文件sj5．vbp及窗體文件sj5．frm，該程序是不完整的。在窗體上有一個(gè)名為L(zhǎng)istl的列表框，列表框中有若干列表項(xiàng)，如圖40—6所示，通過(guò)屬性窗口設(shè)置列表框的MultiSelect屬性值為1，一個(gè)名為Textl的文本框，還有兩個(gè)命令按鈕，名稱分別是Commandl和Command2，標(biāo)題分別是“全選”和“存盤”。要求在程序運(yùn)行時(shí)，單擊commandl按鈕則將Listl中的全部列表項(xiàng)選中，然后單擊Command2按鈕，將Listl中的全部列表項(xiàng)寫入Textl中，并寫入文本文件out．txt中，并將out．txt保存在考生文件夾下。注意：請(qǐng)?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：本題主要考查列表框的使用。列表框用于在很多項(xiàng)目中作出選擇的操作。列表框的ListCount屬性表示表項(xiàng)的數(shù)量，列表項(xiàng)的排列從0開(kāi)始，最后一項(xiàng)的序號(hào)為L(zhǎng)istCount-1。使用列表項(xiàng)的Selected屬性來(lái)表示列表框中哪些項(xiàng)被選中，該屬性實(shí)際上是一個(gè)數(shù)組，各元素與列表框中的一項(xiàng)相對(duì)應(yīng)，其取值為True或False，為True時(shí)表示選擇了該項(xiàng)，為False表示未選擇。根據(jù)題意，將兩個(gè)命令按鈕、一個(gè)列表框控件和一個(gè)文本框控件添加到窗體中，命令按鈕的名稱分別為Commandl和Cornmand2、Caption屬性分別為“全選”和“存盤”，列表框的名稱為L(zhǎng)istl，文本框的名稱為Textl。補(bǔ)充后的具體代碼如下：PrivateSubCommandlClick()DimiAsIntegerDimstrAsStringstr=""Fori=0ToListl．ListCount-1Listl．Selected(i)=True’將所有的列表項(xiàng)都選中str=str+Listl．List(i)’將選中的文本寫入一個(gè)變量里面，最后一起輸出NextiTextl．Text=strEndSubPrivateSubCommand2Click()OpenApp．Path&"＼Out．txt"ForOutputAs#1’打開(kāi)文件DimiAsIntegerFori=0T0Listl．ListCount-1Print#1，Listl．List(i)’將每一項(xiàng)都寫入到文件中NextiClose#1EndSubPrivateSubFormLoad()Listl．AddItem"足球"’向列表中添加選項(xiàng)Listl．AddItem"籃球"Listl．Addltem"排球"EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無(wú)解析VB機(jī)試模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫兩個(gè)文本框，其名稱分別為Tcxtl和Text2，它們的高、寬分別為300、2400和1200、2400。窗體的標(biāo)題為“窗口”。請(qǐng)通過(guò)屬性窗口設(shè)置適當(dāng)?shù)膶傩詽M足以下要求：①Text2可以顯示多行文本，且有垂直和水平兩個(gè)滾動(dòng)條；②運(yùn)行時(shí)在Textl中輸入的字符都顯示為“*”。運(yùn)行后的窗體如圖1-166所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上畫一個(gè)圖像框，名稱為tmagcl，其高、寬分別為1900、1700，通過(guò)屬性窗口把考生文件夾下的圖像文件picl．bmp裝入圖像框；再畫兩個(gè)命令按鈕，名稱分別為Cl、C2，標(biāo)題分別為“放大”、“縮小”，如圖1-167所示。要求：①請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，程序運(yùn)行后，如果單擊“放大”按鈕，則把圖像框的高度、寬度均增加100；單擊“縮小”按鈕，則把圖像框的高度、寬度均減少100。要求程序中不得使用任何變量。②通過(guò)屬性窗口設(shè)置圖像框的適當(dāng)屬性，使得在放大、縮小圖像框時(shí)，其中的圖像也自動(dòng)放大、縮小。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟l：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Forml中畫兩個(gè)文本框，并分別設(shè)置它們的相關(guān)屬性，其屬性及值如表2-94所示。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-95在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開(kāi)代碼編輯窗口，編寫兩個(gè)命令按鈕的Click事件過(guò)程。參考代碼：PriVateSubC1_Click()Imagel．Width=Imagel．Width+100Imagel．Height=Imagel．Hei．ght+100EndSubPriVateSubC2_Click()Imagel．Width=Imagel．Width一100Imagel．Height=Imagel．Hei．ght-100EndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題文本框控件的MultiLine屬性設(shè)置文本框是否能以多行顯示文本，值為True表示允許，值為False表示不允許；ScrollBars屬性設(shè)置文本框是否有水平或垂直滾動(dòng)條，它的值為；0表示沒(méi)有滾動(dòng)條(默認(rèn)值)，1表示只有水平滾動(dòng)條，2表示只有垂直滾動(dòng)條，3表示有水平和垂直滾動(dòng)條，設(shè)置O以外的值時(shí)MultiLine屬性值必須為True。本題只需按要求畫出控件并設(shè)置其相應(yīng)屬性即可。第2小題①為圖像框控件指定圖片有兩種方法：一是在設(shè)計(jì)階段通過(guò)Picture屬性設(shè)置；二是在程序運(yùn)行時(shí)通過(guò)LoadPictm()圖片加載函數(shù)加載，其語(yǔ)法為：圖片框．Picture=Loadicture("圖像文件路徑")，App．Path可返回當(dāng)前工程文件所在的文件夾路徑，是使用相對(duì)路徑的一種用法。用不帶參數(shù)的LoadPicture函數(shù)為對(duì)象的Picture屬性賦值將清除窗體、圖片框及圖像控件中的圖形。②Stretch(自動(dòng)伸縮)屬性用來(lái)設(shè)定圖像框是否需要自動(dòng)調(diào)整大小，以適應(yīng)載入圖像框中的圖片的大小，值為True時(shí)表示自動(dòng)調(diào)整。程序運(yùn)行時(shí)要改變圖像框的大小，可通過(guò)修改其Width和。Height屬性值來(lái)實(shí)現(xiàn)。二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在名稱為Forml的窗體上畫一個(gè)名稱為L(zhǎng)abell、標(biāo)題為“添加項(xiàng)目：”的標(biāo)簽；畫一個(gè)名稱為Textl的文本框，沒(méi)有初始內(nèi)容；畫一個(gè)名稱為Combol的下拉式組合框，并通過(guò)屬性窗口輸入若干項(xiàng)目(不少于三個(gè)，內(nèi)容任意)；再畫兩個(gè)命令按鈕，名稱分別為Commandl、Command2，標(biāo)題分別為“添加”、“統(tǒng)計(jì)”。在運(yùn)行時(shí)，向Textl中輸入字符，單擊“添加”按鈕后，則Textl中的內(nèi)容作為一個(gè)列表項(xiàng)被添加到組合框的列表中；單擊“統(tǒng)計(jì)”按鈕，則在窗體上顯示組合框中列表項(xiàng)的個(gè)數(shù)，如圖1-144所示。請(qǐng)編寫兩個(gè)命令按鈕的Click事件過(guò)程。注意：程序中不得使用變量，也不能使用循環(huán)。存盤時(shí)必須存放在考生文件夾下，工程文件名為sjl3．vbp，窗體文件名為sjt3．frm。(2)在考生文件夾下有一個(gè)工程文件sjt4,vbp，其窗體如圖1-145所示。該程序用來(lái)對(duì)在上面的文本框中輸入的英文字母串(稱為“明文”)加密，加密結(jié)果(稱為“密文”)顯示在下面的文本框中。加密的方法是：選中一個(gè)單選按鈕，單擊“加密”按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字n，把明文中的每個(gè)字母改為它后面的第n個(gè)字母(“z”后面的字母認(rèn)為是“a”，“Z”后面的字母認(rèn)為是“A”)，如圖1-145所示。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序中的其他部分和控件的屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第l小題【操作步驟】步驟l：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-81在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開(kāi)代碼編輯窗口，編寫兩個(gè)命令按鈕的Click事件過(guò)程。參考代碼；PriVateSubCommandl_Click()Comb01．AddItemTextl．TextEndSubPriVateSubCommand2_Click()PrintComb01．ListCountEndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟l：打開(kāi)考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：n=Val(Opl(k)．Caption)Fork=1Tomc=Mid$(Textl．Text，k，1)a=a+c步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第l小題①組合框(ComboBox)將文本框與列表框的特性組合在一起，既可在組合框的文本框部分輸入信息，也可在列表框部分選擇項(xiàng)目?？赏ㄟ^(guò)修改組合框的Style屬性值來(lái)改變其顯示類型，值為0-DropdownCombo時(shí)，表示下拉式組合框，包括一個(gè)下拉式列表和一個(gè)文本框，可以從列表選擇或在文本框中輸入；值為1-SimpleCombo時(shí)，表示簡(jiǎn)單組合框，包括一個(gè)文本框和一個(gè)不帶下拉的列表，可以從列表中選擇或在文本框中輸入，增加其高度可顯示列表的更多部分；值為2-DropdownList時(shí)，表示下拉式列表，這種樣式僅允許從下拉式列表中選擇。②組合框的列表項(xiàng)既可以在設(shè)計(jì)階段通過(guò)其List屬性設(shè)置加入(注意：每輸入完一項(xiàng)后按鍵換行再輸入下一項(xiàng))，也可在程序運(yùn)行時(shí)通過(guò)Addltem方法加入，其語(yǔ)法為：組合框名．Addltem項(xiàng)目字符串[，索引值】。其中，“索引值”可以指定插入項(xiàng)在列表框中的位置，表中的項(xiàng)目從0開(kāi)始計(jì)數(shù)。如果省略“索引值”，則文本被放在列表框的尾部。③ListCount屬性用來(lái)返回組合框中當(dāng)前的列表項(xiàng)總數(shù)。本題需按要求設(shè)計(jì)程序界面，并編寫“添加”和“統(tǒng)計(jì)”命令按鈕的Click事件過(guò)程。第2小題Strings(個(gè)數(shù)，字符)函數(shù)用于返回含指定個(gè)數(shù)字符的字符串。程序設(shè)計(jì)思路：在“加密”按鈕的單擊事件過(guò)程中，首先利用For循環(huán)語(yǔ)句逐一判斷單選按鈕組中各個(gè)元素是否選中，若選中則用變量n記錄下該單選按鈕所代表的數(shù)值；接著再次利用For循環(huán)語(yǔ)句和Mid函數(shù)逐一為文本框中的每一個(gè)字符“加密”，若“加密”后得到的字符在ASCII表中值大于“z”，則重新取比其小26的字符；最后將“加密”后的字符串顯示在文本框Text2中。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生目錄下已有一個(gè)工程文件sjt5．vbp。運(yùn)行程序后，分別從兩個(gè)文件中讀出數(shù)據(jù)，放入兩個(gè)一維數(shù)組a、b中。請(qǐng)編寫程序，當(dāng)單擊“合并數(shù)組”按鈕時(shí)，將a、b數(shù)組中相同下標(biāo)的數(shù)組元素的值求和，并將結(jié)果存入數(shù)組c。單擊“找最大值”按鈕時(shí)，調(diào)用find過(guò)程分別找出a、c數(shù)組中元素的最大值，并將所找到的結(jié)果分別顯示在Textl、Text2中。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，并編寫相應(yīng)程序，實(shí)現(xiàn)程序的功能。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序調(diào)試通過(guò)后，各命令按鈕的事件過(guò)程必須至少各執(zhí)行一次。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾下的本題工程文件sjt5．vbp。打開(kāi)代碼編輯窗口。在指定位置編寫代碼。參考代碼：PrivateSubfind(x()AsInteger，tAs’======以下為考生編寫的程序=========Max=x(1)Fori=2ToUBound(x)IfX(i)>MaxThenMax=x(i)EndIfNextt．Text=Max=======考生編寫的程序結(jié)束=========EndSubPrivateSubCommand2Click()=========以下為考生編寫的程序========Fori=1ToUBound(a)C(i)=a(i)+b(i)Next======考生編寫的程序結(jié)束===========OpenApp．Path&"＼out51．txt"ForOutputAs#1Fori=0To9Print#1，C(i)NextClose#1EndSub步驟2：按要求將文件保存至考生文件夾中。步驟3：按鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“合并數(shù)組”按鈕，最后單擊“找最大值”按鈕。知識(shí)點(diǎn)解析：本題中自定義過(guò)程fmd的功能是找出數(shù)組參數(shù)x()中的最大值，并且將其放入文本框參數(shù)t中。其基本思路為：首先利用Ubound函數(shù)獲得數(shù)組的長(zhǎng)度，然后假設(shè)數(shù)組的第一個(gè)數(shù)為最大值，再由數(shù)組的第二個(gè)數(shù)直到最后一個(gè)數(shù)進(jìn)行循環(huán)，在循環(huán)中對(duì)數(shù)組元素和最大值進(jìn)行比較，二者中較大的數(shù)存入最大值變量，循環(huán)結(jié)束后將最大值顯示在t中。在“合并數(shù)組”按鈕的單擊事件中，利用For循環(huán)依次將a、b數(shù)組中同下標(biāo)的元素相加并且放入數(shù)組c中。VB機(jī)試模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上畫一個(gè)框架、一個(gè)文本框、一個(gè)命令按鈕?？蚣艿拿Q為Framel，標(biāo)題為“框架”。文本框在Frame1框架中，名稱為Text1、標(biāo)題為“模擬試題”。命令按鈕的名稱為Commandl、標(biāo)題為“屏蔽”。編寫適當(dāng)?shù)氖录^(guò)程，當(dāng)程序運(yùn)行時(shí)，如果單擊Commandl命令按鈕，框架就會(huì)被屏蔽(即不可用)。程序中不得使用任何變量。程序運(yùn)行時(shí)的窗體界面如圖21—1所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sjl．vbp。(2)在名稱為Forml的窗體中，畫一個(gè)組合框。組合框的名稱為Combol，初始內(nèi)容為空，有“Iteml”、“Item2”和“Item3”3個(gè)可供選擇項(xiàng)。編寫適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，選擇組合框中的某一項(xiàng)，就會(huì)彈出一個(gè)對(duì)話框，內(nèi)容為“選擇了(該項(xiàng))”。程序中不得使用任何變量。程序運(yùn)行時(shí)的窗體界面如圖21—2所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標(biāo)準(zhǔn)答案：(1)本題考查控件的畫法和框架控件的使用?？蚣芸丶?Frame)是一個(gè)容器控件，常用于將界面上的控件分組，框架內(nèi)的控件將隨框架一起移動(dòng)或隱藏?？蚣艿腃aption屬性設(shè)置其顯示的標(biāo)題，Enabled屬性設(shè)置框架及其內(nèi)部控件是否響應(yīng)用戶操作，值為False時(shí)將被屏蔽。需注意的是向框架中加入控件時(shí)一定要在框架區(qū)域內(nèi)畫，而不能通過(guò)雙擊加入。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)框架控件和一個(gè)命令按鈕添加到窗體中，框架的Caption屬性為“框架”，命令按鈕的名稱為Commandl、Caption屬性為“屏蔽”，再在Frame中放入一個(gè)文本框控件，名稱為Textl、Text屬性為“模擬試題”。雙擊Commandl進(jìn)入代碼向窗口，編寫如下代碼：PrivateSubCommandl_Click()Framel．Enabled=False’將框架設(shè)為不可用EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題考查對(duì)組合框控件和消息框函數(shù)的掌握及簡(jiǎn)單的事件編程。組合框(ComboBox)將文本框與列表框的特性組合在一起，既可在組合框的文本框部分輸入信息，也可在列表框部分選擇項(xiàng)目i組合框的列表項(xiàng)可以在設(shè)計(jì)階段通過(guò)其List屬性加入，加入時(shí)注意每輸入完一項(xiàng)后按“Ctrl+Enter”組合鍵換行再輸入下一項(xiàng)；組合框的Text屬性用于設(shè)置或返回其文本框部分顯示的文本。MsgBox()函數(shù)用于顯示提示信息，并可返回一個(gè)代表用戶點(diǎn)擊了哪個(gè)按鈕的Integer類型值，其常用語(yǔ)法為：MsgBox(prompt[，buttons][，title])。其中，prompt參數(shù)為消息框的提示信息，buttons參數(shù)用于控制消息框中按鈕的數(shù)目、形式及消息框圖標(biāo)的樣式；title參數(shù)為消息框標(biāo)題欄上顯示的內(nèi)容。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)ComboBox控件添加到窗體中，其名稱為Combol、Style為2，在List屬性中添加以下3項(xiàng)“Iteml”、“Item2”和“Item3”。雙擊Combol進(jìn)人代碼窗口，編寫如下代碼：PrivateSubCombol_Click()MsgBox("選擇了"+Combo1．List(Combo1．ListIndex))’彈出對(duì)話框EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無(wú)解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sj3．vbp，窗體上有一個(gè)單選按鈕數(shù)組，名稱為Optionl，含4個(gè)單選按鈕，它們的Index屬性分別為O、1、2和3，標(biāo)題依次為“Iteml”、“Itera2”、“Item3”和“Item4”，再畫一個(gè)名稱為Textl的文本框。窗體文件中已經(jīng)給出了Optionl的Click事件過(guò)程，但不完整，要求去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使得在運(yùn)行時(shí)單擊“Iteml”或“Item2”單選按鈕時(shí)，在Textl中顯示“選擇Iteml”或“選擇Item2”，單擊“Item3”或“Itern4”單選按鈕時(shí)，在Textl中顯示“Item3被選擇”和“Itern4被選擇”。程序運(yùn)行界面如圖35—3所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sj4．vbp，F(xiàn)orm1窗體中有一個(gè)文本框，名稱為Textl，兩個(gè)框架，名稱分別為Framel和Frame2、標(biāo)題分別為“科目”和“難易”；在Framel中有兩個(gè)單選按鈕Optionl和Option2，標(biāo)題分別為“數(shù)學(xué)”和“語(yǔ)文”；在Frame2中有兩個(gè)單選按鈕Option3和Option4，標(biāo)題分別為“困難”和“簡(jiǎn)單”；一個(gè)命令按鈕，名稱為Commandl，標(biāo)題為“輸出”。程序運(yùn)行界面如圖35—4所示。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，在Framel和Frame2中各選一個(gè)單選按鈕，然后單擊“輸出”按鈕，輸出“我覺(jué)得數(shù)學(xué)困難”、“我覺(jué)得數(shù)學(xué)容易”、“我覺(jué)得語(yǔ)文困難”和“我覺(jué)得語(yǔ)文容易”之一。標(biāo)準(zhǔn)答案：(1)程序中需要檢測(cè)單選按鈕的狀態(tài)，這可以通過(guò)Value屬性來(lái)實(shí)現(xiàn)。如果單選按鈕被選中，則其Value值為1；否則Value值為0。當(dāng)建立控件數(shù)組時(shí)，系統(tǒng)給每個(gè)元素賦一個(gè)唯一的索引號(hào)(Index)，通過(guò)屬性窗VI的Index屬性，可以知道該控件的索引號(hào)是多少。標(biāo)簽和單選按鈕的標(biāo)題均由各自的Caption屬性設(shè)置。根據(jù)題意，將一組Option放到對(duì)話框中，包含4個(gè)單選按鈕，Index分別為0、1、2和3，Caption分別為“Iteml”“Item2”“Item3”和“Item4”，一個(gè)文本框控件，名稱為Textl，Text屬性為空。補(bǔ)充后的具體代碼如下：PrivateSubOptionl_Click(IndexAsInteger)IfIndex=1OrIndex=0ThenTextl．Text="選擇"+Optionl．Item(Index)．CaptionEIseTextl．Text=Optionl．Item(Index)．Caption+"被選擇"EndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)程序中需要檢測(cè)的單選按鈕的狀態(tài)，通過(guò)Value屬性來(lái)實(shí)現(xiàn)，如果單選按鈕被選中，則Value值為1，否則Value值為0。在文本框中顯示內(nèi)容通過(guò)Text屬性實(shí)現(xiàn)。根據(jù)題意，將2個(gè)框架控件、4個(gè)單選按鈕控件、1個(gè)文本框控件和1個(gè)命令按鈕添加到窗體中，框架的Caption屬性分別為“科目”和“難易”，單選按鈕的名稱分別為Optionl、Option2、Option3和Option4，Caption分別為“數(shù)學(xué)”、“語(yǔ)文”、“困難”和“容易”，其中Optionl和Option3的Value為True，命令按鈕的名稱為Commandl、Caption屬性為“輸出”。補(bǔ)充后的具體代碼如下：PrivateSubCommandl_Click()DimstrAsStringstr="我覺(jué)得"IfOptionl．Value=TrueThenstr=str+Optionl．Caption’選中數(shù)學(xué)Elsestr=str+Option2．Caption’選中語(yǔ)文EndIfIfOption3．Value=TrueThenstr=str+Option3．Caption’選中困難Elsestr=str@Option4．Caption’選中簡(jiǎn)單EndIfTextl．Text=strEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無(wú)解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sj5．vbp，窗體上有兩個(gè)文本框，名稱分別為Textl和Text2，分別用來(lái)表示兩個(gè)計(jì)數(shù)器；還有兩個(gè)計(jì)時(shí)器Timerl和Timer2。Timerl用于變換Textl的計(jì)數(shù)；Timer2用于控制Text2的計(jì)數(shù)。運(yùn)行時(shí)，單擊“開(kāi)始”按鈕后，Textl每當(dāng)?shù)?的倍數(shù)則停止，Text2開(kāi)始計(jì)數(shù)，當(dāng)Text2計(jì)數(shù)到6的倍數(shù)則Textl開(kāi)始計(jì)數(shù)，交替進(jìn)行。程序運(yùn)行時(shí)的窗體界面如圖49—5所示。注意：在窗體中已經(jīng)給出了全部控件和程序，但程序不完整，要求閱讀程序并去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原文件名存盤。標(biāo)準(zhǔn)答案：本題主要考查考生分析和閱讀程序的能力。計(jì)時(shí)器在設(shè)計(jì)時(shí)是可見(jiàn)的，但運(yùn)行時(shí)不可見(jiàn)，它是否啟用取決于其Enabled屬性值，值為True時(shí)啟用，為False時(shí)不啟用。啟用后間隔多長(zhǎng)時(shí)間觸發(fā)一次其Timer事件是由其Interval屬性值決定的，IntervaI屬性的單位為毫秒，缺省值為0，此時(shí)計(jì)時(shí)器也不啟用。判斷一個(gè)數(shù)是否可以被另一個(gè)數(shù)整除，要用Mod運(yùn)算符，如果計(jì)算結(jié)果為0，則表示可以整除，否則不能整除。補(bǔ)充后的代碼如下：PrivateSubCommandl_Click()Timerl．Interval=1000’按開(kāi)始鍵啟動(dòng)Textl計(jì)數(shù)EndSubPrivateSubTimerlTliner()Textl．Text=Textl．Text+1’每個(gè)一個(gè)間隔Textl加1IfTextl．TextMod5=0Then’當(dāng)Textl的數(shù)是5的倍數(shù)Timerl．Interval=0’停止Textl計(jì)數(shù)Timer2．Interval=1000’啟動(dòng)Text2計(jì)數(shù)EndIfEndSubPrivateSubTimer2_Timer()Text2．Text=Text2．Text+1’每個(gè)一個(gè)間隔Text2加1IfText2．TextMod6=0Then’當(dāng)Text2的數(shù)是6的倍數(shù)Timer2．Interval=0’停止Text2計(jì)數(shù)Timerl．Interval=1000館動(dòng)Textl計(jì)數(shù)EndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無(wú)解析VB機(jī)試模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml、標(biāo)題為“圖片”的窗體上畫一個(gè)名稱為Imagel的圖像框，其高為2500、寬為2000。請(qǐng)通過(guò)屬性窗口設(shè)置適當(dāng)屬性，裝入考生目錄下的圖片文件piclJpg，并使圖片適應(yīng)圖像框的大小(如圖1-59所示)。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上畫一個(gè)名稱為L(zhǎng)abell、標(biāo)題為“口令”的標(biāo)簽；畫一個(gè)名稱為Textl的文本框；再畫三個(gè)命令按鈕，名稱分別為Commandl、Command2、Command3，標(biāo)題分別為“顯示口令”、“隱藏口令”、“重新輸入”。程序運(yùn)行時(shí)，在Textl中輸入若干字符，單擊“隱藏口令”按鈕，則只顯示同樣數(shù)量的“*”，如圖1-60(b)所示；單擊“顯示口令”按鈕，則顯示輸入的字符，如圖1-60(a)所示，單擊“重新輸入”按鈕，則清除Textl中的內(nèi)容，并把光標(biāo)定位到Textl中。要求：請(qǐng)畫出所有控件，編寫命令按鈕的Click事件過(guò)程，程序中不得使用變量，在“顯示口令”按鈕、“隱藏口令”按鈕的事件過(guò)程中只能寫一條語(yǔ)句。存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-29在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-30在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：在代碼編輯窗口，分別編寫三個(gè)按鈕的單擊事件過(guò)程。參考代碼：PriVateSubCommand1_Click()Textl．PasswordChar=""EndSubPrlVateSUDCommand2_C1lick()Textl．PasswordChar="*"EndSubPriVateSubCommand3_Click()Textl=""Textl．SetFocusEndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題①為圖像框控件指定圖片有兩種方法：一是在設(shè)計(jì)階段通過(guò)：Picture屬性設(shè)置；二是在程序運(yùn)行時(shí)通過(guò)LoadPictureq()圖片加載函數(shù)加載，其語(yǔ)法為：圖片框．Picture=LoadPictureC圖像文件路徑”)，App．Path可返回當(dāng)前工程文件所在的文件夾路徑，是使用相對(duì)路徑的一種用法。用不帶參數(shù)的LoadPicture函數(shù)為對(duì)象的Picture屬性賦值將清除窗體、圖片框及圖像控件中的圖形。②Stretch(自動(dòng)伸縮)屬性用來(lái)設(shè)定圖片是否需要自動(dòng)調(diào)整大小，以適應(yīng)圖像框的大小，值為True時(shí)表示自動(dòng)調(diào)整。本題只需要在窗體上畫出控件并相應(yīng)設(shè)置其屬性即可。第2小題PasswordChar屬性用于設(shè)置屏蔽文本框中內(nèi)容的字符，要去掉對(duì)文本框中輸入內(nèi)容的屏蔽，需將其PasswordChar屬性值清空，使用SetFocus方法可使文本獲得焦點(diǎn)。二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp，請(qǐng)?jiān)诖绑w上畫兩個(gè)框架，其名稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。在F1中畫兩個(gè)單選按鈕，名稱分別為opt和Op2，標(biāo)題分別為“汽車”和“輪船”。在F2中畫兩個(gè)單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為“青島”和“大連”。畫一個(gè)文本框，其名稱為Textl。編寫適當(dāng)事件過(guò)程。程序運(yùn)行后，選擇不同單選按鈕并單擊文本框后在文本框內(nèi)顯示結(jié)果見(jiàn)表1-7。程序的運(yùn)行情況如圖1-198所示。存盤時(shí)，工程文件名為sjt3．vbp，窗體文件名為sjt3．frm。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須至少進(jìn)行上面的一種操作。退出程序時(shí)必須通過(guò)單擊窗體右上角的關(guān)閉按鈕的方式。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，請(qǐng)?jiān)诖绑w上畫兩個(gè)文本框，其名稱分別為Textl、Text2，文本框內(nèi)容分別設(shè)置為“計(jì)算機(jī)”、“等級(jí)考試”。然后畫一個(gè)標(biāo)簽，其名稱為L(zhǎng)abl，高度為375，寬度為2000。再畫兩個(gè)單選按鈕，名稱分別為Opl和Op2，標(biāo)題分別為“交換”和“連接”，編寫適當(dāng)?shù)氖录绦?。程序運(yùn)行后，如果選中“交換”單選按鈕并單擊窗體，則Textl文本框中的內(nèi)容與Text2文本框中的內(nèi)容進(jìn)行交換。并在標(biāo)簽中顯示“交換成功”(如圖1-199所示)；如果選中“連接”單選按鈕并單擊窗體，則把Textl和Text2的內(nèi)容按Textl在前、Text2在后的順序連接起來(lái)并在標(biāo)簽中顯示。存盤時(shí)，工程文件名為sjll4．vbp，窗體h文件名為Bjt4．frm。注意；不得修改已經(jīng)給出的程序。在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕，并單擊窗體。退出程序時(shí)必須通過(guò)單擊窗體右上角的關(guān)閉按鈕，否則無(wú)成績(jī)。標(biāo)準(zhǔn)答案：第l小題【操作步驟】步驟1：打開(kāi)考生文件夾下的本題工程文件sjt3．vbp。步驟2：在窗體Forml中加入兩個(gè)框架和一個(gè)文本框，然后在每個(gè)框架中各加入兩個(gè)單選按鈕，分別設(shè)置它們的相關(guān)屬性，其屬性及值如表2-113所示。步驟3：打開(kāi)代碼編輯窗口輸入如下代碼：參考代碼：PriVateSubTextl_Click()IfOplAndOp3ThenTextl．Text="坐汽車去青島"ElseIfOplAndOp4ThenTextl．Text="坐汽車去大連"ElseIfOp2AndOp3ThenTextl．Text="輪船去青島"ElseIfOp2AndOp4ThenTextl．Text="坐輪船去大連"EndIfEndSub步驟4：按要求將文件保存至考生文件夾中。步驟5：按鍵運(yùn)行程序，選擇一種交通工具和一個(gè)到達(dá)目標(biāo)，并單擊文本框，最后單擊窗體右上角的關(guān)閉按鈕退出程序。第2小題【操作步驟】步驟1：打開(kāi)考生文件夾下的本題工程文件sjt4．vbp。步驟2：在窗體Forml中加入兩個(gè)文本框、一個(gè)標(biāo)簽和兩個(gè)單選按鈕，分別設(shè)置它們的相關(guān)屬性，其屬性及值如表2-114所示。步驟3：打開(kāi)代碼編輯窗口輸入如下代碼：參考代碼：PrivateSubForm_Click()IfOplThenLabl．Caption=Textl．TextTextl．Text=Text2．TextText2．Text=Labl．CaptionLabl．Caption="交換成功"E1seIfOp2ThenLabl．Caption=Textl．Text&Text2．TextEndIfEndSub步驟4：按要求將文件保存至考生文件夾中。步驟5：按鍵運(yùn)行程序，選擇一個(gè)單選按鈕，并單擊窗體，最后單擊窗體右上角的關(guān)閉按鈕退出程序。知識(shí)點(diǎn)解析：第l小題根據(jù)題目要求，在文本框的單擊事件過(guò)程中，先用If語(yǔ)句判斷框架F1中的Opl是否選中(即以O(shè)pl．Value=True為條件表達(dá)式)，如果條件為真，那么再繼續(xù)判斷框架F2中的Op3是否選中(即以O(shè)p3．Value=True為條件表達(dá)式)，當(dāng)Op3被選中時(shí)，文本框中顯示“坐汽車去青島”，否則顯示“坐汽車去大連”；同理在外層If語(yǔ)句條件為假(即Op2被選中)時(shí)，也作類似處理。這樣一共就有四種可能：Op1和Op3被選中、Opl和Op4被選中、Op2和Op3被選中、Op2和Op4被選中，對(duì)于可能出現(xiàn)的不同選擇對(duì)照題目中表的規(guī)定，在標(biāo)簽中顯示不同內(nèi)容。以上判斷和顯示操作均在文本框的Click事件中完成。第2小題根據(jù)題目要求，設(shè)計(jì)本題程序的思路：在窗體的Click事件過(guò)程中分別以O(shè)pl和Op2是否選中作為If語(yǔ)句的條件，當(dāng)Opl被選中時(shí)，將兩個(gè)文本框中的內(nèi)容通過(guò)一個(gè)中間變量進(jìn)行交換；當(dāng)Op2被選中時(shí)，將兩個(gè)文本框中的內(nèi)容連接進(jìn)來(lái)。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5．vbp，其窗體上有兩個(gè)標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計(jì)”的命令按鈕。請(qǐng)畫兩個(gè)標(biāo)簽，其名稱分別是Labell和Label2，標(biāo)題分別為“最長(zhǎng)單詞的長(zhǎng)度為”和“以該長(zhǎng)度最后一次出現(xiàn)的單詞是”；再畫兩個(gè)名稱分別為Textl和Text2，初始值為空的文本框，如圖1-75所示。程序功能如下：①如果單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5．dm文件的內(nèi)容讀到變量s中(此過(guò)程已給出)；②如果單擊“統(tǒng)計(jì)”按鈕，則自動(dòng)統(tǒng)計(jì)in5．dat文件(該文件中僅含有字母和空格，而空格是用來(lái)分隔不同單詞的)中最長(zhǎng)單詞的長(zhǎng)度，以及in5．dat中最后一個(gè)以該長(zhǎng)度出現(xiàn)的單詞，并將該單詞的長(zhǎng)度顯示在Textl文本框內(nèi)，將該單詞顯示在Text2文本框內(nèi)?！白x數(shù)據(jù)”命令按鈕的Click事件過(guò)程已經(jīng)給出，請(qǐng)為“統(tǒng)計(jì)”命令按鈕編寫適當(dāng)?shù)氖录^(guò)程，實(shí)現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行統(tǒng)計(jì)，且必須通過(guò)單擊窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾下的本題工程文件sjt5．vbp，如表2-38所列在窗體上畫出控件并設(shè)置它們的相關(guān)屬性。步驟2：打開(kāi)代碼編輯窗口，在指定位置編寫“統(tǒng)計(jì)”按鈕的單擊事件過(guò)程。參考代碼：PriVateSubCommand2_Click()’需考生編寫n=Len(s)：t=""DimMax_lenAsIntegerFori=1Tonc=Mid(s，i，1)Ifc<>""Thent=t+CElseIfLen(t)>Max_lenThenMax_len=Len(t)Max_word=tEndIft=""EndIfNextiIfLen(t)>Max_lenThenMax_len=Len(t)Max_word=tEndIfTextl．Text=Max_lenText2．Text=Max_wordEndSub步驟3：按要求將文件保存至考生文件夾中。步驟4：按鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“統(tǒng)計(jì)”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。知識(shí)點(diǎn)解析：以空格為單詞的分隔標(biāo)志，在For循環(huán)中用Mid函數(shù)逐一取出變量8中的每個(gè)字符，并檢查其是否為空格，若不是空格則將該字母作為當(dāng)前單詞的一部分，否則將當(dāng)前單詞的長(zhǎng)度與記錄單詞最長(zhǎng)值的變量(如Max_len)比較，將兩者中的較大值存入該變量中，同時(shí)保存這個(gè)單詞到變量Maxword中。循環(huán)結(jié)束后，將Max_len的值顯示在Textl中．Max_word值顯示在Text2中。注意：為防止數(shù)據(jù)文件的最后一個(gè)字符不是空格而導(dǎo)致最后一個(gè)單詞不在統(tǒng)計(jì)之列的情況，在開(kāi)始找單詞前在變量s的最后連上一個(gè)空格。VB機(jī)試模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在Forml的窗體上繪制一個(gè)圖片框，其名稱為Picturel。編寫適當(dāng)?shù)氖录^(guò)程，使程序運(yùn)行后，若單擊窗體，則從圖片框的(300，600)位置處開(kāi)始顯示“VisualBasic’’。程序運(yùn)行情況如圖36—1所示。注意：程序中不得使用任何變量。文件必須存放在考生文件夾中，工程文件名為sjl．vbp，窗體文件名為sjl．frm。(2)在Forml的窗體上繪制一個(gè)文本框，名稱為Textl；繪制一個(gè)命令按鈕，名稱為Commandl，標(biāo)題為“顯示”，TabIndex屬性設(shè)為0。請(qǐng)為Commandl設(shè)置適當(dāng)?shù)膶傩?，使得?dāng)焦點(diǎn)在Commandl時(shí)，按Esc鍵就調(diào)用Commandl的Click事件，該事件過(guò)程的作用是在文本框中顯示“VisualBasic程序設(shè)計(jì)”，程序運(yùn)行結(jié)果如圖36—2所示。注意：程序中不得使用任何變量；文件必須存放在考生文件夾中，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)本題主要考查圖片框控件的畫法和屬性設(shè)置，以及簡(jiǎn)單的窗體事件的編寫。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體上添加一個(gè)名稱為Picturel的圖片框，設(shè)計(jì)完成后，進(jìn)入代碼窗口編寫如下代碼：PrivateSubForm_Click()Picturel．CurrentX=300’圖片框X方向坐標(biāo)Picturel．CurrentY=600’圖片框Y方向坐標(biāo)Picturel．Print"VisualBasic"’在圖片框顯示VisualBasicEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)命令按鈕的Cancel屬性返回或設(shè)置一個(gè)值，用來(lái)指示窗體中命令按鈕是否為取消按鈕，它有兩種取值：True和False。值為True時(shí)，命令按鈕不是窗體的取消按鈕，按Esc鍵與單擊該命令按鈕的作用相同；值為False時(shí)，命令按鈕是窗體的取消按鈕。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體上添加一個(gè)文本框，其名稱為“Textl”，一個(gè)命令按鈕，其名稱為Commandl、Caption屬性為“顯示”、Cancel屬性為“True”，TabIndex屬性為0。設(shè)置完成后雙擊Commandl命令按鈕，編寫如下代碼：PrivateSubCommandl_Click()Textl．Text="VisualBasic程序設(shè)計(jì)"EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無(wú)解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾中有工程文件sj3．vbp及其窗體文件sj3．frm，該程序是不完整的，在窗體上有兩個(gè)名稱分別為Textl和Text2的文本框，一個(gè)名稱為Commandl，標(biāo)題為“登錄”的命令按鈕。其中Textl文本框用來(lái)輸入用戶名，Text2文本框用來(lái)輸入口令，要求在Text2文本框中輸人的內(nèi)容都必須以“*”顯示(請(qǐng)考生通過(guò)屬性窗口設(shè)置)，初始運(yùn)行時(shí)兩個(gè)文本框均為空。要求程序運(yùn)行后，輸入用戶名口令，單擊命令按鈕后，對(duì)口令進(jìn)行校驗(yàn)。如果輸入的內(nèi)容都是“ABC”這3個(gè)大寫字母，則用MsgBox信息框輸出“正確”，否則輸出“錯(cuò)誤”，如圖18—3所示。注意：請(qǐng)?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))。但不能修改其他部分。存盤時(shí)不得-改變文件名和文件夾。(2)在考生文件夾中有工程文件sj4.vbp及其窗體文件sj4．frm，該程序是不完整的。在窗體上有3個(gè)名稱分別為Checkl、claeck2和check3的復(fù)選框，標(biāo)題依次為“c++”、“Basic”和“JAVA”；有一個(gè)名稱為L(zhǎng)abell，標(biāo)題為“編程語(yǔ)言”的標(biāo)簽，還有一個(gè)名稱為Commandl，標(biāo)題為“顯示”的命令按鈕。要求程序運(yùn)行后，如果選擇某個(gè)復(fù)選框，當(dāng)單擊命令按鈕時(shí)在窗體上輸出相應(yīng)的信息。例如：如果選擇“C++”和“JAVA”復(fù)選框，單擊顯示按鈕后，將在窗體上顯示“我會(huì)的編程語(yǔ)言是C++JAVA”，如圖18—4所示。注意：請(qǐng)?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，將兩個(gè)文本框控件和命令按鈕添加到窗體中，兩個(gè)文本框的名稱為Textl和Text2，Text2的PasswordChar屬性為“*”，命令按鈕的名稱為Commandl，Caption屬性為“登錄”。雙擊Commandl進(jìn)入代碼編輯窗口，編寫如下代碼：PrivateSubCommandl_Click()IfTextl．Text="ABC"AndText2．Text="ABC"Then’判斷是否都為ABCMsgBox("正確")’是則彈出“正確”對(duì)話框ElseMsgBox("錯(cuò)誤")’否則彈出“錯(cuò)誤”對(duì)話框EndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，將3個(gè)復(fù)選按鈕控件、一個(gè)標(biāo)簽和一個(gè)命令按鈕添加到窗體中，標(biāo)簽的Caption屬性為“編程語(yǔ)言”，命令按鈕的名稱為Commandl，Caption屬性為“顯示”，3個(gè)復(fù)選按鈕控件的名稱分別為Checkl、Check2和Check3，Caption屬性分別為“C++”、“Basic”和“JAVA”。雙擊命令按鈕進(jìn)入代碼編寫窗口，編寫如下代碼：PrivateSubCommandl_Click()DimstrAsStringstr="我會(huì)的編程語(yǔ)言是"IfCheckl．Value=1Then’Checkl被選中str=str+Checkl．CaptionEndIfIfCheck2．Value=1Then’Check2被選中str=str+Check2．CaptionEndIfIfCheck3．Value=1Then’Check3被選中str=str+Check3．CaptionEndIfPrintstrEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無(wú)解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生目錄下有一個(gè)工程文件sj5．vbp，其窗體上有兩個(gè)標(biāo)簽L1和L2，標(biāo)題分別為“口令”和“允許次數(shù)”；一個(gè)命令按鈕C1，標(biāo)題為“確定”；兩個(gè)文本框，名稱分別為Text1和Text2。其中Text1用來(lái)輸人口令(輸入時(shí)，文本框內(nèi)容顯示“*”)，初始內(nèi)容為空；Text2的初始內(nèi)容為3。并給出了Cl的事件過(guò)程，但不完整，要求去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使得程序運(yùn)行時(shí)，在Text1中輸人口令后，單擊“確定”，如果輸入的是“123456”則在Text1中顯示“口令正確”；如果輸入其他內(nèi)容，單擊“確定”后，彈出錯(cuò)誤提示對(duì)話框(如圖68—6所示)，并且Text2中的數(shù)字減1。最多可輸入3次口令，若3次都輸入錯(cuò)誤，則禁止再次輸入。注意：不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：本題主要考查文本框的Text、PasswordChar和Enabled屬性，&連接符以及MsgBox()函數(shù)。根據(jù)題意將文本框控件Text1的PasswordChar屬性設(shè)置為“*”。雙擊進(jìn)入代碼窗口，編寫如下代碼：PrivateSubC1_Click()IfText1．Text="123456"ThenText1.Text="口令正確"Text1．PasswordChar=""ElseText2．Text=Text2．Text-1IfText2．Text>0ThenMsgBox"第"&(3-Text2．Text)&"次13令錯(cuò)誤，請(qǐng)重新輸入"Else