2024年电大VisualBasic程序设计作业解析

VisualBasic程序设计作业14.窗体控件菜单5.完毕某种特定的功能对象名.措施名Form1.Show14.工具选项选项自动语法检测能建立新的事件，但可以根据需要对事件进行编程。从非严格意答：事件驱动是VB应用程序的基本机制，其基本过程是：(2)窗体或窗体上的控件等待事件的发生。事件可由顾客引起(例如键盘操作或鼠标点击)、可由系统引起(例如定期器控件)、也可由代码间接引起(例如现代码装载其他窗体时产生的Load事件)。(4)反复执行第2和第3步。直到碰到End语句或单击“结束”按钮停止程序的运行。PrivateSubCommandIfTextlText=""OMsgBox"成绩输入不全!"Text4.Text=(Val(Textl.Text)+Val(Text2.IfText2.Text=""ThenTextIfText3.Text=""ThenTex电大天堂【VisualBasic程序设计】作业22.打开另存为颜色字体打印求Ifx<100ThenyIfEndIfEndIfEndIfEndIfDoUntilx>2IfxMod3<>0ThenEndIfoPrint"*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12oForj=3toNextIDay="星期日"&Chr(13)&"(Sunday)"Day="星期二"&Chr(13)&"(Tuesday)"Day="星期三"&Chr(13)&”(Wednesday)"Day="星期五"&Chr(13)&”(Friday)"Day="星期六”&Chr(13)&”(Saturday)"PrivateSuIfKeyAscii=13ThenIfn>=0Andn<7ThenMsgBox"请输入0~6之间的整数!"EndIfEndIf新建一种工程，在默认的窗体Form1上放置一种Picture控件，然后编写如下代码。Single,YAsSingle)IfButton=2ThenEndIfList1.AddItem"李敏"MsgBox"请在文本框中输入信息!"EndIfEndIfIfList1.ListIndex<>-1ThCommand2.Enabled=TrueEndIf电大天堂【Visua|Basic程序设计】作业32.FileCopy"c:\command","4.Open”SEQNEW.DAT"ForOutp5.Open”SEQOLD.DAT"ForInput12.ADOrs("学号")Drivel.DrivFile1.PatteIfRight(File1.Path,1)="\"EndIfPicturel.AutoSize=DimiAstwopie=8*Atn(1)'求piFori=-twopieToNextipiepiep’设置点的大小’设置坐标系CurrentX=-twopie/2CurrentX=twopie/2Nexti标y轴刻度NextiFori=-twopieTotwopieStep0.1NextiIfCheck1.Value=1EndIfPrivateSubOption3_Click(IndexAsShapel.BorderStyShape1.BorderSDimADOrsAsNewRecordsetMSFlexGrid1.Rows=0strtmp=”学号”+vbTab+”姓名”+vbTab+”专业”'定义数据库连接字符串'用于连接SQLServ'Server为服务器名称UserID为登录账号Password为登录口令′Database为详细的数据库名'假如还没有建立与数据库的连接，则用如下代码创立。2.TCP/IP(或者回答TCP协议)cket接口应用程序就可进行信息收发通信了必关怀两台计算机间的通信细节就可以完毕数据的发送和接受工作。基于Socket的通信过程如图1所示。图1即在错误发生时，捕捉并告知应用转向哪段代码进行错误处第2步：编写错误处理程序，对所有可预见的错误做出反应般可使用Resume或ResumeNext语句退出错误处理程序。Resume语句会继续执行引起错误的那句代码，而ResumeNext语句则会跳过该语句，执行引起错误代码的下一句代码。假如通过错误处理程序●使用Listen措施使服务器进入侦听状态，等待客