在Form1建立一個如下表所示的下拉菜單,其“設(shè)置”菜單項為灰色

4/4基礎(chǔ)題（１）【考點分析】本題考點有：菜單編輯器的使用(標(biāo)題、名稱、內(nèi)所符號和有效性）?！窘忸}思路】用菜單編輯器建立菜單。在建立”設(shè)置"菜單時去掉＂設(shè)置”前面的對勾.【操作步驟】步驟1：建立界面，添加控件并設(shè)置控件的屬性.程序中用到的控件及屬性見表3.2５1。表3.２51步驟２:調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤?；A(chǔ)題(2）【考點分析】本題考點有：水平滾動條的Nａmｅ、Mａx、Min、TabIndex、Vaｌue屬性,單選按鈕的Name、Captｉon屬性?！窘忸}思路】將水平滾動條的TabIｎdｅx屬性值設(shè)為0,使得程序在剛開始運行時，焦點在滾動條上?！静僮鞑襟E】步驟1：建立界面，添加控件并設(shè)置控件的屬性。程序中用到的控件及屬性見表３。２52。表3。２52步驟2:編寫程序代碼。參考答案PriｖateSubOption１_Ｃlｉcｋ(）HＳｃｒoll1．Value=1０0EnｄSubPrｉvateSｕｂOpｔｉon2_Ｃlick(）HScroll1．Valｕe=0EndSｕb步驟3:調(diào)試并運行程序,關(guān)閉程序后按題目要求存盤。簡單題(1）【考點分析】本題考點有：列表框的ＬistIndex屬性,數(shù)組的定義和應(yīng)用,Ｉf判斷語句和For循環(huán)語句?！窘忸}思路】單擊”計算＂按鈕,首先將數(shù)組的第一項ａ（１）分別賦給最大值Ｍａx和最小值Ｍiｎ，通過Foｒ循環(huán)，如果數(shù)組中有比Min小的數(shù)就將該數(shù)賦給Min值;如果數(shù)組中有比Max大的數(shù)就將該數(shù)賦給Max值。然后將得到的Max和Mｉｎ按照列表框的內(nèi)容進(jìn)行相應(yīng)的運算,并將運算的結(jié)果在文本框１中顯示出來。【操作步驟】步驟１:打開本題工程文件.步驟2：分析并編寫程序代碼。程序提供代碼Dｉｍa（10０）AｓIｎtｅgerPrivatｅSｕbＣommand1_Click()DｉｍｋAｓIntegerOpen"in３.ｄａt(yī)”ＦorInputＡs#1Ｆork=1Tｏ100Inpｕt#1,a（k)NｅxtkClose＃1EnｄSｕbPriｖａt(yī)eSuｂＣｏmmand２_Click()’需要由考生完成的內(nèi)容EndSubＰｒivaｔeSubＦorm_Ｕnloaｄ（CanｃelＡsInｔeger)Opｅｎ”out３。dat”ＦoｒOutpuｔＡs#1Pｒinｔ#1,List1．ListIｎdex，Tｅxt1.TeｘtClose＃1ＥnｄSuｂ程序結(jié)束參考答案Min＝a(1）Mａx＝a(1)Fori=１To100Ifa（i）＜MｉｎＴhenMin=a（i）Ifａ(i）>MａxThenMａx=ａ(i）NextiＩｆLisｔ1。LisｔＩndex=0ＴhenＴexｔ１=Maｘ-ＭｉnIｆＬist１。ListIｎdex=1ThenText1=Max+MinIｆＬist１．LｉstIndex=２TｈenText１＝Ｍａx＊Ｍiｎ步驟３：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤.簡單題（2)【考點分析】本題考點有：標(biāo)簽數(shù)組,標(biāo)簽的Cａｐtion屬性、Vｉsｉble屬性，形狀控件數(shù)組,形狀控件的Ｈｅｉgｈt、Top、Viｓiblｅ屬性,直線控件的坐標(biāo)屬性,Ｖal(）函數(shù),InputBox()函數(shù),Iｆ判斷語句和For循環(huán)語句?！窘忸}思路】單擊"輸入5個數(shù)據(jù)”按鈕，通過For循環(huán),將InputBｏx（）函數(shù)輸入的數(shù)據(jù)對應(yīng)作為標(biāo)簽數(shù)組的標(biāo)題，并使標(biāo)簽可見。單擊”畫直方圖"，通過形狀控件的Heｉght、Top設(shè)置相應(yīng)矩形的高度,并使形狀控件數(shù)組可見.【操作步驟】步驟1:打開本題工程文件步驟2：分析并編寫程序代碼。程序提供代碼Diｍs(5)AｓＩntegeｒＰrivateＳubCommand1_Cｌiｃｋ()Fork＝1Tｏ5s(k）=Ｖal（InpuｔBox（"ｉｎｐuｔ”))Label1(ｋ—1）。Ｃaｐｔｉon＝s(k）Lａbel1（ｋ—1）。MoveLine2.Ｘ１—Labeｌ1（k－1)．Wｉｄth，Lｉne１．Y1—s(k)Label1(k－1).Visible＝TruｅNextkEndＳubPrivateSubCommanｄ2_Clicｋ（)DimａＡsＩｎtegerFｏrｋ=1Tｏ5Shape1（k—1）.Hｅight＝s（k)ａ=Line１。Ｙ1Shａpe１（ｋ-1）.Top=ａ-Shａpe1（ｋ－１)．ＨｅightＳhaｐｅ1（k—１）．Vｉsｉbｌe=TrｕeNextｋEｎdSｕb程序結(jié)束步驟３：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。綜合題【考點分析】本題考點有：文本框的Tｅxｔ屬性，F(xiàn)ｕnｃtioｎ（）函數(shù)，文件操作,Mid（）函數(shù),Ｃhr()函數(shù)，Asc（）函數(shù),Mod算術(shù)運算符，”+＂連接符，Iｆ判斷語句和Ｆｏｒ循環(huán)語句.【解題思路】單擊"讀入文件"按鈕,將文件in５．dat的內(nèi)容讀入變量s并將其顯示在文本框Teｘt1中；單擊"加密”按鈕，在Ｆor循環(huán)中，用Mｉd（)函數(shù)逐個讀取變量s中的單個字符并放入變量ch,通過If語句調(diào)用函數(shù)isletｔｅr（）判斷變量ch是否為一個字母，通過Mｏd運算符判斷如果該字母為第奇數(shù)個字符,則將其變?yōu)槠浜竺娴淖址?；若是第偶?shù)個字符，則把它變成它前面的字符,最后將轉(zhuǎn)變后的文本在文本框２中顯示出來?！静僮鞑襟E】步驟１:打開本題工程文件。步驟２：分析并編寫程序代碼。程序提供代碼PｒivaｔeSubＣoｍmand１_Cｌiｃk（)’需要考生編寫的內(nèi)容EndSubPriｖaｔeSubCommanｄ２_Cｌicｋ（)’需要考生編寫的內(nèi)容EnｄＳubFuncｔｉonｉsletter（aＡsＳｔriｎｇ)AsＢooleanＩf＂A"＜＝ａAnda<=＂Z"Oｒ"a”<＝ａAnda<="z”Ｔｈeｎｉsleｔtｅr＝TruｅEｌsｅiｓletｔeｒ=FalseEndIfEndFuｎcｔｉｏnPrivａｔｅSｕbCommanｄ3_Ｃlｉck(）Oｐen”out5.dａt(yī)"ＦorOutpｕtＡｓ#１Priｎｔ＃1，Teｘt２．TextCｌosｅ＃1ＥｎdSuｂ程序結(jié)束參考答案ＰrｉvａｔeSuｂCoｍmａnd１_Cliｃk(）'需要考生編寫的內(nèi)容Open”in5。dａt(yī)”ＦoｒＩnpｕｔAs#1LineInｐｕt#1,sCloｓe#1Ｔｅｘt1=ｓＥｎｄSubPrivａｔeＳubCommanｄ2_Cｌicｋ（）’需要考生編寫的內(nèi)容DimchAsＳtrinｇｓs="”Fori＝1ＴoＬｅn（s)ch=Miｄ（s，ｉ，１）Iｆiｓｌettｅr(ｃｈ)TｈenIｆiMod２=１ＴhｅnIfch="Z"Orch=”z"Tｈeｎch＝Ｃhr(Aｓc(ch）—25）Ｅlseｃh=Cｈr（Ａsｃ（cｈ)+1）ＥndＩｆEｎdIｆＩｆiMod2=0ＴhｅｎＩfch=＂Ａ"Ｏrｃh＝”a"Tｈenｃh=Chr（Asc(ch)+25）