2021年度电大VisualBasic程序设计形成性考核册参考答案.pdf

《2021年度电大VisualBasic程序设计形成性考核册参考答案.pdf》由会员分享，可在线阅读，更多相关《2021年度电大VisualBasic程序设计形成性考核册参考答案.pdf（47页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 V i s u a l B a s i c 程序设计形成性考核册作业及答案 Visual Basic程序设计形成性考核册作业及答案作业1一、选取题1、在设计应用程序时，可以查看到应用程序工程所有构成某些窗口是（D）。A、窗体设计 B、代码 C、属性 D、工程资源管理器窗口2、窗体load事件触发时机是（B）.A、顾客单击窗体时B、窗体被加载时C、窗体显示之后 D、窗体卸载时3、与老式程序设计语言相比，Visual Basic最突出特点是（C）。A、构造化程序设计B、程序开发环境C、事件驱动编程机制 D、程序调试技术4、VB6.0集成开发环境主窗口中不涉及（C）。A、标题栏 B、菜单栏 C、状

2、态栏 D、工具栏5、如果对象名称为Mytext,并且对象有一种属性Text,那么在代码中引用该属性对的格式是（B）。A、text.Mytext B、Mytext.Text C、Mytext.（Text）D、Mytext*Text6、下列可以激活属性窗口操作是（D）。A、用鼠标双击窗体任何部位 B、执行 工程 菜单中 属性窗口 命令C、按 Ctrl+F4 D、按 F47、假定已在窗体上画了各种控件，并有一种控件是活动，为了在属性窗口中设立窗体属性，预先应执行操作是（A）。A、单击窗体上没有控件地方 B、单击任一种控件 C、不执行任何操作D、双击窗体标题栏8、如果要在文本框键入字符时，只显示某个字

3、符，如 果（*）,应设立文本框（B）属性。A、Caption B、PasswordChar C、Text D、Char9、如果想要在文本框中内容在运营时不能编辑，需要文本框（A）属性设立为True.A Locked B、MultiLine C、TabStop DVisible1 0 对于定期器（Tiner）控制，设立其定期与否启动属性是（C）A Index B、Tag C、Enabled D、Left11、要在窗口体Fornl内显示myfrm”使用语句是（C）A、Form.caption=myfrm,zB,Fornl.caption=myfrmMC forml.printmyfrmD、form

4、.print、myfrm”12、对象性质和状态特性称为（C）A、事件 B、办法 C、属性 D、类13、下列对的赋值语句是（B）A、x+y=20 B、y=x+20 C、3x=y D、s=14、当使用上下文有关协助时，选取要协助内容，然后按（D）键，就可浮现MSDN窗口直接显示所需协助信息。A、Help B、F10 C、Ese D、Fl15、将调试通过工程经 文献 菜单 生成.exe文献 编绎成名.exe后，将该可执行文献放到其他机器上不能运营重要因素是(D)。A、运营机器上无VB系统 B、缺少.frm 窗体文献 C、该执行文献有病毒 D、以上因素都不对二、填空题1、当进入VB集成开发环境后，发现

5、没有显示 工 具箱 窗口。应选取视图菜单 工具箱选项，使 工具箱 窗口显示。2、在 VB中，事件过程名由对象名和事件名 构成。3、工程文献扩展名是vbp,窗体文献扩展名是fr m。4、对象时代码和数据集合，例如，Visual Basic中 窗 体、按 钮、文本框等都是对象。5、对象办法用于 实行某种操作功能。当办法不需要任何参数并且也没有返回值，调用对象办法格式为 对象名.办法名。例如对窗体Forml使用Show办法，应 写 成 form 1.show。6、要使文本框显示滚动条，需要将其ScrollBars属性设立为3。7、欲设立定期时间间隔为4 秒，则属性Interval值 为 4000。8

6、、要使标签框大小随Caption属性做自动调节，应 将 AutoSize属性设立为T ru e。9、通过窗体布局窗口可以在设计时直观地调节窗体在屏幕位置。10、要想在代码中给名为txtshow文框赋予文本：GOOD WORK!时，应当编写语句是 txtshow.text=,GOOD W ORK!。11、若命令按钮名称为Cmdopen,程序规定单击以上命令按钮，打开一种窗口 frml,请对如下事件过程填空。Private Sub Cmdopen click()Frm 1.showEnd Sud12、事件就是对象上所发生事情，Visual Basic中 事 件 如 单 击、装 入、鼠标移动等。一种

7、对象响应事件可以有 多 个，顾客不能建立新事件。事件过程是指 响应某个事件后所执行代码。假设某一事件过程如下：Private Sub cmdl_Click()Forml.Caption=,VB 示例End Sub则响应过程对象名是cmdl,事 件 名 是 C lick。13、对象办法用于在对象上实行某种操作功能。当办法不需要任何参数并且也没有返回值，调用对象办法格式为对象名.办法名，例如，对窗体Form l使用Show办法，应写成 Forml.Show。14、为了在编写代码时能自动语法检查，必要执行工具 菜单中 选项命令，打 开 选 项 对 话 框，然后选取 编辑器 选项卡中自动语法检测。15

8、、定期器(Timer)控件可辨认事件是Timer,了生该事件时间间隔定期由定期器Interval属性设立，其单位为毫秒。三、问答题1、什么是可视化编程和事件驱动？答：可视化编程是指不必编程，仅通过直观操作方式即可完毕界面设计工作这种编程方式。当VB应用程序运营后，系统处在等待状态，当某个事件发生后，程序就去执行此事件事件过程，当这个事件过程执行完后，系统又处在等待另一种事件发生状态，这就是事件驱动程序方式。2、对象、属性、事件和文献之间关系如何？答：对象是代码和数据封装体。对象操作通过与该对象关于属性、事件、办法来描述。属性是一种对象基本特性，每个对象均有它自己属性。办法是对象要执行动作。事件

9、是在对象上所发生事情。3、简述事件驱动机制与老式编程方式不同。答：老式面向过程应用程序中，应用程序自身控制了执行那一某些代码按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定途径执行，顾客无法变化程序执行流程。而事件驱动机制则由顾客来决定执行路线。这就是两者不同。4、简述事件驱动工作过程。答：事件驱动工作过程如下：(1)启动应用程序，装载和显示窗体。(2)窗体或窗体上控件等待事件发生。(3)当某个事件发生后，执行其相应事件过程代码。(4)重复执行(2)和(3),直到遇到END语句或单击 结束 按钮停止程序运营。四、程序设计题1、在窗体上添加一种文本框和两个命令按钮，并把两个命令按钮

10、标题分别设立为隐藏文本框”和显示文本框“。当单击第一种命令按钮时，文本框消失；而当单击第二个命令按钮时，文本框重新浮现，并在文本框中显示VB程序设计”(字体大小为1 6)。程序运营界面如图所示。图1解：隐藏文本框 按钮中代码为：Textl.Visible=False显示文本框“按钮中代码为：Textl.Visible=TrueTextl.Text=B 程序设计”Textl.FontSize=,16H2、设计一种计算程序。该程序顾客界面如图2所示，由四个文本框：文本框1(te x tl)、文本框2(text2)、文本框3(text3)、文本框4(text4),和三个按钮：命令按钮1(comman

11、d!.)、命令按钮2(command2)、命令按钮3(command3)构成。程序运营后，顾客按清除按钮，则清除文本框中显示内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。解：commandl 中代码为：textl=：text2=：text3=,w：text4=command2中代码为：text4=(val(Textl)+val(Text2)+val(Text3)/3command2中代码为：End3、编写一收款计算程序。规定顾客输入商品单价、数量 和折扣后，单击计算按钮显示应付款，单击清除 按钮，清除文本框中所有数据。程序运营界面如图3所示。答：计算 按钮代码：text4=val(

12、Textl)*val(Text2)*val(Text3)/100清除 按钮代码：textl=J text2=J text3=J text4=”作业2一、选取题1.按照变量作用域可将变量划分为(B)。A、公有、私有、系统 B、全局变量、模块级变量、过程变量C、动态、常数、静态 D,Public,Private,Protected2.可获得字符ASCH码函数是(C)。A、Vai B、Fix C、Asc D、Chr3、要退出Do.Loop循环，可使用语句(D)语句。A,Exit B、Exit For C、End Do D、Exit Do4.把数值型转换为字符串型需要使用函数是(B)。A,Vai B、

13、Str C、Asc D、Chr5.关于语句行，下列说法对的是(B)。A.一行只能写一条语句 B.一条语句可以分多行书写C.每行首字符必要大写 D.长度不能超过255个字符6.表达式 6+10 Mod 4*2+1 值 是(A).A.9 B.11 C.1 D.37.如下可以作为Visual Basic变量名是(B).A.SIN B.CO1 C.COS(X)D.X(-l)8.表达式Abs(-5)+Len(ABCDE)值 为(C).A.5ABCDE B.-5ABCDE C.10 D.O9.在代码编辑器中，如果一条语句太长，无法在一行内写下(不涉及注释)，要折行书写，可以在行末使用续行字符(A),表达下

14、一行是当前行继续.A.一种空格加一种下划字符(_)B.一种下划字符(_)C.直接回车 D.一种空格加一种字符(一)lO.Sub过程与Function过程最主线区别是(D).A.Sub过程可以使用Call语句或直接使用过程名调用，而 Function过程不可以.B.Function过程可以有参数，Sub过程不可以.C.两种过程参数传递方式不同.D.Sub过程过程名不能返回值，而 Function过程可以通过过程名返回值.11.X 是不大于80非负数，用 VB表达式表达对的是(C).A.0X80 B.0=X80C.0=x and x80 D.0=x Orx8012.在设计菜单时，如果要在菜单中加入

15、一种菜单分隔条，则菜单分隔条标题必要设立为(B)A.加号(+)B,减号(-)C.星号(*)D.感叹号。)13.如果要在程序中显示一种弹出式菜单，那么要调用Visual Basic中提供办法是(D).A.Print B.Move C.Refresh D.PopupMenu14.下列可以用来存储图像供其她对象使用控件是(C).A.ToolBar B.StatursBar C.ImageList D.TreeView15.当单击工具拦上按扭时,会触发事件是(A).A.ButtonClick B.Change C.Load D.Key Press16.要运用公用对话框控件来显示 打开文献”对话框,需要

16、调用控件(B)办法.A.ShowPrinter B.ShowOpen C.ShowSave D.ShowColor17.对于窗体级变量，下列说法中错误是(C).A.所在窗体各子程序都可以访问B.其她窗体子程序不能访问C.所在窗体发子程序不能访问用Private定义窗体级变量D.一定要在所在窗体通用区内定义18.从一种字符串中第3 个字符开始，获取5 个字符，应使用(B)A.Len函数 B.Mid函数 C.Left函数 D.Right函数19.用下面语句所定义数组元素个数是(D).DimA(-3 To 5)As IntegerA.6 B.7 C.8 D.920.有如下程序段：Dim strl A

17、s String*5Strl=Msual Basic当该段程序被执行完时，变量strl值为(B).A.Msual B.Msua C.V D/Visual Basic二、填空题1.菜单普通有一下拉式_ 和_ 弹出式_ 两种基本类型。2.通用对话框控件可显示惯用对话框有一打开一、_ 保存一、_ 颜色一、_ 字体一、打印3.组合框具备文本框_ 和_ 列表框_ 两种控件基本功能。4.要使数组默认下标从、1 开始，则应在窗体或原则模块代码声明某些使用语句 Option Base1 一。5.调用Sub过程时，使用_ c a ll_ 语句，语句用于把程序控制传送到一种Visual BasicSub过程。6.

18、若已建立了 Forml和 Form2两个窗体，默认启动窗体为Forml。通过一工程一菜单_属性一命令_ 通用一选项卡，可将启动窗体设立为Form2。在程序中若要显示Forml窗体，则执行_Forml.show_语 句。7.列表框中项目序号是从_0_开始。8.Sub过程与Function过程最主线区别是一Sub过程名无返回值，Function过程名有返回值。9.VB代码存储在模块中。在 VB中提供了三种类型模块：一类模块一、_ 窗体模块_ 和_ 原则模块一。10.使 用 Hide办法会隐藏被调用窗体，但是在调用Hide办法之后不会把窗体_ 卸载一，被调用窗体中属性等已处在_ 内存中11.将下列数

19、学式子写成VisualBasic表达式。(1)答：2*cos(a)*sin(a)/(2*a)答：sqr(s*(s-a)*(s-b)*(s-c)(3)sin45:sin(45*2*3.1415/360)_12.将下列数学式子各条件写成VisualBasic逻辑表达式。(l)lx12：l=x and xC 或 a-c=C OR(a-c)=0 and b=0)or(a=0 and b=0)13.设 A=2,B=3,C=4,D=5。表达式 Not A=C Or4*B0 And BA+C 值为_False一。14.在Visual Basic语言中有三种形式循环构造。其中，若循环次数可以事先拟定，可使用_

20、For.next_循环；若规定先判断循环进行条件，可使用_D。while.1。印_ 循环或一while.Wend_ 循环。15.如下语句输出成果是_ 3 _。a%=3.14159Print a%三、阅读下列程序，写出程序运营成果。1、Private Sub Form_Click()Static Sum As IntegerFor 1=1 to 100Sum=Sum+INext IPrint SumEnd Sub程序运营成果为：1+2+.+99+100=50502、private Sub Form_Click()A=10：b=15:c=20:d=25Print A;Spc(5);b;Spc(7)

21、;cPrint A;Spc(8);b;Space$(5);cPrint c;Spc(3)/+;Spc(3);c+dEnd Sub10(5个空格)15(7个空格)2010(8个空格)15(5个空格)2020(三个空格)+(三个空格)453、Private Sub Form_click()For i%=1 to3Foij%=1 to iPrint L Trim(Str(i%)+、*+L Trim(Str(j%)+”=;i%*j%;Next j%PrintNext i%End Sub1*1=12*1=2 2*2=43*1=3 3*2=6 3*3=94、Private Sub Commandl_Cli

22、ck()Dim a,b As IntegerA=3.4B=3.4Textl.Text=aText2.Text=bEnd SubTextl 显木3、4Text2显示35、Private Sub Form_Click()For I=1 to 5Print Tab(11-1)ForJ=1TOI*2-1Print *；NextNext iEnd Sub*四、程序设计题1、购物优惠程序。某商场为了加速促成商品流通，采用购物打折优惠办法，每位顾客一次购物(1)在 100元以上者，按九五折优惠；(2)在 200元以上者，按九折优惠；(3)300元以上者，按八折优惠；(4)500元以上者按七折优惠。在窗体上添

23、加两个文本框和一种命令按钮，规定在Textl中输入购物商品总金额，单击命令按钮，在Text2中输入优惠后价格。程序运营成果如图解所示。If Val(textl)=500 then text2=Val(textl)*0.7Else if Val(textl)=300 then text2=Val(textl)*0.85Else if Val(textl)=200 then text2=val(textl)*0.9Else if val(textl)=100 then text2=val(textl)*0.95End if2、输出100200之间不能被3 整除数，规定用D。语句一种形式来实现，程序

24、运营成果如图5 所示。窗体装入事件中加入如下代码：Dim a as integerA=100Do while a=200If(a mod 3)0 thenListl.additen str(a)End ifA=a+1loop3、编写程序，打印如下乘积表：Dim I,j as integerPrint*:spdce ：For i=3 to 12 step 3Print str(i);space(5);Next iPrintFori=15 tol8Print str(i);space(3);For j=3 to 12 step3Print str(i*j);space(4);Next jPrint

25、Next j4、设计一种计算程序。该程序顾客界面如图7 所示。规定程序运营后，顾客选中单击选按钮,则程序作10和 2 相应计算，并把计算成果在文本框中显示出来。如顾客选中加法单选按钮，则程序作10和 2 相加，计算成果12在文本框中显示出来。按结束，则退出。乘法单选按钮单击事件中添加如下代码：Textl=10*2除法单选按钮中添加如下代码：Textl=10/2加法单选按钮中添加如下代码：Textl=10+2减法单选按钮中添加如下代码：textl=10-2结束按钮中代码：end或unload me5、编写输入一种06数字，显示中文对照输出星期Function过程。程序运营成果如图8所示。文本框c

26、hange事件中代码如下：Select case val(textl)Case 0Labell.caption=星期天+chr(13)+”(Sunddy)”Case 1Labell.caption=星期一+chr(13)+(monday)Case2Labell.c叩 tion二 星期二+chr(13)+(Tuesday)”Case 3Labell.caption=星期三+chr(13)+”(Wednesday)”Case 4Labell.caption=星期四 +chr(13)+”(thursday)”Case 5LabelLcaption=星期五+chr(13)+(firday)Case 6

27、Labell.caption=星期六+chr(13)+”(saturday)”End select6、编写一种程序，当鼠标移到Picturel控件时，鼠标指针变化形状；当在Picturel控件上单击鼠标右键时，通过消息框显示You pressed right button,并再次变化鼠标指针形状。Picturel_mouseupIf button=2 then1=1Msgbox“you pressed right button”End ifEnd sub7、列表框应用程序。规定从文本框中输入姓名，然后按 添加 按钮，把姓名添加到列表框中；当选取列表框中某一项时，按 删除按钮，从列表框中删除；当

28、列表框中某一项时，按 修改按钮，把列表框中选用项送往文本框且 修改按钮变为 修改确认。在文本框内容修改好后，按 修改确认按钮，再把文本框中修改后信息送到列表框月.修改确认按钮变为 修改程序运营成果如图9所示。添加按钮代码：listl.additem text 1.textTextl.text=/W删除：iflistl.textvthenListl.removeitem=listl.listindexEnd if修改：If command3.caption=修改 thenTextl.text=listl.textCommand3.caption=修改确认ElseIf command3.capti

29、on*修改确认 thenListl.list=listl.listindex=textl.textCommand3.caption=修改End ifEnd if作业3一、选取题1、Visible Basic依照计算机访问文献方式将文献提成三类，其中不涉及（B）A.顺 序 文 献 B.Unix文 献 C.二 进 制 文 献 D.随机文献2、随机文献进行文献读取单位是（B）A.字节 B 记录 C o 整个文献 D。字符3、为了使目录途径列表框D irl内容符合驱动器列表框Drivel选取，应 当（B）。A.在 Dirl_Click 事件中加入 Dirl.Path=Drivel.DriveB.在 D

30、rivel_Click 事件中加入 Dirl.Path=Drivel.DriveC.在 Dirl_Click 事件中加入 DriveLPath=Dirl.DriveD.在 Dirl_Click 事件中加入 Drivel.Path=Dirl.Drive4、为了使drivel驱动器列表框、d irl目录途径列表框和file l文献列表框能同步协调工作，需要 在（B）A.drivelChange 事件过程中加入 drivel.Drive=dirl.Path,在 dirlChange 事件过程中加入dirl.Path=filel.Path 代码。B.drivelChange 事件过程中加入 dirl.

31、Path=drivel.Drive,在 dirlChange 事件过程中加入filel.Path=dirl.Path 代码。C.dirlChange事件过程中加入dirl.Path=drivel.Drive,在 filelClick事件过程中加入filel.Path=filel.fileName 代码。D.dirlChange 事件过程中加l 入 dirl.Path=drivel.Drive,在 filelClick 事件过程中加入 filel.Path=dirl.Path 代码。5、下面关于顺序文献描述对的是（A）A.每条记录长度必要相似B.可通过编程对文献中某条记录以便地修改C.数据只能以

32、ASCII码形式存储在文献中，因此可通过文本编辑软件显示D.文献组织构造复杂6、KILL语句在VB语言中功能是（C）。A.清内存 B。清病毒 C o 删除磁盘上文献 D o清屏幕7、可用来变化坐标度量单位是（D）A.Drawstyle 属性 B.DrawWidth 属性 C.Scale 办法 D.ScaleMode 属性8、如下属性和办法中，可重定义坐标系是（C）A.Drawstyle 属性 B.DrawWidth 属性 C.Scale D.ScaleMode 属性9、当用Line办法画直线后，当前坐标在（C）A.(0,0)B.直 线 起 点 C.直 线 终 点 D.容器中心10、Line(2

33、00,200)-Step(500,500)将在窗体(C)画始终线。A.(200,200)到(500,500)B.(200,200)到(300,300)C.(200,200)到(700,700)D.(300,300)到(500,500)11、设立对象边框类型属性是(B)。A.Drawstyle B.Borderstyle C.DrawWidth D.ScaleMode12、为了清除图片框Picturel中图形，应采用对的办法是(B)A.选取图片框，然后按Del键B.执行语句 Picture 1.picture=LoadPicture(,z)C.执行语句 Picturel.picture=D.选取

34、图片框，在属性窗口中选取Picture属性条，然后按回车键13、绘制各种形状图形，需要设立Shape控 件(A)属性。A.Shape B.Borderstyle C.FillStyle D.Style14、绘制各种形状直线，需要设立Line控 件(B)属性。A.Shape B.Borderstyle C.FillStyle D.Style15、如果准备读文献，打开顺序文献、text.dat”对的语句是(C)A.open text.dat for write As#1B.open text.datH for Binary As#1C.open text.datH for Input As#1D.

35、open text.datz,for Random As#116、如果准备向随机文献中写入数据，对的语句是(C)A.Print#1,rec B.Write#1,rec C.Put#1,rec D.Get#1,rec17、下 歹 CommandDialogl”控件程序代码，CommandDialogl.Action=l,代 表(B)A.文 献 另 存 为 B.打开 文 献 C.色彩 D.打印18、FileFilter.Pattern=,*.bat,/程序代码执行后,会显示(A)。A 只包括扩展文献名为*.bat”文献 B 第一种bat文献C.包括所有文献 D 会显示磁盘途径19、下列数据对象模型

36、中采用。LEDB访问数据库是(C)。A.DAO B.RDO C.ADO D.RDO 和 ADO2 0.设 ADOrs为 Recordset对象，从 学生基本状况表”中获取所有记录语句是(B)A.ADOrs.New Select*From 学生基本状况表B.ADOrs.Open Select*From 学生基本状况表C.ADOrs.Execute Select*From 学生基本状况表”D.ADOrs.Select Select*From 学生基本状况表21、VB中将变量x l声明为Excel应用程序对象办法是(A)A.Dim xl As Excel.Application B.Dim xl A

37、s Excel.WorkbookC.Dim xl As Excel.Worksheet D.Dim xl As Excel.Worksheets二、填空题1、如果要新建一种顺序文献，用 Open语句时:操作方式核心词是output 2.在 Visual Basic程序中实现复制文献、C：”到 D:盘根目录下语句为 filecopy c:,d:,3.在 Visual Basic 程序中实现删除文献D:tem.tmp语句为_kill,d:tem.tmp/,4.按文献号为1 打开顺序文献SEQNEW.DAT,用于写入数据，语句为_ _ _ open,/SEQNEW.DAT,z for output

38、as#1。5.按文献号为2 打开顺序文献SEQOLD.DAT,用于从该文献读出数据,语句为 open SEQOLD.DAr for input as#2 6.若窗体左上角坐标为(-200,250),右下角坐标为(300,-150),则X 轴 正 向 向 右，丫轴正向向上_O7.Stretch属性设立为一false一 时，图像框可自动变化大小以适应其中图形.8.在图片框Picturel中画一种左上角在(500,500),边长为500红色实心正方形语句为_picturel.line(500,500)-step(500,500),vbred,B F。9.设 CurrentX=50,CurrentY=

39、100,执行指令1ine(100,20)-Step(300,500)”后,Current=_(400,520)_.10.使用ADO模型时，可通过_ActiveConnect_属性建立Recordset和 Connection对象连接.11.VB中将数据库分为本地数据库、远程数据库和外部数据库一三种类型.12.采用ADO模型时，当使用Open办法打开一种记录集后，与ADOrs.Fields(、学号等效语句是_ADOrs(、符号)13.ADO模型中普通可通过Connection对象Execute办法执行_ 增长一、_ 删 除 _、_修改_等三类不返回成果集SQL语句.14.设StrSQL、S tr

40、l为字符串变量洪中S trl值为001,那么执行赋值语句StrSQL=,zSelect*from Tabell Where 学号=+Strl+后,StrSQL 值等于select.*from tabell where 学号=001_.15.在V B 中，将 Foxpro称为外部数据库,Access称为一本地数据库SQL Server称为远程数据库三、程序设计题1、在窗体上建立一种驱动器列表框、目录列表框、文献列表框、图片框。规定程序运营后，驱动器列表框Drivel默认驱动器设立为C 盘，选取Filel中所列确图片文献(*.Bmp和*.jpg),则相应图片显示在图片框Picturel中。程序运营

41、成果如图10所示。解：根据图10设计界面，文献列表框pattern属性设立为：*.Bmp；*.jpg驱动器列表框change事件中添加如下代码：chdrive drivel.drivedirl.path=drivel.drive目录列表框change事件中添加如下代码：chdir dirl.pathfilel.path=dirl.path文献列表框click事件中添加如下代码：picturel.picture=loadpicture filel.filename2.余弦曲线方程为y=cosx,画出x 从-2到 2 确余弦曲线，并在坐标轴上标出刻度，如图11所示。如图窗体单击事件中添加如下代码：

42、Form 1.sea Ie(-2*3.14159,1)-(2*3.14159,-1)Forml.line(-2*3.14159,0)-(2*3.14159,0)Forml.line(0,1)-(0,-1)Forml.currentx=0.2：forml.currentY=-0.1:print 0Forml.currentx=-3.2：forml.currentY=-O.liprint-pi”Forml.currentx=3.3：forml.currentY=-0.1:print piForml.currentx=-6.2：forml.currentY=-0.1:printForml.curre

43、ntx=5.7：forml.currentY=-0.1:print 2piForml.currentx=0.2：forml.currentY=0.5:print 0.5”Forml.currentx=0.2：forml.currentY=-0.5:print-0.5For I=-6.282 to 6.282 step 0.08Forml.pset(I,cos(I)Next I3,使用Line控件显示直线，并且可以显示直线线宽和线型,程序运营界面如图12所示.如图添加代码如下复选框单击事件代码：If checkl.value=1 thenLinel.border width=4日 seLinel

44、.border width=1End if实线、虚线、单选框要弄成一种optionl单选框控件数组。单选框单击事件代码：Select case indexCase 0Linel.borderstyle=1Case 1Linel.borderstyle=2Case 2Linel.borderstyle=3End select4.使用Shape控件显示几种图形,并可以设立图形边框和填充效果等,程序运营界面如图13所示.一方面按图作出程序界面。形状框架里单选框要做成optionl控件数组，边框类型框架里单选框最成option2控件数组，填充风格框架里单选做成option3控件数组。Option 1

45、单击事件代码如下：Select case indexCase 0Shapel.shape=0Case 1Shapel.shape=1Case 2Shapel.shape=3Case 3Shapel.shape=4End selectOption 2 单击事件代码如下：Select case indexCase 0Shapel.borderstyle=0Case 1Shapel.borderstyle=2Case 2Shapel.borderstyle=1Case 3Shapel.borderstyle=3Case 4Shapel.borderstyle=4End selectOption 3单

46、击事件代码如下：Select case indexCase 0Shapel.fillstyle=1Case 1Shapel.fillstyle=1Case 2Shapel.fillstyle=3Case 3Sh叩e l.fillstyle=6End select5.使用SQL Serverm Access建立名称为学生数据库，并在其中创立students数据库表,其构造及初始记录如表1所示,使用ADO对象和MSFIexGrid控件设计数据库列表显示程序,程序设计界面和运营成果如图14、图15所示。表1学号姓名专业001张红软件专业003李强会计专业002王丽软件专业声名对象变量ADOcn,用于

47、创立与数据库连接Private ADOcn As connectionReadfromtablePrivate sub readfromtable（）Dim strtmp As stringDim ADOrs As new recordsetADOrs.activeconnection=ADOcnADOrs.open select*from students order by 学号MSFIexgridl.clearMSFIexgridl.rows=0MSFIexgridl.cols=3Strtmp=学号 +vbtab+姓名+vbtdb+”专业”MSFIexgridl.additem strtm

48、pDo while not ADOrs.eofStrtmp=ADOrs（学号与+vbtab+ADOrs（姓名）+vbtab+ADOrs（、专业）MSFIexgridl.addttem strtmpADOrs movenextLoopMSFIexgridl.fixedcols=0MSFIexgridl.fixedrows=1End subPrivate sub form_load（）Dim strDB As stringstrDB=,zprovider=SQLOLEDB;LSF;User ID=sa;password二;database 学生if ADOcn is nothing thenset

49、 ADOcn=new connectionADOcn.open strDBEnd ifReadfrom tableEnd subPrivate sub commandl_click（）Unload meEnd sub作业4一、选取题l WinsockServe.LocalPort=10001 语句含义是（A）。A、设立侦听端口 B、设立计算机IP地址 C、设立中断地址 D、设立通讯合同2、当Winsock控件处在关闭状态时，其 State属性值是（B）。A、1 B、0 C、2 D、63、相对于UDP合同而言，TCP合同是一种（A）。A、面向连接合同B、无连接合同C、计算机间不建立连接D、合用于

50、传送少量数据4、VB程序中普通不会产生错误提示（D）。A、编 译 错 误 B、实 时 错 误 C、运营时错误 D、逻辑错误5、VB程序编译错误普通可通过VB集成环境何种设立，自动检测（B）。A、规定变量声明B、自动语法检测C、自动显示迅速信息量D、主线无法自动检测6、VB程序中设立断点按键是（C）。A、F5 键 B、F6 键 C、F9 键 D、F10 键7、On Error GoTo ErrLB 语句中，E rLB 含义是（A）。A、行标记号 B、SUB过 程 名 C、FUNCTION过 程 名 D、错误号8、Err对象中，用来表达错误描述属性是（B）。A ErrNo B、Descriptio