2023年面向?qū)ο蟪绦蛟O(shè)計(jì)VB

江西財(cái)經(jīng)大學(xué)考試試卷試卷代碼:0３694A卷授課課時(shí)：80課程名稱:面向?qū)ο蟪绦蛟O(shè)計(jì)(VB）合用對(duì)象：選課班填空題（每空１分,共1６分）1.構(gòu)造函數(shù)和析構(gòu)函數(shù)的意義分別是和。2．命令窗口用于在集成開發(fā)環(huán)境中發(fā)出命令或調(diào)試和計(jì)算表達(dá)式，它有和兩種模式。３.ReDim語(yǔ)句重定義數(shù)組大小時(shí),缺省情況下原數(shù)組中的存儲(chǔ)的數(shù)據(jù)會(huì)丟失，但可以使用關(guān)鍵字來(lái)保證原數(shù)組中的數(shù)據(jù)能保存下來(lái)。４.CLR的中文含義是。５.為了方便用戶操作,VS．NET系統(tǒng)在FｉleDialｏg的基礎(chǔ)上,系統(tǒng)已派生了和文獻(xiàn)對(duì)話框類。6.過(guò)程為應(yīng)用程序的啟動(dòng)點(diǎn)，也就是運(yùn)營(yíng)代碼時(shí)最優(yōu)先訪問(wèn)的函數(shù)。7.語(yǔ)句允許用戶直接使用在其他命名空間中定義的類及類型,而無(wú)需使用限定引用。8.窗體是繼承.NET類庫(kù)中的類。9．類提供訪問(wèn)文獻(xiàn)的方法,涉及標(biāo)準(zhǔn)輸入、輸出和錯(cuò)誤設(shè)備。10．要進(jìn)行二進(jìn)制文獻(xiàn)存取，必須創(chuàng)建與對(duì)象。11.在任何圖形繪制之前，一定要先用類創(chuàng)建一個(gè)對(duì)象。12.對(duì)象是DataSet對(duì)象和數(shù)據(jù)源之間的橋梁。單項(xiàng)選擇題（從下列各題四個(gè)備選答案中選出一個(gè)對(duì)的答案,并將其代號(hào)寫在答題紙相應(yīng)位置處。答案錯(cuò)選或未選者,該題不得分。每小題2分,共16分。）1.以下關(guān)于靜態(tài)成員對(duì)的的說(shuō)法是靜態(tài)成員可以不用Ｓtatic修飾符修飾靜態(tài)成員只能用類名訪問(wèn)C.靜態(tài)成員和非靜態(tài)成員不能同時(shí)在類中定義D．靜態(tài)成員可以被類的實(shí)例調(diào)用2.ＶB.NEＴ的項(xiàng)目文獻(xiàn)是以擴(kuò)展名來(lái)保存。A．.slｎB.．vbC．.ｖｂｐｒｏjD．.sou3.在類視圖窗口以結(jié)構(gòu)顯示當(dāng)前項(xiàng)目中的所有類。樹狀結(jié)構(gòu)下拉列表菜單表４．以下不是數(shù)據(jù)提供程序所提供的四個(gè)核心對(duì)象。ＣonnｅcｔiｏnDatａReadｅrParserDａt(yī)aAdapter5.有關(guān)繼承下列說(shuō)法不對(duì)的的是所有類缺省都是可繼承的，除非在類定義時(shí)使用NotInｈeritable關(guān)鍵字修飾。在ＶB.NＥT中,一個(gè)類的基類也許有多個(gè)。Ｃ．為了防止基類中需要封裝保密的成員在派生類中被泄露出來(lái),派生類定義的訪問(wèn)權(quán)限必須比其基類更為嚴(yán)格或者至少與之相同。D.在VisaulBaｓｉc.NET中,一個(gè)類的基類只能有一個(gè)。6．在VB.NＥT中，關(guān)于構(gòu)造函數(shù)的說(shuō)法，下列說(shuō)法不對(duì)的的是可以指定構(gòu)造函數(shù)的返回值構(gòu)造函數(shù)可以重載構(gòu)造函數(shù)的過(guò)程可以帶有參數(shù)構(gòu)造函數(shù)的過(guò)程名一定是Nｅw7.菜單控件支持事件。CｌｉcｋＭoｕseＤｏwnＫeｙＰressLeave8.Erｒ?qū)ο蟮膶傩苑祷亓隋e(cuò)誤號(hào)NumbeｒSourceC.DeｓcriptionD.ＨlｅpCｏntext閱讀程序,根據(jù)規(guī)定回答問(wèn)題。（每小題每5分，共20分)1.指出以下文獻(xiàn)操作程序代碼的功能，并畫出Wiｎdows窗體的界面圖。PrivateＳubBuｔtｏｎ1＿Clｉck(ＢyValｓｅｎdｅrAsSysｔｅｍ.Objecｔ,ByValeAsSyｓtem.ＥveｎtＡｒｇs)HaｎdｌesButｔon1.ClicｋOｐenFｉleDｉaｌｏg1.Filtｅr="文本文獻(xiàn)(*．txt）|*.txｔ｜RTF格式文獻(xiàn)(*.RTF)｜＊.RTF"OpenＦileDｉａlog１.FｉｌterIndｅｘ=1ＯpenＦiｌｅＤiａlｏg1.Title=＂打開文獻(xiàn)＂OpenＦiｌeDialog1.IｎitiaｌDｉrｅctory=Application.StarｔupPathOpenFiｌeDialｏg1.RestｏreＤｉｒｅctory=TｒueOpenＦｉleDialｏg1.SｈｏwＤialog()Ｆｎａmｅ=OpenFileDialog１.FilｅNameIf（Fnａme<＞"＂)ThenIf(OpeｎＦｉleDｉalｏｇ1.FiｌterIｎｄｅx=1）ThｅｎＲｉcｈTextBox1.ＬoadFiｌｅ(Fｎａmｅ,RｉｃhＴextBoxＳtｒeamType.ＰｌainTexｔ)ElseRicｈTeｘtBox１.LｏadFilｅ(Fｎame,RicｈTextBoxＳｔreamType.RｉcｈText)ＥｎdIfStａt(yī)ｕsBａr1.Ｐaｎelｓ(0).Tｅxｔ＝“讀狀態(tài)”StatusBar1．Ｐanels(1).Texｔ＝“未保存”ＥｎdIfEndSｕbPrivateSubButｔｏｎ3_Cｌiｃk(ＢyＶａlｓendｅｒAｓSｙｓtｅm.Obｊeｃt，ByValeAsSystem.EvenｔＡrgs)ＨanｄlesButtｏn3.ClickＳaｖeFileDialｏｇ１．Fｉｌｔｅr="文本文獻(xiàn)(*．txt)|*.txｔ|RＴＦ格式文獻(xiàn)(＊.ＲTF）|*．RTF"SavｅFilｅDiａlog1.FｉlｔerIndex=1SaｖeFiｌeDｉalog1．Tiｔlｅ="保存文獻(xiàn)"SaveFiｌeDｉalog1.InitｉalDiｒectory=Application.StａrｔupPａt(yī)ｈＳaveFｉleDialog1．RestoｒeＤirectoｒy＝ＴrueSaveFileDiaｌog1.ShowＤialｏｇ()Fname=SaveFileＤialoｇ１.ＦｉｌeＮameIf(Fｎａme<＞"")ThenＩf（OpｅnFiｌeDiａlｏg1.FilteｒInｄex=1）ＴhｅnRichTｅxｔＢox1．ＳaｖｅＦｉle(Fnａme,RiｃhTextBoxＳtreaｍTyｐｅ．Ｐl(wèi)ainTｅxt）ElsｅＲｉｃhTｅｘtBox1.SaveFiｌｅ（Ｆname,ＲｉchTeｘｔＢｏxStreamTypｅ.RichＴｅｘt)EndIfStaｔusBar1．Pａnelｓ（0）.Text="寫狀態(tài)"Stａt(yī)usBaｒ1．Ｐａnels（1)．Teｘｔ="已保存"EnｄIfEnｄSubＰriｖateＳuｂＴｉmer１_Tｉcｋ(ByVａlsｅndeｒAsＳyｓtｅm.Object,ByValeAｓSystem．ＥventArgｓ)ＨandlesTimｅr１.TｉｃｋStatusBａr１.Paｎeｌs(2).Texｔ＝Dａt(yī)ｅTime.Nｏw.ＴoString("T")EnｄSｕbPriｖａｔeSubＲichTextＢｏｘ1＿ＴextChangｅd(ByValsenｄｅｒAｓSystem.Objｅcｔ,ＢyValｅAsSysteｍ．ＥveｎtArgs)HａndlesRicｈTeｘtBｏx1.ＴeｘtCｈangedRichＴｅxtBｏx１.Modiｆieｄ=ｆalseIｆRichTextＢox1.ModiｆiedThenＳtａt(yī)uｓＢar1.Pａnｅls(1)．Tｅxt=＂未保存"ElｓｅStatusＢaｒ1.Panelｓ(1)．Text=“已保存”ＲichTeｘtBｏx1．Modiｆiｅｄ＝ｆaｌseEndIfEndSuｂ2.指出下列程序的運(yùn)營(yíng)結(jié)果，并說(shuō)明該程序的功能。ModuｌeModuｌe1ＷｉthEventｓfrm１AsNｅｗForm(）Dimlabｅl1AsNewＬabｅl（)ＳuｂMaiｎ（)ｌaｂel1.Size=NeｗＳiｚe（８0,20)labeｌ1.BacｋColoｒ=Ｃｏlor．Yellowlabel1.TexｔAligｎ＝CｏnｔｅntAｌiｇnｍｅｎt.MｉddｌeCenterlabel1.BorderＳtｙle＝BoｒdeｒStｙle.Fｉxｅd3Dfrm1.Contrｏｌs．AdｄRanｇe（NewSystem.Winｄowｓ.Foｒms．Cｏnｔrol（){label1｝)Aｐplicaｔｉｏｎ.Ｒｕn(ｆrm１)EndＳｕbPublicSｕｂｆrｍ１_MouseMoｖe(ByＶalsｅnderＡsＯbject，ＢyValeAsSysteｍ.Ｗiｎdows．Formｓ．ＭouｓeEｖentAｒgｓ）Ｈanｄｌeｓｆrm1.MouseＭovelabel1.Locａt(yī)ｉon＝NewPoint(e.Ｘ，e.Y－15)ｌaｂel1.Teｘt="X＝"＆e.X&",Ｙ="＆e.YEnｄSｕbEnｄModｕlｅ3.分析下列程序的運(yùn)營(yíng)結(jié)果,說(shuō)明該程序的功能。PubliｃＣlａsslｏginＩnｈeritｓＳｙsteｍ.Windｏws.Ｆorms．Form＃Ｒegion"Windｏｗs窗體設(shè)計(jì)器生成的Code"‘系統(tǒng)自動(dòng)創(chuàng)建的程序，為了節(jié)省篇幅,在此處省略。＃EnｄRｅgionＤimmyｍdimainAｓＭaiｎMDIPrivateSubbｔｎOk_Ｃlick（ByＶalsendeｒＡsSystem．Obｊｅct,ＢyValｅAｓＳystem．EventAｒgs）HandｌｅｓｂtnOｋ．ClｉcｋＩftxtUserNａmｅ．Text.Triｍ＝"＂TheｎsｈｏｗＭsg("用戶名不許為空!")ｔxtUserNａme.Fｏcuｓ()ＥxｉｔSuｂＥndＩｆIftxtＰａｓsWord.Texｔ.Ｔrim=""ThenｓhowMsｇ（＂密碼不許為空！")ｔxｔPaｓsWoｒｄ．Focuｓ(）ExitSｕbEndIｆDiｍiAsＩnｔegｅrＤimstrsqlAsStｒingDiｍmyｄataseｔAsNeｗＤataSｅtDimmyＴableAｓDataTabｌｅDimunameAsStringDimpｓwＡsStrinｇunａｍe=Triｍ(ｔxtＵserName．Texｔ）psw=Tｒiｍ(txtPassWorｄ.Text)Tryｓtrsql="SELＥＣT＊FＲOＭOpｅraｔorＷHEＲEＮamｅ＝'"+uname+"＇aｎdPasｓwｏrd＝＇"＋ｐｓw+"'"mｙｄatasｅｔ=executeＳelｅｃtQuery(ｓｔrsｑl，"manager")strｓql="SEＬECT*FROＭAｕthｏritｙWHＥＲEName='"&uname&"'"myＴａblｅ=exeｃｕtｅＳeleｃｔQｕeｒｙgeｔtａble(stｒsｑl)IｆｍｙdataｓeｔＩｓNｏthinｇＴｈenshoｗMsg(＂用戶名或密碼錯(cuò)誤!＂,ＭｓgＢｏxStyle.Eｘclａmation)ReｔurｎEndIfＩfmyTableIsNｏthｉngThenｓhowMsg（"此用戶無(wú)任何權(quán)限！",ＭsｇBoxStyle.Ｅxcｌamation)ＲｅtｕrnＥnｄIfCatｃhexAｓＥｘcｅptionEｘitSｕbEｎｄＴryIfmｙdataset.Tablｅｓ("maｎａger＂).Rｏws．Couｎｔ=0ＴｈenｓhowＭsｇ（"用戶名或密碼錯(cuò)誤！"，MsgBｏｘStylｅ.Ｅｘclamatｉon)EｌseＧlobａlVａｒiable.PERMIＳSIOＮ＝NeｗArraｙLisｔFｏrｉ=0TomyTａble.Rｏws.Cｏｕnt-1GloｂaｌＶarｉａble.PEＲMISSION．Add(myTable.Rows(i).Item("Ｐermｉｓｓion")＆""）NextMe.Close（)EnｄIfEｎdSuｂPrｉvateＳuｂloｇｉｎ＿Ｃlosing(ByＶalsｅnｄerAsＯbjecｔ，ＢｙＶaleＡsSysｔeｍ.ＣomponentModｅl.ＣancelＥvｅｎtAｒｇｓ）HａnｄｌesMyBａsｅ.Closｉngmymdimain.ｓetpower（)ＥndSｕbPrｉｖａt(yī)eＳubｌoｇin_Loａd(ＢｙVａlsenderAsＳyｓtem.Ｏbjeｃｔ,ByＶａleＡsSysｔem.EventArｇs）ＨａｎdlｅsＭyBａｓe.LoaｄPERMISＳION=NewAｒraｙListmymｄimain.ｓｅtpｏwｅr()EｎdSubPrivateＳubbtnEｘit_Cliｃk(ByVａｌsｅndeｒAsSｙstem.Ｏbject，ＢyＶalｅＡsＳystem.EvenｔAｒgs)HａndlesｂtｎEｘit.ClickMe.Close()EnｄＳubEnｄClａｓs其中：setｐoｗer()為權(quán)限設(shè)立方法,在此省略了。4.指出下列程序的運(yùn)營(yíng)結(jié)果，并說(shuō)明該程序中使用了面向?qū)ο蠹夹g(shù)中的一個(gè)什么概念,它實(shí)現(xiàn)了一個(gè)什么功能。PublｉcCｌａsｓＳｈapePｕbｌicOverridabｌｅＦunctionGetＡrea()AsDｏuｂlｅRetuｒn(0)ＥnｄＦunctｉonＰublicOｖerridａbleFuｎｃtｉoｎGetPerim(）AsＤoubleRｅｔurn(0）EndＦunctｉonEndCｌasｓClassRectaｎgｌｅInhｅｒitsShａpｅPｕblｉｃWidｔhAsDouｂlｅPubliｃLengthAsDoｕblePubｌiｃＳubNew（BｙVａlaAsＤｏuble,ByValbＡsDouble）Wｉｄtｈ＝a：Ｌeｎgtｈ＝bEndＳubＰｕｂｌicOｖerridｅｓFunctiｏnGetＡrｅａ（)AsDｏｕｂleRｅturｎ（Ｗidth*Length）EndFunctｉｏｎPublicOverrｉdｅｓFｕnctiｏnGeｔPｅｒiｍ()AsDouｂleReｔuｒn(2*(Leｎｇth+Ｗiｄｔh))EndFunｃｔionEｎｄClasｓClaｓsCircleInheritsShapePublicＲadiｕsAｓDｏublｅPuｂlｉcSubNｅw（ByValrAsＤｏubｌｅ)Radius=rEndSubＰubｌicOvｅrrｉｄesFuｎctｉｏnGｅtArea()ＡsDｏubleRｅｔurｎ(Ｍaｔh．PI*Rａdius*Raｄiｕs)EnｄFuncｔionPubｌicOｖerridesFunｃtiｏnGetPerim（)AsDouｂｌｅReｔｕrn(２*Mａt(yī)h.ＰI*Radius）ＥｎdFuncｔｉonＥnｄCｌaｓsＰuｂlicClassＦorm1IｎｈeritsＳystem.Wiｎdows.Forｍs.Fｏrｍ#Ｒegion"WindowsFｏrmDesignｅrgeｎｅratedcode"‘系統(tǒng)自動(dòng)創(chuàng)建的程序，為了節(jié)省篇幅,在此處省略。#EnｄRegionPriｖateSｕｂBｕtｔon１＿Cliｃk(ByValseｎderAｓＳysteｍ.Oｂjｅｃt，ＢyValeAsＳystｅm.ＥｖentAｒgs)HaｎｄｌｅsBｕtton1.CliｃkＤｉｍa,ｂAsDoublｅa＝Vａｌ(TeｘtBox1.Text)b=Vａl(TextBｏx２.Tｅｘt)DimReｃtAｓNewＲectanglｅ(a，b)TｅxｔBoｘ3．Text=CStｒ(Ｒect.GetＰerim()）ＴｅxtBox4．Ｔeｘt=CStr(Rect.ＧetＡrea())ＥndSuｂPｒiｖateSｕｂＢutton2_Cｌicｋ(BｙVａｌｓeｎｄerAｓＳysｔeｍ.Objeｃt,BｙVａleＡsSｙsｔem.ＥventＡrgs)ＨａndlesＢｕtton2．ClicｋDｉmrＡｓＤｏubler＝Ｖaｌ(TexｔBｏx５.Ｔexｔ)ＤimＣirAsNeｗCｉrｃle(r)TｅｘｔBox6.Ｔexｔ=CStr(Ｃir.GeｔPerim())ＴeｘtBox7.Text=ＣStｒ(Cir．GｅｔArea())ＥndSubＥndClasｓ問(wèn)答題（第１小題8分,第2小題1０分，共20分）1.簡(jiǎn)述.NET的特點(diǎn)。２.舉例說(shuō)明面向?qū)ο笳Z(yǔ)言支持三種特性的應(yīng)用。程序設(shè)計(jì)題(第１小題8分,第2、3小題各1０分,共２8分)１.編寫一個(gè)關(guān)于自己的結(jié)構(gòu)和類的程序。2.編寫一個(gè)我最愛慕的國(guó)產(chǎn)轎車評(píng)選程序。程序設(shè)計(jì)界面圖5－1,程序運(yùn)營(yíng)界面如圖５-２所示。程序運(yùn)營(yíng)時(shí)，在ＬistBox1列表框中顯示所有參評(píng)轎車列表,單擊按鈕【>】用戶可以從中選擇一量轎車，對(duì)于選完后不滿意的轎車，還可以通過(guò)單擊按鈕【<】，移回到LiｓtＢｏx1列表框中,還可選中LiｓｔBox1列表中所有轎車（通過(guò)單擊按鈕【>>】實(shí)現(xiàn)）或?qū)istBoｘ2框中所全的項(xiàng)目所有移回至ListBoｘ1框中(通過(guò)單擊按鈕【<<】實(shí)現(xiàn)）。圖5－1程序設(shè)計(jì)界面5-2程序運(yùn)營(yíng)界面３.請(qǐng)按照以下(關(guān)于信息學(xué)院部分專業(yè)學(xué)生必修學(xué)習(xí)課程的情況)圖形的分析，制定每一個(gè)類所需要的數(shù)據(jù)成員與成員函數(shù),編寫一個(gè)完整的程序,實(shí)現(xiàn)在控制臺(tái)方式下,按給出的學(xué)生實(shí)例值（例如：=１\＊ＧＢ3①王行江,2023013８，1985.１0．25，計(jì)算機(jī)，打球；=２＼*ＧB3②鐘明華，20230206，１98６.2.16，信管，跳舞)顯示信管專業(yè)與計(jì)算機(jī)專業(yè)學(xué)生相關(guān)類的成員值。Student（屬性：Name、No、BirthDate、Profession、Love）（方法：English、Cprogram）InfoStudenCompStudenVB.NETProgramElectroniccommerceC++ProgramNumericallogic江西財(cái)經(jīng)大學(xué)末考試試卷試卷代碼:0３694B卷授課課時(shí)：80課程名稱：面向?qū)ο蟪绦蛟O(shè)計(jì)(VＢ)合用對(duì)象:選課班填空題（每空1分,共16分)1.面向?qū)ο蠹夹g(shù)的重要特性表現(xiàn)在具有抽象化、、和。２.接口是對(duì)類的可用、和等做一個(gè)規(guī)范描述,并且可以用它作為一種類型來(lái)使用，但是它并不真正實(shí)現(xiàn)代碼,僅僅是一個(gè)描述。3.ＶisualBａｓic.NET默認(rèn)的析構(gòu)函數(shù)是。4．在VB．NET中，你可以通過(guò)類來(lái)操作文獻(xiàn)夾和驅(qū)動(dòng)器。5．在ＶB.ＮＥT中，編譯時(shí)的多態(tài)性是通過(guò)實(shí)現(xiàn)，運(yùn)營(yíng)時(shí)的多態(tài)性是通過(guò)繼承和來(lái)實(shí)現(xiàn)的。6．說(shuō)明以下在類所聲明變量的差異。SharediAｓＩnｔｅgｅrPrｏtectedｘAsSinglePublicyＡsSｉnｇｌe7．要在已知的項(xiàng)目中添加類或Ｗｉｎdows窗體，可以通過(guò)選取菜單中的來(lái)實(shí)現(xiàn)。8．要連接SＱLSeｒvｅｒ７.0以上版本的數(shù)據(jù)庫(kù)時(shí),需要使用對(duì)象。9.在Sｙstem.Ｄrawing命名空間中,類是繪制圖形的最核心的類。單項(xiàng)選擇題(從下列各題四個(gè)備選答案中選出一個(gè)對(duì)的答案，并將其代號(hào)寫在答題紙相應(yīng)位置處。答案錯(cuò)選或未選者,該題不得分。每小題2分，共16分。)1.在使用MsgBox函數(shù)時(shí)，一定要給的參數(shù)是。A.tｉtlｅB．prｏmptC、buttonD.以上皆非2.當(dāng)參數(shù)指定為傳址調(diào)用時(shí),調(diào)用者可以運(yùn)用下面的符號(hào)括住參數(shù),逼迫該參數(shù)的傳遞變成傳值調(diào)用。A、<>Ｂ．(）C.[］D.“”３.類中運(yùn)用Ｄim所聲明的變量為ＰrivaｔePｕblｉcPｒoｔecｔedShareｄ4.要讓繼承的類也能使用的變量,必須以關(guān)鍵字聲明。PrivateDimProtｅcｔedUsｅd5.當(dāng)類中的函數(shù)以MusｔＯverｒide聲明時(shí),類必須以關(guān)鍵字聲明。NoInheｒitableＯvｅrriｄaｂｌeMｕstIｎhｅrｉｔOverrｉdes6.模塊文獻(xiàn)存儲(chǔ)時(shí),它的擴(kuò)展名是。.mｄl．moｄ.vｂ．a(chǎn)ｂs7.在ＳtreamReaｄer類中共定義了四種讀取方式，其中從當(dāng)前流中讀取一行字符并將數(shù)據(jù)作為字符串返回的是ReａdReadLinｅReadBlockＤ.ＲeadtoＥnｄ８.以下的級(jí)別可以使用Statiｃ語(yǔ)句過(guò)程級(jí)模塊級(jí)類級(jí)D.命名空間閱讀程序，根據(jù)規(guī)定回答問(wèn)題。(每小題每5分，共２０分）1.分析下列程序的運(yùn)營(yíng)結(jié)果，說(shuō)明該程序的功能,并畫出Windows窗體界面。ImportsSｙｓｔem.Windows．FｏrｍsIｍporｔsSysｔｅm.DrａwｉｎgModuleModule１Dimｆrm1AsNewForm()DimMdiｆrm1ＡsNewＦorm()ＤimMdｉfｒｍ2AsＮeｗForm()WitｈＥｖｅnｔsbtn1AsＮｅwＢｕttonＳｕbMaｉｎ()frm１.IsＭdiConｔaｉｎer＝Trueｂtn1．Ｓｉzｅ=NewSize(0,40)btn１.Teｘt＝＂子窗體水平排列"btn1.Dｏｃｋ=DoｃkSｔｙle．Ｔopfｒｍ1.Controls.AddＲanｇｅ(NｅwSysteｍ.Ｗiｎdowｓ.Ｆormｓ.Ｃoｎｔrol（）{btn1｝)Ｍdｉfrm1．MdｉPａrent=frm１Mdｉfrm2.Texｔ="MDI子窗體二"Mdｉfｒm２.ＭdiParｅｎｔ＝frm1fｒｍ１.Ｔeｘt="目前共有"&frm1.MｄiChilｄｒｅn.Lｅｎgth&"個(gè)子窗體＂Mdｉfrｍ1．Sｈow()Ｍｄifrm2.Sｈoｗ()Ａpplｉcation.Ruｎ(ｆｒｍ1)ＥndSubPublicSubbtｎ1_Ｃｌick（BｙValｓenderAsＯbjｅｃt,ByVaｌeAsSｙsteｍ.EventAｒgｓ)Ｈaｎdleｓｂｔn１.Clicｋfrm１.LａｙoｕtMｄi(MdiＬayout．TileHorｉzontaｌ)EｎｄＳubEｎdMｏdule2.指出下列程序的運(yùn)營(yíng)結(jié)果,并說(shuō)明該程序的功能。ImportsSyｓtem．IOClassｄｉrMetｈｏｄSuｂｃｒｅａt(yī)e（BｙＶaｌpａt(yī)hAsSｔriｎg)IfＤirectory.Exiｓｔs(path)TｈenConsole．WｒｉteＬine("文獻(xiàn)夾已經(jīng)存在!＂)ElｓｅDｉreｃtｏｒy.CｒeaｔｅDiｒectｏｒy（path）IｆDｉrｅｃｔoｒy.Eｘists(path）TheｎＣｏnｓoｌe．ＷriteLｉne（"文獻(xiàn)夾創(chuàng)建成功!")EndIfＥｎdIｆEndSuｂＥｎｄClasｓMｏduleMoｄｕle１SｕbMaｉn()Dｉmobj_dirＡsＮewdiｒMeｔhod()Dimstr_pａt(yī)hＡsＳtrｉnｇConsole.Wrｉｔｅ("請(qǐng)輸入文獻(xiàn)夾名稱:")ｓｔr_patｈ=Coｎsoｌｅ.RｅadLine（)obｊ_ｄｉr.creatｅ(str＿path)EndSubEｎdModｕle假設(shè)輸入一個(gè)剛才已建立的文獻(xiàn)夾:d:\ａbc3.分析下列程序的結(jié)果,說(shuō)明該程序的功能(假設(shè)該程序的文獻(xiàn)名是ex3.ｖb）,并畫出程序運(yùn)營(yíng)時(shí)的Ｗindowｓ窗體層次結(jié)構(gòu)圖。PublicClasｓForm1InhｅritｓSystem．Windｏws.Ｆorｍs.Foｒｍ＃Rｅgｉon"ＷinｄoｗsFormDｅsignergeｎeratedcode"‘系統(tǒng)自動(dòng)創(chuàng)建的程序，為了節(jié)省篇幅，在此處省略。#ＥnｄRegionPｒivaｔｅＷiｔhＥvenｔsMaｉnMｅnu1ＡｓNewMaiｎMｅnu(）ＰrivatｅWithEventsＭｅnｕIｔｅm1,MenuIteｍ2,ＭenuItem３,ＭenｕItｅm４，MenｕＩtem5AｓＭｅnuＩtemPｒivatｅSｕbＦｏｒm1_Lｏad(BｙValｓenｄerAsSystem.Oｂｊect，BｙVａlｅAｓSysｔｅm．EｖentArｇs)ＨandｌesMyBａｓe.ＬoadMenuItｅm1=NeｗMeｎuIｔem（＂文獻(xiàn)＂）MeｎuIｔeｍ２=NｅｗMenuIｔeｍ("編輯＂)MeｎuＩtem3=NｅwＭeｎｕＩteｍ("新建＂)MeｎuIｔem4＝NewMenuＩｔｅm("-"）MｅnuItem5=NewMeｎuItem("關(guān)閉")MａｉnMｅnu1.ＭeｎuＩｔemｓ．Add(MenuItem1）MainＭenu1．MenuＩtｅms．Ａdd(MenuIteｍ2）MｅnｕIteｍ１.MeｎuItemｓ.Add(MenuItｅm３)MeｎuItｅm1.ＭenuＩｔems.Aｄd(MｅｎuItem4)ＭenｕItem1.MenuIteｍs.Adｄ（ＭeｎｕItem5)MenｕItem３．Sｈｏrｔcut=Sｈorｔcut.Alt0ＭenuIteｍ５.Shorｔcut=Sｈoｒtcｕt.Alｔ1Me.Menｕ=MainMｅｎu1ＥｎdSｕbＰrivateSubMeｎuItem３_Clｉck(ByＶalseｎderAsObject,BｙＶaleＡsSyｓｔem.ＥventArgｓ)ＨaｎdlesＭenｕIteｍ3.ClicｋMsgBox(＂您剛單擊了新建選項(xiàng)")EｎdSuｂPrｉvatｅSｕbmyMenuItemExit_Ｃｌiｃk(ByValｓenderＡsSysteｍ.Objｅcｔ,ByValeAsSystem.ＥveｎｔArgs)Ｃlose()EndSｕbＥｎdＣlaｓs4.分析下列程序的運(yùn)營(yíng)結(jié)果,并說(shuō)明該程序中關(guān)鍵字MyBase與ＭyＣlass的區(qū)別。Cｌａsscls1ＰublicOverridａbleSubＷhichOne()Coｎｓolｅ.ＷritｒLiｎe（“來(lái)自基類的方法?！?EndSｕbPubｌicOverridablｅSuｂWho()ＷhicｈOne(）MｙＣlasｓ.WｈichOne()ＥndＳubEnｄClassＣlaｓscls2Iｎｈeritsｃls１PublicＯverridｅsＳuｂＷhichOne(）Coｎｓｏｌe.WriteLinｅ（“來(lái)自派生類的方法。”）EnｄSuｂＰublicＯｖeｒrideｓSubWｈo()WhiｃｈOne()ＭyBase．WhｉchOne（）EndSuｂPuｂlicSuｂＣalｌwｈo(）MyCｌａss.Who(）MyBaｓe.Who()EnｄSｕbEndClａssMoｄuleModulｅ1ＳubMａin(）Dimobｊ１AsNewcls1(）Ｄiｍobj2ＡsNewcls2(）Console.WriteＬiｎe(“對(duì)象一Ｗｈo…“）ｏbj1.Ｗho()Consoｌｅ.WriteLine(“對(duì)象二Whｏ…“)ｏbj2．Wｈo()Cｏnsｏle.WriteLｉne（“對(duì)象二Caｌlｗhｏ…“）obj2．Ｃallwhｏ(）EnｄＳuｂEndMｏdulｅ問(wèn)答題(每小題10分，共20分)１.簡(jiǎn)述.ＮETFramework的組成及其功能。2.簡(jiǎn)述ＡDO.ＮＥＴ模型組成和框架結(jié)構(gòu)。程序設(shè)計(jì)題(第1小題8分，第2、3小題各為１0分,共28分）1.編程實(shí)現(xiàn)窗體的繼承與應(yīng)用。2.試采用文本移動(dòng)編程來(lái)模擬走馬燈。其中文本左右移動(dòng)的速度快慢，可通過(guò)水平滾動(dòng)條滑塊的移動(dòng)來(lái)調(diào)節(jié)。當(dāng)滑卡塊移至最左邊時(shí)，走馬燈移動(dòng)最慢，而當(dāng)滑塊移至最右邊時(shí),走馬燈移動(dòng)的最快。圖5-1窗體界面圖5-2程序運(yùn)營(yíng)界面3．創(chuàng)建名為Math2Ｄ的類,它具有重載方法Ａrｅa,假如把單個(gè)參數(shù)傳遞給Area，則認(rèn)為它是圓的半徑,它返回圓的面積();假如向Ａrea傳遞兩個(gè)參數(shù),則認(rèn)為它們是三角形的底（b)和高(h),它將返回這個(gè)三角形的面積(bh/２）。請(qǐng)從Math2D派生一個(gè)新類Mａt(yī)h3D，并重寫Area方法的兩個(gè)版本，以解決三維對(duì)象。假如向Ｍaｔh3D中的Area方法傳遞一個(gè)參數(shù),則認(rèn)為它是球的半徑,它將返回球的表面積（4）。假如向Maｔh3Ｄ中的Aｒｅa方法傳遞兩個(gè)參數(shù)，則認(rèn)為它們是圓錐的底部半徑(r)和邊線長(zhǎng)度（ｌ，頂部到底)，它將返回圓錐的表面積(l）。通過(guò)上述類及其成員函數(shù)的定義，試編寫一個(gè)完整的程序,實(shí)現(xiàn)在工作臺(tái)方式下，當(dāng)r=h=l=2.5,b＝3.８時(shí)，分別調(diào)用過(guò)程輸出顯示這四種情況下的面積求算值。江西財(cái)經(jīng)大學(xué)期末考試試卷試卷代碼：０369４Ｃ卷授課課時(shí)：80課程名稱:面向?qū)ο蟪绦蛟O(shè)計(jì)（VB)合用對(duì)象：選課班填空題(每空１分,共16分)1.對(duì)象的特性稱,對(duì)象能執(zhí)行的操作稱,對(duì)象能辨認(rèn)的操作稱為。2．VB.NET類中的五個(gè)訪問(wèn)限定符為Priｖtae、Publｉｃ、Sｈarｅd、和。3.當(dāng)調(diào)用的參數(shù)個(gè)數(shù)不擬定,并且類型一致時(shí),我們可以使用讓過(guò)程統(tǒng)一接受這些參數(shù)。４．在．ＮEＴ中所有的異常都派生于類。5.窗體是繼承.NＥＴ類庫(kù)中的類。6.在ＶB.NEＴ的類中用戶自定義事件時(shí),一般是在類中使用語(yǔ)句聲明一個(gè)事件，再在類的某個(gè)方法中，使用語(yǔ)句激發(fā)事件。7.類提供創(chuàng)建、復(fù)制、刪除、移動(dòng)和打開文獻(xiàn)的實(shí)例方法，并且?guī)椭鷦?chuàng)建FｉlｅSｔream對(duì)象。要實(shí)現(xiàn)文本文獻(xiàn)的讀寫,一般使用類和類。8．命名空間是涉及輸入,輸出設(shè)備的類庫(kù)集合。涉及了所有進(jìn)行字符串、數(shù)據(jù)、文獻(xiàn)操作的類庫(kù)。9．在任何圖形繪制之前，一定要先用類創(chuàng)建一個(gè)對(duì)象。10．對(duì)象是AＤＯ.NEＴ的核心，是數(shù)據(jù)的內(nèi)存駐留表達(dá)形式,無(wú)論數(shù)據(jù)源是什么，它都會(huì)提供一致的關(guān)系編程模型。二、選擇題（從下列各題四個(gè)備選答案中選出一個(gè)對(duì)的答案，并將其代號(hào)寫在答題紙相應(yīng)位置處。答案錯(cuò)選或未選者,該題不得分。每小題2分，共1６分。)1．.NEＴ應(yīng)用程序第二次執(zhí)行時(shí)，不需要在編譯的因素是。A.已經(jīng)產(chǎn)生執(zhí)行文獻(xiàn)B.Cachｅ的機(jī)制C.通用語(yǔ)言規(guī)范自身D.以上皆非２．在.NET的設(shè)計(jì)中,項(xiàng)目是由管理。幫助項(xiàng)目自身類庫(kù)解決方案3..非共享成員的訪問(wèn)只能使用的實(shí)例對(duì)象。模塊命名空間類以上皆是4．SelectCase的Case后面,下面是對(duì)的的范圍條件。A．1to5Ｂ.5to１C.1:3tｏ６D.Ｉs>6０:86to90５．使用在Ｆｏr…Nexｔ的循環(huán)控制變量可以是數(shù)據(jù)類型。ＬongInｔegｅｒＤouble以上皆可6..要顯示VB．ＮET的標(biāo)準(zhǔn)對(duì)話框，需要調(diào)用的方法ＭessageBox.SｈowMｓgBoxＩnputBoxShｏｗDiaｌog７.若要把窗體設(shè)立為MDI父窗體，應(yīng)當(dāng)把它的屬性設(shè)立為Turｅ。MdiChｉldrenIsＭdｉCoｎtaｉnｅrMdiPａrenｔＩsMdiChild８.假如進(jìn)行二進(jìn)制讀文獻(xiàn),應(yīng)當(dāng)實(shí)例化。BiｎaryReaderＢinaｒyＷｒｉterＳtrｅamReaderStｒeａｍWriter三、閱讀程序,根據(jù)各題的規(guī)定回答問(wèn)題。(每題小題5分，共２0分）1．分析下列程序的運(yùn)營(yíng)結(jié)果，說(shuō)明該程序的功能。PuｂliｃＣlaｓslｏginInｈｅｒｉｔｓSyｓtem．Ｗindoｗs.Forms.Ｆorm#Region＂Windows窗體設(shè)計(jì)器生成的Code"‘系統(tǒng)自動(dòng)創(chuàng)建的程序,為了節(jié)省篇幅，在此處省略。#EndＲegionDimmymdｉmainAsMａinMDIPrivａｔeSｕbbtnOk_Cｌｉck(BｙValsenderAsSysteｍ.Oｂject,BｙVaｌｅAsSystem.EvenｔＡrgs)HandlesbtnOk．ClickIｆtｘｔUserName.Text．Tｒiｍ=""TｈeｎshｏwMsg("用戶名不許為空!")txtUsｅrName．Ｆocuｓ(）ExｉtSuｂＥndIfＩfｔxtPassＷo(hù)rd.Ｔeｘt.Trim=""ThenshowＭsg(＂密碼不許為空!")txtＰassWord．Foｃｕｓ（)ＥxiｔSubＥndＩfDiｍiAsInｔegerDimstrｓqlＡsSｔringＤimmｙdaｔasｅtAsNeｗDataSｅｔDimmｙTablｅAsDaｔａTaｂlｅDｉmunａmeＡsStringＤimpswＡｓＳtringunａme=Trim(txtUserNaｍe.Ｔｅxｔ)psw=Trim(txtＰａsｓＷo(hù)rd.Tｅxt)Trystｒsｑl="SELECＴ*FRＯMOｐeratｏrWHEREName=＇"+ｕnamｅ+"＇andPａｓsword=＇"＋ｐsw+＂＇"mｙdataｓｅt=executeSｅｌectQｕery(sｔrsqｌ,"mａnaｇer＂）strｓqｌ="SEＬECT*FＲOMAuthorｉtyWHEREＮaｍe=＇"&unaｍe＆"'"myTａｂle=executeＳeｌectQｕeｒｙｇettable(strｓql)Ｉfｍydａt(yī)asetIsＮｏｔｈiｎｇThenshowMsg("用戶名或密碼錯(cuò)誤?。?MｓgBｏｘStyｌｅ．Ｅxｃｌaｍaｔｉｏn)ReturｎEndIｆIｆmｙTaｂｌeＩsNothinｇThenｓhｏwＭsg(＂此用戶無(wú)任何權(quán)限?。?ＭsgBoxＳｔyｌe．Ｅxclamatiｏn)ReturｎEnｄIｆCatｃhｅxAsExcepｔioｎExｉtSｕbEndＴryIfmydataset.Ｔables(＂maｎageｒ"）.Rowｓ.Coｕnｔ=0ＴhenｓhoｗMsg(＂用戶名或密碼錯(cuò)誤！",MsgBoxStylｅ.Eｘｃlａmatioｎ)ＥlsｅＧlobalVariablｅ.ＰEＲMIＳSION＝ＮewArrayListＦori=0ＴoｍyTable.Rｏｗs．Cｏunｔ-1GlobalＶaｒiable.ＰERＭISSＩON.Adｄ(myTabｌe.Rowｓ（i).Ｉtem（"Pｅｒmｉssiｏn")&"")NｅxtMe.Close()EnｄＩfEndSubPrivａt(yī)ｅSuｂlogiｎ_Ｃlosing(BｙValsenｄerＡsOｂjeｃt,ByValeＡsSysｔem.ComｐｏnentModel.CanceｌEｖentArｇs)ＨaｎdleｓＭｙＢａsｅ.Closiｎgｍymdimain.setｐoｗｅr（)EｎdSubPrivateSuｂlｏｇiｎ_Loａd（ＢyValｓｅnｄerAsＳｙｓtem．Oｂjｅｃt,BｙVａleAsＳｙｓｔem.EveｎtＡrgs)HandlesＭｙBase．ＬoａｄPERMＩSSIOＮ=ＮewＡｒｒayLiｓtmymdｉmaiｎ.setpoｗｅｒ()EnｄＳｕbPrivateＳubｂtnＥｘit＿Cliｃk（ＢyValsendeｒＡsSyｓtem.Object,ByVａleAsＳystem.EventArgs)ＨandlesbtnＥxit.CliｃkMe.Ｃlosｅ()EndSubEnｄＣlass其中:ｓetpowｅr（)為權(quán)限設(shè)立方法,在此省略了。2給出下列程序的運(yùn)營(yíng)結(jié)果，并說(shuō)明該程序的功能。ＭoduleModuｌe1SubMａin()Dimｉ,n,fAsShｏrtＤｏWhｉle（True)TｒyCoｎsoｌe．Ｗrite(＂n=")n=Consｏlｅ.ReadLｉne()f=１Fori=１Ｔoｎf=f＊iNextExiｔDoCａt(yī)che1AsInvａliｄCastEｘcｅptionConsoｌe．WrｉｔeＬiｎe（"數(shù)據(jù)類型錯(cuò)誤")Catche2AsOｖeｒｆlowＥxceptiｏnＣonsｏle.WriteＬine（"溢犯錯(cuò)誤"）Cａt(yī)cｈe3AsExceｐtioｎCｏnｓｏle.ＷritｅLｉne（"其他錯(cuò)誤＂)EndTｒｙＬｏopCｏnsole.WrｉteLｉｎe(n&"!="&f)Ｃonsoｌe．ReadLｉne()ＥndSubEndＭoｄｕle3.分析下列程序，說(shuō)明該程序的功能，并用層次圖表達(dá)。PｕｂliｃCｌassＦoｒｍ1InherｉtsSysteｍ.Wｉnｄows.Fｏrms.Ｆoｒm#Rｅgioｎ＂WindoｗsFormDesｉgneｒgenｅratedcode"‘系統(tǒng)自動(dòng)創(chuàng)建的程序，為了節(jié)省篇幅，在此處省略。＃EndRegiｏnPriｖatｅContexｔMeｎu1AsＮewContｅxtMeｎu()PrivaｔeＷithEｖenｔsＭenuＩtｅm１,ＭenuＩtｅm2，ＭｅnuＩｔｅm3ＡsＭenｕIｔemPｒivａt(yī)eSuｂFｏrm1_Ｌｏａｄ(BｙＶａlsendｅrAsＳysteｍ.Obｊｅcｔ,ByVａleAｓSystｅm．EventArgs)HandｌesMｙBasｅ.LoadRｉchＴextＢｏx１.Dock=DockStyle.FillMenuItｅｍ１＝NｅwMｅnuIｔeｍ("剪切")MｅnｕＩtｅｍ２=NｅwMenuItem（"復(fù)制＂）MenuIｔｅm3=NeｗMeｎuIｔem("粘貼"）MｅnｕItem1.Shｏｒtcut=Sｈｏrtｃut.CｔrlXMenｕItem2.Shｏrtｃut＝Shortcuｔ．ＣｔｒlCMenuＩtem3.Sｈortcut＝Shortｃut.ＣtrlVＣｏnｔｅxtＭenu1．MeｎuItems.Add(MenｕItｅm１）CoｎteｘｔMeｎu1．MenuIｔｅms.Add(MenｕIｔeｍ2）ＣoｎtextMｅnu1．MｅnuItｅms．Adｄ(ＭenuItｅm３)RｉｃhTextBox1.CｏnｔextMeｎu=CｏntextＭｅnｕ１EｎｄSｕbＰｒiｖａt(yī)ｅSuｂMｅnｕＩtem1_Ｃlick(ＢｙValsendeｒAｓOｂject,ByVaｌｅAｓSysｔem．ＥｖenｔArｇs)HandlｅsMｅnuItem1．ＣlｉckRｉｃhTeｘtBｏｘ1.Ｃut()ＥｎdSubPrivateSubMeｎuＩteｍ2_Cｌiｃk（ＢyValseｎｄeｒＡsObｊｅct,ByVａｌeＡｓSｙstem.EveｎtArgs）HandleｓMｅｎuIteｍ2．ClｉckRiｃhTｅxtBox１.Copy()EndSubPrivaｔeSuｂMeｎuＩtｅm3_Ｃlｉck(ByValseｎｄerAsＯbｊｅct,BｙValeAsSystem.ＥventArｇs)HanｄlesＭenｕItem３．Click