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

VisualBasic程序设计作业12.对象事件是指你无需编程，仅通过直观的操作方式即可完毕界面的设计工作。因此，可视化语言是目前最佳的Windows应用程序开发工具。2.参照答案答：对象是代码和数据的封装体，在VB中，“数据”体现为属性，“代码”则体事件就是在对象上所发生的事情。对象的事件是由VB预先设置好的、能被对象识别的动作。顾客不能建立新的事件，但可以根据需要对事件进行编程。从非严格意义上讲3.参照答案答：老式的面向过程的应用程序中，应用程序自身控制了执行哪一部分代码和按何种次序执行代码，程序从第一行代码开始执行并按应用程序中预定的途径执行，顾客无法变化程序的执行流程。在事件驱动的应用程序中，程序的执行发生了主线的变化，代码不是按照预定的途径执行，而是在响应不一样的事件时执行不一样的代码片段。每个对象均有一种对应的事件集，每个事件发生都要执行一段程序代码。事件可以由顾客操作触发，也可以由操作系统或其他应用程序的消息触发，甚至可由应用程序自身的消息触发。这些事件的次序决定了代码执行的次序，因此，应用程序每次运行所通过的代码途径是不确定的，它的执行流程由顾客来决定。在程序设计时，不需要指出先执行哪部分代码，或按什么次序执行代码，只需编写针对某个事件的程序代码即可。4.参照答案答：事件驱动是\VB应用程序的基本机制，其基本过程是：(1)启动应用程序，装载和显示窗体。(2)窗体或窗体上的控件等待事件的发生。事件可由顾客引起(例如键盘操作或鼠标点击)、可由系统引起(例如定期器控件)、也可由代码间接引起(例如现代码装载其他窗体时产生的Load事件)。(3)当某个事件发生后，执行其对应的事件过程代码。(4)反复执行第2和第3步。直到碰到End语句或单击“结束”按钮停止程序的运行。四、程序设计题Text1.Text="VB程序设计"EndIfIfTextlText=""OrText2.Text=""OrText3.Text="ThenMsgBox"成绩输入不全!”Text4.Text=(ValTextTextValTextTextValTextTextIfText1.Text=""ThenMsgBox"至少要输出单价!"EndIfIfText2.Text=""ThenText2.Text=1IfText3.Text=""ThenText3.Text=15.Call语句43*1=33*2=83*3=本Ifx<100ThenIfx<200Theny=0.9$XIfx<500Theny=0.7$XEndIfEndIfEndIfEndIfEndIfNextjDay="星期日"&Chr(13)&"(Sunday)"Day="星期一"&Chr(13)&"(Monday)"Day="星期二"&Chr(13)&"(Tuesday)"Day="星期三"&Chr(13)&"(Wednesday)"Day="星期四"&Chr(13)&"(Thursday)"Day="星期五"&Chr(13)&"(Friday)"Day="星期六"&Chr(13)&"(Saturday)"IfKeyAscii=13ThenMsgBox”请输入0~6之间的整数!”EndIfEndIfPictureMousePointervbUList1.AddItem"李敏"List1.AddItem"张华"List1.AddItem"吕晓烨"List1.Addltem"赵巍"List1.AddItem"袁莉”Listl.AddItem"王津"List1.AddItem"何小渴"List1.Addltem"崔宁”List1.AddItem"陈曦"List1.AddItem"刘伟楠"IfText1.Text<>""ThenMsgBox"请在文本框中输入信息!"EndIfIfCommand3.Caption="修改"ThenCommand3.Caption="修改确认”ListListListListIndexTexText1.Text="”Command3.Caption="修改"EndIfEndIf1.B2.B3.B4.A5.C6.C7.D8.C9.C10.C11.B12.B13.A13.增长、删除、修改(或者Select、Delete、Update)File1.Pattern="*.bmp;gifjpgIfRight(File1.Path,1)=""ThenFormFilePathFormFileFileNamefS=FormFilePathFormFileFileNameEndIf求pi求piNextiPrint"p”NextiNextiNexti画y轴‘标y轴刻度IfCheck1.Value=1ThenEndIf5.(以SQLServer数据库为例)'申明对象变量ADOcn,用于创立与数据库的连接ADOrs.Open"select*fromstudentsorderby学号”strtmp="学号"+vbTab+"姓名"+vbTab+"专业"strtmp=ADOrs("学号")+vbTab+ADOrs("姓名")+vbTab+ADOrs("专业")EndIf2.TCP/IP(或者回答TCP协议)5.Locallp措施6.GetData措施接收2.参照答案接收应用程序B答：VB中一般可按下列环节设计错误处理程序：第1步：捕捉错误，并强制程序跳转即在错误发生时，捕捉并告知应用转向哪段代码进行错误处理。VB中一般可采用OnErrorGoTo语句启用错误捕捉机制。第2步：编写错误处理程序，对所有可预见的错误做出反应编写错误处理程序的第一步是添加一种行标识符，例如“CheckError:”,以标志错误处理程序的开始。行标识符的名称最佳具有良好的可读性，并且背面必须跟一种冒号。常规错误处理程序一般放在过程的结束处，紧跟ExitSub或ExitFunction的行标识符之后。这样在没有错误发生时，过程就不会执行错误处理程序了。第3步：退出错误处理程序一般状况下，只有当错误处理程序位于过程中间位置时，才需要用到专门的错误处理程序退出语句。一般可使用Resume或ResumeNext语句退出错误处理程序。Resume语句会继续执行引起错误的那句代码，而ResumeNext语句则会跳过该语句，执行引起错误代码的下一句代码。假如通过错误处理程序可以修正错误，则可以使用Resume语句，否则就使用ResumeNext语句，或者直接使用ExitSub或ExitFunction语句直接退出过程。3.参照答案答：调试程序是一件复杂的工程，不仅规定程序员对系统设计成果非常熟悉，思绪清晰，更需要不停首先，应事先做好备份：尽管VB提供了众多的调试工具，但要运用这些工具查找、定位程序中的错查找错误。在调试过程中，很轻易意外地修改、覆盖或删除掉必要的代码部分。另一方面，尽量地分离受怀疑的程序：对于那些代码规模较大，窗口的范围定位于某个窗体或某段代码，则可以使行(块)或窗体，选择并复制这些代码到一种新的工程中，然后运行新工程，看一看与否还会出现同样的第三，缩小搜索范围：假如有也许的话，可删除工程中任何第三方控件和自定义与问题无关的代码，逐渐缩小搜索范围。或者采用相反的方略，先调试某一的逐渐扩大调试的范围。这种措施与“分离受怀疑的程序”措施相结合，对复杂大系统的调试非常有效。除了采用设置断点的方式进行调试外，还可以借助于MsgBox语句。即在程序运行途径的要点上插入一系列的MsgBox语句，用来展示程序运行的途径和重要变量的值。(1)服务器程序的开发模式用程序没有使用过的值均可，但习惯上应不小于1000。●服务器程序使用Accept措施接受客户机程序的requestID祈求。至此，服务器程序就可以使用的requestID作为其参数；二是在执行Accept措施前，服务器仍处在侦听状态，此时应首先使用Close措施关闭服务器，然后再调用Accept措施。●当服务器程序接受到数据时，会产生DataArrival事件。在该事件中可以使用GetData措施接受数●客户程序首先应设置好RemoteHost属性，用来指向运行服务器程序的主机名或IP地址。●设置RemotePort属性，用来指向服务器程序的侦听端口号。●