2023年电大VisualBasic程序设计作业答案完整版

ViｓｕalBａsic程序设计作业１一、选择题１.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．单击双击装载多响应某个事件后所执行的程序代玛cｍｄ１Cｌｉｃｋ1３．完毕某种特定的功能对象名.方法名Form1.Shｏw14．工具选项选项自动语法检测15.TiｍerＩnｔeｒvａlms三、问答题1.参考答案答：可视化编程是目前最直观的一种编程方法，人们一般用Visuａｌ一词表达它。之所以叫做“可视”,是指你无需编程，仅通过直观的操作方式即可完毕界面的设计工作。因此，可视化语言是目前最佳的Winｄowｓ应用程序开发工具。在这种语言中引入了控件的概念,每个控件都有若干方法和事件，并通过一系列的属性来控制控件的外观。运用这些控件,编程过程就如同画画，随意点几下鼠标，一个按钮就完毕了，这些工作在使用传统编程语言的情况下，需要编写大量复杂的程序代码才干实现。可视化编程重要用到了事件驱动机制,其原理是:当应用程序运营后,程序处在等待状态,当某个事件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，应用程序又处在等待另一个事件发生的状态。2．参考答案答：对象是代码和数据的封装体，在VB中,“数据”表现为属性,“代码”则表现为事件和方法。建立一个对象后,其操作通过与该对象的有关属性、事件和方法来描述。属性是一个对象的基本特性,每个对象都有它自己的属性。通过修改对象的属性,可以改变对象的外观和功能。方法就是要对象执行的动作,一般可以将它理解为VB提供的一种特殊的过程和函数。其特殊性在于，这些过程和函数是封装在对象内部的,是在对象上实行的某种操作功能。事件就是在对象上所发生的事情。对象的事件是由VB预先设立好的、能被对象辨认的动作。用户不能建立新的事件，但可以根据需要对事件进行编程。从非严格意义上讲，可以将事件理解为一种特殊的方法。3．参考答案答：传统的面向过程的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码,程序从第一行代码开始执行并按应用程序中预定的途径执行,用户无法改变程序的执行流程。在事件驱动的应用程序中,程序的执行发生了主线的变化,代码不是按照预定的途径执行，而是在响应不同的事件时执行不同的代码片段。每个对象都有一个相应的事件集，每个事件发生都要执行一段程序代码。事件可以由用户操作触发，也可以由操作系统或其它应用程序的消息触发，甚至可由应用程序自身的消息触发。这些事件的顺序决定了代码执行的顺序，因此，应用程序每次运营所通过的代码途径是不拟定的,它的执行流程由用户来决定。在程序设计时，不需要指出先执行哪部分代码,或按什么顺序执行代码,只需编写针对某个事件的程序代码即可。4.参考答案答：事件驱动是ＶB应用程序的基本机制,其基本过程是:（１）启动应用程序,装载和显示窗体。（2)窗体或窗体上的控件等待事件的发生。事件可由用户引发(例如键盘操作或鼠标点击)、可由系统引发（例如定期器控件）、也可由代码间接引发(例如当代码装载其他窗体时产生的Lｏaｄ事件）。(3)当某个事件发生后，执行其相应的事件过程代码。（4）反复执行第2和第３步。直到碰到Eｎd语句或单击“结束”按钮停止程序的运营。四、程序设计题1.Ｐrｉvａtｅ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ｖａteSubComｍ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程序设计】作业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.移出内存无效状态１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ａteSubOption1＿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之间的整数!＂EnｄＩｆＥndIfＴext1.ＳｅlSｔart＝0Text1.SｅlLenｇtｈ=Ｌeｎ（Text1.Tｅxt）ＥndSub６．新建一个工程,在默认的窗体Form1上放置一个Pｉｃｔure控件，然后编写如下代码。PｒｉvａtｅＳ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程序设计】作业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１．外部数据库、远程数据库12．ＡDＯrｓ("学号")13.增长、删除、修改(或者Seｌect、Delｅtｅ、Ｕｐｄate）14.Ｓelect*fromTabｌe1Wherｅ学号=’001’1５.本地数据库、远程数据库三、程序设计题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ａteSubFile1_click(）ＩfRight(File1.Paｔｈ，1)="\"Thenf$=Foｒm１.Fiｌe１.Pａth+Form1．Fｉle１．FｉlｅNaｍeElsef＄=Fｏrm1．File１.Pａtｈ+＂\"+Ｆorｍ１．File1．FiｌeNａｍｅＥndＩｆＰicｔure１.Pｉcｔure=LoadPiｃtｕre(ｆ＄)Picｔure１.AutoSize＝TｒuｅEnｄSuｂ2.ＰrｉvａteSubForm_Cｌick（)DｉmiＡsSinｇlｅ，tｗopｉeＡsSiｎｇlｅtwoｐie＝８＊Atn（1)'求piDｒawWｉdｔh=2'设立点的大小Ｓcale(-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数据库为例)'声明对象变量ＡDOｃｎ，用于创建与数据库的连接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ａｂ+＂专业＂MＳFｌexGriｄ１．AdｄＩtemstrtｍｐDｏＷhileNoｔADＯｒs.ＥＯＦstrtｍp=ＡDOrs("学号＂)+ｖbＴａb+ADOｒｓ（"姓名")+vbTaｂ+ADOrs("专业"）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()'定义数据库连接字符串DｉｍｓtrDＢAｓStrｉng＇用于连接SＱLServer数据库，其中:'Ｓeｒｖｅr为服务器名称'ＵｓerIＤ为登录账号'Passworｄ为登录口令＇Datａbａse为具体的数据库名sｔrDＢ="Prｏviｄｅｒ＝SQLOLEＤB;LSF;UserID=sa;Password=;Dａtaｂase=学生"＇假如还没有建立与数据库的连接,则用以下代码创建。IfAＤOcnIsNothiｎgThenＳeｔADOcn=ＮewConｎectionADOcn.OpensｔrDB'连接SQLSeｒveｒ数据库EndIfReadFrｏmTaｂｌe＇调用过程显示studeｎｔs表中的记录EｎｄＳｕb行结果及代码请参考主教材和实验教材相关内容。ﻬ电大天堂【ＶisualBasic程序设计】作业4一、选择题1．A２．B3．Ａ4.D5.B6．C7.A８．B二、填空题1.A.ＤaｔaArriｖａl事件、SendＤatａ方法2.TCＰ/ＩP（或者回答TCＰ协议）3.EXE4．用户自定义接口、标准接口5．LoｃaｌＩp方法６.GｅtData方法7．使用服务程序处在侦听状态；8．Wｉnsock9.实时错误、逻辑错误10．ＯnErrｏｒGoｔｏ０三、问答题1．参考答案答：Socket是TCP／ＩP网络中最为通用的API（应用程序接口）,也是在Iｎterneｔ上进行应用程序开发最为通用的AＰI。它为网络中的每台计算机中提供了一个通信端口，通过这个端口，任何两台具有Ｓocｋｅt接口应用程序就可进行信息收发通信了。程序员只需要对Soｃｋet接口进行数据的读写操作,主线不必关心两台计算机间的通信细节就可以完毕数据的发送和接受工作。基于Socket的通信过程如图1所示。图1２．参考答案答:VB中一般可按下列环节设计错误解决程序:第1步：捕获错误，并强制程序跳转即在错误发生时,捕获并告知应用转向哪段代码进行错误解决。ＶＢ中通常可采用OnＥrｒorGoTo语句启用错误捕获机制。第2步:编写错误解决程序，对所有可预见的错误做出反映编写错误解决程序的第一步是添加一个行标记符,比如“ChｅｃkError：”，以标志错误解决程序的开始。行标记符的名称最佳具有良好的可读性,并且后面必须跟一个冒号。常规错误解决程序通常放在过程的结束处，紧跟ExiｔＳub或EｘitFuncｔioｎ的行标记符之后。这样在没有错误发生时,过程就不会执行错误解决程序了。第3步：退犯错误解决程序通常情况下，只有当错误解决程序位于过程中间位置时，才需要用到专门的错误解决程序退出语句。一般可使用Resｕｍe或ResumｅNeｘt语句退犯错误解决程序。Ｒｅsume语句会继续执行引发错误的那句代码,而ＲesumｅNexｔ语句则会跳过该语句,执行引发错误代码的下一句代码。假如通过错误解决程序可以修正错误，则可以使用Reｓume语句,否则就使用ReｓuｍeＮext语句,或者直接使用ＥxiｔSub或ＥxitFunｃtion语句直接退出过程。3.参考答案答:调试程序是一件复杂的工程，不仅规定程序员对系统设计结果非常熟悉，思绪清楚，更需要不断地在实践中积累经验。以下技巧可供参考：一方面,应事先做好备份:尽管ＶB提供了众多的调试工具，但要运用这些工具查找、定位程序中的错误并非易事,对于一些规模较大的程序,即使是有经验的程序员也经常要损失好几小时甚至几天的时间来查找错误。在调试过程中,很容易意外地修改、覆盖或删除掉必要的代码部分。因此事先做好备份非常重要。另一方面,尽也许地分离受怀疑的程序:对于那些代码规模较大,窗口众多的程序而言,假如能将错误的范围定位于某个窗体或某段代码,则可以使用分离程序的