VB機(jī)試模擬試卷4（共9套）（共26題）VB機(jī)試模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上畫一個(gè)文本框，名稱為Textl，字體為宋體，文本框中的初始內(nèi)容為“模擬試題”；請編寫適當(dāng)事件過程，使得在運(yùn)行時(shí)，雙擊窗體，則把文本框中文字加下劃線，如圖62—1所示。程序中不得使用任何變量。注意：保存時(shí)必須存放在考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sjl．frm。(2)在名稱為Forml的窗體上畫一個(gè)文本框，名稱為Textl，文本是“雙擊清除”，如圖62—2所示。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，如果雙擊文本框，則文本框中的文字消失。程序中不得使用任何變量。注意：保存時(shí)必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件添加到窗體中，其名稱為Textl，Text屬性為“模擬試題”，字體為宋體。雙擊Forml窗體，進(jìn)入代碼窗口，編寫如下代碼：PrivateSubForm_DblClick()Textl．Font．Underline=TrueEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體上添加一個(gè)文本框，名稱為Textl，Text屬性為“雙擊清除”。雙擊Textl，進(jìn)人代碼窗口，編寫如下代碼：PrivateSubTextl_DblClick()Textl．Text=""EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在窗體上繪制一個(gè)標(biāo)簽L1；一個(gè)單選按鈕數(shù)組，名稱為Opl，含三個(gè)單選按鈕。它們的Index屬性分別為0、1和2，標(biāo)題依次為“飛機(jī)”、“火車”和“汽車”；一個(gè)名稱為Textl的文本框。編寫程序，使得在運(yùn)行時(shí)單擊“飛機(jī)”或“火車”單選按鈕時(shí)，在’rextl中顯示“我坐飛機(jī)去”或“我坐火車去”，單擊“汽車”單選按鈕時(shí)，在Textl中顯示“我開汽車去”。程序運(yùn)行界面如圖66—4所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj3．frm，工程文件名為si3．vbp。(2)在考生文件夾中有工程文件Sj4．vbp及窗體文件sj4．frm，該程序是不完整的。在窗體上有兩個(gè)名稱分別為Commandl和Command2、標(biāo)題分別為“求平方”和“求立方”的命令按鈕，兩個(gè)名稱分別為Textl和Text2的文本框。要求程序運(yùn)行后，在Textl中輸入一個(gè)整數(shù)，單擊“求平方”或“求立方”按鈕后，可把該整數(shù)的“平方”或“立方”在Text2中顯示，如圖66—5所示。注意：請?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)標(biāo)簽和單選按鈕的標(biāo)題均由各自的Caption屬性設(shè)置。程序中需要檢測的單選按鈕的狀態(tài)，這可以通過Value屬來實(shí)現(xiàn)，如果單選按鈕被選中，則Value值為1，否則Value值為0。當(dāng)建立單選按鈕數(shù)組控件時(shí)，系統(tǒng)給每個(gè)元素賦一個(gè)一的索引號(Index)，通過屬性窗VI的Index屬性，可以知道該控件的下標(biāo)。在文本框中顯示內(nèi)容通過Text屬性設(shè)置，其式為：文本框名．Text：顯示的內(nèi)容，程序中用到了SelectCase語句，格式如下：SelectCase變量或表達(dá)式(對于本題來說就是控件數(shù)組元素的下標(biāo))Case表達(dá)式列表1語句塊1Case表達(dá)式列表2語句塊2CaseElse語句塊n+1]EndSelect①建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見下表：②打開工程資源管理器，右擊窗體，選擇查看弋碼項(xiàng)，在彈出的代碼窗口輸入代碼如下：PrivateSubOpl_Click(IndexAsInteger)DimaAsString，bAsString，CAsStringa="我坐"b="我坐"c="我開"SelectCaseIndexCaSe0Textl．Text=a+Me．Opl(0)．Caption+"去"Case1Textl．Text=b+Me．Opl(1)．Caption+"去"Case2Textl．Text=C+Me．Opl(2)．Caption+"去"EndSelectEndSub③調(diào)試并運(yùn)行程序。④按題目要求存盤。(2)根據(jù)題意，將兩個(gè)Text控件和兩個(gè)Command控件添加到窗體上，Text的名稱分別為Textl和Text2、Text屬性都為空，Command的名稱分別為Commandl和Command2，Caption屬性分別為“求平方”和“求立方”。雙擊Commandl命令按鈕，編寫如下代碼．：PrivateSubCommandl_Click()Text2．Text=Val(Textl．Text)*Val(Textl．Text)’求Textl中數(shù)的平方EndSubPrivateSubCommand2_Click()Text2．Text=Val(Textl．Text)*Val(Textl．Text)*Val(Textl．Text)’求Textl中數(shù)的立方EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在窗體上建立三個(gè)菜單(名稱分別為Read、Calc和Save，標(biāo)題分別為“讀人數(shù)據(jù)”、“計(jì)算并輸出”和“存盤”)，然后再添加一個(gè)文本框，名稱為Textl，MultiLine屬性設(shè)置為True，scrollBars屬性設(shè)置為2(如圖42—6所示)。程序運(yùn)行后。如果執(zhí)行“讀人數(shù)據(jù)”命令，則讀入考生文件夾下datainl．txt文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組中，數(shù)組的下界為1；如果單擊“計(jì)算并輸出”按鈕，則把該數(shù)組中下標(biāo)為偶數(shù)的元素在文本框中顯示出來，求出它們的和，并把所求得的和在窗體上顯示出來；如果單擊“存盤”按鈕，則把所求得的和存入考生文件夾下的dataoLlt．txt文件中。在考生文件夾下有一個(gè)工程文件sj5．vbp，窗體文件中的ReadData過程可以把datainl．txt文件中的100個(gè)整數(shù)讀人Arr數(shù)組中；而WriteData過程可以把指定的整數(shù)值寫到考生文件夾下指定的文件中(整數(shù)值通過計(jì)算求得，文件名為dataout．txt)。注意：考生不得修改窗體文件中已經(jīng)存在的程序。存盤時(shí)，工程文件名仍保存為sj5．vbp，窗體文件名仍保存為sj5．frm。標(biāo)準(zhǔn)答案：本題考查文本框的Name、MuhiLine、ScrollBars和Text屬性，文件操作，菜單編輯器的使用，Arr()函數(shù)以及Space()函數(shù)。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，利用菜單設(shè)計(jì)器，按表中的設(shè)置建立菜單項(xiàng)，如下表：并將文本框控件添加到窗體中，名稱為Textl，MuhiLine屬性為True，ScrollBars屬性為2，Text屬性為空，雙擊進(jìn)入代碼窗口，編寫如下代碼：DimsumAsIntegerPrivateSubCalcClick()Textl．Text=""Fori=2To100Step2Textl．Text：Textl．Text&Arr(i)&Space(5)sum=sum+Arr(i)NextiPrintsumEndSubPrivateSubRead_Click()ReadDataEndSubPrivateSubSaveClick()WriteData"dataout．txt"，sumEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。1．在名稱為Form1的窗體上放置一個(gè)名稱為Drive1的DriveListBox控件，一個(gè)名稱為Dir1的DirListBox控件和一個(gè)名稱為File1的FileListBox控件。程序運(yùn)行時(shí)，可以對系統(tǒng)中的文件進(jìn)行瀏覽；當(dāng)雙擊File1中的文件名時(shí)，用MsgBox顯示文件名(不顯示路徑名)。注意：程序中不得使用任何變量；保存時(shí)必須存放在考生文件夾下，窗體文件名為Sjt1.frm，工程文件名為sjt1.vbp。2．在名稱為Form1的窗體上放置一個(gè)名為Text1的文本框控件和一個(gè)名為Timer1的計(jì)時(shí)器控件，程序運(yùn)行后，文本框中顯示的是當(dāng)前的時(shí)間，而且每一秒文本框中所顯示的時(shí)間都會隨時(shí)間的變化而改變。注意：程序中不得使用任何變量；保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp，如圖1—1所示。標(biāo)準(zhǔn)答案：①在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。②文件系統(tǒng)控件有3種：驅(qū)動器列表框(DriveListBox)，目錄列表框(DirListBox)和文件列表框(FileListBox)。3個(gè)文件系統(tǒng)控件必須協(xié)調(diào)工作才能構(gòu)成一個(gè)文件管理系統(tǒng)，當(dāng)用戶在驅(qū)動器列表框中選擇一個(gè)新的列表框或在當(dāng)目錄列表框Path的屬性改變都觸發(fā)Change事件，將三者(利用本題中3個(gè)對象的名稱)實(shí)現(xiàn)同步的代碼為：File1.Path＝Dir1.Path，Dir1.Path＝Drive1.Drive。雙擊觸發(fā)DblClick事件彈出MsgBox顯示文件名，其格式為：MsgBox提示[,按鈕][,標(biāo)題]。③解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表1。表1標(biāo)題屬性設(shè)置值DriveListBoxNameDrive1DirListBoxNameDir1FileListBoxNameFile1第二步：編寫程序代碼。參考代碼：OptionExplicitPrivateSubDir1_Change()File1.Path＝Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path＝Drive1.DriveEndSubPrivateSubFile1_dblclick()MsgBoxFile1.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í)間間隔的長短，以毫秒為單位，所以要實(shí)現(xiàn)每一秒文本框的時(shí)間改變只要使該屬性設(shè)置為1000即可，要使程序運(yùn)行后取得當(dāng)前時(shí)間可用Time函數(shù)取得，程序用到的Str函數(shù)將其中的內(nèi)容轉(zhuǎn)化為字符串。③解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表2。表2標(biāo)題屬性設(shè)置值TextNameText1TimerNameIntervalTimer11000第二步：編寫程序代碼。參考代碼：PrivateSubForm_Load()Text1.Text＝Str(Time)EndSubPrivatesubTimer1_Timer()Text1.Text＝Str(Time)EndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、創(chuàng)建名稱為Form1的窗體，在窗體上畫一個(gè)圖片框。在圖片框的右側(cè)畫一個(gè)垂直滾動條，其Min屬性為100，Max屬性為2000，LargeChange屬性為120，SmallChange屬性為30。在圖片框中裝入圖片，圖片框的寬度與圖形寬度一致，高度任意，如圖4所示。編寫一個(gè)事件過程，程序運(yùn)行后，移動滾動條上的滾動塊可以放大或縮小圖片框。程序中不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為yJc2.vbp，窗體文件名為ylc2.frm。標(biāo)準(zhǔn)答案：(1)VisualBasic集成環(huán)境中，執(zhí)行“文件”→“新建工程”命令，選擇“標(biāo)準(zhǔn)Exe”。創(chuàng)建窗體Form1。(2)在工具箱中選擇圖片框控件，在窗體中拖動鼠標(biāo)建立一個(gè)圖片框，其名稱為Picture1。在屬性窗口中設(shè)置圖片框?qū)傩?，裝入圖片。調(diào)整圖片和圖片框?qū)挾缺３忠恢隆?3)在工具箱中選擇垂直滾動條控件，在圖片框右側(cè)創(chuàng)建垂直滾動條，在其屬性窗口設(shè)置其Min屬性為100，Max屬性為2000，LargeChange屬性為120，SmallChange屬性為30。雙擊按鈕彈出代碼窗口，編寫事件過程如下：PrivateSubVScrolil_Change()Picturel.Height=VScrolll.ValueEndSub(4)按F5鍵運(yùn)行程序。如圖4所示。(5)執(zhí)行“文件”→“保存工程”命令，將工程文件命名為ylc2.vbp，窗體文件命名為ylc2.frm。知識點(diǎn)解析：(1)文本框控件操作是上機(jī)考試基本操作中最常見的考點(diǎn)。VisualBasic中可以通過文本框的屬性窗口很方便地修改其各項(xiàng)屬性，常考的屬性包括是否可見、文本輸出等。其中文本輸出除了通過屬性窗口中修改，還可以通過編寫代碼修改。(2)圖片的裝入可以通過修改圖片框中屬性窗口中的Picture屬性輸入。圖片框的修改可以通過在代碼中將屬性值賦給Picture控件的各屬性來進(jìn)行。VB機(jī)試模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上建立一個(gè)二級下拉菜單。一級菜單的標(biāo)題為“編輯”，名稱為vbEdit，有效。二級菜單有兩項(xiàng)，一項(xiàng)標(biāo)題為“復(fù)制”，名稱為vbCopy，有效，命令執(zhí)行的快捷方式為Crtl+C；另一項(xiàng)標(biāo)題為“粘貼”，名稱為vbPaste，無效，命令執(zhí)行的快捷方式為Ctrl+P。程序運(yùn)行時(shí)，窗體界面如圖69一1所示。注意：存盤時(shí)必須存放到考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sjl．frm。(2)在名稱為Forml的窗體上畫一個(gè)文本框，其名稱為Textl，然后通過屬性窗口設(shè)置窗體和文本框?qū)傩?；文本框中顯示的初始信息為“模擬考試”，字體為四號、常規(guī)、黑體，并有刪除線，文本框可以顯示多行文本且只有垂直滾動條。不編寫任何代碼。程序運(yùn)行時(shí)的窗體界面如圖69—2所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2.vbp。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體空白處單擊右鍵，在彈出的快捷菜單中選擇“菜單編輯器”命令，或按“Ctrl+E”組合鍵，打開菜單編輯器，添加以下菜單項(xiàng)：添加完成后，單擊“確定”按鈕。再單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件添加到窗體中，其名稱為Text1，Text屬性為“模擬考試”，F(xiàn)ont屬性為“常規(guī)”、“黑體”、“四號”，并選中刪除線復(fù)選按鈕，MultiLIne屬性為True，Scrollbars屬性為2。單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾中有一個(gè)工程文件sj3．vbp，相應(yīng)的窗體文件為sj3．frm。在名為Form1的窗體上有一個(gè)命令按鈕，其名稱為Commandl，標(biāo)題為“添加”；有一個(gè)文本框，名為Textl，初始內(nèi)容為空白；此外還有一個(gè)列表框，其名稱為Listl。程序運(yùn)行后，如果在文本框中輸入一個(gè)英文句子(由多個(gè)單詞組成，各單詞之間用一個(gè)空格分開)，然后單擊命令按鈕，程序?qū)言撚⑽木渥幼鳛橐粋€(gè)項(xiàng)目添加到列表框中，如圖4l一4所示。該程序不完整，請補(bǔ)充完整。注意：去掉程序中的注釋符“’”，把程序中的問號“?”改為正確的內(nèi)容，使其能正確運(yùn)行，但不得修改程序的其他部分最后，按原文件名并在原文件夾中保存修改后的文件。(2)在考生文件夾中有工程文件sj4．vbp及窗體文件sj4．frm。在名為Forml的窗體上有2個(gè)框架、7個(gè)標(biāo)簽和7個(gè)文本框，所有控件已經(jīng)畫好。判斷輸入的條件是否為三角形，若是三角形，則在Textl中顯示“是三角形”；在Text2中顯示是何種三角形。單擊“重新輸入”按鈕可以清空所有顯示框，且按鈕本身變?yōu)闊o效狀態(tài)。當(dāng)單擊“判斷并計(jì)算”按鈕之后重新恢復(fù)為可用狀態(tài)。程序運(yùn)行情況如圖41—5所示。該程序的功能是：根據(jù)給定的圖形的三邊的邊長來判斷圖形的類型。若為三角形則同時(shí)計(jì)算出為何種三角形及三角形的周長和面積。注意：本程序不完整，請補(bǔ)充完整，并能正確運(yùn)行。三角形存在的條件為任一邊不為O且任兩邊之和大于第三邊。若一邊具有a2+b2=c2，則為直角三角形；若所有邊具有a2+b2>c2，則為銳角三角形；若一邊具有a2+b22，則為鈍角三角形。去掉程序中的注釋符“’”，把程序中的問號“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不得修改的其他部分。最后，按原文件名并在原文件夾中保存修改后的文件。標(biāo)準(zhǔn)答案：(1)Len()函數(shù)用于返回指定字符串的長度。使用Mid函數(shù)取出字符串中的字符。Mid函數(shù)的格式為：Mid(字符串，P，n)。Mid函數(shù)從第P個(gè)字符開始，向后截取n個(gè)字符，P和n都是算術(shù)表達(dá)式。Mid函數(shù)的第三個(gè)變量可以省略，這樣將第P個(gè)字符開始先后截取到字符串的結(jié)尾。根據(jù)題意，雙擊Commandl命令按鈕進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：PrivateSubCommandlClick()DimslAsString，s2AsStringDim11AsIntegers1=TextlI1=1DoDoWhileMid(sl，11，1)<>""And11<≥=Len(s1)s2=s2&Mid(sl，I1，1)I1=I1+1LoopListl．Addltems2s2=""I1=I1+1LoopWhileI1<=Len(s1)EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)該題用到兩個(gè)函數(shù)和一個(gè)公式，Val()是將其內(nèi)容轉(zhuǎn)變?yōu)閿?shù)字類型的函數(shù)，Sqr()是求數(shù)值的平方根函數(shù)，而求解三角形的面積的時(shí)候用到海倫公式即S=Sqr(L*(L-a)*(L-b)*(L-c))，其中a、b、C是三角形的三條邊，L=(a+b+c)／2。根據(jù)題意，雙擊Commandl命令按鈕進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：OptionExplicitDimaASSingleDimbAsSingleDimCAsSingleDimSASDoubleDimLAsSinglePrivateSubCommandlClick()a=Val(Text5．Text)b=Val(Text6．Text)c=Val(Text7．Text)Ifa

0Andb

0Andc

0Anda+b>cAnda+c>bAndb+c>aThenTextl．Text="是三角形"1fa^2+b^2=c^2Ora^2+c^2=b^2Orb^2+c^2=a^2ThenText2．Text="是直角三角形"ElseIfa^2+b^2>c^2Anda^2+c^2>b^2Andb^2+c^2>a^2ThenText2．Text="是銳角三角形"Else：Text2．Text="是鈍角三角形"EndIfEndIfText3．Text=a+b+C’計(jì)算三角形的周長L=(a+b+c)／2Text4．Text=Sqr(L*(L-a)*(L-b)*(L-c))’計(jì)算三角形的面積Else：Textl．Text="非三角形"Text2．Text=""Text3．Text=""Text4．Text=""EndIfCommand2．Enabled=TrueEndSubPrivateSubCommand2_Click()’此處需要設(shè)置，以實(shí)現(xiàn)清空所有文本框和使“重新輸入”按鈕無效的功能Textl．Text=""Text2．Text=""Text3．Text=""Text4．Text=""Text5．Text=""Text6．Text=""Text7．Text=""Command2．Enabled=FalseEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubFormLoad()Textl．Enabled=FalseText2．Enabled=FalseText3．Enabled=FalseText4．Enabled=FalseCommand2．Enabled=FalseEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾中有工程文件sj5．vbp及其窗體文件sj5．frm，該程序是不完整的。在名稱為Forml的窗體上有一個(gè)文本框，名稱為Textl、MultiLine屬性為True、ScrollBars屬性為2；兩個(gè)命令按鈕，名稱分別為Commandl和Command2、標(biāo)題分別為“讀取”和“計(jì)算保存”，程序運(yùn)行時(shí)的窗體界面如圖28—5所示。要求程序運(yùn)行后，如果單擊“讀取”按鈕，則讀入in．txt文件中的50個(gè)整數(shù)放人一個(gè)數(shù)組中(數(shù)組下界為1)，同時(shí)在文本框中顯示出來；如果單擊“計(jì)算保存”按鈕，則計(jì)算大于或等于500的所有數(shù)的平均數(shù)，并把求得的結(jié)果在文本框Textl中顯示出來，同時(shí)把該結(jié)果存人考生文件夾中的文件out．txt中。(在考生文件夾下的標(biāo)準(zhǔn)模塊mode．bas中的writedata過程可以把結(jié)果存入指定的文件。)注意：請?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。文件必須存放在考生文件夾下，窗體文件名為sj5．frm，工程文件名為sj5．vbp，計(jì)算結(jié)果存入out．txt文件，否則沒有成績。標(biāo)準(zhǔn)答案：文本框顯示的內(nèi)容由Text屬性設(shè)置，Multiline屬性設(shè)置文本框是否可多行顯示；按鈕的標(biāo)題由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。題中涉及對文件的操作，讀人順序文件以順序的方式打開，用Input#語句讀取數(shù)據(jù)，另外需要注意的是對文件操作完后，一定要關(guān)閉文件。根據(jù)題意要求將一個(gè)文本框控件和兩個(gè)命令按鈕，其中文本框的名稱為Namel、MultiLine屬性為True、滾動屬性為2命令按鈕的名稱分別為Commandl和Command2、Caption的屬性分別為“讀取”和“計(jì)算保存”。在“工程”窗口中單擊右鍵在彈出的快捷菜單中選擇“添加”→“添加模塊”，然后在彈出對話框的“現(xiàn)存”選項(xiàng)卡中選擇“mode．bas”，單擊“確定”按鈕即添加成功。模塊mode．bas中的代碼如下：FunctionwriteData(totalAsLong)OpenApp．Path&"＼out．txt"ForOutputAs#1Write#1，totalClose#1EndFunction窗體中補(bǔ)充后的代碼如下：Dima(50)AsLong’全局變量Dimstr(50)AsString’全局變量DimtotalAsLongDimnAsIntegerPrivateSubCommandlClick()total=0n=0Textl．Text=""OpenApp．Path&"＼in．txt"ForInputAs#1’打開"in．txt"文件DimiAsIntegerDimtempAsIntegerFori=0To49Input#1，tempa(i)=temp’按順序讀人到數(shù)組中NextiFori=0To49Ifa(i)>=500Thentotal=total+a(i)’當(dāng)符合條件時(shí)進(jìn)行相加n=n+1’當(dāng)符合條件是則n增lEndIfstr(i)=a(i)Textl．Text=Textl．Text+str(i)+vbCrLf’將數(shù)組中的50個(gè)數(shù)放人Text中顯示Nextitotal=total＼nClose#1EndSubPrivateSubCommand2Click()Textl．Text=totalwriteData(total)’將結(jié)果保存到out．txtEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上建立一個(gè)名稱為P1的圖片框和兩個(gè)命令按鈕，名稱分別為Cmdl和Cmd2，標(biāo)題分別為“輸出”和“清除”，如圖22—1所示。要求程序運(yùn)行后，每單擊一次“輸出”按鈕，不使用任何變量而直接在圖片框中顯示小寫字母“l(fā)oadme’’；如果單擊“清除”按鈕，則清除圖片框中的內(nèi)容。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sjl．vbp。(2)在名為：Form1的窗體上繪制一個(gè)標(biāo)簽，名為Labl，標(biāo)簽上顯示“請輸入密碼”；在標(biāo)簽的右邊繪制一個(gè)文本框，名為Textl，其寬、高分別為1500和300。設(shè)置適當(dāng)?shù)膶傩允沟迷谳斎朊艽a時(shí)，文本框中顯示“*”字符，此外冉把窗體的標(biāo)題設(shè)置為“PassWord窗口”。運(yùn)行時(shí)的窗體如圖22—2所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標(biāo)準(zhǔn)答案：(1)本題主要考查圖片框控件的基本操作。命令按鈕的標(biāo)題通過Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件；打印信息用Print方法，清除用Cls方法。題目要求在圖片框中打印信息，所以在編寫代碼時(shí)應(yīng)指定Print方法和C1s方法的使用對象。在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。①建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見下表。②命令按鈕Cmdl觸發(fā)Click事件，打印信息用Print方法。題目要求在圖片框中打印信息，所以在編寫代碼時(shí)，應(yīng)指定Print方法使用對象。PrivateSubCmdlClick()P1．Print"loadme"EndSub③清除用Cls方法。題目要求清除圖片框中的信息，所以在編寫代碼時(shí)，應(yīng)指定Cls方法的使用對象。PrivateSubCmd2_Click()P1．ClsEndSub④調(diào)試并運(yùn)行程序。⑤按題目要求存盤。(2)①新建一個(gè)名為Forml的窗體。②單擊工具箱中的Label控件圖標(biāo)，在窗體上拖拉出一個(gè)標(biāo)簽，在其屬性窗口設(shè)置名稱為Labl，Caption屬性為“請輸入密碼”。③單擊工具箱中的TextBox控件圖標(biāo)，在窗體上拖拉出一個(gè)文本框，在屬性窗口設(shè)置該文本框名稱為Textl；在屬性窗口設(shè)置其Width屬性為1500，Height屬性為300，設(shè)置PasswordChar屬性為“*”。④按要求保存文件即完成本題。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾中有工程文件sj3．vbp及其窗體文件sj3．。frm，該程序是不完整的。本題內(nèi)容如下：窗體上已有兩個(gè)文本框，名稱為Textl、Text2。要求在窗體上補(bǔ)充兩個(gè)單選按鈕，名稱分別為Optionl、Option2，標(biāo)題分別為“全部小寫”和“全部大寫”。要求補(bǔ)充完整代碼后，在Textl中輸入一段字符，選中“全部小寫”，Text2顯示全部小寫的字符串；選中“全部大寫”，Text2顯示全部大寫的字符串，如圖67—3所示。注意：請?jiān)谟小?”號的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。(2)在考生文件夾下有一個(gè)工程文件sj4．vbp，在窗體Forml上設(shè)置一個(gè)控件數(shù)組Checkl(i)，該控件數(shù)組包括6個(gè)復(fù)選框控件，標(biāo)題不限。另設(shè)一個(gè)名稱為Commandl、標(biāo)題為“統(tǒng)計(jì)選中個(gè)數(shù)”的命令按鈕。程序運(yùn)行后，單擊“統(tǒng)計(jì)選中個(gè)數(shù)”按鈕時(shí)，統(tǒng)計(jì)有多少個(gè)復(fù)選框被選中，并用MsgBox將其顯示出來，如圖67—4所示。注意：請去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容。但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：(1)本題主要考查單選按鈕(OptionButton)的畫法及常用屬性的設(shè)置、文本框(TextBox)的Text屬性、大小寫字母轉(zhuǎn)換函數(shù)UCase()和LCase()的使用。單選按鈕組常用于提供唯一選擇，Value屬性值決定每個(gè)單選按鈕的選中狀態(tài)：False表示未選中、True表示選中。文本框中輸入的內(nèi)容可以由其Text屬性來設(shè)置或取得。將字符串中小寫字母轉(zhuǎn)化為大寫字母可由UCase()函數(shù)來實(shí)現(xiàn)，將字符串中大寫字母轉(zhuǎn)化為小寫字母可由LCase()函數(shù)來實(shí)現(xiàn)。根據(jù)題意，將兩個(gè)文本框控件和兩個(gè)單選按鈕控件添加到窗體中，文本框的名稱分別為Textl和Text2、Text屬性都為空，單選按鈕的名稱分別為Optionl和Option2、Caption屬性分別為“全部小寫”和“全部大寫”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubOptionl_Click()Text2．Text=LCase(Textl．Text)’單擊Optionl，則將Textl中的字母轉(zhuǎn)換為小寫EndSubPrivateSubOption2_Click()Text2．Text=UCase(Textl．Text)’單擊Option2，則將Textl中的字母轉(zhuǎn)換為大寫EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題主要考查復(fù)選按鈕控件數(shù)組及MsgBox()函數(shù)的使用。復(fù)選按鈕組常用于提供多重選擇，Value屬性值決定每個(gè)復(fù)選按鈕的選中狀態(tài)：0表示未選中；1表示選中；2表示不可用。(即灰色)。MsgBox()函數(shù)用于顯示提示信息，并可返回一個(gè)代表用戶點(diǎn)擊了哪個(gè)按鈕的Integer類型值，其常用語法為：MsgBox(prompt[，buttons][，title])。其中，prompt參數(shù)為消息框的提示信息；buttons參數(shù)用于控制消息框中按鈕的數(shù)日、形式及消息框圖標(biāo)的樣式；title參數(shù)為消息框標(biāo)題欄上顯示的內(nèi)容。添加控件數(shù)組的方法是：先建立第一個(gè)控件，然后對該控件進(jìn)行“復(fù)制”、“粘貼”操作，粘貼時(shí)在彈出的對話框中選擇建立控件數(shù)組，這時(shí)控件數(shù)組的Index值會自動從0開始編號，控件數(shù)組的Count屬性用于返回?cái)?shù)組中元素的個(gè)數(shù)。根據(jù)題意，將一組六個(gè)復(fù)選按鈕控件和一個(gè)命令按鈕添加到窗體中，Check的名稱都為Checkl、Caption屬性自定義，命令按鈕的名稱為Commandl，Caption屬性為“統(tǒng)計(jì)選中個(gè)數(shù)”，設(shè)置完成后雙擊Commandl進(jìn)入代碼窗口，用For循環(huán)逐一檢查復(fù)選按鈕數(shù)組各元素的Value屬性值是否為1，若是，將統(tǒng)計(jì)變量加1。將最終統(tǒng)計(jì)結(jié)果用MsgBox()函數(shù)顯示。補(bǔ)充后的具體代碼如下：PrivateSubCommandl_Click()DimiAsIntegerDimhumAsIntegerhum=0Fori=0ToCheckl．Count-1’For循環(huán)遍歷Cheekl組IfCheckl．Item(i)．Value=1Then’如果選中該項(xiàng)num=hum+1’計(jì)數(shù)加1EndIfNextiMsgBox("選中了"+CStr(num)+"項(xiàng)")’將計(jì)數(shù)結(jié)果放在提示對話框中顯示EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sj5．vbp，其窗體上有一個(gè)命令按鈕，名稱為Commandl、標(biāo)題為“添加”；一個(gè)文本框，名稱為Text1。程序運(yùn)行前，文本框的編輯區(qū)為空白；一個(gè)列表框，名稱為Listl。在文本框中輸入文本，若單擊“添加”按鈕，文本框中的文本被作為一個(gè)列表項(xiàng)被加入到列表框中，如圖19—5所示。若．雙擊文本框，則使文本框中的內(nèi)容為空，且使“添加”按鈕變?yōu)闊o效。注意：去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性，最后把修改后的文件以原來的文件名存盤。標(biāo)準(zhǔn)答案：本題重點(diǎn)考查列表框控件的使用及命令按鈕的事件和屬性設(shè)置。列表框控件用于提供可進(jìn)行單一或多個(gè)選擇的列表項(xiàng)，給列表框添加列表項(xiàng)既可以在設(shè)計(jì)階段通過其List屬性設(shè)置加入．也可在程序運(yùn)行時(shí)通過代碼“列表框名．Addltem‘項(xiàng)目’”加入，清除列表框內(nèi)容可通過其Clear方法來實(shí)現(xiàn)；文本框的Text屬性用于設(shè)置或返回其上顯示的文本；Enabled屬性用于設(shè)置命令按鈕是否有效，單擊命令按鈕將觸發(fā)其Click事件。根據(jù)題意，將一個(gè)List控件、一個(gè)命令按鈕和一個(gè)文本框控件添加到窗體中，列表框的名稱為Listl，命令按鈕的名稱為Commandl、Caption屬性為“添加”，文本框的名稱為Textl、Text屬性為空。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommand1_Click()Listl．AddItemTextl．Text’單擊添加按鍵，將Text1中的字符寫入List中EndSubPrivateSubTextl_Change()IfTextl．Text=""ThenCommandl．Enabled=False’如果Textl中沒有字符，則Commandl不可用ElseCommandl．Enabled=True’如果Textl中有字符，則Commandl可用EndIfEndSubPrivateSubTextlDblClick()Textl．Text=""’雙擊Textl，清空TextlCommandl．Enabled=False’Command不可用EndSub單擊按鈕運(yùn)行程序．并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上畫兩個(gè)文本框和兩個(gè)單選按鈕。文本框的名稱分別為Textl和Text2，初始時(shí)內(nèi)容為Text1和Text2。單選按鈕的名稱分別為Optionl、Option2，標(biāo)題分別為“文本框Textl可用”和“文本框Text2可用”。編寫適當(dāng)?shù)氖录^程，使得程序運(yùn)行時(shí)，初始狀態(tài)單選按鈕都未被選中，如果單擊Optionl按鈕，則文本框Text1可用，Text2不可用；如果單擊Option2按鈕。則文本框Text2可用，Text1不可用。程序中不得使用任何變量。程序運(yùn)行時(shí)的窗體界面如圖26—1所示。注意：考生完成程序編寫后，將工程文件與窗體文件保存到考生文件夾下，文件名分別為sjl．vbp與sjl．frm。(2)在名稱為Forml的窗體上畫一條直線，名稱為Linel。同時(shí)，在窗體上畫一個(gè)水平滾動條，名稱為HScrolll。編寫適當(dāng)?shù)氖录^程，程序運(yùn)行后，根據(jù)水平滾動條的長度改變Linel的長度。不得使用任何變量。程序運(yùn)行時(shí)的窗體界面如圖26—2所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將兩個(gè)Text控件和兩個(gè)Option控件添加到窗體上，Text的名稱為Textl、Text2、Text屬性分別為“Textl”和“Text2”，Option的名稱分別為Optionl、Option2、Caption屬性分別為“文本框Textl可用”和“文本框Text2可用”，其中Optionl的Value屬性為False，Text2的Enable屬性為False。雙擊Option進(jìn)入代碼窗口，編寫如下代碼：PrivateSubOptionl_Click()Textl．Enabled=True’選中Optionl，則Textl可用Text2．Enabled=False’Text2不可用EndSubPrivateSubOption2_Click()Textl．Enabled=FalseText2．Enabled=TrueEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)HScrollBar控件添加到窗體上，其名稱為HScrolll，Max屬性為2000，Min屬性為400，然后再用Line控件畫一條直線，X2--X1的值為400，Bm’derWidth屬性為4。雙擊HScrolll，進(jìn)入代碼窗口，編寫如下代碼：PrivateSubHScrolll_Change()Linel．X2=Linel．X1+HScrolll．Value’通過HScrolll來改變Line的長度EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生目錄下有一個(gè)工程文件sj3．vbp，窗體中有一個(gè)命令按鈕，標(biāo)題為“開始”，名稱為Commandl；有一個(gè)圖片框，名稱為Picl，還有一個(gè)計(jì)時(shí)器，名稱為Timer1。并給出了兩個(gè)事件過程，但并不完整，要求：設(shè)置計(jì)時(shí)器的屬性，使其每隔3秒調(diào)用Timerl事件過程一次，改變Picl的背景色(紅、綠、藍(lán)3色)。去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使得在運(yùn)行時(shí)單擊“開始”按鈕，則Picl每隔3秒改變一次背景色，由紅變綠，由綠變藍(lán)，再由藍(lán)變紅，如圖23—3所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。(2)在窗體上繪制一個(gè)命令按鈕，名稱為Commandl，標(biāo)題分別為“計(jì)算”，一個(gè)名稱為Textl的文本框。請編寫適當(dāng)?shù)氖录^程，在Textl中輸出30以內(nèi)滿足勾股定理的整數(shù)組合。注：勾股定理中3個(gè)數(shù)的關(guān)系是：a2+b2=c2。例如3、4、5就是一個(gè)整數(shù)組合，即32+42=52。如圖23—4所示。注意：編寫程序，去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：(1)本題主要考查Timer控件的屬性設(shè)置和圖片框控件的屬性設(shè)置。計(jì)時(shí)器的Interval屬性用于設(shè)置每次觸發(fā)計(jì)時(shí)器的Timer事件的時(shí)間間隔，單位為毫秒，它可以在屬性窗口中設(shè)置，也可以通過代碼設(shè)置。圖片框控件既可用于顯示圖片，也可用于在上面繪圖，由于本題只要求改變顏色，所以只需控制其背景顏色屬性即可。根據(jù)題意，補(bǔ)充后的代碼如下：DimaAsIntegerPrivateSubCommandl_Click()Timerl．Interval=1000’開始后，Timer的間隔時(shí)間為1秒EndSubPrivateSubForm_Load()a=0’初始化計(jì)數(shù)Picl．BackColor=RtB(255，0，O)EndSubPrivateSubTimerl_Timer()a=(a+1)Mod9’以9為周期Ifa<3Then’當(dāng)a小于3時(shí)Picl．BackColor=RGB(255，0，O)’背景色為紅色ElseIfa>=3Anda<6Then’當(dāng)a<6時(shí)Picl．BackColor=RGB(O，255，0)’背景色為綠色Else’其他情況Picl．BackColor=RGB(0，0，255)’背景色為藍(lán)色EndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題只要明白勾股定理的含義就不難了，即a^2+b^2=c^2。程序中利用3重循環(huán)對30以內(nèi)的數(shù)進(jìn)行遍歷，每發(fā)現(xiàn)一組符合條件的數(shù)，就以逗號間隔顯示在文本框中。窗體界面題中已設(shè)計(jì)好，只需補(bǔ)充相應(yīng)的代碼，補(bǔ)充后的代碼如下：PrivateSubCommandl_Click()DimiAsIntegerDimjAsIntegerDimkAsIntegerDimstrAsStringstr=""Fori=1To30’第1個(gè)數(shù)用For循環(huán)從1遍歷到30Forj=iTo30’第2個(gè)數(shù)用For循環(huán)從i遍歷到30Fork=iTo30’第3個(gè)數(shù)用For循環(huán)從i遍歷到30Ifi^2+j^2=k^2Then’滿足勾股定理str=str+CStr(i)+"，"+CStr(j)+"，"+CStr(k)+vbCrLf’將獲得的3個(gè)數(shù)通過字符串形式記錄EndIfNextkNextjNextiTextl．Text=str’在Textl中顯示結(jié)果EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sj5．vbp，在該工程中為考生提供了一個(gè)通用過程，考生可以直接調(diào)用。請?jiān)诖绑w上畫一個(gè)名稱為Textl的文本框；畫一個(gè)名稱為Commandl、標(biāo)題為“計(jì)算顯示”的命令按鈕；再畫兩個(gè)單選按鈕，名稱分別為Optionl和Option2、標(biāo)題分別為“求100到250之間能被5整除的數(shù)的個(gè)數(shù)”和“求300到400之間能被6整除的數(shù)的個(gè)數(shù)”，如圖62—5所示。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，選中一個(gè)單選按鈕，再單擊“計(jì)算顯示”按鈕，就可以按照單選按鈕后的文字要求計(jì)算，并把計(jì)算結(jié)果放入文本框中，最后把已經(jīng)修改的工程文件和窗體文件以原來的文件名存盤。注意：考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕來完成。在結(jié)束程序運(yùn)行之前，必須至少要進(jìn)行一種計(jì)算，否則不得分。標(biāo)準(zhǔn)答案：根據(jù)題意，將一個(gè)文本框控件，兩個(gè)單選按鈕控件和一個(gè)命令按鈕添加到窗體中，文本框的名稱為Textl，單選按鈕的名稱：分別為Optionl和Option2，Caption分別為“求100到250之間能被5整除的數(shù)的個(gè)數(shù)”和“求300到400之間能被6整除的數(shù)的個(gè)數(shù)”，命令按鈕的名稱為Commandl，Caption屬性為“計(jì)算顯示”，設(shè)置完成后，雙擊Commandl進(jìn)入代碼窗口，補(bǔ)充后的具體代碼如下：PrivateSubCommandl_Click()DimrainAsInteger’下限D(zhuǎn)immaxAsInteger’上限D(zhuǎn)imiAsInteger’循環(huán)計(jì)數(shù)DimmumAsInteger’個(gè)數(shù)DimtmpAsInteger’除數(shù)IfOptionl．Value=TrueThen’選中Optionl時(shí)min=100max=250tmp=5Else’選中Option2時(shí)rain=300max=400tmp=3EndIfnum=0Fori=minTomax’利用循環(huán)來逐個(gè)判斷IfiModtmp=0Thennum=num+1’如果能被除數(shù)整除，則個(gè)數(shù)加1EndIfNextiTextl．Text=hum’在Textl文本框中顯示出來Open"App．Path&＼out5．txt"ForOutputAs#1Print#1，Textl．TextClose#1EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上建立一個(gè)垂直滾動條，請?jiān)趯傩源翱谥邪阉拿Q設(shè)置為VSl，Max屬性設(shè)置為50．Mill屬性設(shè)置為0．Value屬性設(shè)置為50。程序運(yùn)行后，滾動塊位于滾動條最下端，如圖18—1所示，如果單擊滾動條之外的窗體部分，則滾動塊跳到最上端。注意：只能直接為相應(yīng)的屬性賦值，不得使用變量。保存時(shí)必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sjl．vbp。(2)在名稱為Forml的窗體中建立一個(gè)標(biāo)簽，名稱為Lablel，在標(biāo)簽上顯示“編程語言”并設(shè)置為四號宋體；再建立3個(gè)復(fù)選框，名稱分別為Checkl、Check2和Check3，標(biāo)題分別為“C++”、“Basic”和“JAVA”，字體大小均為四號宋體，加粗，其中“JAVA”被禁用，如圖18—2所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)垂直滾動條添加到窗體中，將其名稱設(shè)為VSl，Max屬性為50，Min屬性為0，Value屬性為50，然后雙擊Forml窗體．在Form_Click事件中編寫如下代碼：PrivateSubForm_Click()VSl．Value=0EndSub單擊按鈕運(yùn)行程序。并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)標(biāo)簽和3個(gè)復(fù)選按鈕添加到窗體中，標(biāo)簽的名稱為I．a(chǎn)betl，Caption屬性為“編程語言”，字體大小為四號，3個(gè)復(fù)選按鈕的名稱分別為Checkl、Check2和Check3．Caption屬性分別為“C++”、“Basic”和“JAVA”，字體均為四號宋體，且加粗，Check3的Value值為2。設(shè)置后單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、在考生文件夾中有工程文件execise21.vbp及窗體文件execise21.frm。在名為Form1的窗體中有一個(gè)名為Image1的圖像框，還有兩個(gè)命令按鈕(名稱分別是Cmd1和Cmd2，標(biāo)題分別是“放大”和“縮小”)。要求程序運(yùn)行后，單擊“放大”按鈕，則圖像框變大：單擊“縮小”按鈕，則圖像框變小。本程序不完整，請補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序中的注釋符“’”，把程序中的問號“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夾中保存修改后的文件。標(biāo)準(zhǔn)答案：知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。在考生文件夾下有工程文件sjt5.vbp及窗體文件sjt5.frm，該程序是不完整的，請?jiān)谟?號的地方填入正確的程序代碼，然后刪除?及所有注釋符號(即’號)，但不能修改其他部分。修改后的程序文件都保存，存盤時(shí)不得修改文件夾和文件名。本題描述如下：在窗體上有一個(gè)名稱為Text1的文本框，三個(gè)命令按鈕，名稱分別是C1、C2和C3，標(biāo)題分別是“讀入”、“加密”和“存盤”。要求程序運(yùn)行后，點(diǎn)擊“讀入”按鈕，將文本文件in7.txt(該文件在考生文件夾下)中的文本信息讀入文本框Text1中；點(diǎn)擊“加密”按鈕將Text1中的英文字母加密轉(zhuǎn)換，并將轉(zhuǎn)換后的結(jié)果顯示到Text1中。轉(zhuǎn)換方式為轉(zhuǎn)換成該字母對應(yīng)字母表中后兩個(gè)位置的字母。例如，轉(zhuǎn)換前的字母是“a”，則轉(zhuǎn)換后的是“c”；點(diǎn)擊“存盤”按鈕，則將轉(zhuǎn)換后的文本框中的文本保存到out7.txt文件中(該文件保存到考生文件夾下)。程序設(shè)計(jì)界面如圖12-8所示。標(biāo)準(zhǔn)答案：文本框中顯示的內(nèi)容由Text屬性設(shè)置。單擊命令按鈕觸發(fā)Click事件，命令按鈕的標(biāo)題由Caption屬性設(shè)置。題目要求加密原理是：在原來字符的ASCII碼加上一個(gè)整數(shù)(題目要求為2)轉(zhuǎn)換為其他的字符，然后再將加密后的字符顯示在文本框中。這樣就用到了Chr函數(shù)和Asc函數(shù)。Chr函數(shù)返回String，其中包含有與指定的字符代碼相關(guān)的字符。其語法格式為：Chr(charcode)charcode必要參數(shù)，是一個(gè)用來識別某字符的Long。Asc函數(shù)返回一個(gè)Integer，代表字符串中首字母的字符代碼。其語法格式為：Asc(string)string必要的參數(shù)，可以是任何有效的字符串表達(dá)式。解題步驟：第一步：編寫程序代碼。程序提供的代碼：PrivateSubC1_Click()DimstrinfoAsString’?"in7.txt"ForInputAs1Input#1,strinfoClose#1Text1.Text=strinfoEndSubPrivateSubCommand2_Click()DimstrchangeAsStringDimiAsIntegerFori=1ToLen(Text1.Text)’strchange=strchange+?(Asc(Mid(Text1.Text,i,1))+2)NextText1.Text=strchangeEndSubPrivateSubCommand3_Click()Open"out7.txt"ForOutputAs1’Print#1,?Close#1EndSub參考代碼：PrivateSubC1_Click()DimstrinfoAsStringOpen"in7.txt"ForInputAs1Input#1,strinfoClose#1Text1.Text=strinfoEndSubPrivateSubC2_Click()DimstrchangeAsStringDimiAsIntegerFori=1ToLen(Text1.Text)strchange=strchange+Chr(Asc(Mid(Text1.Text,i,1))+2)NextText1.Text=strchangeEndSubPrivateSubC3_Click()Open"out7.txt"ForOutputAs1Print#1,Text1.TextClose#1EndSub第二步：調(diào)試并運(yùn)行程序第三步：按題目要求存盤知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第7套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在窗體Forml中繪制一個(gè)名稱為Textl、內(nèi)容空的文本框和一個(gè)名稱為Commandl、標(biāo)題為“大寫”的命令按鈕。要求程序運(yùn)行時(shí)，在文本框中輸入英文字母，單擊“大寫”，文本框中的字母全部以大寫字母顯示。程序代碼中不得使用任何變量。程序運(yùn)行的效果如圖53—1所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sjl．Vbp。(2)在名為Form1的窗體上繪制一個(gè)容器，名稱為Framel，標(biāo)題為“框架”、高度為2400、寬度為2000；再在容器中繪制一個(gè)標(biāo)簽，名稱為Labell、高度為500、寬度為1200，其位置距容器的左邊框300，距容器的上邊框800，標(biāo)簽中的初始內(nèi)容設(shè)置為“模擬試題”，BorderStyle屬性為2。只建立控件，不必定義其事件過程。程序運(yùn)行時(shí)的窗體界面如圖53—2所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件和一個(gè)命令按鈕添加到窗體中，文本框的名稱為Textl、Text屬性為空，命令按鈕的名稱為Commandl、Caption屬性為“大寫”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()Textl．Text=UCase(Textl．Text)’將Textl中的字符變?yōu)榇髮慐ndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)框架控件和一個(gè)標(biāo)簽添加到窗體中，框架的名稱為Framel、Caption屬性為“框架”，標(biāo)簽的名稱為Labell、Caption屬性為“模擬試題”、BorderStyle屬性為2、Left屬性為300、Top屬性為800、Width屬性為1200、Height屬性為500。單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在窗體上繪制一個(gè)名稱為Textl的文本框，然后建立兩個(gè)主菜單，標(biāo)題分別為“系別”和“幫助”，名稱分別為vbMenu和vbHelp，其中“系別”菜單包括“工商管理”、“信息科學(xué)與工程”、“機(jī)械工程與自動化”3個(gè)子菜單，名稱分別為vbMenul、vbMenu2、vbMenu3。要求程序運(yùn)行后，如果在“系別”的下拉菜單中選擇“工商管理”，則在文本框內(nèi)顯示“金融學(xué)、國際貿(mào)易學(xué)”；如果選擇“信息科學(xué)與工程”，則在文本框內(nèi)顯示“系統(tǒng)工程、計(jì)算機(jī)應(yīng)用技術(shù)”；如果選擇“機(jī)械工程與自動化”，則在文本框內(nèi)顯示“機(jī)械工程、車輛電子工程”(要求：不能使用任何變量，直接顯示字符串)。程序運(yùn)行時(shí)，選擇“工商管理”選項(xiàng)，程序運(yùn)行窗體顯示如圖29—3所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj3．frm，工程文件名為sj3．Vbp。(2)在考生文件夾中有文件sj4．vbp及其窗體文件sj4．frm，該程序是不完整的。窗體上面有兩個(gè)名稱分別為Commandl和Command2、標(biāo)題分別為“輸入維數(shù)”和“計(jì)算”的命令按鈕。程序運(yùn)行后，如果單擊“輸人維數(shù)”命令按鈕，則對數(shù)組a的維數(shù)進(jìn)行賦值，初始化數(shù)組(通過等式a(i，j)=i*j計(jì)算)；如果單擊“計(jì)算”命令按鈕，則求出二維數(shù)組a(i，j)的各元素之和，并在文本框中顯示出來。請?jiān)O(shè)置相應(yīng)的控件并編寫程序?qū)崿F(xiàn)該功能。程序運(yùn)行效果如圖29—4所示。注意：請?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時(shí)不得改變文件和文件名?？忌瓿沙绦蚓帉懞螅瑢⒐こ涛募c窗體文件保存到考生文件夾下，文件名分別為sj4．vbp與sj4．frm。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，單擊窗體空白處，在彈出的快捷菜單中選擇“菜單編輯器”命令，打開菜單編輯器，輸入以下菜單項(xiàng)：編寫如下代碼：PrivateSubvbMenulClick()Textl．Text="金融學(xué)、國際貿(mào)易學(xué)"EndSubPrivateSubvbMenu2Click()Textl．Text="系統(tǒng)工程、計(jì)算機(jī)應(yīng)用技術(shù)"EndSubPrivateSubvbMenu3Click()Textl．Text="機(jī)械工程、車輛電子工程"EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題主要通過InputBox函數(shù)給變量a、b賦值，然后利用a(i，j)=i*j對數(shù)組進(jìn)行初始化，即求出a(i，j)中各元素，最后再對各元素進(jìn)行求和。補(bǔ)充后的代碼如下：DimaAsIntegerDimbAsIntegerPrivateSubCommandlClick()a=Val(InputBox("輸入維數(shù)："))’利用輸入對話框輸入維數(shù)b=Val(InputBox("輸入維數(shù)："))EndSubPrivateSubCommand2Click()DimtotalAsLongtotal=0DimiAsIntegerDimjAsIntegerFori=1Toa’利用雙層循環(huán)遍歷所有數(shù)組的數(shù)Forj=1Tobtotal=total+i*j’求和NextjNextiTextl．Text=total’將結(jié)果顯示在Textl中EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5.vbp，其窗體上有兩個(gè)標(biāo)簽L1和L2，標(biāo)題分別為“口令”和“允許次數(shù)”；一個(gè)命令按鈕C1，標(biāo)題為“確定”；兩個(gè)文本框名稱分別為Text1和Text2，其中Text1用來輸入口令(輸入時(shí)，顯示“*”)，無初始內(nèi)容Text2的初始內(nèi)容為3，如圖3—1所示。程序給出了C1的事件過程，但不完整，要求去掉程序中的注釋符，把程序中的?改為正確內(nèi)容，使得在運(yùn)行時(shí)，在Text1中輸入口令后，單擊“確定”按鈕，如果輸入的是“123456”則在Text1中顯示“口令正確”；如果輸入其他內(nèi)容，單擊“確定”后，彈出錯誤提示對話框，并且Text2中的數(shù)字減1。最多可輸入3次口令，若3次都輸入錯誤，則禁止再次輸入。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：①在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。②在文本框里顯示的內(nèi)容通過Text屬性設(shè)置，其形式為：文本框名.Text＝顯示的內(nèi)容要使文本框內(nèi)容顯示為“*”，需將PasswordChar屬性設(shè)置為“*”。程序中用到的MsgBox語句用法為：MsgBox提示[,按鈕][,標(biāo)題]在程序運(yùn)行時(shí)控件是否可操作由Enabled屬性設(shè)置，當(dāng)該屬性為True時(shí)控件可操作，為False時(shí)不可操作。若3次都輸入錯誤，禁止再次輸入，將文本框的Enabled屬性置為False即可。③解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性值見表4。表4控件屬性設(shè)置值文本框NameTextText1空文本框NameTextText23命令按鈕NameCaptionC1確定標(biāo)簽NameCaptionL1口令標(biāo)簽NameCaptionL2輸入次數(shù)第二步：編寫程序代碼。程序提供的代碼：PrivateSubC1_Click()’If?="123456"ThenText1.Text＝"口令正確"’Text1.?＝""ElseText2.Text＝Text2.Text—1’IfText2.Text＞?ThenMsgBox"第"&(3—Text2.Text)&"次口令錯誤，請重新輸入"ElseMsgBox"3次輸入錯誤，請退出"’Text1.Enabled=?EndIfEndIfEndSub參考代碼：PrivateSubC1_Click()IfText1.Text="123456"ThenText1.Text="口令正確"Text1.PasswordChar=""ElseText2.Text=Text2.Text—1IfText2.Text＞0ThenMsgBox"第"&(3—Text2.Text)&"次口令錯誤，請重新輸入"ElseMsgBox"3次輸入錯誤，請退出"Text1.Enabled=FalseEndIfEndIfEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第8套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Form1的窗體上建立一個(gè)名稱為Commandl、標(biāo)題為“顯示”的命令按鈕，一個(gè)名稱為Textl的文本框，運(yùn)行界面如圖65—1所示。要求程序運(yùn)行后，在文本框中輸入幾個(gè)字符，單擊“顯示”按鈕，則在窗體上顯示文本框中的文字。注意：在程序中不能使用任何變量。保存時(shí)必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sjl．vbp。(2)在名稱為Forml的窗體上建立兩個(gè)名稱分別為Commandl和Command2、標(biāo)題為“按鈕A”和“按鈕B”的命令按鈕，運(yùn)行界面如圖65—2所示。要求程序運(yùn)行后，如果單擊“按鈕A”，則使兩個(gè)按鈕重合，如圖65—3所示。注意：在程序中不得使用任何變量(必須通過屬性設(shè)置來移動控件)。保存時(shí)必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．Vbp標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件和一個(gè)命令按鈕添加到窗體中，將文本框的名稱設(shè)為Textl，將命令按鈕的名稱設(shè)為Commandl、Caption屬性為“顯示”。雙擊Commandl，進(jìn)入代碼編寫窗口，編寫如下代碼：PrivateSubCommandl_Click()’單擊按鈕“顯示”調(diào)用的函數(shù)PrintTextl．TextEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題考查按鈕的擺放位置的設(shè)置，涉及對象的Left和Top屬性。命令按鈕的標(biāo)題通過Caption屬性來設(shè)置，單擊命令按鈕觸發(fā)Click事件。Left表示控件與所在窗體的左邊之間的距離，Top表示控件與所在窗體的頂邊之間的距離。讓兩個(gè)按鈕位置重合只需將兩個(gè)按鈕的Left和Top設(shè)置相同即可。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，并排放人兩個(gè)命令按鈕，名稱分別為Commandl和Command2、Caption屬性分別為“按鈕A”和“按鈕B”，要求按下按鈕A后，按鈕B的位置發(fā)生變化，雙擊Commandl，進(jìn)人代碼編輯區(qū)，輸入以下代碼：PrivateSubCommandl．Click()’按鈕A的事件函數(shù)Command2．Left=Commandl．Left’改變按鈕B的位置Command2．Top=Commandl．TopEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生目錄下有一個(gè)工程文件sj3．vbp，窗體中有一個(gè)命令按鈕，標(biāo)題為“向左移動”，名稱為Commandl；還有一個(gè)計(jì)時(shí)器，名稱為Timerl。并給出了兩個(gè)事件過程，但并不完整。設(shè)置計(jì)時(shí)器的屬性，使其在初始狀態(tài)不計(jì)時(shí)；設(shè)置計(jì)時(shí)器的屬性，使其每隔0．3秒調(diào)用Timerl事件過程一次。使得在運(yùn)行時(shí)單擊“向左移動”按鈕，則按鈕每隔0．3秒向左移動一次，當(dāng)移出窗體時(shí)返回窗體的右端，如圖15—5所示。注意：去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。(2)在考生文件夾中有文件sj4．vbp及其窗體文件sj4．frm，窗體已經(jīng)設(shè)計(jì)好，要求考生用If語句編寫程序，使得程序運(yùn)行時(shí)，滿足下列要求。窗體上有兩個(gè)復(fù)選框，名稱分別為Checkl和Check2，標(biāo)題分別為“英語”和“德語”；兩個(gè)單選按鈕，名稱分別為Optionl和Option2，標(biāo)題分別為“我會”和“我不會”；一個(gè)名稱為Labell的標(biāo)簽；一個(gè)名稱為Commandl、標(biāo)題為“輸出”的命令按鈕。要求程序運(yùn)行后，對復(fù)選框和單選按鈕進(jìn)行選擇，然后單擊按鈕，可根據(jù)下表的規(guī)定在標(biāo)簽中顯示相應(yīng)的信息：程序運(yùn)行時(shí)的窗體界面如圖15—6所示。注意：不得使用任何變量。存盤時(shí)不得改變文件夾和文件名。標(biāo)準(zhǔn)答案：(1)本題考查計(jì)時(shí)器控件(Timer)、命令按鈕控件(CommandButton)的常用屬性和事件以及編寫簡單事件過程。計(jì)時(shí)器只在設(shè)計(jì)時(shí)可見，計(jì)時(shí)器是否啟用由其Enabled屬性設(shè)置，值為True或False。啟用后間隔多長時(shí)間觸發(fā)一次其Timer事件由其Interval屬性設(shè)置，Interval屬性的單位為毫秒，缺省值為0，此時(shí)計(jì)時(shí)器也不啟用?？刂泼畎粹o向左移動可通過修改其Left屬性值實(shí)現(xiàn)，當(dāng)Left屬性值超過窗體的Width屬性值時(shí)表示按鈕已移出窗體，此時(shí)Left屬性值設(shè)為0即可將按鈕返回窗體右端。移動按鈕的事件過程均在計(jì)時(shí)器的Timer中實(shí)現(xiàn)。根據(jù)題意，將一個(gè)命令按鈕和一個(gè)計(jì)時(shí)器控件添加到窗體中，命令按鈕的名稱為Command1、Caption屬性為“向左移動”，Timer的名稱為Timer1。雙擊Com