國家二級VB機(jī)試（上機(jī)操作）模擬試卷10（共29題）

國家二級VB機(jī)試（上機(jī)操作）模擬試卷10（共9套）（共29題）國家二級VB機(jī)試（上機(jī)操作）模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。（1）在名稱為Form1、標(biāo)題為“圖片練習(xí)”的窗體上畫一個(gè)名稱為Image1、寬和高分別為1800和1200的圖像框，設(shè)置屬性使圖像框中的圖形能自動(dòng)放大或縮小以與圖像框的大小相適應(yīng)。最后在圖像框中顯示考生文件夾下的圖片文件“pic1.jpg”。運(yùn)行后的窗體如圖1－226所示。注意：存盤時(shí)，將文件保存至考生文件夾下，窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。（2）在名稱為Form1，標(biāo)題為“列表框練習(xí)”的窗體上畫一個(gè)名稱為List1的列表框，表項(xiàng)內(nèi)容依次輸入“環(huán)球時(shí)報(bào)”、“人物”、“探索”和“讀者”；再畫兩個(gè)標(biāo)題分別為“復(fù)制”和“移去”的命令按鈕。如圖1－227所示。要求：編寫適當(dāng)?shù)氖录^程，使得單擊“復(fù)制”按鈕，可以將選中的列表項(xiàng)內(nèi)容復(fù)制到已有列表項(xiàng)的尾部；單擊“移去”按鈕，可以將選中的列表項(xiàng)內(nèi)容刪除。注意：存盤時(shí)，將文件保存至考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp。要求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2－109在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2－110所列在窗體Form1中畫出控件，并設(shè)置其相關(guān)屬性。步驟2：在打開的代碼編輯窗口中，編寫兩個(gè)命令按鈕的單擊事件代碼：參考代碼：PrivateSubCommand1_Click()List1.AddItemList1.TextEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、（1）考生文件夾下的工程文件sjt3.vbp中有兩個(gè)初始標(biāo)題分別是“移動(dòng)”和“退出”的命令按鈕；一個(gè)初始狀態(tài)為不可用的時(shí)鐘Timer1。請畫一個(gè)標(biāo)簽Label1，其標(biāo)題為“計(jì)算機(jī)考試”，顯示格式為黑體小四號字，左邊界為500，且能根據(jù)顯示內(nèi)容自動(dòng)調(diào)整大小。如圖1－228所示。程序功能如下：①單擊“移動(dòng)”按鈕時(shí)，該按鈕標(biāo)題自動(dòng)變換為“暫?！?，且標(biāo)簽內(nèi)容在窗體中開始向右移動(dòng)。當(dāng)標(biāo)簽右側(cè)到窗體右邊時(shí)，標(biāo)簽移動(dòng)方向改變?yōu)閺挠蚁蜃笠苿?dòng)；當(dāng)標(biāo)簽左側(cè)觸及窗體左邊緣時(shí)，標(biāo)簽移動(dòng)方向改變?yōu)閺淖笙蛴乙苿?dòng)。②單擊“暫?！卑粹o時(shí)，該按鈕的標(biāo)題自動(dòng)變換為“移動(dòng)”，并暫停標(biāo)簽內(nèi)容的移動(dòng)。③單擊“退出”按鈕時(shí)，則結(jié)束程序運(yùn)行。命令按鈕的Click事件過程已經(jīng)給出，但事件過程不完整，請將其中的注釋符去掉，把?改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注意：不得修改窗體文件中已經(jīng)存在的控件和程序，最后將修改后的文件按原文件名存盤。（2）考生文件夾下的工程文件sjt4.vbp中有一個(gè)標(biāo)題為“編號”的標(biāo)簽Label1，一個(gè)用于接收選手編號的初始內(nèi)容為空的文本框Text1；另有一個(gè)含有10個(gè)元素的標(biāo)簽控件數(shù)組Label2用于顯示評委名稱：“評委1”、“評委2”…，一個(gè)含有10個(gè)元素的文本框控件數(shù)組Text2用于接收10個(gè)評委對某選手的打分；還有一個(gè)標(biāo)題為“統(tǒng)計(jì)得分”的命令按鈕。請?jiān)佼媰蓚€(gè)可根據(jù)顯示內(nèi)容自動(dòng)調(diào)整大小、標(biāo)題分別為“選手編號”和“得分”的標(biāo)簽Label3和Label4，一個(gè)圖片框Picture1，如圖1－229所示。程序功能如下：在Text1文本框中輸入選手編號，并在Text2文本框控件數(shù)組中輸入10個(gè)評委對該選手的打分情況后，單擊“統(tǒng)計(jì)得分”按鈕，則對10個(gè)評委的打分去掉一個(gè)最低分和一個(gè)最高分之后求平均，該平均分即為選手的最后得分。最后將選手編號和得分顯示在圖片框Picture1中，并將Text1、Text2的內(nèi)容置為空。命令按鈕的Click事件過程已經(jīng)給出，但事件過程不完整，請將其中的注釋符去掉，把?改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后程序按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt3.vbp。步驟2：在窗體Form1中加入一個(gè)標(biāo)簽并設(shè)置相關(guān)屬性，其屬性和值如表2－111所示。步驟3：在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Timer1.Enabled=TrueLabel1.Left=Label1.Left+100Label1.Left=Label1.Left-100步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt4.vbp，如表2－112在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Forn=1To9CaseIs>MaxCaseIs＜MinSum=Sum+Val(Text2(n))步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、考生文件夾下的工程文件sjt5.vbp中有一個(gè)初始內(nèi)容為空的文本框Text1，兩個(gè)標(biāo)題分別是“讀數(shù)據(jù)”和“計(jì)算”的命令按鈕；請畫一個(gè)標(biāo)題為“各行最小數(shù)的平均值為”的標(biāo)簽Label2，再畫一個(gè)初始內(nèi)容為空的文本框Text2，如圖1－230所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀入20行5列的二維數(shù)組a中，并同時(shí)顯示在Text1文本框內(nèi)；②單擊“計(jì)算”按鈕，則自動(dòng)統(tǒng)計(jì)二維數(shù)組中各行的最小數(shù)，并將這些最小數(shù)的平均值顯示在Text2文本框內(nèi)?！白x數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，請編寫“計(jì)算”按鈕的Click事件過程實(shí)現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須用“計(jì)算”按鈕進(jìn)行計(jì)算，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件中的本題工程文件sjt5.vbp，在窗體Form1中畫一個(gè)標(biāo)簽和一個(gè)文本框，其屬性及值如表2－113所示。步驟2：打開代碼編輯窗口，在指定位置編寫以下代碼：參考代碼：Sum=0Fori=1To20Min=a(1,1)Forj=2To5IfMin>a(i,j)ThenMin=a(i,j)NextSum=Sum+MinNextText2=Sum/20步驟3：按要求將文件保存至考生文件夾中。步驟4：按＜F5＞鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，接著單擊“計(jì)算”按鈕，然后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。知識點(diǎn)解析：暫無解析國家二級VB機(jī)試（上機(jī)操作）模擬試卷第2套一、基本操作題(本題共2題，每題1.0分，共2分。)1、在名稱為Forml的窗體上添加一個(gè)名稱為Commandl的命令按鈕(如圖1所示)，然后通過屬性窗口設(shè)置窗體和命令按鈕的屬性，實(shí)現(xiàn)如下功能：①窗體標(biāo)題為“設(shè)置按鈕屬性”；②命令按鈕的標(biāo)題為“等級考試”；③程序運(yùn)行后，命令按鈕不可見；④命令按鈕的標(biāo)題字號、字體用三號常規(guī)黑體顯示。程序的運(yùn)行情況如圖2所示。要求：不編寫任何代碼。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為sjt1．vbp，窗體文件名保存為sjt1．frm。標(biāo)準(zhǔn)答案：【操作步驟】步驟l：新建一個(gè)窗體，按照題目要求建立命令按鈕控件并設(shè)置命令按鈕和窗體的相應(yīng)屬性，如圖4．23所示。程序中用到的屬性見表4．2l。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：窗體對象和命令按鈕控件的標(biāo)題均由其Caption屬性來設(shè)置，Visible屬性用于設(shè)置窗體或控件在運(yùn)行時(shí)是否可見，設(shè)計(jì)時(shí)可通過修改命令按鈕的Font屬性來設(shè)置標(biāo)題的字體、字號和字型。2、在名稱為Forml的窗體上添加一個(gè)名稱為Labell的標(biāo)簽，在屬性窗口中把BorderStyle屬性設(shè)置為1(如圖l所示)，編寫適當(dāng)?shù)氖录^程。使得程序在運(yùn)行后，如果單擊窗體，則可使標(biāo)簽移到窗體的右上角(只允許在程序中修改適當(dāng)屬性來實(shí)現(xiàn))。要求：不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為sjt2．vbp，窗體文件名保存為sja．Frm標(biāo)準(zhǔn)答案：【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立標(biāo)簽控件并設(shè)置標(biāo)簽的相應(yīng)屬性，見表4．22。步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案PriVateSubForml_Slick()Labell．Top=0設(shè)置Labell的初始位置Label．Left=F0m1．Width-La-bell．WidthEndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：標(biāo)簽的Borderstyle屬性用于設(shè)置標(biāo)簽的邊框樣式，值為0表示無邊框，值為l表示有固定邊框。要使標(biāo)簽位于窗體的右上角，其Top屬性值應(yīng)為0，Left屬性值應(yīng)為窗體的內(nèi)部有效寬度減去標(biāo)簽寬度后的值。二、簡單應(yīng)用題(本題共2題，每題1.0分，共2分。)3、在考生文件夾下有一個(gè)工程文件sjt3．vbp，相應(yīng)的窗體文件為sjt3．frm。其功能是隨機(jī)產(chǎn)生30個(gè)0～1000的整數(shù)，放入一個(gè)數(shù)組中，然后輸出其中的最小值。程序運(yùn)行后，單擊命令按鈕(名稱為Commandl，標(biāo)題為“輸出最小值”)，即可求出其最小值，并在窗體上顯示出來(如圖所示)。這個(gè)程序不完整，請把它補(bǔ)充完整，并使其能正確運(yùn)行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后將修改后的文件按原名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟l：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“′”，將問號改為正確的內(nèi)容。參考答案(陰影部分是需考生填入的內(nèi)容)OptionBase1PriVatesubCommandl_Click()DimarrN(30)AsIntegerDimMinAsIntegerRandomizeFori=lTo30arrN(i)=Int(Rnd*1000)NextiMin=arrN(1)l將第一個(gè)數(shù)賦給Min，以提供判斷Fori=2To30IfarrN(i)＜Min_Then′比較最小值與其他數(shù)值，找出最小值Min=arrN(i)EndIfNextiPrintMinEndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。【易錯(cuò)提示】產(chǎn)生0～1000范圍內(nèi)的隨機(jī)數(shù)，應(yīng)該是Rnd×1000。知識點(diǎn)解析：本題程序用變量Min記錄最小數(shù)，最初把數(shù)組的第一個(gè)元素的值賦給Min，然后通過For循環(huán)語句將其后的元素依次與之比較，如果其值小于Min，則將其賦值給Min，依次類推，最終Min的值就是數(shù)組各元素中的最小值。4、在考生文件夾下有一個(gè)工程文件sjt4．vbp，相應(yīng)的窗體文件為sjt4．frm，在窗體上有一個(gè)文本框和一個(gè)命令按鈕。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～1000范圍內(nèi)不能被7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算不能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過程Fun中實(shí)現(xiàn)，請編寫該過程的代碼。要求：請勿改動(dòng)程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫的若干語句。最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟l：打開本題工程文件。步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。參考答案FunctionFun()DimsAsInteger，iAsIntegerFori=0To1000′求0～1000中滿足條件的數(shù)IfiMod7＜＞0Thens=s+1′將滿足務(wù)件的數(shù)的個(gè)數(shù)累加EndIfNextiFun=s’返回結(jié)果EndFunction步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：可通過求余運(yùn)算符Mod來計(jì)算某數(shù)M能否被7整除，如果MMod7=0，那么M能被7整除；如果MMod7＜＞0，那么M不能被7整除?？衫肍or。循環(huán)語句來逐個(gè)判斷0～1000范圍內(nèi)的整數(shù)能否被7整除，然后用一個(gè)變量來統(tǒng)計(jì)不能被7整除的整數(shù)個(gè)數(shù)。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)5、在考生文件夾下有一個(gè)工程文件sjt5．vbp，按照要求完成以下操作：在名稱為Forml的窗體上添加兩個(gè)命令按鈕，其名稱分別為Cl和C2，標(biāo)題分別為“讀入數(shù)據(jù)”和“計(jì)算”(如圖所示)。程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)”按鈕，則調(diào)用題目所提供的ReadDatal和ReadData2過程讀入datainl．txl和datain2．txt文件中的各20個(gè)整數(shù)，分別放入Arrl和Arr2兩個(gè)數(shù)組中；如果單擊“計(jì)算”按鈕，則把兩個(gè)數(shù)組中對應(yīng)下標(biāo)的元素相減，其結(jié)果放入第三個(gè)數(shù)組中(第1個(gè)數(shù)組的第n個(gè)元素減去第2個(gè)數(shù)組的第n個(gè)元素，其結(jié)果作為第3個(gè)數(shù)組的第n個(gè)元素。這里的n為1、2…20)，最后計(jì)算第3個(gè)數(shù)組各元素之和，把所求得的和在窗體上顯示出來；并調(diào)用題目中給出的Write．Data過程將所求得的和存入考生文件夾下的dataout．txt文件中。注意：考生不得修改窗體文件中已經(jīng)存在的程序，且必須執(zhí)行一次，最后將修改后的文件以原來的文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟l：打開本題工程文件，按照題目要求建立命令按鈕控件并設(shè)置命令按鈕的相應(yīng)屬性，程序中用到的控件及屬性見表4．23。步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。參考答案PriVateSubC1_Click()CallReadDatal′調(diào)用過程ReadDatalCallReadData2′調(diào)用過程ReadData2EndSubPriVateSubC2—Click()DimArr3(1To20)．AsIntegerDimsumAsIntegersum=0Fori=1To20′將Arrl中對應(yīng)于Arr2中的數(shù)相減，結(jié)果存入Arr3中Arr3(i)=Arrl(i)-Arr2(i)sum=sum+Arr3(i)′將Arr3中的元素累加NextiPrint＂sum=＂;sum′在窗體打印sumWriteData＂dataout．txt＂，sumEndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：本題源程序已給出讀文件中的數(shù)據(jù)和向文件中寫數(shù)據(jù)的三個(gè)過程，只需適時(shí)調(diào)用它們，即在“讀入數(shù)據(jù)”和保存過程中調(diào)用；要把數(shù)組Arrl和Arr2中對應(yīng)下標(biāo)的元素相減并把結(jié)果存入第3個(gè)數(shù)組中，需利用For循環(huán)逐一取出Arrl和Arr2對應(yīng)元素；由于數(shù)組Arrl、Arr2及存儲第3個(gè)數(shù)組和的變量要跨過程使用，因此需定義成窗體級變量；調(diào)用過程WriteData時(shí)需傳遞兩個(gè)參數(shù)，分別是存入數(shù)據(jù)的文件名和存儲第3個(gè)數(shù)組和的變量；語句OptionBase1用于限定數(shù)組下標(biāo)的下限，默認(rèn)為l。國家二級VB機(jī)試（上機(jī)操作）模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml，標(biāo)題為“框架”的窗體上添加一個(gè)名稱為Framel，且標(biāo)題為空的框架。框架內(nèi)含有兩個(gè)單選按鈕，名稱分別為Opt1和Opt2，其標(biāo)題分別為“字體”、“大小”。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為sjt1．vbp，窗體文件名保存為sjt1．frm。(2)考生文件夾下的工程文件sjt2．vbp中有一個(gè)由直線Line1、Line2和Line3組成的三角形，直線Linel、Line2和Line3的坐標(biāo)值如下所示：名稱X1Y1X2Y2Line160012001600300Line2600120026001200Line3160030026001200要求添加一條直線Line4以構(gòu)成三角形的高，且該直線的初始狀態(tài)為不可見。再添加兩個(gè)命令按鈕，名稱分別為Cmd1、Cmd2，標(biāo)題分別為“顯示高”、“隱藏高”，如圖所示。請編寫適當(dāng)?shù)氖录^程使得在程序運(yùn)行時(shí)，單擊“顯示高”按鈕，則顯示三角形的高；單擊“隱藏高”按鈕，則隱藏三角形的高。注意：要求程序中不得使用變量，每個(gè)事件過程只能寫一條語句。不得修改已經(jīng)存在的控件，最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：建立界面，添加相應(yīng)的控件并設(shè)置控件的屬性。程序中涉及的控件及屬性見表4．56。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：打開sjt2工程，按照題目要求建立Line控件并設(shè)置其屬性，如圖4．33所示。步驟2：按照步驟1建立其他控件并設(shè)置相關(guān)屬性，程序中涉及的控件及屬性見表4．57。步驟3：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案PrivateSubCmd1_Click()Line4．Visible=True’將Line4顯示EndSubPrivateSubCmd2_Click()Line4．Visible=False’將Line4隱藏EndSub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：(1)通過窗體的Caption屬性設(shè)置窗體的標(biāo)題，通過框架的Name和Caption屬性設(shè)置框架的名稱和標(biāo)題，通過單選按鈕的Name和Caption屬性設(shè)置單選按鈕的名稱和標(biāo)題。(2)通過對直線Line1、Line2和Line3的坐標(biāo)值的計(jì)算，確定線條的X1、X2、Y1和Y2屬性的值，畫出線段Line4，并將其Visible屬性設(shè)置為False，使得在初始狀態(tài)下為不可見。再通過命令按鈕的Name和Caption屬性設(shè)置命令按鈕的名稱和標(biāo)題。在Cmd1_Click事件過程中將Line4的Visible屬性設(shè)置True，則可以顯示高，在Cmd2_Click事件過程中把Line4的Visible屬性設(shè)置False，則可以隱藏高。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp。程序運(yùn)行時(shí)，單擊窗體則顯示如圖所示的圖案。請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后將修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，窗體中有一個(gè)矩形和一個(gè)圓，程序運(yùn)行時(shí)，單擊“開始”按鈕，圓可以橫向或縱向運(yùn)行(通過選擇單選按鈕來決定)，碰到矩形的邊時(shí)，則向其相反方向運(yùn)動(dòng)，單擊“停止”按鈕，則停止運(yùn)動(dòng)，如圖所示?？梢酝ㄟ^選擇單選按鈕隨時(shí)改變運(yùn)動(dòng)方向。已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考答案(畫線部分是需考生填入的內(nèi)容)PrivateSubForm_Click()Fori=1To5’輸入5行Forj=1To6一i’循環(huán)實(shí)現(xiàn)輸入空格，每行依次減少一個(gè)空格Print""；NextjForj=1To2*i-1’觀察圖像每行*的個(gè)數(shù)Print"*"；NextjPrintNextiFori=1To4Forj=1Toi+1’同問題1Print""；NextjForj=1To(9-2*i)’同問題2Print"*"；NextjPrintNextiEndSub程序結(jié)束步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考答案(畫線部分是需考生填入的內(nèi)容)DimdAsIntegerPrivateSubCommandlClick()Timer1．Enabled=True’當(dāng)單擊"開始"按鈕時(shí)，Timer生效EndSubPrivateSubCommand2Click()Timer1.Enabled=False’當(dāng)單擊"停止"按鈕時(shí)，Timer失效EndSubPrivateSubForm_Load()d=1EndSubPrivateSubTimer1_Timer()IfOptionlThen’判斷Option1是否被單擊Shape2．Top=Shape2.Top+d*50’實(shí)現(xiàn)圓垂直移動(dòng)IfShape2．Top<=Shape1．TopOrShape2．Top+Shape2．Width>=Shape1．Top+Shape1．HeightThen’判斷Shape2與Shape1的位置d=－d’當(dāng)圓移出Shape1時(shí)，改變移動(dòng)方向EndIfElseIfOption2ThenShape2．Left=Shape2.Left+d*50’實(shí)現(xiàn)水平移動(dòng)IfShape2．Left<=Shape1．LeftOrShape2．Left+Shape2．Width>=Shape1．Left+Shape1．WidthThend=－d’當(dāng)圓移出Shape1時(shí)，則改變移動(dòng)方向EndItEndIfEndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：(1)本題主要考查的是對循環(huán)語句的理解，以及對于循環(huán)上限的判斷。首先看一下兩個(gè)主要的：For循環(huán)語句實(shí)現(xiàn)什么樣的功能，先看第1個(gè)For語句，在循環(huán)語句中嵌套兩個(gè)循環(huán)語句，第1個(gè)語句實(shí)現(xiàn)輸入空格，當(dāng)i=1時(shí)，即當(dāng)輸入第1行時(shí)，進(jìn)行Forj=1To6-i的循環(huán)，即在第1行打印出5個(gè)空字符，也可以理解為打印出5個(gè)空格。第2個(gè)for循環(huán)實(shí)現(xiàn)的是*的打印，還以i=1為例，要打印出一個(gè)*，同時(shí)要注意行數(shù)i和輸入空格及*符號個(gè)數(shù)之間的關(guān)系，也就是找出表達(dá)式的運(yùn)算規(guī)律，從而得到循環(huán)上限。(2)在Timer1_Timer事件過程中，通過判斷單選按鈕“縱向”或“橫向”是否被選中來決定圓運(yùn)動(dòng)的方向，如果是縱向，則通過Shape2的Top和Width屬性值的改變實(shí)現(xiàn)圓的移動(dòng)，并通過判斷Top屬性值來確定是否到達(dá)上或下界，使圓向相反方向運(yùn)動(dòng)。如果是橫向，則通過Shape2的Left和Width屬性值的改變實(shí)現(xiàn)圓的移動(dòng)。在Command2_Click事件過程中通過將Timer1的Enabled屬性設(shè)置為False，使圓停止運(yùn)動(dòng)，在Command1_Click事件過程中通過將Timer1的Enabled屬性設(shè)置為True，使圓開始運(yùn)動(dòng)。在窗體載入時(shí)設(shè)置d的值，是為了方便編輯圓向相反方向的運(yùn)動(dòng)過程語句。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5．vbp。其功能是產(chǎn)生并顯示一個(gè)數(shù)列的前n項(xiàng)。數(shù)列產(chǎn)生的規(guī)律是：數(shù)列的前2項(xiàng)是小于10的正整數(shù)，將此兩數(shù)相乘，若乘積＜10，則以此乘積作為數(shù)列的第3項(xiàng)；若乘積≥10，則以乘積的十位數(shù)為數(shù)列的第3項(xiàng)，以乘積的個(gè)位數(shù)為數(shù)列的第4項(xiàng)。再用數(shù)列的最后兩項(xiàng)相乘，用上述規(guī)則形成后面的項(xiàng)，直至產(chǎn)生了第n項(xiàng)。窗體上部從左到右3個(gè)文本框的名稱分別為Text1、Text2、Text3，窗體下部的文本框名稱為Text4。程序運(yùn)行時(shí)，在Text1、Text2中輸入數(shù)列的前兩項(xiàng)，Text3中輸入要產(chǎn)生的項(xiàng)數(shù)n，單擊“計(jì)算”按鈕則產(chǎn)生此數(shù)列的前n項(xiàng)，并顯示在Text4中。如圖所示。已經(jīng)給出了全部控件，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不得修改原有程序和控件的屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口。去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考答案(畫線部分是需考生填入的內(nèi)容)PrivateSubCommand1_Click()Text4=""a=Val(Text1)b=Val(Text2)n=Val(Text3)Text4=Text4＆a＆""＆b’文本框Text4中第二項(xiàng)的內(nèi)容一定是bk=2DoWhilek＜nc=a*bk=k+1Ifc＜10Then’判斷乘積是否小于10Text4=Text4＆""＆c’若小于10。則直接接到Text4文本末尾a=b’將b賦給a成為下一次循環(huán)的前一項(xiàng)b=c’將c作為下一次循環(huán)的后一項(xiàng)Elsed=c＼10’當(dāng)c大于10，則取整Text4=Text4＆""＆da=d’將十位數(shù)作為下一次循環(huán)的前一項(xiàng)k=k+1Ifk<=nThen’當(dāng)k>n時(shí)，則數(shù)列數(shù)已夠，不用求下一項(xiàng)d=cMod10Text4=Text4＆""＆db=d’將余數(shù)作為下一次循環(huán)的后一項(xiàng)EndIfEndIfLoopEndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：Text3的數(shù)值是數(shù)列的項(xiàng)數(shù)，定義一個(gè)變量k，前兩項(xiàng)已經(jīng)確定，因此k的取值范圍為3～n，先計(jì)算前兩項(xiàng)的積，判斷是否小于10，如果乘積小于10，則以此乘積作為數(shù)列的第3項(xiàng)數(shù)，如果乘積大于等于10，則以乘積的十位數(shù)為數(shù)列的第3項(xiàng)，以乘積的個(gè)位數(shù)為數(shù)列的第4項(xiàng)，再用數(shù)列的最后2項(xiàng)相乘，運(yùn)用循環(huán)語句，用上述規(guī)則形成后面的項(xiàng)，直至產(chǎn)生了第n項(xiàng)。在這里運(yùn)用的是DoWhile語句，與For語句有所不同，要注意區(qū)分。國家二級VB機(jī)試（上機(jī)操作）模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。（1）在名稱為Form1、標(biāo)題為“測試”的窗體上畫一個(gè)名稱為Frame1、標(biāo)題為“字體”的框架。在框架內(nèi)畫兩個(gè)單選按鈕，其名稱分別為Opt1和Opt2，標(biāo)題分別為“隸書”和“宋體”。程序運(yùn)行后的窗體如圖1－93所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。（2）在名稱為Form1的窗體上用名稱為shape1的形狀控件畫一個(gè)圓，其直徑為1000（高、寬均為1000）；再畫兩個(gè)命令按鈕，標(biāo)題分別是“垂直線”和“水平線”，名稱分別為Command1、Command2，如圖1－94所示。然后編寫兩個(gè)命令按鈕的Click事件過程。程序運(yùn)行后，如果單擊“垂直線”命令按鈕，則圓的內(nèi)部用垂直線填充；如果單擊“水平線”命令按鈕，則圓的內(nèi)部用水平線填充。注意：程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2－27在窗體上繪制控件并設(shè)置屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2－28在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：在代碼編輯窗口編寫兩個(gè)命令按鈕的單擊事件過程。參考代碼：PrivateSubCommand1_Click()Shape1.FillStyle=3EndSubPrivateSubCommand2_Click()Form1.Shape1.FillStyle=2EndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，請?jiān)诿Q為Form1的窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為C1、標(biāo)題為“轉(zhuǎn)換”的命令按鈕，如圖1－95所示。在程序運(yùn)行時(shí)，單擊“轉(zhuǎn)換”按鈕，可以把Text1中的大寫字母轉(zhuǎn)換為小寫，把小寫字母轉(zhuǎn)換為大寫。窗體文件中已經(jīng)給出了“轉(zhuǎn)換”按鈕的Click事件過程，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序中的其他部分，最后把修改后的文件按原文件名存盤。（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp，其功能是：①單擊“讀數(shù)據(jù)”命令按鈕，把考生文件夾下in4.dat文件中已按升序方式排列的60個(gè)數(shù)讀入數(shù)組A，并顯示在Text1中；②單擊“輸入”按鈕，彈出一個(gè)輸入對話框，接收用戶輸入的任意一個(gè)整數(shù)；單擊“插入”按鈕，將輸入的數(shù)插入A數(shù)組中合適的位置，使其仍保持A數(shù)組的升序排列，最后將A數(shù)組的內(nèi)容重新顯示在Text1中。在窗體文件中已經(jīng)給出了全部控件（如圖1－96所示）和程序，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。本程序只考慮插入一個(gè)整數(shù)的情況。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：n%=Asc("a")-Asc("A")B$=String(1,Asc(B$)+32)Text1.Text=A步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Ifnum＜a(i)ThenExitForForj=60ToiStep-1a(j+1)=a(j)a(i)=numFork=1To61步驟2：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5.vbp，其窗體上有兩個(gè)標(biāo)題分別為“讀數(shù)據(jù)”和“統(tǒng)計(jì)”的命令按鈕。請畫兩個(gè)標(biāo)簽，其名稱分別是Label1和Label2，標(biāo)題分別為“單詞的平均長度為”和“最長單詞的長度為”；再畫兩個(gè)名稱分別為Text1和Text2、初始內(nèi)容為空的文本框，如圖1－97所示。程序功能如下：①如果單擊“讀數(shù)據(jù)”命令按鈕，則將考生文件夾in5.dat文件的內(nèi)容讀到變量s中（此過程已給出）；②如果單擊“統(tǒng)計(jì)”按鈕，則自動(dòng)統(tǒng)計(jì)變量s（s中僅含有字母和空格，而空格是用來分隔不同單詞的中每個(gè)單詞的長度，并將所有單詞的平均長度（四舍五入取整）顯示在Text1文本框內(nèi)，將最長單詞的長度顯示在Text2文本框內(nèi)?！白x數(shù)據(jù)”命令按鈕的Click事件過程已經(jīng)給出，請為“統(tǒng)計(jì)”命令按鈕編寫適當(dāng)?shù)氖录^程，實(shí)現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序之前，必須進(jìn)行統(tǒng)計(jì)，且必須通過單擊窗體右上角的“關(guān)閉”按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt5.vbp，如表2－29所列在窗體上畫出控件并設(shè)置它們的相關(guān)屬性。步驟2：打開代碼編輯窗口，在指定位置編寫“統(tǒng)計(jì)”按鈕的單擊事件過程。參考代碼：PrivateSubCommand2_Click()’需考生編寫n=Len(s):t=""Dimword_maxAsInteger,word_numAsInteger,word_lenAsIntegerFori=1Tonc=Mid(s,i,1)Ifc＜＞""Thent=t+cElseword_len=word_len+Len(t)word_num=word_num+1IfLen(t)＞word_maxThenword_max=Len(t)EndIft=""EndIfNextiText1.Text=CInt((word_len+Len(t))/(word_num+1))IfLen(t)>word_maxThenword_max=Len(t)EndIfText2.Text=word_maxEndSub步驟3：按要求將文件保存至考生文件夾中。步驟4：按＜F5＞鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“統(tǒng)計(jì)”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。知識點(diǎn)解析：暫無解析國家二級VB機(jī)試（上機(jī)操作）模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Form1的窗體上畫一個(gè)名稱為CmdChange、標(biāo)題為“改變顏色”的命令按鈕，窗體標(biāo)題為“設(shè)置窗體背景色”。編寫程序，使得單擊命令按鈕時(shí)，將窗體的背景顏色改為紅色(＆HFF＆)。運(yùn)行程序后的窗體如圖3－142所示。要求：程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。存盤時(shí)必須存放在考生文件夾下，工程文件名為vbsj1．vbp，窗體文件名為vbsj1．frm。(2)在名稱為Form1的窗體上畫一個(gè)命令按鈕和一個(gè)垂直滾動(dòng)條，其名稱分別為Cmd1(標(biāo)題為“設(shè)置”)和Vsb1，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊命令按鈕，則按如下要求設(shè)置垂直滾動(dòng)條的屬性：Max＝窗體高度Min＝0LargeChange＝50SmallChange＝10如果移動(dòng)垂直滾動(dòng)條的滾動(dòng)框，則在窗體上顯示滾動(dòng)框的位置值。程序的運(yùn)行情況如圖3—143所示。要求：不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為vbsj2．vbp，窗體文件名為vbsj2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Form1中畫一個(gè)命令按鈕，設(shè)置相關(guān)屬性，其屬性及值如表4－83所示。步驟2：打開代碼編輯窗口，編寫按鈕的Click事件過程中。參考代碼：PrivateSubcmdChange_Click()BackColor＝＆HFF＆EndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按表4－84在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫水平滾動(dòng)條的Change事件過程。參考代碼：PrivateSubCmd1_Click()Vsb1．Max＝Form1．HeightVsb1．Min＝0Vsb1．LargeChange＝50Vsb1．SmaliChange＝10EndSubPrivateSubVsb1_Change()PrintVsb1．ValueEndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件vbsj3．vbp，相應(yīng)的窗體文件為vbsj3．filaa，在窗體上有一個(gè)標(biāo)題為“計(jì)算”的命令按鈕和一個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出數(shù)組arr中每個(gè)元素與其下標(biāo)相除所得的和，并在文本框中顯示出來，程序的運(yùn)行情況如圖3－144所示。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算數(shù)組arr中每個(gè)元素與其下標(biāo)相除所得的和的操作在通用過程Fun中實(shí)現(xiàn)，請編寫該過程的代碼。要求：請勿改動(dòng)程序中的其他部分，只在FunctionFun()和EndFunction之間填入你編寫的若干語句并運(yùn)行程序。在結(jié)束程序運(yùn)行之前，必須至少正確運(yùn)行一次程序，將結(jié)果顯示在文本框中，否則無成績。最后把修改后的文件按原文件名存盤。說明：數(shù)組arr中共有40個(gè)元素，“數(shù)組art中每個(gè)元素與其下標(biāo)相除所得的和”，是指：arr(1)／1＋arr(2)／2＋arr(3)／3＋…＋arr(40)／40(2)在考生文件夾下有一個(gè)工程文件vbsi4．vbp。程序運(yùn)行后，如果單擊“開始"按鈕，則圖片自左向右移動(dòng)，同時(shí)滾動(dòng)條的滑塊隨之移動(dòng)，每0．5秒移動(dòng)一次。當(dāng)圖片完全移出窗體的右邊界時(shí)，立即再從窗體的左邊界開始重新移動(dòng)，若單擊“停止”按鈕，則圖片停止移動(dòng)，如圖3－145所示。在窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾下的工程文件vbsj3．vbp。步驟2：進(jìn)入代碼編輯窗口，在FunctionFun()和EndFunction之間輸入以下代碼。參考代碼：FunctionFun(a()AsSingle)AsSingleDimsumAsSingleDimiAsIntegerFori＝LBound(a)ToUBound(a)sum＝sum＋a(i)／iNextFun＝sumEndFunction步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾下的工程文件vbsj4．vbp。步驟2：進(jìn)入代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Tmr1．Enabled＝FalseTmr1．Interval＝500IfPicl．Left＞Me．WidthThenPicl．Left＝0步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生目錄下有一個(gè)工程文件vbsjl5．vbp，用來計(jì)算勾股定理整數(shù)組合的個(gè)數(shù)。勾股定理中3個(gè)數(shù)的關(guān)系是：a2＋b2＝c2。例如，3、4、5就是一個(gè)滿足條件的整數(shù)組合(注意：a，b，c分別為4，3，5與分別為3，4，5被視為同一個(gè)組合，不應(yīng)該重復(fù)計(jì)算)。編寫程序，統(tǒng)計(jì)三個(gè)數(shù)均在60以內(nèi)滿足上述關(guān)系的整數(shù)組合的個(gè)數(shù)，并顯示在標(biāo)簽Lbl1中，運(yùn)行時(shí)程序界面如圖3－146所示。注意：不得修改原有程序的控件的屬性。在結(jié)束程序運(yùn)行之前，必須至少正確運(yùn)行一次程序，將統(tǒng)計(jì)的結(jié)果顯示在標(biāo)簽中，否則無成績。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾下的工程文件vbs．i5．vbp，在碼編輯窗口的指定位置輸入代碼。參考代碼：PrivateSubCommand1_Click()’＝＝＝考生編寫程序開始＝＝＝＝DimiAsInteger，jAsIntegerDimnAsIntegerFori＝1To59Forj＝iTo60IfSqr(i*i＋j*j)＝Int(Sqr_(i*i＋j*j))Andsqr_(i*i＋j*j)＜＝60Thenn＝n＋1EndIfNextNextLbl1．Caption＝n’＝＝＝考生編寫程序結(jié)束＝＝＝＝’不要改動(dòng)以下內(nèi)容saveLabel1EndSub步驟2：按＜F5＞鍵運(yùn)行程序，單擊“計(jì)算”按鈕。步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析國家二級VB機(jī)試（上機(jī)操作）模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上畫兩個(gè)標(biāo)簽(名稱分別為Label1和Label2,，標(biāo)題分別為“姓名”和“年齡”)、兩個(gè)文本框(名稱分別為Text1和Text2，初始內(nèi)容均為空)和一個(gè)命令按鈕(名稱為Command1，標(biāo)題為“顯示”)。然后編寫命令按鈕的Click事件過程。程序運(yùn)行后，在兩個(gè)文本框中分別輸入姓名和年齡，然后單擊“顯示”按鈕，則在窗體上顯示兩個(gè)文本框中的內(nèi)容，如圖所示。要求程序中不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為sjt1．vbp，窗體文件名保存為sjt1．frm。(2)在名稱為Forml的窗體上畫一個(gè)圖片框，其名稱為Picturel，一個(gè)水平滾動(dòng)條，名稱為HScroll1，一個(gè)命令按鈕，名稱為Command1，標(biāo)題為“設(shè)置屬性”，通過屬性窗口在圖片框中裝入一個(gè)圖形(文件名為pic1．jpg，位于考生目錄下)，圖片框的高度與圖形的高度相同，圖片框的寬度任意(如圖1所示)。編寫適當(dāng)?shù)氖录^程，程序運(yùn)行后，如果單擊命令按鈕，則設(shè)置水平滾動(dòng)條的屬性如下：Min100Max1500LargeChange100SmallChange10之后就可以通過移動(dòng)滾動(dòng)條上的滾動(dòng)塊來放大或縮小圖片框。程序運(yùn)行后的窗體如圖2所示。要求程序中不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立控件并設(shè)置相應(yīng)屬性，程序中用到的控件及屬性如表4．16所示。步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案PrivateSubCommand1_Click()Forml．PrintText1．Text＆”，現(xiàn)年”＆Text2．Text＆"歲"EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：新建一個(gè)窗體，添加控件并設(shè)置相應(yīng)的屬性。程序中用到的控件及其屬性見表4．17。步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案PrivateSubCommandl_Click()HScroll1．Max=1500’設(shè)置滾動(dòng)條的最大值、最小值、最大改變值、最小改變值HScroll1．Min=100HScroll1．LargeChange=100HScroll1．SmallChange=10EndSubPrivateSubHScroll1_Change()Picture1．Width=HScroll1．Value’將圖片的width與滾動(dòng)條的Value保持一致EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：(1)通過標(biāo)簽的Name和Caption屬性設(shè)置標(biāo)簽的名稱和標(biāo)題，通過文本框Name和Text屬性設(shè)置文本框的名稱和文本，通過命令按鈕的Name和Caption屬性設(shè)置命令按鈕的名稱和標(biāo)題，“&”和“+”運(yùn)算符均可將兩個(gè)表達(dá)式作為字符串連接。在窗體上輸出文本內(nèi)容可使用Print方法。(2)在設(shè)計(jì)階段通過Picture屬性為圖片框指定顯示的圖片，通過Width屬性來設(shè)定或修改圖片框的寬度。通過調(diào)整滾動(dòng)條滑塊的位置即可改變其Value屬性的值，滾動(dòng)條的Max和Min屬性限定了滾動(dòng)條所能表示的最大值和最小值，LargeChange屬性用于設(shè)置當(dāng)單擊滑塊與兩側(cè)箭頭間區(qū)域時(shí)Value屬性值的改變量，SmallChange屬性用于設(shè)置當(dāng)單擊滾動(dòng)條兩側(cè)箭頭時(shí)Value屬性值的改變量。當(dāng)改變滾動(dòng)條滑塊位置后將觸發(fā)其Change事件。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)考生文件夾下有一個(gè)工程文件sjt3．vbp。程序的功能是：通過鍵盤向文本框中輸入數(shù)字，如果輸入的是非數(shù)字字符，則提示輸入錯(cuò)誤，且文本框中不顯示輸入的字符。單擊名稱為Command1、標(biāo)題為“添加”的命令按鈕，則將文本框中的數(shù)字添加到名稱為Combol的組合框中。在給出的窗體文件中已經(jīng)添加了全部控件，但程序不完整。要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序中的其他部分和其他控件的屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp。該程序的功能是計(jì)算M!+(M+1)!+(M+2)!+…+N!之和。窗體上有名稱分別為Text1、‘Text2的兩個(gè)文本框，用于接收輸入的M和N(要求M＜N)。單擊名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕，計(jì)算M!+(M+1)!+(M+2)!+…+N!的值，并將計(jì)算結(jié)果顯示在標(biāo)簽IblResult中。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：(I)【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考答案(畫線部分是需考生填入的內(nèi)容)PrivateSubCommandl_Click()Combo1AddItemText1.Text’將Text1中的內(nèi)容加入Combo1中Text1．Text=""’同時(shí)將Text1內(nèi)容清除EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii＞57OrKeyAscii＜48Then’數(shù)字的Ascii碼值下界MsgBox"請輸入數(shù)字!"KeyAscii=0’清空EndIfEndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符，將問號改為正確的內(nèi)容。參考答案(畫線部分是需考生填入的內(nèi)容)PrivateSubCommand1_Click()DimmAsIntegerDimnAsIntegerDimSAsLongDimiAsIntegerm=Val(Text1．Text)’將文本框中的字符轉(zhuǎn)換成數(shù)值型n=Val(Text2．Text)s=0Fori=mTon-mt=f(i)’調(diào)用函數(shù)得到N的階乘s=s+tNext1blResult．Caption=sEndSubPrivateFunctionf(ByRefxAsInteger)AsLong’ByRef為傳址傳遞DimtAsLongt=1Fori=1Tox’實(shí)現(xiàn)對數(shù)值進(jìn)行階乘運(yùn)算t=t*iNextf=t’返回計(jì)算結(jié)果EndFunction步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：(1)單擊命令按鈕，運(yùn)用組合框的List屬性將文本框中的數(shù)字添加到組合框中，通過ASCII碼來判斷輸入的是否為數(shù)字字符。(2)Functionf()過程函數(shù)用于實(shí)現(xiàn)對數(shù)值階乘的運(yùn)算，Val()函數(shù)實(shí)現(xiàn)將文本框中的字符轉(zhuǎn)換成數(shù)值型，通過循環(huán)調(diào)用過程函數(shù)實(shí)現(xiàn)對表達(dá)式結(jié)果的累加。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5．vbp，窗體上有三個(gè)文本框，其名稱分別為Text1、Text2和Text3，其中Text1、Text2可多行顯示。清添加三個(gè)命令按鈕，名稱分別為Cmd1、Cmd2和Cmd3，標(biāo)題分別為“產(chǎn)生數(shù)組”、“統(tǒng)計(jì)”和“退出”，如圖所示。程序功能如下：①單擊“產(chǎn)生數(shù)組”按鈕時(shí)，隨機(jī)生成20個(gè)0—10之間(不含0和10)的數(shù)值，并將其保存到一維數(shù)組a中，同時(shí)也將這20個(gè)數(shù)值在Text1文本框內(nèi)顯示。②單擊“統(tǒng)計(jì)”按鈕時(shí)，統(tǒng)計(jì)出數(shù)組a中出現(xiàn)頻率最高的數(shù)值及其出現(xiàn)的次數(shù)，并將出現(xiàn)頻率最高的數(shù)值在Text2文本框內(nèi)顯示、出現(xiàn)頻率最高的次數(shù)在Text3文本框內(nèi)顯示。③單擊“退出”按鈕時(shí)，結(jié)束程序運(yùn)行。注意：不得修改窗體文件中已經(jīng)存在的控件和程序，最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題工程文件，設(shè)置控件的屬性。程序中用到的控件及屬性見表4．55。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問題改為正確的內(nèi)容。參考答案(畫線部分是需考生填入的內(nèi)容)OptionBase1Dima(20)AsInteger，b(20)AsIntegerPrivateSubCmd1_Click()Text1．Text=""：Text2．Text=""：Text3．Text=""Fori=1To20a(i)=Fix(Rnd*9+1)’生成0～10的數(shù)值并存入數(shù)組a中b(i)=1Text1．Text=Text1．Text+str(a(i))+Space(2)’將生成的數(shù)顯示在Text1中NextiEndSubPrivateSubCmd2Click()fmax=0Fori=1To20Forj=1Toi-1’數(shù)組共有20個(gè)數(shù)字Ifa(i)=a(j)Thenb(i)=b(i)+1’依次存入對應(yīng)數(shù)出現(xiàn)的頻率EndIfNextjIfb(i)＞fmaxThenfmax=b(i)’該次得到的數(shù)出現(xiàn)頻率與目前出現(xiàn)頻率最多的數(shù)比較，若大于目前的數(shù)。則將最大的數(shù)改為該次得到的數(shù)Next1Fori=1To20Ifb(i)=fmaxThen’從數(shù)組中找到與fmax相同的值Text2．Text=Text2．Text+Str(a(i))+Space(2)EndIfNextiText3．Text=fmaxEndSubPrivateSubCmd3_Click()End’當(dāng)單擊"結(jié)束"按紐時(shí)，則退出程序EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。知識點(diǎn)解析：單擊“產(chǎn)生數(shù)組”按鈕時(shí)，通過Rnd函數(shù)隨機(jī)生成20個(gè)0～10(不含0和10)的數(shù)值，并將其保存到一維數(shù)組a中，同時(shí)運(yùn)用Space()函數(shù)和str()函數(shù)將這20個(gè)數(shù)值顯示在Text1文本框內(nèi)。單擊“統(tǒng)計(jì)”按鈕時(shí)，統(tǒng)計(jì)出數(shù)組a中出現(xiàn)頻率最高的數(shù)值及其出現(xiàn)的次數(shù)，并把出現(xiàn)的次數(shù)賦值給數(shù)組b，通過對數(shù)組b中數(shù)值的排序，找出最高次數(shù)，并通過判斷最高次數(shù)的值，找出出現(xiàn)頻率最高的數(shù)值，并將其數(shù)值顯示在Text2文本框內(nèi)，將出現(xiàn)次數(shù)顯示在Text3文本框內(nèi)。單擊“退出”按鈕，運(yùn)用End語句結(jié)束程序運(yùn)行。str函數(shù)將數(shù)值轉(zhuǎn)化為字符串，Val()函數(shù)是將字符轉(zhuǎn)換為數(shù)值。Space(n)函數(shù)用于輸入空格，n為空格的個(gè)數(shù)。Fix()函數(shù)用于截尾取整，生成整數(shù)。國家二級VB機(jī)試（上機(jī)操作）模擬試卷第7套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。（1）在名稱為Form1的窗體上畫兩個(gè)標(biāo)簽（名稱分別為lblBook和lblAuthor，標(biāo)題分別為“書名”和“作者”）、兩個(gè)文本框（名稱分別為txtBook和txtAuthor，Text屬性均為空白）和一個(gè)命令按鈕（名稱為cmdDisplay，標(biāo)題為“顯示”），如圖1－332所示。然后編寫命令按鈕的Click事件過程。程序運(yùn)行后，在兩個(gè)文本框中分別輸入書名和作者，然后單擊命令按鈕，則在窗體的標(biāo)題欄上先后顯示兩個(gè)文本框中的內(nèi)容，如圖1－333所示。要求程序中不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為vbsj1.vbp，窗體文件名為vbsj1.frm。（2）在名稱為Form1，標(biāo)題為“列表框示例”的窗體上畫一個(gè)名稱為lstCity的列表框，表項(xiàng)內(nèi)容依次輸入“北京”、“上?！薄ⅰ疤旖颉焙汀爸貞c”；再畫兩個(gè)標(biāo)題分別為“復(fù)制”和“移除”，名稱分別為cmdCopy和cmdRemove的命令按鈕。如圖1－334所示。要求：編寫適當(dāng)?shù)氖录^程，使得單擊“復(fù)制”按鈕，可以將選中的列表項(xiàng)內(nèi)容復(fù)制到已有列表項(xiàng)的尾部；單擊“移除”按鈕，可以將選中的列表項(xiàng)內(nèi)容刪除。注意：存盤時(shí)，將文件保存至考生文件夾下，窗體文件名為vbsj2.frm，工程文件名為vbsj2.vbp。要求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Form1中加入兩個(gè)標(biāo)簽、兩個(gè)文本框和一個(gè)命令按鈕，其相關(guān)屬性設(shè)置如表2－175所示。步驟2：雙擊窗體Form1中的“顯示”按鈕，在打開的代碼編輯窗口中，輸入如下代碼：參考代碼：PrivateSubcmdDisplay_Click()Form1.Caption=txtBook.Text&"，"&txtAuthor.TextEndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按表2－176所列在窗體Form1中畫出控件，并設(shè)置其相關(guān)屬性。步驟2：在打開的代碼編輯窗口中，編寫兩個(gè)命令按鈕的單擊事件代碼：參考代碼：PrivateSubcmdCopy_Click()lstCity.AddItemlstCity.TextEndSubPrivateSubcmdRemove_Click()lstCity.RemoveItemlstCity.ListIndexEndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、（1）在考生文件夾下有一個(gè)工程文件vbsj3.vbp。窗體上有一個(gè)標(biāo)題為“得分”的框架，在框架中有一個(gè)名稱為Txt1的文本框數(shù)組，含六個(gè)元素；文本框Txt2用來輸入難度系數(shù)。程序運(yùn)行時(shí)，在左邊的六個(gè)文本框中輸入6個(gè)得分，輸入難度系數(shù)后，單擊“計(jì)算分?jǐn)?shù)”按鈕，則可計(jì)算出最后得分并在文本框Txt3中顯示（如圖1－335所示）。計(jì)算方法：去掉1個(gè)最高得分和1個(gè)最低得分，求剩下得分的平均分，再乘以3，再乘以難度系數(shù)。最后結(jié)果保留到第2位小數(shù)，不四舍五入。注意：文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容?？忌荒苄薷某绦蛑械钠渌糠趾透骺丶膶傩?。最后把修改后的文件按原文件名存盤。程序源碼：PrivateSubCmd1_Click()DimkAsInteger,sAsSingle,aAs_Single,bAsSinglea＝Val(Txt1(0).Text)s＝ab＝a’Fork＝1To?s＝s＋Val(Txt1(k).Text)’If?＜Val(Txt1(k).Text)Thena＝Val(Txt1(k).Text)EndIfIfb＞Val(Txt1(k).Text)Thenb＝Val(Txt1(k).Text)EndIfNextk’s＝(s－a－b)/?’s＝?*3*Val(Txt2.Text)’?＝Int(s*100)/100EndSub（2）在名稱為Form1的窗體上畫一個(gè)名稱為picOpen的圖片框，并利用屬性窗口把考生目錄中的圖標(biāo)文件Open.ico放到圖片框中；再畫一個(gè)通用對話框控件，名稱為cdlOpen，利用屬性窗口設(shè)置相應(yīng)屬性，即打開對話框時(shí)：標(biāo)題為“打開文件”，文件類型為“Word文檔”，初始目錄為C盤根目錄。再編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊P1圖片框，可以打開上述對話框。運(yùn)行后的窗體如圖1－336所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為vbsj4.vbp，窗體文件名為vbsj4.frm。程序中不得使用任何變量。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Fork=1To5Ifa＜Val(Txt1(k).Text)Thens=(s-a-b)／4s=s*3*Val(Txt2.Text)Txt3.Text=Int(s*100)/100步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，按表2－177在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫如下事件過程。參考代碼：PrivateSubpicOpen_Click()cdlOpen.ShowOpenEndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生目錄下有一個(gè)工程文件vbsj5.vbp。其功能是產(chǎn)生并顯示一個(gè)數(shù)列的前n項(xiàng)。數(shù)列產(chǎn)生的規(guī)律是：數(shù)列的前2項(xiàng)是小于10的正整數(shù)，將此兩數(shù)相乘，若乘積＜10，則以此乘積作為數(shù)列的第3項(xiàng)；若乘積＞＝10，則以乘積的十位數(shù)為數(shù)列的第3項(xiàng)，以乘積的個(gè)位數(shù)為數(shù)列的第4項(xiàng)。再用數(shù)列的最后2項(xiàng)相乘，用上述規(guī)則形成后面的項(xiàng)，直至產(chǎn)生了第n項(xiàng)。窗體上部從左到右3個(gè)文本框的名稱分別為：txtFir、txtSec、txtNum，窗體下部的文本框名稱為txtList。程序運(yùn)行時(shí)，在txtFir、txtSec中輸入數(shù)列的前兩項(xiàng)，txtNum中輸入要產(chǎn)生的項(xiàng)數(shù)n，單擊“計(jì)算”按鈕則產(chǎn)生此數(shù)列的前n項(xiàng)，并顯示在txtList中。如圖1－337所示。已經(jīng)給出了全部控件，但程序不完整，請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。注意：不得修改原有程序和控件的屬性。最后把修改后的文件按原文件名存盤。程序源碼：PrivateSubcmdCal_Click()txtList＝"":a＝Val(txtFir)b=Val(txtSec):n＝Val(txtNum)’txtList＝txtList&a&""&?k＝2DoWhilek＜nc＝a*b:k＝k＋1Ifc＜10ThentxtList＝txtList&""&c’a＝?b＝cElsed＝c\10txtList＝txtList&""&da＝dk＝k+1’Ifk＜＝Thend＝cMod10txtList＝txtList&""&d’?＝dEndIfEndIfLoopEndSub標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj5.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：txtList＝txtList&a&""&ba＝bIfk＜＝nThenb＝d步驟2：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析國家二級VB機(jī)試（上機(jī)操作）模擬試卷第8套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。（1）在Form1的窗體上畫一個(gè)名稱為P1的圖片框，然后建立一個(gè)主菜單，標(biāo)題為“操作”，名稱為Op，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“顯示”和“清除”，名稱分別為Dis和Clear，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在圖片框中顯示“等級考試”；如果單擊“清除”命令，則清除圖片框中的信息。程序的運(yùn)行情況如圖1－103所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。程序中不得使用任何變量。（2）在Form1的窗體上畫一個(gè)列表框，名稱為L1，通過屬性窗口向列表框中添加4個(gè)項(xiàng)目，分別為“AAAA”、“BBBB”、“CCCC”和“DDDD”，編寫適當(dāng)?shù)氖录^程，過程中只能使用一條命令。程序運(yùn)行后，如果雙擊列表框中的某一項(xiàng)，則把該項(xiàng)添Click過程。加到列表框中。程序的運(yùn)行情況如圖1－104所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Form1中畫一個(gè)圖片框，在屬性設(shè)置窗口中將其Name屬性值設(shè)置為P1。步驟2：選擇【工具】→【菜單編輯器】命令，打開菜單設(shè)計(jì)器，如表2－33中的設(shè)置建立菜單項(xiàng)。步驟3：打開代碼編輯窗口，編寫以下事件過程：參考代碼：PrivateSubClea_Click()P1.ClsEndSubPrivateSubDis_Click()P1.Print"等級考試"EndSubsjt5.vbp，步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Form1中加入一個(gè)列表框，在屬性設(shè)置窗口中將其設(shè)置為L1，在其List屬性中添加四個(gè)項(xiàng)目，依次為“AAAA”、“BBBB”、“CCCC”和“DDDD”。注意：每輸入完一項(xiàng)后按鍵換行再輸入下一項(xiàng)。步驟2：打開代碼編輯窗口，編寫列表框的DblClick事件過程：參考代碼：PrivateSubL1_DblClick()L1.AddItemL1.TextEndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，請?jiān)诖绑w上畫兩個(gè)框架，其名稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。在F1中畫兩個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“飛機(jī)”和“火車”。在F2中畫兩個(gè)單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為“廣州”和“昆明”。畫一個(gè)文本框，其名稱為Text1。編寫適當(dāng)事件過程。程序運(yùn)行后，選擇不同單選按鈕并單擊窗體后在文本框中顯示結(jié)果見表1－3。程序的運(yùn)行情況如圖1－105所示。存盤時(shí)以原文件名存盤。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須至少進(jìn)行上面的一種操作。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕。（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp，請?jiān)诖绑w上畫三個(gè)文本框，其名稱分別為Text1、Text2和Text3，文本框內(nèi)容分別設(shè)置為“計(jì)算機(jī)”、“等級考試”和空白。然后畫兩個(gè)單選按鈕，其名稱分別為Op1和Op2，標(biāo)題分別為“交換”和“連接”（如圖1－106所示），編寫適當(dāng)?shù)氖录绦颉３绦蜻\(yùn)行后，如果選中“交換”單選按鈕并單擊Text3文本框，則Text1文本框中的內(nèi)容與Text2文本框中的內(nèi)容進(jìn)行交換，并在Text3文本框中顯示“交換成功”；如果選中“連接”單選按鈕并單擊Text3文本框，則把Text1和Text2的內(nèi)容按Text1、Text2的順序連接起來，并在ext3文本框中顯示連接后的內(nèi)容。存盤時(shí)，按原文件名存盤。注意：不得修改已經(jīng)給出的程序。在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕，然后單擊Text3。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕，否則無成績。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt3.vbp。步驟2：在窗體Form1中加入兩個(gè)框架和一個(gè)文本框，然后在每個(gè)框架中各加入兩個(gè)單選按鈕，分別設(shè)置它們的相關(guān)屬性，其屬性及值如表2－34所示。步驟3：打開代碼編輯窗口輸入如下代碼：參考代碼：PrivateSubForm_Click()IfOp1AndOp3ThenText1.Text="坐飛機(jī)去廣州"ElseIfOp1AndOp4ThenText1.Text="坐飛機(jī)去昆明"ElseIfOp2AndOp3Th