2023年電大VisualBasic程序設計作業(yè)答案完整版

ViｓｕalBａsic程序設計作業(yè)１一、選擇題１.D2.B3.C4.C５.B６.D7.A8.B9.A1０.C11.C１２．Ｃ13．Ｂ14．D1５．A二、填空題1．視圖工具箱２.對象事件3..ｖｂp．ｆrｍ4.窗體控件菜單５．完畢某種特定的功能對象名.方法名Forｍ１.Ｓhow６．ＭultilｉneTrｕe7．40008．AuｔoSizeTｒue９.窗體布局窗口1０．txｔshow.text=＂GOOＤＷＯRK!"?11.Ｃｌｉck()、fｒｍ1.sｈow１2．單擊雙擊裝載多響應某個事件后所執(zhí)行的程序代瑪cｍｄ１Cｌｉｃｋ1３．完畢某種特定的功能對象名.方法名Form1.Shｏw14．工具選項選項自動語法檢測15.TiｍerＩnｔeｒvａlms三、問答題1.參考答案答：可視化編程是目前最直觀的一種編程方法，人們一般用Visuａｌ一詞表達它。之所以叫做“可視”,是指你無需編程，僅通過直觀的操作方式即可完畢界面的設計工作。因此，可視化語言是目前最佳的Winｄowｓ應用程序開發(fā)工具。在這種語言中引入了控件的概念,每個控件都有若干方法和事件，并通過一系列的屬性來控制控件的外觀。運用這些控件,編程過程就如同畫畫，隨意點幾下鼠標，一個按鈕就完畢了，這些工作在使用傳統(tǒng)編程語言的情況下，需要編寫大量復雜的程序代碼才干實現(xiàn)?？梢暬幊讨匾玫搅耸录寗訖C制,其原理是:當應用程序運營后,程序處在等待狀態(tài),當某個事件發(fā)生后，程序就去執(zhí)行此事件的事件過程，當這個事件過程執(zhí)行完后，應用程序又處在等待另一個事件發(fā)生的狀態(tài)。2．參考答案答：對象是代碼和數(shù)據的封裝體，在VB中,“數(shù)據”表現(xiàn)為屬性,“代碼”則表現(xiàn)為事件和方法。建立一個對象后,其操作通過與該對象的有關屬性、事件和方法來描述。屬性是一個對象的基本特性,每個對象都有它自己的屬性。通過修改對象的屬性,可以改變對象的外觀和功能。方法就是要對象執(zhí)行的動作,一般可以將它理解為VB提供的一種特殊的過程和函數(shù)。其特殊性在于，這些過程和函數(shù)是封裝在對象內部的,是在對象上實行的某種操作功能。事件就是在對象上所發(fā)生的事情。對象的事件是由VB預先設立好的、能被對象辨認的動作。用戶不能建立新的事件，但可以根據需要對事件進行編程。從非嚴格意義上講，可以將事件理解為一種特殊的方法。3．參考答案答：傳統(tǒng)的面向過程的應用程序中，應用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼,程序從第一行代碼開始執(zhí)行并按應用程序中預定的途徑執(zhí)行,用戶無法改變程序的執(zhí)行流程。在事件驅動的應用程序中,程序的執(zhí)行發(fā)生了主線的變化,代碼不是按照預定的途徑執(zhí)行，而是在響應不同的事件時執(zhí)行不同的代碼片段。每個對象都有一個相應的事件集，每個事件發(fā)生都要執(zhí)行一段程序代碼。事件可以由用戶操作觸發(fā)，也可以由操作系統(tǒng)或其它應用程序的消息觸發(fā)，甚至可由應用程序自身的消息觸發(fā)。這些事件的順序決定了代碼執(zhí)行的順序，因此，應用程序每次運營所通過的代碼途徑是不擬定的,它的執(zhí)行流程由用戶來決定。在程序設計時，不需要指出先執(zhí)行哪部分代碼,或按什么順序執(zhí)行代碼,只需編寫針對某個事件的程序代碼即可。4.參考答案答：事件驅動是ＶB應用程序的基本機制,其基本過程是:（１）啟動應用程序,裝載和顯示窗體。（2)窗體或窗體上的控件等待事件的發(fā)生。事件可由用戶引發(fā)(例如鍵盤操作或鼠標點擊)、可由系統(tǒng)引發(fā)（例如定期器控件）、也可由代碼間接引發(fā)(例如當代碼裝載其他窗體時產生的Lｏaｄ事件）。(3)當某個事件發(fā)生后，執(zhí)行其相應的事件過程代碼。（4）反復執(zhí)行第2和第３步。直到碰到Eｎd語句或單擊“結束”按鈕停止程序的運營。四、程序設計題1.Ｐrｉvａt(yī)ｅSubForm_Load()Tｅxt１.Text="VB程序設計＂Ｔeｘｔ1.FonｔSize=16EndSuｂPrivaｔeSｕbCommanｄ1_Cliｃk（)Text1.Visible=FaｌseEndSuｂPriｖateＳubＣomｍａnd2＿Cliｃｋ()Text1.Visｉbｌe=TｒueEnｄSｕb2.ＰｒivateSuｂCoｍmaｎd１＿Ｃliｃk（)Ｔext1.Text＝"＂? ? ??Text２.Text＝"＂????? ? ［Text3．Tｅxt=""? ? ? ????EｎｄＳuｂPｒivａｔeSｕbCommanｄ2_Ｃlｉｃk()IｆText1Text=""ＯrＴexｔ2.Teｘt＝"＂OrTexｔ3.Text=""Then?ＭｓgBｏｘ＂成績輸入不全!"ElseTｅxt4．Ｔeｘt=（Val(Ｔext1．Ｔext）+Ｖal(Tｅxt2.Ｔext)+Ｖal(Text3.Tｅxｔ))/3?? ＥndＩf ? ??? SuｂEnｄＰriｖａt(yī)eSubComｍanｄ３_Click()UnlｏａｄMe? ? ??? ?EndSuｂ??? ? ? ３.PrｉvatｅＳubCoｍmanｄ1＿Click（)IfＴext1.Ｔext=""ThenMｓｇBｏx"至少要輸出單價!"Ｔext1.SetＦocuｓExitＳuｂEｎdIｆIfTｅxt2．Text＝""ＴｈenTeｘｔ2.Tｅｘｔ=1IfＴｅｘt3.Ｔexｔ=""TｈenText3．Ｔext=1Text4.Teｘｔ=Teｘｔ1.Texｔ*Tｅxt2．Text＊Ｔeｘｔ3.TｅxtEndSuｂ電大天堂【VｉsualBasic程序設計】作業(yè)2一、選擇題1.B2．C3.D4.B5.D6．A７.B８．C9.A10．D11.C１2．B1３．D14.C1５.A16.B１７．C18.B19.D20.Ｂ二、填空題１．下拉式菜單彈出式菜單2．打開另存為顏色字體打印3.文本框列表框4．OptioｎＢasｅ15.Calｌ語句6.工程工程屬性通用Forｍ1.Show7.08．Sub過程的過程名不能返回值,而Ｆunｃtｉon過程能通過過程名返回值9．窗體模塊標準模塊類模塊10.移出內存無效狀態(tài)１1.(1）2*Ｃos*Sin/(2*)(2)Sｑr(s*(s-a)＊（s－b)*(s-ｃ))(3）Sin(4５*3．14/180)12．(1)ｘ>=1Ａnｄx<1２（2)A+B>=ＣOra-ｃ<=c(３)a>0Andb＞0Oｒ(a＜0Andb<0)13.False１４.ForWhiｌeDo１5．3三、閱讀下列程序,給出程序運營結果。1.程序運營后，單擊窗體,輸出結果為:50５０。2．3．4.３.4３5．＊*******＊**＊＊＊****＊***＊**四、程序設計題1．PrivaｔeSubCｏmmand1_Clｉck()DiｍxAsSinｇle,yAsSinｇｌex＝Vaｌ(Texｔ１.Tｅxt)Ifx<100Ｔhｅny=xＥlｓeＩfx＜200Theny=9．５*xＥｌsｅIfx<30０Thｅny=0.9*ｘＥlｓeIｆｘ<5０0Theny=0.8*xＥｌsｅｙ=0．7＊xEndIfEndIfＥｎdIfEndIfText２．Teｘt=yEndSub2.PrｉｖaｔeＳubＦorm_Load()DimxAsＩntegerx=1０0DｏUｎtilｘ>2０0ＩfｘMod3＜>0ＴhｅnTeｘｔ1.Texｔ＝Text1.Ｔｅｘt＆Str(x)&Cｈr(1３）＆Chr(1０）ＥｎdIfｘ＝ｘ＋1ＬoｏｐEｎｄSub3．PｒivaｔeSubForm_Cliｃk（）??Prｉnt＂*"；Tab（9);3,Ｔab（1８);6;Ｔab(27);9;Tab（3６);12 Print ＦｏrI=１5to18? ?PrｉntI; ?Forｊ=3tｏ12Sｔep3? ? PｒiｎtTab(３*j);j*I； ? Nextj? ?Print ?ＮeｘtＩEｎdsub４．ＰrivateSubCommanｄ1_Ｃｌiｃk()UnloａdMeEnｄSｕｂＰrivａt(yī)eSubOption1＿Clicｋ()Tｅxt1．Ｔexｔ=10＊2EnｄSｕbＰrｉｖaｔeSuｂOptioｎ２_Ｃlｉｃk（)Text1.Text=10／２EnｄSubＰrivatｅSubOｐtion3＿Cliｃk()Text1.Ｔext=10+２ＥndSubPrｉvateSubＯptｉon４＿Clicｋ()Text1．Ｔeｘｔ=1０-2EｎｄSub5.PrivateFuｎctｉonDay(ｎＡsInｔeｇeｒ)SelectCaｓｅnCase０Day=＂星期日"&Chｒ(13)＆"(Sunｄay)"Case1Day="星期一"&Chr(13）&"(Mｏｎday)"Case２Day="星期二＂&Ｃhr(13)&"(Tｕesdaｙ)"Case3Ｄay="星期三＂&Chr(1３）&＂(Wednesday)"Case4Ｄaｙ=＂星期四＂&Chｒ(13)&"(Thursｄay)"Caｓe５Day="星期五＂＆Cｈｒ(13)&"（Fｒiday)"Caｓe６Day="星期六"&Chr(1３）&"(Ｓaｔｕrday)"EnｄSeｌｅctEndFuｎｃtionPriｖateSｕbTｅxｔ1_KeyPresｓ（KeyAsciiＡsInteｇｅｒ)ＤｉｍnAｓIｎteｇern=Val(Teｘt1.Tｅｘt)ＩfKeyＡsｃii=13ＴhｅnIfn>＝０Andn＜7ＴhenLabel１.Captｉon＝Dａｙ(n)ElseMsｇＢｏx"請輸入0~6之間的整數(shù)!＂EnｄＩｆＥndIfＴext1.ＳｅlSｔart＝0Text1.SｅlLenｇtｈ=Ｌeｎ（Text1.Tｅxt）ＥndSub６．新建一個工程,在默認的窗體Form1上放置一個Pｉｃｔure控件，然后編寫如下代碼。Pｒｉvａt(yī)ｅＳubPｉcｔure1_MｏuｓeDown(BuｔtoｎＡｓＩnteger,ShiftＡｓInteger,XAsSｉｎgｌe,YAsSingle）ＩfBｕttoｎ=２ThenMsｇＢｏx"ＹｏuｐressedｒｉghtBｕtｔon＂Pictｕre１.MｏusｅＰointer=vbArrowEnｄIfEndＳｕbPrivatｅＳubPicture1_MoｕｓｅMｏｖe（BuｔtonAsIｎteger,ShiｆtAsInｔｅｇｅr,XAsSingle，ＹAsＳinｇｌe)Piｃturｅ1．ＭoｕsｅＰｏinteｒ=vbUｐArroｗEｎdSuｂ７．PrivaｔeＳｕｂForm_Ｌoad()Lisｔ1.AｄdItem＂李敏"List1.AdｄＩtｅm＂張華"List１.ＡddItem"呂曉燁＂List1.AddＩtｅm"趙巍"Liｓt1．ＡddItｅm＂袁莉"Ｌｉｓt1．AｄdIｔeｍ"王津"Lｉst1.ＡdｄIteｍ＂何小渴"Ｌｉst1.AｄdIｔem"崔寧"Liｓt1.ＡｄdItｅm＂陳曦＂Ｌist１．AｄdIteｍ＂劉偉楠"EndＳubＰrｉvateSubCommanｄ1＿Clicｋ()IfTｅxｔ1.Tｅxt＜＞"＂TｈeｎLｉst1.AddＩｔemTｅxｔ１.ＴextTｅxt1.Text=""ElseMsgBoｘ"請在文本框中輸入信息！"ＥｎdIfEndＳubPriｖaｔｅSubCoｍmand2_Cliｃk()Ｌｉsｔ1.RｅmovｅＩtｅmLｉst1.ＬistIｎｄeｘEnｄSubＰｒivateSubCoｍmand3_Ｃlick（)ＩfCommａｎd３.Ｃaptiｏｎ="修改"ThenＴext１．Tｅｘt＝Lｉst1.TextText1.ＳetFocuｓCommanｄ1.Eｎaｂｌed=FalseCommａnd2.Enａbｌed=FalseCｏｍmaｎd3.Ｃａｐtion=＂修改確認"ElseＬiｓt1.Liｓt(Lｉst1.ListInｄｅx)=Ｔｅxt1.TｅxtCoｍmａｎd1.Enabｌed=TrueＣoｍmａnd2.Enaｂled=TrueTｅxｔ1．Text=""Command3.Captiｏn＝＂修改"EndＩfEndSuｂPｒivateSubLiｓt1＿Ｃlick()IfＬｉsｔ1．LｉsｔIndex＜＞-1ThenCoｍmanｄ2．Enaｂlｅd=ＴｒuｅＣoｍmand3.Enaｂlｅd=TruｅEndIfEｎdＳuｂ電大天堂【ViｓualＢasic程序設計】作業(yè)3一、選擇題1.B2．Ｂ３．B4.Ａ5．C6.Ｃ7．Ｄ8．C９．C10．C１1．Ｂ12.B13．Ａ1４．B１5．C１６．C１7．B１８.A19．C20.B21.A二、填空題1．Outpｕｔ2.FileCopｙ”c：\cｏmmand.ｃoｍ”,”ｄ:\comｍaｎ”3.Kill”d:\teｍ．tmp”4.Open”ＳEQNＥＷ.ＤAＴ”ＦorOutputAs＃１５．Ｏpen”SEQOLD.DAＴ”FｏｒInpｕtAs#26．右上7．False8.Ｐiｃture1．Line(500,5０0)-（１000，10０0），RＧＢ(255,0，0)，BF９.52010．ＡcｔｉveConnection1１．外部數(shù)據庫、遠程數(shù)據庫12．ＡDＯrｓ("學號")13.增長、刪除、修改(或者Seｌect、Delｅtｅ、Ｕｐｄate）14.Ｓelect*fromTabｌe1Wherｅ學號=’001’1５.本地數(shù)據庫、遠程數(shù)據庫三、程序設計題1．PｒivaｔeSubＦoｒm_Loａd()Driｖe1．Drｉve=＂c:\"Fｉlｅ１．Ｐattｅrｎ="*.bmp;*.giｆ;*.jpg"EｎdSubＰrｉvatｅSｕbDrｉve1_ｃhａnge()Dir１.Path=Drive１.DriveEnｄＳubPrivateSuｂDir1_Chanｇｅ()File１.Path=Diｒ1．PathEndSuｂＰrｉvａt(yī)eSubFile1_click(）ＩfRight(File1.Paｔｈ，1)="\"Thenf$=Foｒm１.Fiｌe１.Pａt(yī)h+Form1．Fｉle１．FｉlｅNaｍeElsef＄=Fｏrm1．File１.Pａt(yī)ｈ+＂\"+Ｆorｍ１．File1．FiｌeNａｍｅＥndＩｆＰicｔure１.Pｉcｔure=LoadPiｃtｕre(ｆ＄)Picｔure１.AutoSize＝TｒuｅEnｄSuｂ2.Ｐrｉvａt(yī)eSubForm_Cｌick（)DｉmiＡsSinｇlｅ，tｗopｉeＡsSiｎｇlｅtwoｐie＝８＊Atn（1)'求piDｒawWｉdｔh=2'設立點的大?。觕ale(-twopie,１)-(ｔwopie，－１)'設立坐標系Foｒi=-twｏpｉeTotwopiｅSｔeptwopiｅ/３60'畫x軸ＰSet(i,0）Nexti'標x軸CuｒreｎtY=０CｕｒrentX=－ｔwopｉePｒint＂-２ｐｉ＂;CurrｅntX=-tｗopie/2Ｐrint"-ｐｉ";CurrentX=ｔwopie/２Pｒinｔ"pi＂；CurrenｔX＝tｗopiｅ-０.６Ｐrint"2ｐi";Ｐrｉnｔ"p＂Fori＝-１Ｔo1Step0.０1'畫y軸ＰSeｔ(0,i）NexｔｉCurｒenｔX＝0'標y軸刻度Fｏrｉ＝－1To1Ｓtｅｐ0．5CuｒrentY=iPrｉntiNｅxtiＦoｒi＝－twｏpieTotwopieStep0.1'畫余弦曲線PSｅt(i,Ｃos(i))NextｉEnｄSub3．PriｖaｔｅSubCheｃk1_Cｌｉcｋ(）IfＣhｅｃk1.Value=１TｈeｎLine１.BordｅrWidth=4ＥｌseLｉnｅ1．BｏrderWidｔh=１EndIfEndSubPｒｉvateSubOpｔiｏn1＿Ｃlicｋ（IndexＡsIｎteger)Ｌine1.BｏrdｅｒＷidｔh=1Cheｃk1.Vaｌｕe＝0SｅlectＣaseInｄexCaｓｅ１Lｉne1.ＢorderStyle＝1Case2Line1．ＢorderStｙle=2Casｅ3Liｎｅ１．BｏrderStｙｌｅ=3EndＳeｌectEnｄSub4.PrivateSｕbOpｔｉon1_Ｃlick（IndeｘＡｓInｔｅｇer）ＳelectCａseIndeｘＣase0Shapｅ1.Ｓｈaｐe＝０Case1Shaｐe1.Sｈape=1Cａse2Shａpｅ1.Shaｐe=3Ｃａsｅ3Shape１.Shape＝4EndＳｅlｅcｔEnｄSｕbPｒｉvaｔeSubOpｔｉｏn2_Ｃlicｋ(IndeｘＡsIｎtegｅr)SelectCasｅInｄｅｘCaｓe０Shape1.FillStyle=１Caｓe１Sｈape1．FillSｔyle=3Case2Shape１.FilｌSｔyｌｅ=2Ｃａse３Shape1．FiｌｌStyle=6ＥndSelectＥｎdSｕｂPrivateSuｂOptiｏn3_Clicｋ(InｄeｘAsInteger)Shaｐe1.BｏrｄeｒWidth=１SelectCaseIndexＣasｅ0Sｈapｅ1.BoｒｄerStyle=0Ｃａse1Shape1.BordｅrStyle＝1Ｃase2Shａpe1.ＢorderSｔyle＝４Ｃase３Shａｐe1．ＢordｅｒStyle＝2Case4Shapｅ1.BoｒｄerＳｔyle=3ＥndSeleｃtＥndSｕb5．（以SQLＳeｒver數(shù)據庫為例)'聲明對象變量ＡDOｃｎ，用于創(chuàng)建與數(shù)據庫的連接PrivateAＤOｃｎＡsCoｎnｅcｔｉoｎPrｉvaｔｅSubＲeａdFromＴable()DiｍｓtｒｔｍpAｓStｒiｎgDiｍADOrsAsNewReｃordsetADOｒｓ.ＡctiｖeConｎecｔioｎ=ＡDOcnAＤOｒｓ.Ｏpen"select*fｒomsｔuｄｅｎtsorｄerby學號＂ＭSFlexGｒiｄ1.ＣleaｒMSFｌexGrid1.Rows＝0MＳFleｘGrid1.Cｏls=3sｔrtｍｐ="學號"+vbTａb+"姓名"+vｂTａｂ+＂專業(yè)＂MＳFｌexGriｄ１．AdｄＩtemstrtｍｐDｏＷhileNoｔADＯｒs.ＥＯＦstrtｍp=ＡDOrs("學號＂)+ｖbＴａb+ADOｒｓ（"姓名")+vbTaｂ+ADOrs("專業(yè)"）MSＦｌｅxGrid１.AddItｅmｓｔrｔmpＡDOrs.ＭovｅNexｔLoｏｐMSＦlexGriｄ1.FiｘedＣolｓ＝0MSFｌeｘGｒiｄ1.FｉｘedＲows＝１EndSubPrivateSubCoｍmand１＿Ｃlｉck（)UnｌoadＭeＥnｄSuｂPriｖateSｕｂForm_Loａd()'定義數(shù)據庫連接字符串DｉｍｓtrDＢAｓStrｉng＇用于連接SＱLServer數(shù)據庫，其中:'Ｓeｒｖｅr為服務器名稱'ＵｓerIＤ為登錄賬號'Passworｄ為登錄口令＇Datａbａse為具體的數(shù)據庫名sｔrDＢ="Prｏviｄｅｒ＝SQLOLEＤB;LSF;UserID=sa;Password=;Dａt(yī)aｂase=學生"＇假如還沒有建立與數(shù)據庫的連接,則用以下代碼創(chuàng)建。IfAＤOcnIsNothiｎgThenＳeｔADOcn=ＮewConｎectionADOcn.OpensｔrDB'連接SQLSeｒveｒ數(shù)據庫EndIfReadFrｏmTaｂｌe＇調用過程顯示studeｎｔs表中的記錄EｎｄＳｕb行結果及代碼請參考主教材和實驗教材相關內容。?電大天堂【ＶisualBasic程序設計】作業(yè)4一、選擇題1．A２．B3．Ａ4.D5.B6．C7.A８．B二、填空題1.A.ＤaｔaArriｖａl事件、SendＤatａ方法2.TCＰ/ＩP（或者回答TCＰ協(xié)議）3.EXE4．用戶自定義接口、標準接口5．LoｃaｌＩp方法６.GｅtData方法7．使用服務程序處在偵聽狀態(tài)；8．Wｉnsock9.實時錯誤、邏輯錯誤10．ＯnErrｏｒGoｔｏ０三、問答題1．參考答案答：Socket是TCP／ＩP網絡中最為通用的API（應用程序接口）,也是在Iｎterneｔ上進行應用程序開發(fā)最為通用的AＰI。它為網絡中的每臺計算機中提供了一個通信端口，通過這個端口，任何兩臺具有Ｓocｋｅt接口應用程序就可進行信息收發(fā)通信了。程序員只需要對Soｃｋet接口進行數(shù)據的讀寫操作,主線不必關心兩臺計算機間的通信細節(jié)就可以完畢數(shù)據的發(fā)送和接受工作?；赟ocket的通信過程如圖1所示。圖1２．參考答案答:VB中一般可按下列環(huán)節(jié)設計錯誤解決程序:第1步：捕獲錯誤，并強制程序跳轉即在錯誤發(fā)生時,捕獲并告知應用轉向哪段代碼進行錯誤解決。ＶＢ中通?？刹捎肙nＥrｒorGoTo語句啟用錯誤捕獲機制。第2步:編寫錯誤解決程序，對所有可預見的錯誤做出反映編寫錯誤解決程序的第一步是添加一個行標記符,比如“ChｅｃkError：”，以標志錯誤解決程序的開始。行標記符的名稱最佳具有良好的可讀性,并且后面必須跟一個冒號。常規(guī)錯誤解決程序通常放在過程的結束處，緊跟ExiｔＳub或EｘitFuncｔioｎ的行標記符之后。這樣在沒有錯誤發(fā)生時,過程就不會執(zhí)行錯誤解決程序了。第3步：退犯錯誤解決程序通常情況下，只有當錯誤解決程序位于過程中間位置時，才需要用到專門的錯誤解決程序退出語句。一般可使用Resｕｍe或ResumｅNeｘt語句退犯錯誤解決程序。Ｒｅsume語句會繼續(xù)執(zhí)行引發(fā)錯誤的那句代碼,而ＲesumｅNexｔ語句則會跳過該語句,執(zhí)行引發(fā)錯誤代碼的下一句代碼。假如通過錯誤解決程序可以修正錯誤，則可以使用Reｓume語句,否則就使用ReｓuｍeＮext語句,或者直接使用ＥxiｔSub或ＥxitFunｃtion語句直接退出過程。3.參考答案答:調試程序是一件復雜的工程，不僅規(guī)定程序員對系統(tǒng)設計結果非常熟悉，思緒清楚，更需要不斷地在實踐中積累經驗。以下技巧可供參考：一方面,應事先做好備份:盡管ＶB提供了眾多的調試工具，但要運用這些工具查找、定位程序中的錯誤并非易事,對于一些規(guī)模較大的程序,即使是有經驗的程序員也經常要損失好幾小時甚至幾天的時間來查找錯誤。在調試過程中,很容易意外地修改、覆蓋或刪除掉必要的代碼部分。因此事先做好備份非常重要。另一方面,盡也許地分離受懷疑的程序:對于那些代碼規(guī)模較大,窗口眾多的程序而言,假如能將錯誤的范圍定位于某個窗體或某段代碼,則可以使用分離程序的