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

VB機(jī)試模擬試卷6（共9套）（共27題）VB機(jī)試模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual。Basic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml、標(biāo)題為“框架練習(xí)”的窗體上畫一個(gè)名稱為Framel、標(biāo)題為“字體”的框架控件；在框架中畫兩個(gè)單選按鈕，名稱分別為Optionl、Option2，標(biāo)題分別為“宋體”、“黑體”，標(biāo)題在單選按鈕的左邊。運(yùn)行后的窗體如圖1-211所示。注意：存盤時(shí)，將文件保存至考生文件夾下，且窗體文件名為sjtl．frm，工程文件名為sjtl．vbp。(2)在名稱為Forml窗體上，畫一個(gè)名稱為Imagel的圖像框，在其中顯示考生文件夾下的圖片“pic2．jpg”，并設(shè)置適當(dāng)屬性使得圖像框尺寸變化時(shí)圖片尺寸可隨之變化。再畫一個(gè)水平滾動(dòng)條和一個(gè)垂直滾動(dòng)條，名稱分別為HScrolll、VScrolll，它們的刻度范圍都是l～3。如圖1-212(a)所示。要求如下：①定義兩個(gè)窗體級(jí)變量：length、high，并編寫窗體的FormLoad事件過程，使length、high分別等于圖像框的寬、高；②編寫適當(dāng)?shù)氖录^程，使得移動(dòng)兩個(gè)滾動(dòng)條上的滾動(dòng)塊時(shí)，以刻度值作為圖像框初始尺寸的倍數(shù)改變圖像框相應(yīng)方向的尺寸。例如：HScrolll的滾動(dòng)塊在刻度值為2的位置時(shí)，圖像框的寬為初始寬度的2倍。如圖1-212(b)所示。對(duì)于垂直滾動(dòng)條也相同。注意：存盤時(shí)，將文件保存至考生文件夾下，且窗體文件名為sjt2．frm，工程文件名為sjt2．vbp。要求程序中的兩個(gè)變量必須是length、high，此外不能再使用其他變量，除FormLoad事件過程外，其他每個(gè)事件過程中只能寫一條語句。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-124在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1；新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Forml中畫一個(gè)圖像框、一個(gè)水平滾動(dòng)條和一個(gè)水平滾動(dòng)條，在屬性設(shè)置窗口中設(shè)置其相關(guān)屬性，其屬性及值如表2-125所示。步驟2：打開代碼編輯窗口，分別編寫滾動(dòng)條的Change事件過程和窗體的Load事件過程。參考代碼：Dimlength，highPriVateSubForm_Load()length=Image1．Widthhigh=Imagel．HeightEndSubPriVateSubHScrolll_Change()Imagel．Width=HScrolll．Value*lengthEndSubPriVateSubVScroll1_Change()Imagel．Hei．ght=VScroll1．Value*highEndSub步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題復(fù)選框和單選按鈕的Alignment屬性用于設(shè)置復(fù)選框中標(biāo)題的對(duì)齊方式，0-LeftJustify為控件居左標(biāo)題居右(默認(rèn))，1-RightJustify為控件居右標(biāo)題居左。本題只需按題目在窗體中畫出控件，并設(shè)置相關(guān)屬性即可。第2小題根據(jù)題意，本題需在滾動(dòng)條的Change事件中改變圖像框的寬度和高度，在窗體的Load事件中初始化全局變量。二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp，相應(yīng)的窗體文件為sjt3．frm。其功能是產(chǎn)生20個(gè)0～1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出這20個(gè)整數(shù)中小于500的所有整數(shù)之和。程序運(yùn)行后，單擊命令按鈕(名稱為Commandl，標(biāo)題為“輸出小于500的整數(shù)之和”)，即可求出這些整數(shù)的和，并在窗體上顯示出來(如圖1-69所示)。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，相應(yīng)的窗體文件為sjt4．frm，在窗體上有一個(gè)命令按鈕和一個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～100范圍內(nèi)所有偶數(shù)的平方和，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算偶數(shù)平方和的操作在通用過程Fun中實(shí)現(xiàn)，請(qǐng)編寫該過程的代碼。要求：請(qǐng)勿改動(dòng)程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入編寫的若干語句。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟l：打開考生文件中的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號(hào)“?”改為正確的內(nèi)容。參考代碼：arrN(i)=Int(Rnd*1000)Sum=0IfarrN(i)<500ThenSum=Sum+arrN(i)步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟l：打開考生文件下的本題工程文件sjt4．vbp，在代碼編輯窗口，編輯Fun函數(shù)的內(nèi)容。參考代碼：Sum=0Fori=0To100Step2Sum=Sum+i*iNextiFun=Sum步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：第1小題生成0～1000范圍內(nèi)隨機(jī)整數(shù)的表達(dá)式為：Int((rnd*1000)。為求出20個(gè)隨機(jī)整數(shù)中小于500的整數(shù)之和，可首先預(yù)設(shè)累加和變量Sum=0，然后通過For循環(huán)語句逐一判斷數(shù)組中的各元素是否小于500，若小于則累加到Sum中，循環(huán)結(jié)束后輸出Sum的值。第2小題本題原程序要求編寫的Fun過程首先預(yù)設(shè)累加變量Sum=0，然后通過For循環(huán)的步長(zhǎng)為2控制循環(huán)變量總是為偶數(shù)，然后將循環(huán)變量的平方加到累加變量Sum中。三、綜合應(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)度為”；再畫兩個(gè)名稱分別為Textl和Text2、初始內(nèi)容為空的文本框，如圖1-10所示。程序功能如下：①如果單擊“讀數(shù)據(jù)”命令按鈕，則將考生文件夾下in5．dat文件的內(nèi)容讀到變量s中(此過程已給出)；②如果單擊“統(tǒng)計(jì)”按鈕，則自動(dòng)統(tǒng)計(jì)變量s(s中僅含有字母和空格，而空格是用來分隔不同單詞的)中每個(gè)單詞的長(zhǎng)度，并將所有單詞的平均長(zhǎng)度(四舍五入取整)顯示在Textl文本框內(nèi)，將最長(zhǎng)單詞的長(zhǎng)度顯示在Text2文本框內(nèi)?！白x數(shù)據(jù)”命令按鈕的Click事件過程已經(jīng)給出，請(qǐng)為“統(tǒng)計(jì)”命令按鈕編寫適當(dāng)?shù)氖录^程，實(shí)現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序之前，必須進(jìn)行統(tǒng)計(jì)，且必須通過單擊窗體右上角的“關(guān)閉”按鈕結(jié)束程序，否則無成績(jī)。最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟l：打開考生文件夾下的本題工程文件sjt5．vbp，如表2-7所列在窗體上畫出控件并設(shè)置它們的相關(guān)屬性。步驟2：打開代碼編輯窗口，在指定位置編寫“統(tǒng)計(jì)”按鈕的單擊事件過程。參考代碼：PrivateSubCommand2_Click()需考生編寫n=Len(s)：t=""DimwordmaxAsInteger，word_numAsInteger，word_lenAsIntegerFori=1Tono=Mid(s，i，1)Ifo<>""Thent=t+cE1sewordlen=wordlen+Len(t)wordnum=wordnum+1IfLen(t)>wordmaxThenwordmax=Len(t)EndIft=""EndIfNextiTextl．Text=CInt((wordlen+Len《t))／(wordnum+1))IfLen(t)>wordmaxThenwordmax=Len(t)EndIfText2．Text=word_maxEndSub步驟3：按要求將文件保存至考生文件夾中。步驟4：按鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“統(tǒng)計(jì)”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。知識(shí)點(diǎn)解析：以空格為單詞的分隔標(biāo)志，在For循環(huán)中用Mid函數(shù)逐一取出變量s中的每個(gè)字符，并檢查其是否為空格，若不是空格則將該字母作為當(dāng)前單詞的一部分，否則將當(dāng)前單詞的長(zhǎng)度累加入一個(gè)記錄所有單詞總長(zhǎng)度的變量中(如Word_len)，用另一個(gè)變量(如word_hum)記錄已有單詞個(gè)數(shù)，并將當(dāng)前單詞的長(zhǎng)度與記錄單詞最長(zhǎng)值的變量(如woMmax)比較，將兩者中的較大值存入該變量中。循環(huán)結(jié)束后，將表達(dá)式CInt(word_len+Len(t))／(word_num+1))的值顯示在Text!中，word_max值顯示在Text2中。注意：為防止數(shù)據(jù)文件的最后一個(gè)字符不是空格而導(dǎo)致最后一個(gè)單詞不在統(tǒng)計(jì)之列的情況，在開始找單詞前在變量s的最后連上一個(gè)空格。VB機(jī)試模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在Forml的窗體上畫一個(gè)名稱為Picl的圖片框，然后建立一個(gè)主菜單，標(biāo)題為“命令”，名稱為Com，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“輸出”和“刪除”，名稱分別為Pri和Del，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“命令”菜單中的“輸出”命令，則將圖片框顯示出來；如果單擊“刪除”命令，則隱藏圖片框。程序的運(yùn)行時(shí)的窗體界面如圖11—1和圖11—2所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sjl．frm。程序中不得使用任何變量。(2)在窗體上畫一個(gè)列表框，名稱為L(zhǎng)istl，通過“屬性”窗口向列表框中添加3個(gè)項(xiàng)目，分別為“足球…‘籃球”和“排球”。編寫適當(dāng)?shù)氖录^程，使程序運(yùn)行后，每次單擊列表框中的任何一項(xiàng)，則總在最后面添加一項(xiàng)“體育活動(dòng)”。程序運(yùn)行界面和運(yùn)行效果分別如圖11—3和圖11—4所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。程序中不得使用任何變量。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程．將一個(gè)圖片控件添加到窗體中，其名稱設(shè)為Picl，按“Ctrl+E”組合鍵打開菜單編輯器，在其中添加如下菜單項(xiàng)：設(shè)置完成后．雙擊輸出命令進(jìn)入代碼窗口，編寫如下代碼：PrivateSubDel_Click()’單擊刪除命令事件Picl．Visible=FalseEndSubPrivateSubPri_Click()’單擊輸出命令事件Picl．Visible=TrueEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)List控件添加到窗體中，其名稱為L(zhǎng)istl。在其List屬性中按題目要求輸入項(xiàng)目，每輸完一個(gè)后按“Ctrl+Enter”組合鍵換行，輸入下一個(gè)元素，最后按回車鍵結(jié)束輸入，雙擊List，進(jìn)入代碼編寫窗口．編寫如下代碼：PrivateSubListl_Click()Listl．Addltem"體育活動(dòng)"’添加選項(xiàng)EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、有一個(gè)工程文件ylc6.vbp，請(qǐng)?jiān)诖绑w中畫一個(gè)組合框和一個(gè)命令按鈕。程序的功能是在運(yùn)行時(shí)，如果在組合框中輸入一個(gè)項(xiàng)目并單擊命令按鈕，則搜索組合框中的項(xiàng)目；如果已有此項(xiàng)，則彈出提示：“已有此項(xiàng)”，之后清除輸入的內(nèi)容。界面如圖20所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為ylc6.vbp，窗體文件名為ylc6.frm。標(biāo)準(zhǔn)答案：1．操作步驟(1)在VisualBasic集成環(huán)境中選擇“文件”→“打開工程”命令，在對(duì)話框中選擇ylc6.vbp工程文件，單擊“確定”按鈕打開。(2)選擇工具中的ComboBox控件，在窗體中畫命名為Comboll的組合控件。在屬性窗口分別設(shè)置它們的名稱、Text屬性為空。(3)在屬性編輯框中設(shè)置Comboll組合控件的List屬性，其初始數(shù)據(jù)為“語文”、“數(shù)學(xué)”、“英語”、“物理”、“化學(xué)”、“生物”、“歷史”、“政治”和“地理”。(4)在工具箱中選擇命令按鈕控件，在窗體上拖動(dòng)創(chuàng)建并命名為Command1，標(biāo)題為“確定”。2．行為編碼在代碼框選擇Command1對(duì)象和Click事件，代碼如下：PrivateSubCommand1_Click()Fori=0ToCombol.ListCount-1IfCombol.List(i)=Combol.TextThen’清除輸入內(nèi)容Combol.Text=""MsgBok("已有此項(xiàng)")EndIfNextiEndSub3．存盤保存執(zhí)行“文件”→“保存工程”命令，工程文件名為ylc6.vbp，窗體文件名為ylc6.frm。知識(shí)點(diǎn)解析：(1)這是一道簡(jiǎn)單的應(yīng)用題，主要考查ComboBox控件的相關(guān)特性、數(shù)據(jù)的初始化、項(xiàng)目的多少、程序設(shè)計(jì)中循環(huán)結(jié)構(gòu)的編程，以及程序中提示信息對(duì)話框的使用。(2)代碼中使用組合控件的ListCount屬性，得到控件數(shù)據(jù)的個(gè)數(shù)，使用Comboll的List屬性得到Comboll內(nèi)某項(xiàng)字符中的值。在For...Next循環(huán)中將輸入的字符串與Comboll內(nèi)的字符串逐個(gè)比較。如果輸入的字符串在控件中已存在，則使用MsgBox信息捉示框顯示提示信息。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾中有一個(gè)工程文件execise2.vbp及窗體文件execise2.frm。在名為Form1的窗體上有一個(gè)文本框，名稱為Text1：還有兩個(gè)命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為“計(jì)算”和“保存”，如下圖所示。有一個(gè)函數(shù)過程isprime可以在程序中直接調(diào)用，其功能是判斷參數(shù)a是否為素?cái)?shù)，如果是素?cái)?shù)，則返回True，否則返回False。編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊“計(jì)算”按鈕，則找出大于5000的第1個(gè)素?cái)?shù)，并顯示在Text1中：?jiǎn)螕簟氨４妗卑粹o，則把Text1中的計(jì)算結(jié)果存入考生文件夾下的out2.txt文件中。注意：考生不得修改isprime函數(shù)過程和控件的屬性，必須把計(jì)算結(jié)果通過“保存”按鈕存入out2.txt文件中，否則無成績(jī)。標(biāo)準(zhǔ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è)標(biāo)簽(名稱分別為L(zhǎng)abel1和Label2，標(biāo)題分別為“書名”和“作者”)、兩個(gè)文本框(名稱分別為Text1和Text2，Text屬性均為空白)和一個(gè)命令按鈕(名稱為Command1，標(biāo)題為“顯示”)，如圖22-1所示。然后編寫命令按鈕的Click事件過程。程序運(yùn)行后，在兩個(gè)文本框中分別輸入書名和作者，然后單擊命令按鈕，則在窗體的標(biāo)題欄上先后顯示兩個(gè)文本框中的內(nèi)容，如圖22-2所示。要求程序中不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。(2)在名稱為Form1的窗體上畫一個(gè)垂直滾動(dòng)條(名稱為VScroll1)和一個(gè)水平滾動(dòng)條(名稱為HScroll1)，如圖22-3所示。在屬性窗口中對(duì)兩個(gè)滾動(dòng)條設(shè)置如下屬性：Min1500Max6000LargeChange200SmallChange50編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果移動(dòng)滾動(dòng)條上的滾動(dòng)框，則可擴(kuò)大或縮小窗體。運(yùn)行后的窗體如圖22-4所示。要求程序中不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標(biāo)準(zhǔn)答案：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。標(biāo)簽和命令按鈕的標(biāo)題各自的Caption屬性來設(shè)置，文本框顯示的內(nèi)容由Text屬性設(shè)置，窗體的標(biāo)題由其Caption屬性來設(shè)置。在VisualBasic中可以用“+”或“&”運(yùn)算符將兩個(gè)字符串連接起來。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見表22-1。第二步：編寫程序代碼。參考代碼：optionExplicitrivateSubCommand1_C1ick()Form1.Caption=Text1+","+Label2+""+Text2EndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。(2)在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。窗體的大小由其Width屬性和Height屬性設(shè)置，分別決定窗體的寬和高；用滾動(dòng)條的值來設(shè)置窗體的寬和高，只要將窗體的Width屬性和Height屬性和滾動(dòng)條的Value值聯(lián)系起來即可。解題步驟：第—步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表22-2。第二步：編寫程序代碼。參考代碼：OptionExplicitPrivateSubHScroll1_Change()Form1．Width=HScroll1EndSubPrivateSubVScroll1_Change()Form1.Height=VScroll1.ValueEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識(shí)點(diǎn)解析：暫無解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、注意：下面出現(xiàn)的“考生文件夾”均為C：\wexam\25160002。(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm。其功能是產(chǎn)生30個(gè)0～1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出其中的最大值。程序運(yùn)行后，單擊命令按鈕(名稱為Command1，標(biāo)題為“輸出最大值”，如圖24-4所示)，即可求出其最大值，并在窗體上顯示出來。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp，相應(yīng)的窗體文件為sjt4.frm，在窗體上有一個(gè)命令按鈕和一個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～1000范圍內(nèi)能被5整除或能被7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算能被5整除或能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過程Fun中實(shí)現(xiàn)，請(qǐng)編寫該過程的代碼。要求：請(qǐng)勿改動(dòng)程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫的若干語句。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：首先在循環(huán)語句中對(duì)數(shù)組賦值，使用Rnd函數(shù)和Int函數(shù)生成0～1000隨機(jī)整數(shù)。在數(shù)組求最大值中，定義一個(gè)變量，用來存放數(shù)組中的最大值，在數(shù)組比較開始前，對(duì)變量進(jìn)行賦初始值。在比較中，使用循環(huán)讓變量和數(shù)組中的每個(gè)元素進(jìn)行逐個(gè)比較，每次比較后變量中保存兩個(gè)數(shù)中最大的數(shù)，循環(huán)結(jié)束后，變量中存放的數(shù)即為最大值。Int函數(shù)是將參數(shù)轉(zhuǎn)換成整數(shù)。Rnd函數(shù)返回小于1，但大于或等于0的值，其語法格式為：Rnd[(number)]可選的number參數(shù)是Single或任何有效的數(shù)值表達(dá)式。number的值決定了Rnd函數(shù)生成隨機(jī)數(shù)的方式。為了生成某個(gè)范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)這里，upperbound是隨機(jī)數(shù)范圍的上限，而lowerbound則是隨機(jī)數(shù)范圍的下限。解題步驟：第一步：閱讀題目提供的程序。程序提供的代碼：OptionBase1PrivateSubCommand1_Click()DimarrN(30)AsIntegerDimMaxAsIntegerRandomizeFori=1To30’arrN(i)=Int(Rnd*?)Nexti’?=arrN(1)Fori=2To30’If?ThenMax=arrN(i)EndIfNextiPrintMaxEndSub第二步：修改程序代碼。參考代碼：OptionBase1PrivateSubCommand1_Click()DimarrN(30)AsIntegerDimMaxAsIntegerRandomizeFori=1To30arrN(i)=Int(Rnd*1000)NextiMax=arrN(1)Fori=2To30IfMax＞arrN(i)ThenMax=arrN(i)EndIfNextiPrintMaxEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。(2)本題要求的是1000以內(nèi)能被5或7整除的數(shù)的個(gè)數(shù)。在VisualBasic中，使用Mod運(yùn)算符來判斷一個(gè)數(shù)是否可以被另一個(gè)數(shù)整除，如果計(jì)算結(jié)果為0，則表示可以整除，否則不能整除。解題步驟：第一步：閱讀題目提供的程序。程序提供的代碼：SubSaveData()OpenApp.Path&"\"&"outtxt.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSubFunctionFun()EndFunctionPrivateSubCommand1_Click()d=Fun()Text1.Text=dSaveDataEndSub第二步編寫程序代碼。參考代碼：SubSaveData()OpenApp.Path&"\"&"outtxt.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSubFunctionFun()DimtempAsIntegerDimiAsIntegerFori=0To1000IfiMod5=0OriMod7=0Then.temp=temp+1EndIfNextiFun=tempEndFunctionPrivateSubCommand1_Click()d=Fun()Text1.Text=dSaveDataEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識(shí)點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、注意：下面出現(xiàn)的“考生文件夾”均為C：\wexam\25160002。在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體上二有兩個(gè)文本框，名稱分別為Text1和Text2，都可以多行顯示。還有3個(gè)命令按鈕，名稱分別為C1、C2和C3，標(biāo)題分別為“取數(shù)”、“排序”和“存盤”?！叭?shù)”按鈕的功能是把考生文件夾下的in5.dat文件中的50個(gè)整數(shù)讀到數(shù)組中，并在Text1中顯示出來；“排序”按鈕的功能是對(duì)這50個(gè)數(shù)按升序排序，并顯示在Text2中；“存盤”按鈕的功能是把排好序的50個(gè)數(shù)存到考生文件夾下的out5.dat文件中。程序運(yùn)行界面如圖23-5所示。在窗體中已經(jīng)給出了全部控件和部分程序，要求閱讀程序并去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，并編寫“排序”按鈕的Click事件過程，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：首先理清程序提供代碼的思路，然后修改程序并編寫代碼。從程序提供的代碼中可以看出，整型數(shù)組a的使用范圍是本窗體中的所有事件過程，用來存放從文件中讀取的數(shù)據(jù)。在排序中，使用雙重循環(huán)，外循環(huán)每踞環(huán)一次，確定內(nèi)循環(huán)循環(huán)的次數(shù)，內(nèi)循環(huán)就是把本次循環(huán)中最大的數(shù)，放在數(shù)組的最后面，這樣就可以實(shí)現(xiàn)對(duì)這50個(gè)數(shù)的升序排序。解題步驟：第一步：分析題目提供的代碼。Dima(50)AsIntegerPrivateSubC1_Click()DimkAsInteger，chAsStringOpen"in5.dat"ForInputAS#1ch=""Fork=1To50’Input#1,?ch=ch+Str(a(k))+""NextkClose#1’Text1.Text=?EndSubPrivateSubC3_Click()Open"out5.dat"ForOutputAs#1Print#1,Text2.TextClose#1EndSub第二步：編寫程序代碼。參考代碼：Dima(50)AsIntegerPrivateSubC1_Click()DimkAsInteger,chAsStringOpen"in5.dat"ForInputAs#1ch=""Fork=1To50Input#1,a(k)ch=ch+Str(a(k))+""NextkClose#1Text1.Text=chEndSubPrivateSubC2_Click()DimtAsInteger,iAsInteger,jAsIntegerDimchAsStringch=""Fori=50To2Step-1Forj=1To49Ifa(j)＞a(j+1)Thent=a(j+1)a(j+1)=a(j)a(j)=tEndIfNextjNextiForj=1To50ch=ch+Str(a(j))+""NextjText2.Text=chEndSubPrivateSubC3_Click()Open"out5.dat"ForOutputAs#1Print#1,Text2.TextClose#1EndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識(shí)點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上繪制一個(gè)名稱為Commandl的命令按鈕，標(biāo)題為“打開”，再繪制一個(gè)名稱為CommonDialogl的通用對(duì)話框。程序運(yùn)行后，如果單擊“打開”，則彈出打開文件對(duì)話框。請(qǐng)按下列要求設(shè)置屬性并編寫代碼。設(shè)置適當(dāng)屬性，使對(duì)話框的標(biāo)題為“打開”；設(shè)置適當(dāng)屬性，使對(duì)話框的“文件類型”下拉式組合框中有兩行：“文本文件”和“所有文件”，如圖38—l所示，默認(rèn)的類型是“文本文件”；編寫代碼，使得單擊“打開”按鈕可以彈出“打開”對(duì)話框。要求：程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sjl．frm。(2)在名稱為Forlml的窗體上繪制一個(gè)名為Picl的Picture控件和一個(gè)命令按鈕，名稱為Commandl、標(biāo)題為“移動(dòng)圖片框”，如圖38—2所示。要求編寫適當(dāng)?shù)氖录^程，使得程序運(yùn)行時(shí)，每單擊按鈕一次，圖片框向右移動(dòng)150。要求：程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)本題主要考查通用對(duì)話框的使用。通用對(duì)話框的屬性可以在屬性窗口中直接設(shè)置。文件類型在其Filter屬性中設(shè)置，其格式為：文件說明l文件類型。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)命令按鈕和一個(gè)文件對(duì)話框控件添加到窗體中，命令按鈕的名稱為Commardl、Caption屬性為“打開”，文件對(duì)話框控件的名稱為CommonDialogl，并將其Filter屬性設(shè)置為：文本文件|*．txt|所有文件|*．*。其中，添加文件對(duì)話框控件要選擇“工程”→“部件”命令，打開“部件”對(duì)話框，并將MicrosoftCommonDialogControl6．0前的復(fù)選按鈕選中，單擊“確定”按鈕將其添加上工具箱中，然后再像其他控件一樣使用。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()CommonDialogl．ShowOpenEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)圖片框控件和一個(gè)命令按鈕添加到窗體中，圖片框控件的名稱為Picl，命令按鈕的名稱為Commandl、Caption屬性為“移動(dòng)圖片框”，設(shè)置完成后雙擊Commandl，進(jìn)入代碼編寫窗口，命令按鈕向中移動(dòng)要用到按鈕的Left屬性，使其值在每單擊一次按鈕時(shí)加150。具體代碼如下：PrivateSubCommandl_Click()Picl．Left=Picl．Left+150EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在窗體上有一個(gè)名為L(zhǎng)abell的標(biāo)簽控件和三個(gè)單選按鈕，均沒有標(biāo)題，請(qǐng)利用“屬性”窗口為單選按鈕依次添加標(biāo)題“漢語”、“英語”、“德語”；再添加一個(gè)標(biāo)題為“輸出”的命令按鈕，如圖45—3所示。程序的功能是：運(yùn)行時(shí)，如果選中一個(gè)單選按鈕后，單擊“輸出”按鈕，則根據(jù)單選按鈕的選中情況，在Labell顯示“我的母語是漢語”、“我的母語是英語”或“我的母語是德語”。設(shè)初始選中的是“漢語”。注意：去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的其他屬性。最后把修改后的文件按sj3．vbp和sj3．frm文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sj4．vbp，窗體中有3個(gè)標(biāo)簽，名稱分別為L(zhǎng)abell、Label2和Label3，標(biāo)題分別為“字型”、“字體”、“模擬考試”；在Labell和Label2標(biāo)簽的下面有兩個(gè)組合框，名稱分別為Combo1和Combo2，并為Combol添加項(xiàng)目：“下劃線”、“黑體”和“斜體”，為Combo2添加項(xiàng)目：“華文行楷”、“隸書”和“宋體”。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得程序在運(yùn)行時(shí)，當(dāng)在Combol中選一個(gè)字號(hào)、在Combo2中選一個(gè)字體，標(biāo)簽Label3中的文字立即變?yōu)檫x定的字號(hào)和字體，如圖45—4所示。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須選擇一個(gè)字號(hào)和字體。，必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績(jī)。最后，按原文件名存盤，程序中不能使用任何變量。標(biāo)準(zhǔn)答案：(1)單選按鈕的標(biāo)題由Caption屬性設(shè)置．判斷單選按鈕的狀態(tài)通過Value屬性來實(shí)現(xiàn)。如果單選按鈕被選中，則Value值為1；沒選中，Value值為0。根據(jù)題意，將3個(gè)單選按鈕控件、一個(gè)命令按鈕和一個(gè)標(biāo)簽添加到窗體中，單選按鈕的名稱分別為Optionl、Option2和Option3，Caption屬性分別為“漢語”“英語”和“德語”，命令按鈕的名稱為Commandl、Caption屬性為“輸出”，標(biāo)簽的名稱為L(zhǎng)abell、Caption屬性為空。雙擊Commandl進(jìn)入代碼編寫窗口，利用If…else語句進(jìn)行判斷，補(bǔ)充后的具體代碼如下：PrivateSubCommandl_Click()IfOptionl．Value=TrueThenLabell．Caption="我的母語是"+Optionl．CaptionElseIfOption2．Value=TrueThenLabell．Caption="我的母語是"+Option2．CaptionElseLabell．Caption="我的母語是"+Option3．CaptionEndIfEndIfEndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)控件的名稱由Name屬性設(shè)置，向組合框添加項(xiàng)目有兩種方法，可以在“屬性”窗口的List屬性里直接添加，也可以在代碼中添加。本題要求在設(shè)計(jì)時(shí)添加。根據(jù)題意，將兩個(gè)ComboBox控件和三個(gè)標(biāo)簽添加到窗體中，ComboBox的名稱屬性分別為Combol和Comb02，分別在List屬性中添加“下劃線”、“黑體”、“斜體”和“華文行楷”、“宋體”、“隸書”，并將Style屬性都設(shè)為3，標(biāo)簽的名稱分別為L(zhǎng)abell、Label2和Label3，Caption屬性分別為“字型”’‘‘字體”和“模擬考試”。雙擊窗體進(jìn)入代碼編寫窗口，單擊Combo調(diào)用Click函數(shù)，具體代碼如下：PrivateSubComb01_Click()’Combol的單擊事件IfCornbo1．ListIndex=0ThenLabel3．Font．Underline=True’下劃線為真Label3．Font．Bold=False’黑體為假Label3．Font．Italic=False’斜體為假ElseIfCombo1．Listlndex=1ThenLabel3．Font．Bold=TrueLabel3．Font．Italic=FalseLabel3．Font．Underline=FalseElseLabel3．Font．Italic=TrueLabel3．Font．Bold=FalseLabel3．Font．Underline=FalseEndIfEndIfEndSubPrivateSubComb02_Click()’Comb02的單擊事件Label3．Font．Name=Comb02．List(Comb02．ListIndex)’將選中的項(xiàng)賦給Label3的字體屬性EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sj5．vbp，相應(yīng)的窗體文件為sj5．frm，此外還有一個(gè)名為in5．dat的文本文件，其內(nèi)容如下：10111213141516171819202122232425程序運(yùn)行后，單擊窗體，將把文件in5．dat中的數(shù)據(jù)輸入到一維數(shù)組Arr中，在窗體上按4行4列的矩陣形式顯示出來，然后計(jì)算矩陣第2列各項(xiàng)的和，并在Textl上顯示出來，如圖34—6所示。在窗體的代碼窗口中，已給出了部分程序，這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。注意：去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：根據(jù)題意，將一個(gè)文本框控件控件和一個(gè)標(biāo)簽添加到窗體中，文本框的名稱為Textl，標(biāo)簽的Caption屬性為“數(shù)組第二列的和”。雙擊Commandl進(jìn)入代碼編寫窗口，設(shè)置完成，雙擊Commandl進(jìn)入代碼編寫窗口，其中(i*4-2)代表第二列各個(gè)數(shù)在數(shù)組中的位置，具體代碼如下：PrivateSubForm_Click()DimArr(16)AsIntegerDimiAsIntegerDimstrAsStringDimtmpAsStringDimtotalAsLongOpenApp．Path&"＼ins．dat"ForInputAs#1’打開文件str=""Cls’清空窗體total=0Fori=1To16Input#1，Art(i)’利用循環(huán)讀取16個(gè)數(shù)tmp=Arr(i)str=str+tmp+""’將數(shù)組放入字符串里面IfiMod4=0ThenPrintstr’每當(dāng)讀取4個(gè)則輸出并換行str=""’字符串清空EndIfNextiClose#lFori=1To4total=total+Arr(i*4-2)’獲得第二列的數(shù)組值，進(jìn)行相加NextiTextl．Text=total’總和在Textl中顯示出來savedatEndSubSubsavedat()Open"App．Path&＼out5．txt"ForOutputAs#1Print#1，Textl．TextClose#1EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上繪制一個(gè)名為HS1的水平滾動(dòng)條，并在屬性窗口中將Max屬性設(shè)置為100，Min屬性設(shè)置為0，Value屬性設(shè)置為100。程序運(yùn)行后，滾動(dòng)框位于滾動(dòng)條最右端，如果單擊滾動(dòng)條之外的窗體部分，則滾動(dòng)框跳到最左端，如圖3-l所示。注意：只能直接為相應(yīng)的屬性賦值，不得使用任何變量。保存時(shí)必須存放在考生文件夾下，窗體文件名為sj1．frm，工程文件名為si1．vbp。(2)在Form1的窗體上繪制一個(gè)命令按鈕，名為Cmd1，標(biāo)題為Display，按鈕隱藏。編寫適當(dāng)?shù)氖录^程，使程序運(yùn)行后，若單擊窗體，則命令按鈕出現(xiàn)；此時(shí)如果單擊命令按鈕，則在窗體上顯示VisualBasic。程序運(yùn)行情況如圖3—2，3—3所示。注意：程序中不得使用任何變量；文件必須存放在考生文件夾中，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)本題主要考查窗體上控件的基本操作。①先在窗體上建立控件，再設(shè)置控件屬性。程序中用到的控件及其屬性見下表：②滾動(dòng)條的最大刻度用Max屬性來表示，最小刻度用Min屬性來表示，滾動(dòng)條上的位置通過Value屬性來表示。③單擊窗體觸發(fā)Form_Click事件，滾動(dòng)框跳到最左端，即使其Value屬性為0。④參考代碼如下：PrivateSubForm_Click()HSl．Value=0EndSub⑤調(diào)試并運(yùn)行程序。⑥按題目要求存盤。(2)①新建一個(gè)名為Form1的窗體。②單擊工具箱中的CommandButton控件圖標(biāo)，在窗體上拖拉出一個(gè)命令按鈕，在屬性窗口設(shè)置該命令按鈕名稱為Cmdl，Caption屬性為Display，Visible屬性為False。③打開代碼窗口輸入如下代碼：PrivateSubCmdl_Click()Print"VisualBasic"’在窗體顯示VisualBasicEndSubPrivateSubForm_Click()Cmdl．VisibIe=True’使命令按鈕可見EndSub④按要求保存文件即完成本題。知識(shí)點(diǎn)解析：暫無解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾中有工程文件sj3．vbp及其窗體文件sj3．frm，該程序是不完整的。在窗體上有一個(gè)名稱為Commandl、標(biāo)題為“求和”的命令按鈕，三個(gè)名稱分別為Textl、Text2和Text3的文本框，運(yùn)行界面如圖65—4所示。要求程序運(yùn)行后，在Textl和Text2中分別輸人兩個(gè)整數(shù)，單擊“求和”按鈕后，可把兩個(gè)整數(shù)之間的所有奇數(shù)(不含輸入的兩個(gè)整數(shù))累加起來并在Text3中顯示。注意：請(qǐng)?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。(2)在考生文件夾中有工程文件sj4．vbp及其窗體文件sj4．frm，該程序是不完整的。在窗體上建立一個(gè)名稱為Textl的文本框，建立一個(gè)名稱為Commandl、標(biāo)題為“計(jì)算”的命令按鈕，如圖65—5所示。要求程序運(yùn)行后，如果單擊“計(jì)算”按鈕，則求出50—200之間所有可以被5整除的數(shù)的總和，在文本框中顯示出來，并把結(jié)果存入考生文件夾下的out．txt文件中。(在考生的文件夾下有一個(gè)mode．bas標(biāo)準(zhǔn)模塊，該模塊中提供了保存文件的過程writedata，考生可以直接調(diào)用。)注意：請(qǐng)?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)看一個(gè)數(shù)是否為奇數(shù)，只要判斷此數(shù)是否能被2整除，若不能整除，則是奇數(shù)，否則不是奇數(shù)。如：NMod2=0，則說明余數(shù)為0，N能被2整除，否則N不能被2整除。根據(jù)題意將一個(gè)命令按鈕和三個(gè)文本框控件添加到窗體中，命令按鈕的名稱屬性為Commandl、Caption屬性為“求和”，三個(gè)文本框的名稱分別為Textl、Text2和Text3，然后雙擊Commandl進(jìn)入代碼窗口，補(bǔ)充后的具體代碼如下：PrivateSubCommandl_Click()DimtotalAsLongDimminAsIntegerDimmaxAsIntegerDimaAsIntegermin=Textl．Text’Textl輸入的整數(shù)max=Text2．Text’Text2輸入的整數(shù)total=0Fora=min+1Tomax-1’循環(huán)操作IfaMod2=1Then’判斷是否為奇數(shù)total=total+a’進(jìn)行相加操作EndIfNextaText3．Text=total’將得到的數(shù)輸出到文本框3EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，將一個(gè)命令按鈕和一個(gè)文本框控件添加到窗體中，命令按鈕的名稱Commandl、Caption屬性為“計(jì)算”，文本框的名稱為Textl，本題是為了求50~200之間的能被5整除的數(shù)的和，顯示到文本框中并保存到OUt．txt中。在“工程”窗口中單擊右鍵，在彈出的快捷菜單中選擇“添加”→“添加模塊”，然后在彈出對(duì)話框的“現(xiàn)存”選項(xiàng)卡中選擇“mode．bas”，單擊“確定”按鈕即添加成功。模塊mode．bas中的代碼如下：FunctionwriteData(totalAsLong)’將數(shù)據(jù)保存到out．txt中OpenApp．Path&"＼out．txt"ForOutputAs#1’打開文件Write#1，total’進(jìn)行寫入Close#1EndFunction雙擊Commandl進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：PrivateSubCommandl_Click()DimtotalAsLongDimnAsIntegertotal=0Forn=50To200’循環(huán)操作IfnMod5=0Then’判斷是否能被5整除total=total+n’進(jìn)行相加操作EndIfNextnTextl．Text=total’在Textl中顯示出來writeData(total)’寫入OUt．txt文件中EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、打開考生文件夾下的sj5．vbp，在名稱為Forml的窗體上建立兩個(gè)命令按鈕，名稱分別為Commandl和Command2，命令按鈕上分別顯示“輸入”和“結(jié)果”(如圖15—7所示)。程序運(yùn)行時(shí)單擊“輸入”按鈕，輸入6個(gè)數(shù)放人數(shù)組a中，單擊“結(jié)果”則把數(shù)組a中的數(shù)值按照降序排列。注意：請(qǐng)?jiān)谟小?”號(hào)的地方填正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：本題重點(diǎn)考查“冒泡法”數(shù)據(jù)排序方法?！懊芭莘ā笔且环N重要的數(shù)據(jù)排序算法，其思想是按順序讓一個(gè)數(shù)列中的每一個(gè)數(shù)都與其之后的所有的數(shù)逐一進(jìn)行比較，如果該數(shù)小于其后面的數(shù)，則把這兩個(gè)位置的數(shù)進(jìn)行交換。依此類推，即可實(shí)現(xiàn)所有數(shù)的降序排列。根據(jù)題意，將兩個(gè)命令按鈕添加到窗體中，名稱分別為Commandl和Command2、Caption屬性分別為“輸入”和“結(jié)果”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：Dima(6)AsIntegerDimstrAsStringDimtmpAsStringDimiAsIntegerPrivateSubCommandlClick()str="排序前："Fori=1To6a(i)=Val(InputBox("請(qǐng)輸入："))’輸入6個(gè)數(shù)到數(shù)組中tmp=a(i)str=str+tInp+…""’將數(shù)組中的數(shù)放到字符串中NextiPrintstr’在窗口中顯示數(shù)組EndSubPrivateSubCommand2Click()str="排序后："Fori=1To6’降序排列temp=a(i)Forj=1ToiIfa(j)<=tempThen’讀取的數(shù)據(jù)比原位置的數(shù)據(jù)小則偏移Fork=iToj+1Step-1a(k)=a(k-1)’數(shù)據(jù)向后偏移一個(gè)Nextka(j)=tempExitForEndIfNextjNextiFori=1To6trap=a(i)’將排序后的數(shù)組放入字符串中str=str+tmp+""NextiPrintstr’在窗口中顯示排序后的結(jié)果EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為：Form1的窗體上畫一個(gè)圖片框控件PictureBox，名稱為Picl；再畫兩個(gè)命令按鈕，名稱分別為Commandl和Command2、標(biāo)題分別為“刪除”和“添加”。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，如果單擊“刪除”按鈕，則圖片框消失，而如果單擊“添加”按鈕，則圖片框顯示出來，如圖20一1和圖20一2所示。程序中不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sil．frm。(2)在窗體上畫一個(gè)文本框，名稱為Text1，一個(gè)標(biāo)簽，名稱為L(zhǎng)abell。請(qǐng)?jiān)O(shè)置適當(dāng)?shù)目丶傩?，并編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，如果在Textl中每輸入一個(gè)字符，則顯示一個(gè)“*”，同時(shí)在Labell中顯示輸入的內(nèi)容，如圖20—3所示。程序中不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)命令按鈕的標(biāo)題由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)其Click事件；圖片框的可見性由Visible屬性設(shè)置。當(dāng)Visible屬性為True時(shí)，控件在運(yùn)行時(shí)可見；當(dāng)Visible屬性為False時(shí)，控件在運(yùn)行時(shí)不可見。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)PictureBox控件和兩個(gè)命令按鈕添加到窗體中，圖片控件的名稱為Picl，命令按鈕的名稱分別為Commandl和Command2，Caption分別為“刪除”和“添加”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()Piel．Visible=False’將Picl隱藏EndSubPrivateSubCommand2_Click()Picl．Visible=True’將Picl顯示出來EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)文本框的內(nèi)容由其Text屬性設(shè)置。文本框的PasswordChar屬性可用于r1令輸入，在默認(rèn)狀態(tài)下，該屬性被沒置為空字符串(不是空格)。題目要求在Textl中輸入字符的同時(shí)在Labell中顯示Textl中輸入的內(nèi)容，這要用到文本框的Change事件。當(dāng)用戶向文本框中輸入新信息，或當(dāng)程序把Text屬性設(shè)置為新值從而改變文本框的Text屬性時(shí)，將觸發(fā)其Change事件。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)標(biāo)簽和一個(gè)文本框控件添加到窗體中，將標(biāo)簽的名稱設(shè)為L(zhǎng)abell、Caption屬性為空，文本框的名稱為Textl、Caption屬性為空。雙擊Textl進(jìn)入代碼編寫窗口，編寫如下代碼：PrivateSubTextl_Change()Labell．Caption=Textl．TextEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在名稱為Form1的窗體上建立兩個(gè)主菜單，其標(biāo)題分別為“文件”和“幫助”，名稱分別為vbFile和vbHelp，“文件”菜單下有三個(gè)子菜單項(xiàng)，標(biāo)題分別為“新建”、“打開”和“存盤”，名稱分別為vbNew、vbOpen和vbSave。要求程序運(yùn)行后，如果選中“文件”下的某個(gè)菜單項(xiàng)，則通過MsgBox對(duì)話框顯示該菜單項(xiàng)的標(biāo)題，如圖47—4所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj3．frm，工程文件名為sj3．vbp。(2)在考生文件夾中有一個(gè)工程文件sj4．vbp，相應(yīng)的窗體文件為sj4．frm。在名為Form1的窗體上有一個(gè)命令按鈕(名稱為Cmdl，標(biāo)題為“求和”)，其功能是產(chǎn)生30個(gè)0～1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出它們的和。程序運(yùn)行后，單擊命令按鈕，即可求出其和，并在窗體上顯示出來，如圖47—5所示。本程序不完整，請(qǐng)補(bǔ)充完整，并能正確運(yùn)行。注意：去掉程序中的注釋符“’”，把程序中的問號(hào)“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夾中保存修改后的文件。標(biāo)準(zhǔn)答案：(1)本題主要考查菜單編輯器的使用。在VisualBasic中，菜單項(xiàng)通過菜單編輯器來建立；選擇菜單則是觸發(fā)其Click事件。MsgBox函數(shù)在對(duì)話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè)Integer告訴用戶單擊哪一個(gè)按鈕。語法：MsgBox(prompt[’buttons][，title][，helpfile，context])MsgBox函數(shù)的語法具有以下幾個(gè)命名參數(shù)：prompt：必需參數(shù)；字符串表達(dá)式，作為顯示在對(duì)話框中的消息。buttons：可選參數(shù)；數(shù)值表達(dá)式是值的總和，指定顯示按鈕的數(shù)目及形式。title：可選參數(shù)；在對(duì)話框標(biāo)題欄中顯示的字符串表達(dá)式。如果省略title，則將應(yīng)用程序名放在標(biāo)題欄中。helpfile：可選參數(shù)；字符串表達(dá)式，識(shí)別用來向?qū)υ捒蛱峁┥舷挛南嚓P(guān)幫助的幫助文件。context：可選參數(shù)；數(shù)值表達(dá)式，通過幫助文件的作者指定給適當(dāng)?shù)膸椭黝}的上下文編號(hào)。①建立菜單項(xiàng)；程序中用到的菜單項(xiàng)及其屬性見下表：②為各個(gè)菜單項(xiàng)編寫事件處理程序。參考代碼如下：PrivateSubvbNew_Click()MsgBox"新建"EndSubPrivateSubvbOpen_Click()MsgBox"打開"EndSubPrivateSubvbSaveClick()MsgBox"保存"EndSub③調(diào)試并運(yùn)行程序。④按題目要求存盤。(2)①打開題目所給工程文件。②將注釋語句改為：arrN(i)=Int(Rnd*1000)Min=arrN(1)Sum=arrN(i)+Sum③按要求保存文件即完成本題。知識(shí)點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sj5．vbp，其窗體上有兩個(gè)文本框，名稱分別為Textl和Text2，Text2可以多行顯示；有一個(gè)名稱為Commonl的通用對(duì)話框；有3個(gè)命令按鈕，名稱分別為Commandl、Command2和Command3，標(biāo)題分別為“打開文件”、“刪除”和“保存”。程序運(yùn)行時(shí)窗體界面如圖26—5所示。命令按鈕的功能是：?jiǎn)螕簟按蜷_文件”按鈕，彈出“打開文件”對(duì)話框，默認(rèn)打開文件的類型為“TeXtFites(*．txt)”。選擇考生文件夾下的in5．txt文件后，該文件中的內(nèi)容顯示在Textl中；單擊“刪除”按鈕，程序?qū)裈extl中的所有與Text2中相同的字符串刪除，并將結(jié)果顯示在Textl中；單擊“保存”按鈕，把Textl中的內(nèi)容存入考生文件夾下的out5．txt文件中。在窗體中已經(jīng)給出了部分程序。注意：請(qǐng)去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容。但不能修改程序中的其他部分，也不能修改控件的屬性。編寫“刪除”按鈕的Click事件過程，最后把修改后的文件按原文件名存盤。考生不得修改已有的程序和控件的屬性。必須對(duì)考生文件夾下的in5．txt文件進(jìn)行轉(zhuǎn)換，并把轉(zhuǎn)換結(jié)果通過“保存’’按鈕存入考生文件夾下的out5．txt文件中，否則無成績(jī)。標(biāo)準(zhǔn)答案：根據(jù)題意，將兩個(gè)Text控件、3個(gè)Command控件和一個(gè)CommonDialog控件添加到窗體上，Text的名稱分別為Textl和Text2、Text屬性為空，Command的名稱分別為Commandl、Command2和Command3，Caption屬性分別為“打開文件”、“刪除，，和“保存”，其中CommonDialog控件需要選擇“工程”→“部件’’命令，或在左側(cè)工箱中單擊鼠標(biāo)右鍵，選擇“部件”菜單，打開“部件，，對(duì)話框，將MicrosoftCommonDialogControl6．0前面的復(fù)選按鈕鉤上，單擊“確定”按鈕，則添加成功，再同其他控件一樣添加到窗體上，其名稱為Commonl。雙擊Commandl命令按鈕，編寫如下代碼：DimstrAsStringPrivateSubCommandl_Click()DimtmpAsStringstr=""Commonl．DialogTitle="打開"’設(shè)置CommonDialog對(duì)話框標(biāo)題Commonl．InitDir="．＼"’設(shè)置起始目錄Commonl．Filter="TextFiles(*．txt)|*．txt"’設(shè)置選取的文件類型Commonl．FileName=""’文件名為空Commonl．ShowOpen’打開CommonDialogIfCommonl．FileName

""ThenOpenCommonl．FileNameForInputAs#1’如果文件存在則進(jìn)行讀取WhileEOF(1)=FalseInput#1，tmp’判斷是否讀取完成str=str+tmp’將讀取的字符串放入strWendEndIfClose#1Textl．Text=str’在Textl中顯示讀取的字符串EndSubPrivateSubCommand2_Click()DimtmpAsStringDimtelAsStringDimiAsIntegerrel=""Fori=1ToLen(str)-Len(Text2．Text)tmp=Mid(str．i，Len(Text2．Text))’讀取其中的字符串IfText2．Text=tmpThen’如果該段字符串與Text2輸入的相同tmp=""’則將該段置為""rel=rel+tmpi=i+Len(Text2．Text)-1’并向后移動(dòng)Text2的長(zhǎng)度減1位Elserel=rel+Mid(tmp，1，1)EndIfNextiTextl．Text=tel’在Textl中顯示修改后的字符串EndSubPrivateSubCommand3_Click()Open"App．Path&＼out5．txt"ForOutputAs#1Print#1，Textl．Text’將修改后的字符串寫入文件中Close#1EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第7套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上放置一個(gè)名稱為Textl的文本框。程序運(yùn)行后，用戶在文本框中輸人的英文字母一律用小寫顯示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sj1．vbp。程序運(yùn)行時(shí)的窗體界面如圖59—1所示。(2)在窗體上畫兩個(gè)命令按鈕，名稱分別為Commandl、Command2，標(biāo)題分別為“顯示”和“隱藏”，請(qǐng)編寫適當(dāng)?shù)氖录^程，使得程序運(yùn)行時(shí)，單擊“顯示”按鈕，則使“隱藏”按鈕顯示，而單擊“隱藏，”按鈕，則“隱藏’’按鈕不顯示(即只有“顯示”按鈕可見)。程序中不得使用任何變量。程序運(yùn)行時(shí)的窗體界面如圖59—2和圖59—3所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)本題考查文本框控件(TextBox)常用屬性和事件及LCase()函數(shù)的使用。文本框的Text屬性用于設(shè)置或返回文本框中顯示的文本；LCase()函數(shù)用于將字符串中大寫字母轉(zhuǎn)化為小寫字母，原本小寫字母和其他字符保持不變。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件添加到窗體中，其名稱為Textl、Text屬性為空，雙擊Textl進(jìn)人代碼窗口，編寫如下代碼：PrivateSubTextl_Change()Textl．Text=LCase(Textl．Text)’將大寫字母轉(zhuǎn)換成小寫字母Textl．SetStart=Len(Textl．Text)’將光標(biāo)放在最右邊EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)本題考查命令按鈕(CommandButton)相關(guān)屬性和事件。命令按鈕(CommandButton)常用來建立實(shí)現(xiàn)某種命令的按鈕，通過命令按鈕的Caption屬性設(shè)置其標(biāo)題；命令按鈕是否可見由其Visible屬性來設(shè)置，值為True表示有效，值為False表示無效。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將兩個(gè)命令按鈕添加到窗體中，其名稱分別為Commandl和Command2、Caption屬性分別為“顯示”和“隱藏”。雙擊Commandl進(jìn)入代碼編輯窗口，編寫如下代碼：PrivateSubCommandl_Click()Command2．Visible=TrueEndSubPrivateSubCommand2_Click()Command2．Visible=FalseEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析二、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有工程文件sj3．vbp及窗體文件sj3．frm。該程序的窗體是不完整的，要求設(shè)計(jì)好窗體，并編寫相應(yīng)的程序，完成題目的要求。窗體上已有3個(gè)命令按鈕，名稱分別為Commandl、Command2、Command3，標(biāo)題分別為“修改”、“保存”、“添加”；另有一文本框，名稱為Text1。要求在窗體設(shè)計(jì)一組合框，名稱為Combol，初始表項(xiàng)內(nèi)容如下：“北京010”、“天津022”、“上海021”。運(yùn)行程序時(shí)，Combol文本框中內(nèi)容為“中國(guó)直轄市”。單擊“添加”按鈕，則可以把文本框中的內(nèi)容添加到組合框中；當(dāng)選中組合框的表項(xiàng)時(shí)，單擊“修改”按鈕，文本框中顯示選中的表項(xiàng)，同時(shí)“保存”按鈕變?yōu)榭捎?。修改完畢，單擊“保存”，被選中項(xiàng)發(fā)生相應(yīng)的變化，同時(shí)“保存”按鈕變?yōu)椴豢捎?，如圖69—3所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj3．frm，工程文件名為sj3．vbp。(2)在考生文件夾下有工程文件sj4．vbp及窗體文件sj4．frm，該程序是不完整的。窗體上有一個(gè)標(biāo)簽，名稱為L(zhǎng)abell。Labell上為提示文字和返回值。在窗體上畫一個(gè)命令按鈕，命名為Commandl，標(biāo)題為“判斷”。程序運(yùn)行后，如果單擊命令按鈕，．則顯示一個(gè)輸入框，在該對(duì)話框中輸入一個(gè)整數(shù)，并用這個(gè)整數(shù)作為實(shí)參調(diào)用函數(shù)過程Funcl，在Funcl中判斷所輸入的整數(shù)是否為偶數(shù)。如果是偶數(shù)，過程Funcl返回1，否則返回O，并在標(biāo)簽上顯示出來。程序運(yùn)行時(shí)的窗體界面如圖69—4所示。注意：請(qǐng)?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，將一個(gè)ComboBox控件、一個(gè)文本框控件和三個(gè)命令按鈕添加到窗體中，ComboBox的名稱為Comb01，在其11，ist屬性中添加“北京010”、“天津022”和“上海021”，文本框的名稱為Textl、Text屬性為空，命令按鈕的名稱分別為Commandl、Command2和Command3，Caption屬性分別為“修改”、“保存”和“添加”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()Textl．Text=Comb01．List(Comb01．ListIndex)’將選中項(xiàng)顯示在Textl中Command2．Enabled=True’Command2可用EndSubPrivateSubCommand2_Click()DimaAsIntegera=Combo1．Listlndex’記錄Combol選中的索引值Comb01．RemoveItem(Comb01．ListIndex)’刪除選中項(xiàng)Comb01．Addhem(Textl．Text)，a’將經(jīng)過修改的項(xiàng)存人Comb01的原有位置Comb01．Text=Comb01．List(a)’將修改后的項(xiàng)顯示在Comb01中Command2．Enabled=False’Command2不可用EndSubPrivateSubCommand3_Click()Combo1．AddItemTextl．Text’向Comb01中添加項(xiàng)E；ndSubPrivateSubForm_Load()Command2．Enabled=False’初始時(shí)Command2不可用EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，將一個(gè)標(biāo)簽和一個(gè)命令按鈕添加到窗體中，標(biāo)簽的名稱為L(zhǎng)abell，命令按鈕的名稱為Commandl、Caption屬性為“判斷”。雙擊Commandl，進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()DimbAsIntegerb=Val(InputBox("請(qǐng)輸入整數(shù)："))’通過對(duì)話框輸入整數(shù)Labell．Caption="返回值為"+CStr(Func(b))’將獲得的返回值通過Label顯示出來EndSubPrivateFunctionFunc(aAsInteger)AsInteger’檢測(cè)是否是偶數(shù)IfaMod2=0ThenFunc=1’如果是偶數(shù)則返回1ElseFunc=0’如果不是則返回0EndIfEndFunction單擊按鈕運(yùn)行程序，并按要求保存。知識(shí)點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有工程文件sj5．vbp及窗體文件sj5．frm。在窗體Form上有一個(gè)名為L(zhǎng)istl的列表框，列表框中有若干列表項(xiàng)，通過屬性窗口設(shè)置列表框的MultiSelect屬性為1。還有兩個(gè)命令按鈕，名稱分別是Commandl和Command2，標(biāo)題分別是“全選”和“保存”(如圖41—6所示)。要求在程序運(yùn)行時(shí)，單擊“全選”按鈕則將Listl中的全部列表項(xiàng)選中，然后單擊“保存”按鈕，將Listl中的全部列表項(xiàng)寫入文本文件out5．txt中，并將out5．txt保存在考生文件夾下。注意：該程序不完整，請(qǐng)?jiān)谟袉柼?hào)“?”的地方填入正確內(nèi)容，然后刪除問號(hào)“?”及所有注釋符“’”，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾，相應(yīng)的數(shù)據(jù)文件也保存到考生文件夾下，否則沒有成績(jī)。標(biāo)準(zhǔn)答案：向列表框中添加項(xiàng)目可以