XXXX年电大-Visual-Basic程序设计形成性考核册-参考答

《VisualBasic程序设计》形成性考核册作业及答案《VisualBasic程序设计》形成性考核册作业及答案是（B）。性，预先应执行的操作是（A）。直接显示所需的帮助信息。其它机器上不能运行的主要原因是（D）。都不对具箱选项，使“工具箱”窗口显示。文本框等都是对象。事件过程填空。Form1.Caption=”VB示例”答：可视化编程是指无须编程，仅通过直观的操作式。件过程，当这个事件过程执行完后，系统又处于等待另一程序方式。答：对象是代码和数据的封装体。对象的操作通过与该对象有关的属性、事件、方法来描述。属性是一个对象的基本特性，每个对象都有它自己的属性。方法是对象要执行的动作。事件是在对象上所发生的事情。答：传统的面向过程的应用程序中，应用程序自身码，程序从第一行代码开始执行并按应用程序中预定程。而事件驱动机制则由用户来决定执行的路线。这就是两者的不同。答：事件驱动的工作过程如下1）启动应用程序，装载控件等待事件的发生。（3）当某个事件发生后，执（2）和（3），直到遇到END语句或单击“结束”按钮停止程序的运行。解：“隐藏文本框”按钮中的代码为：Text1.Visible=F“显示文本框”按钮中的代码为：Text1.Visible=TrueText1.Text=”VB程序设计”Text1.FontSize=”16”），户按清除按钮，则清除文本框中显示的内容钮则退出。解：command1中的代码为：text1=””：text2=””：text3=””：tecommand2中的代码为：text4=(val(Text1)+答：“计算”按钮的代码：text4=val(Text1)*val(Text2)*val(Text3)“清除”按钮的代码：text1=””：text2=””：text3=””：text4=””A、ValB、FixC、AscD、Chr4.把数值型转换为字符串型需要使用的函数是（B）。A.9B.11C.1D.37.以下可以作为VisualBasic变量名的是（B）.8.表达式Abs(-5)+Len(“ABCDE”)的值为（C）.9.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括），以在行末使用续行字符（A表示下一行是当前行的继A.一个空格加一个下划字符(_)B.一个下划字符(_)C.直接回车D.一个空格加一个字符(-)10.Sub过程与Function过程最根本的区别是（D）.A.Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以.11."X是小于80的非负数用VB表达式表示正确的是（C）.A..0≤X<80B.0<=XC.0<=xandx<80D.0<=12.在设计菜单时,如果要在菜单中加入一个菜单分隔A.加号(+)B.减号(-)C.星号(*)D.感叹号A.PrintB.MoveC.RefreshD.PopupMA.ToolBarB.StatursBarC.ImageListD.TreeVA.ButtonClickB.ChangeC.LoadD.KeyPr16.要利用公用对话框控件来显示”打开文件”对话框,需要调A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowCol3．组合框具有__文本框_和__列表框_两种控件的基本功能。程。准模块_。用的窗体中的属性等已处于_内存中_。三、阅读下列程序，写出程序运行结果。程序运行结果为：1+2+…….+99+100=PrintA;Spc(5);b;SpcPrintA;Spc(8);b;Space$Printc;Spc(3);”+”;Spc(3PrintLTrim(Str(i%))+“*”+LTrim(Str(j%))+“=”;i%Nextj%Nexti%Next*以上者，按八折优惠4）500元以上者按七折优惠。序运行结果如图解所示。IfVal(text1)>=500thentext2=Val(text1)*0.7ElseifVal(text1)>=300thentext2=Val(text1)*0.85ElseifVal(text1)>=200thentext2=val(text1)*0.9Elseifval(text1)>=100thentext2=val(text1)*0.95Endif如图5所示。窗体的装入事件中加入如下代码：EndifPrintstr(i*j);spacNextjPrintNextj则程序作10和2的相应计算，并则程序作10和2的相加，计算结果12在文乘法单选按钮的单击事件中添加如下代码：除法单选按钮中添加如下代码：加法单选按钮中添加如下代码：减法单选按钮中添加如下代码：text1示。Label1.caption=”星期天”+chr(13)+”(Sunday)”Label1.caption=”星期一”+chr(13)+”(monday)”Label1.caption=”星期二”+chr(13)+”(Tuesday)”Label1.caption=”星期三”+chr(13)+”(wednesday)”Label1.caption=”星期四”+chr(13)+”(thursday)”Label1.caption=”星期五”+chr(13)+”(firday)”Label1.caption=”星期六”+chr(13)+”(saturday)”鼠标右键时，通过消息框显示“YoupresseIfbutton=2thenMsgbox”youpressedrightbutton”Endif当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当列表框中某一项时，按“修改”程序运行结果如图9所示。添加按钮代码：list1.additemtext1.Text1.text=””删除:iflist1.text<>””thenList1.removeitem=list1.listEndif修改:Ifcommand3.caption=“修改”thenCommand3.caption=”修改确认”Ifcommand3.caption=”修改确认”thenList1.list=list1.listindex>=text1Command3.caption=”修改”EndifEndif入dir1.Path=file1.Path代码。入file1.Path=dir1.Path代码。file1.Path=file1.fileName代码。file1.Path=dir1.Path代码。A.(0,0)B.直线起点C.A200,200）到(500,500)B.（200,200）到(300,300)C.（200,200）到(700,700)D.（300,300）到(500,500)A.DrawstyleB.BorderstyleC.DrawWidC．执行语句Picture1.picture=“”A.open“text.dat”forwrB.open“text.dat”fC.open“text.datD.open“text.dat”forRA.Print#1,recB.Write#1,recC.PutA只包含扩展文件名为”*.bat”的文件B。第一A．DAOB.RDOA．ADOrs.New“Select*From学生基本情况表”B．ADOrs.Open“Select*From学生基本情况表”C．ADOrs.Execute“Select*From学生基本情况表”A．DimxlAsExcel.ApplicationB.DimxlAsExcC.DimxlAsExcel.WorksheetD.DimxlAsExcel.W为filecopy“c:\”,”d:\”3.在VisualBasic程 open”SEQOLD.DAT”for7.Stretch属性设置为_false_时,图像框可自动改变大小以适应其中的图形._picture1.line(500,500)-step(500,500),vbred,BF。9.设CurrentX=50,CurrentY=100,执行指令”line(100,20)-Step(300,500)”后,Cur10.使用ADO模型时,可通过_ActiveConn11.VB中将数据库分为本地数据库、远程数据库和外部数据库_三种类型.是_ADOrs(“符号”)_.等三类不返回结果集的SQL语句.fromTabel1Where学号=’”+Str1+”’”后,StrSQL的值等于_”select.*=’001’”_.），picture1.picture=loadpicturefile1.filename所示。如图窗体的单击事件中添加如下代码：Form1.scale(-2*3.14159,1)-(Form1.line(-2*3.14159,0)-(2*3.141Form1.currentx=0.2：form1.currentY=-0.1Form1.currentx=-3.2：form1.currentY=-0.1:pForm1.currentx=3.3：form1.currentY=-0.1:Form1.currentx=-6.2：form1.currentY=-0.1:prForm1.currentx=5.7：form1.currentY=-0.1:pForm1.currentx=0.2：form1.currentY=0.5:pForm1.currentx=0.2：form1.currentY=-0.5:prNextI3,使用Line控件显示直线,并且可以显示直线的线宽和线型.程复选框的单击事件代码：Ifcheck1.value=1thenLine1.borderwidth=4Endif实线、虚线、单选框要弄成一个option1单选框控件数组。单选框单击事4.使用Shape控件显示几种图形,并可以设置图形示.首先按图作出程序界面。形状框架里的单选框要做成option1控选框最成option2控件数组，填充风格框架里的单选做成option3控5.使用SQLServer或Access建立名称为”学生的数据库,并在其中创建”students”的数据库表,其PrivateADOcnAsconnePrivatesubreadfromtable()DimADOrsAsnewrecoADOrs.activeconnection=ADADOrs.open“select*fromstudentsorderby“学号”MSFlexgrid1.cols=3Strtmp=“学号”+vbtab+“姓名”+vbtab+“专业”MSFlexgrid1.additemsDowhilenotADOrs.eofStrtmp=ADOrs(“学号”)+vbtab+ADOrs(“姓名”)+vbtMSFlexgrid1.addttemsMSFlexgrid1.fixedcolstrDB=”provider=SQLOLEDB;LSF;UserID=sa;password=;database=学生”ifADOcnisnothingthensetADOcn=newconnectEndifPrivatesubcommand1_cl二、填空题。发送数据，则通常使用该控件的senddata方法。据了。三、问答题。Socket在计算机提供了一个通信端口，可以通过要对Socket接口进行数据的读写操作就可以了。（B）使用LISTRN方法使用服务器进入侦听状态，等待客户机程序的连接请求。件得到一个参数REQUESTID。状态，此时应首先使用CLOSE方法关闭服务器，然后再调用ACCEPT方法。（E）当服务器程序接收到数据时，会产生DATAARRIVAL事GETDATA方法接收数据。（A）客户程序首先应设置好REMOTEHOST属性，用来指向运行（B）设置REMOTEPORT属性，用来指向服务器程序和侦听端口号。（C）使用CONNECT方法向服务器提出连接请求。（D）如果服务器接受上述连接请求，客户机程序会产生CONNE此事件中编写程序，比如使用MSGBOX函数向用户提示“连接已成功”之类的信息。（E）连接成功之后，就可以根据需要使用SENDDATA方法向服（F）当客户机程序接收到数据时，会产生DATAARRIVA收数据。四、程序设计题。‘随机生成一组数据Nextc‘排序IFA(c)>A(j)ThenT=A(j)A(j)=A(c)A(j)=T＇此处有错，应为A（CT，实现EndIf＇A（C）和A（J）的交换NextNext‘在窗体上输出结果Nextc应用程序组成，能够实现网络中两台计算机间的通话任务。解：如下界面的设计中，若不说明，各对象均采用默认的名称。Control并将其选中。如果没有找到，通常是由于VB安装不安装其中的Mswinsck.cad压缩包。“退出”。用来显示服务器的IP地址和需收发的信息。各控件及事件代码如下：UnloadMetxtserverip.Text=Winsockserver.LocaWinsockserver.SendDatatxtsend.PrivateSubWinsockserver_ConnectionRequest(ByValWinsockserver.AcceptrequePrivateSubWinsockserver_DataArrival(ByValbyWinsockserver.GetDatamytxtreceive.Text=mys“退出”和“连接聊天服务器”。各控件及事件代码如下：UnloadMeWinsockclient.RemoteHost=txtserverIP.txtclientIP.Text=Winsockclient.LocaWinsockclient.SendDatatxtsend.MsgBox"你成功地与聊天室服务器进行了联接",vbInformationPrivateSubWinsockclient_DataArrival(ByValbWinsockclient.GetDatamytxtreceive.Text=mysVisualBasic程序设计形成性考核格式是（B）。属性，预先应执行的操作是（A）。体的标题栏原因都不对项，使“工具箱”窗口显示。文本框等都是对象。 7、欲设置定时的时间间隔为4秒，则属性Inte以下事件过程填空。 鼠标移动等。一个对象响应的事件可以有多个，用户不能建立新的事件。事件Form1.Caption=”VB示例” 命令，打开选项对话框，然后选择“编辑器”选项卡中的自动语法检测 Interval属性设置，其单位为答：可视化编程是指无须编程，仅通过直观的操作方式即可完成界面的设计工程方式。事件过程，当这个事件过程执行完后，系统又处于等待另一个事件发生的状态件驱动程序方式。答：对象是代码和数据的封装体。对象的操作通过与该对象有关的属性、事件述。属性是一个对象的基本特性，每个对象都有它自己的方法是对象要执行的动作。事件是在对象上所发生的事情。答：传统的面向过程的应用程序中，应用程序自身控制了执行那一部分代码按行代码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无的执行流程。而事件驱动机制则由用户来决定执行的路线。这就是两者的不同。答：事件驱动的工作过程如下1）启动应用程序，装载和显示窗体。（2）窗体或窗体上的控件等待事件的发生。（3）当某个事件发生后，执行其对应的事件重复执行（2）和（3），直到遇到END语句或单击“结束”按钮停止程序的运行。如图所示。解：“隐藏文本框”按钮中的代码为：Text1.Visible=“显示文本框”按钮中的代码为：Text1.Visible=TrueText1.Text=”VB程序设计”Text1.FontSize=”16”），（command1）、命令按钮2（command2）、命令按钮3（command3）组成。程序用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三退出按钮则退出。解：command1中的代码为：text1=””：text2=””：text3=””：tcommand2中的代码为：text4=(val(Text1答：“计算”按钮的代码：text4=val(Text1)*val(Text2)*val(Text3“清除”按钮的代码：text1=””：text2=””：text3=””：text4=””A、ValB、FixC、AscD、Chr4.把数值型转换为字符串型需要使用的函数是（B）。A.9B.11C.1D.37.以下可以作为VisualBasic变量名的是（B）.8.表达式Abs(-5)+Len(“ABCDE”)的值为（C）.9.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（A表示下一行是当前A.一个空格加一个下划字符(_)B.一个下划字符(_)（－）10.Sub过程与Function过程最根本的区别是（D）.A.Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以.11."X是小于80的非负数＂，用VB表达式表示正确的是（C）.A..0≤X<80B.0<=XC.0<=xandx<80D.0<12.在设计菜单时,如果要在菜单中加入一个菜单分A.加号(+)B.减号(-)C.星号(*)D.感叹号A.PrintB.MoveC.RefreshD.PopupMA.ToolBarB.StatursBarC.ImageListD.TreeVA.ButtonClickB.ChangeC.LoadD.KeyPr16.要利用公用对话框控件来显示”打开文件”对话框,需要调A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColA.所在窗体的各子程序都可以访问A.”Visual”B.”Visua”C.”V”D.”VisualBasic”_。值。_标准模块_。被调用的窗体中的属性等已处于_内存中_。三、阅读下列程序，写出程序运行结果。PrintA;Spc(5);b;SpcPrintA;Spc(8);b;Space$Printc;Spc(3);”+”;Spc(3PrintLTrim(Str(i%))+“*”+LTrim(Str(j%))+“=”;i%Nextj%Nexti% Next*300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和后的价格。程序运行结果如图解所示。IfVal(text1)>=500thentext2=Val(text1)*0.7ElseifVal(text1)>=300thentext2=Val(text1)*0.85ElseifVal(text1)>=200thentext2=val(text1)*0.9Elseifval(text1)>=100thentext2=val(text1)*0.95Endif结果如图5所示。窗体的装入事件中加入如下代码：EndifNextiPrintstr(i*j);spacNextjNextj选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。乘法单选按钮的单击事件中添加如下代码：加法单选按钮中添加如下代码：减法单选按钮中添加如下代码：text1所示。Label1.caption=”星期天”+chr(13)+”(Sunday)”Label1.caption=”星期一”+chr(13)+”(monday)”Label1.caption=”星期二”+chr(13)+”(Tuesday)”Label1.caption=”星期三”+chr(13)+”(wednesday)”Label1.caption=”星期四”+chr(13)+”(thursday)”Label1.caption=”星期五”+chr(13)+”(firday)”Label1.caption=”星期六”+chr(13)+”(saturday)”Ifbutton=2thenMsgbox”youpressedrightbutton”Endif添加按钮代码：list1.additemtext1.Text1.text=””删除:iflist1.text<>””thenList1.removeitem=list1.lisEndif修改:Ifcommand3.caption=“修改”thenCommand3.caption=”修改确认”Ifcommand3.caption=”修改确认”thenList1.list=list1.listindex>=text1.tCommand3.caption=”修改”EndifEndif中加入file1.Path=dir1.入file1.Path=dir1.Path代码。A.(0,0)B.直线起点C.直A200,200）到(500,500)B.（200,200）到(300,300)C.（200,200）到(700,700)D.（300,300）到(500,500)A.DrawstyleB.BordC．执行语句Picture1.picture=“”A.open“text.dat”forwrB.open“text.dat”C.open“text.daD.open“text.dat”forRA.Print#1,recB.Write#1,recC.PutA只包含扩展文件名为”*.bat”的文件B。第一个bat文件A．ADOrs.New“Select*From学生基本情况表”B．ADOrs.Open“Select*From学生基本情况表”C．ADOrs.Execute“Select*From学生基本情况表”A．DimxlAsExcel.ApplicationB.DimxlAsExcC.DimxlAsExcel.WorksheetD.DimxlAsExcel.W为filecopy“c:\”,”d:\” open”SEQOLD.DAT”for7.Stretch属性设置为_false_时,图像框可自动改变大小以适应其中的图形.8.在图片框Picture1中画一个左上角在(500,500),边长为500的红色实心正方形的语句为_picture1.line(500,500)-step(500,500),vbred,BF。9.设CurrentX=50,CurrentY=100,执行指令”line(100,20)-Step(300,500)”后,Current=_(400,520)_.10.使用ADO模型时,可通过_ActiveConnect_属性建立Recordset和Connection对象的连接.11.VB中将数据库分为本地数据库、远程数据库和外部数据库_三种类型.12.采用ADO模型时,当使用Op句是_ADOrs(“符号”)_.等三类不返回结果集的SQL语句.fromTabel1Where学号=’”+Str1+”’”后,StrSQL的值等于_”select.*fromtabel1where学号=’001’”_.picture1.picture=loadpicturefile1.filename如图窗体的单击事件中添加如下代码：Form1.scale(-2*3.14159,1)-(Form1.line(-2*3.14159,0)-(2*3.141Form1.currentx=0.2：form1.currentY=-0.Form1.currentx=-3.2：form1.currentY=-0.1:Form1.currentx=3.3：form1.currentY=-0.1Form1.currentx=-6.2：form1.currentY=-0.1:pForm1.currentx=5.7：form1.currentY=-0.1:Form1.currentx=0.2：form1.currentY=0.5:Form1.currentx=0.2：form1.currentY=-0.5:pForm1.pset(I,cos(INextI复选框的单击事件代码：Ifcheck1.value=1thenLine1.borderwidth=4Endif实线、虚线、单选框要弄成一个option1单选框控件数组。单选框单击事件代4.使用Shape控件显示几种图形,并可以设所示.首先按图作出程序界面。形状框架里的单选框要做成option单选框最成option2控件数组，填充风格框架里的单选做成option3控件数组。5.使用SQLServer或Access建立名称为”学生的数据库,并在其中创建”students”的数据库表,其结构及初始记录如表1所示.使用PrivateADOcnAsconnecPrivatesubreadfromtable()DimADOrsAsnewrecoADOrs.activeconnection=ADADOrs.open“select*fromstudentsorderby“学号”MSFlexgrid1.cols=3Strtmp=“学号”+vbtab+“姓名”+vbtab+“专业”MSFlexgrid1.additemsDowhilenotADOrs.eofStrtmp=ADOrs(“学号”)+vbtab+ADOrs(“姓名”)+vbMSFlexgrid1.addttemsMSFlexgrid1.fixedcolstrDB=”provider=SQLOLEDB;LSF;UserID=sa;password=;database=学生”ifADOcnisnothingthensetADOcn=newconnectionEndifPrivatesubcommand1_cliUnloadme二、填空题。要发送数据，则通常使用该控件的senddata方法。6、Winsock控件的BytesReceived属性返回接受到些数据了。三、问答题。Socket在计算机提供了一个通信端口，可以通过这个端口与任何一个也同时具有Sock只需要对Socket接口进行数据的读写操作就可以了。（2）分离受怀疑的程序要其他应用和谐没有使用过的值均可，但习惯上应大于1000（B）使用LISTRN方法使用服务器进入侦听状态，等待客户机程序的连接请求。（C）客户机程序发出连接请求后，将触发服务器程序的CONNECTIONREQUEST事件，（D）服务器程序使用ACCEPT方法接受客户机程序的R