电大_Visual_Basic程序设计形成性考核册_参考答案小抄.pdf

Visual Basic程序设计形成性考核册作业及答案 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、状态栏 D、工具栏5、如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格 式是（B）oA、text.Mytext B、Mytext.Text C、Mytext.（Text）D、Mytext*Text6、下列可以激活属性窗口的操作是（D）。A、用鼠标双击窗体的任何部位 B、执行工程菜单中的属性窗口命令C、按 Ctrl+F 4 D、按 F 47、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属 性，预先应执行的操作是（A）。A、单击窗体上没有控件的地方 B、单击任一个控件 C、不执行任何操作D、双击窗体的标题栏8、如果要在文本框键入字符时，只显示某个字符，如果（*）,应设置文本框的（B）属性。A、Caption B、PasswordChar C Text D、Char9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（A）属性设置为True.A Locked B、Multi Li ne C TabStop D Visible10对于定时器（Tiner）控制，设置其定时是否开启的属性是（C）A、Index B、Tag C、Enabled D、Left11、要在窗口体F ornl内显示myfrm”使用的语句是（C）A、F orm.caption=myfrm,B F ornl.caption=myfrmz,C、forml.printmyfrm/,D form.printmyfrrrT12、对象的性质和状态特征称为（C）A、事件 B、方法 C、属性 D、类13、下列正确的赋值语句是（B）A、x+y=20 B、y=x+20 C 3x=y D、s=14、当使用上下文相关的帮助时，选择要帮助的内容，然后按（D）键，就可出现MSD N窗口 直接显示所需的帮助信息。A、Help B、F 10 C、Ese D、F l15、将调试通过的工程经文件菜单的生成.exe文件编绎成名.exe后，将该可执行文件放到 其它机器上不能运行的主要原因是(D)。A、运行的机器上无VB系统 B、缺少.frm窗体文件 C、该执行文件有病毒 D、以上原因都不对 二、填空题1、当进入VB集成开发环境后，发现没有显示工具箱窗口。应选择 视图菜单的 工具箱 选项，使工具箱窗口显示。2、在VB中，事件过程名由对象名和事件名构成。3、工程文件的扩展名是vbp,窗体文件扩展名是frm。4、对象时代码和数据的集合，例如，Visual Basic中的 窗体、按钮、文本框等都是对象。5、对象的方法用于实施某种操作功能。当方法不需要任何参数并且也没有返回值，调用对 象的方法的格式为 对象名.方法名。例如对窗体F orml使用Show方法，应写成 forml.show。6、要使文本框显示滚动条，需要将其Scroll Bars属性设置为3。7、欲设置定时的时间间隔为4秒，则属性Interval的值为4000。8、要使标签框的大小随Caption属性做自动调整，应将AutoSize属性设置为True。9、通过窗体布局窗口可以在设计时直观地调整窗体在屏幕的位置。10、要想在代码中给名为txtshow的文框赋予文本：GOOD WORK!时，应当编写的语句 是 txtshow.text=,z GOOD WORK!。11、若命令按钮的名称为Cmdopen,程序要求单击以上命令按钮，打开一个窗口 frml,请对以 下事件过程填空。Private Sub Cmdopen click()F rml.showEnd Sud12、事件就是对象上所发生的事情，Visual Basic中的事件如单击、装入、鼠标移动等。一个对象响应的事件可以有 多个，用户不能建立新的事件。事件过程是指 响应某个事件后所执行的代码。假设某一事件过程如下：Private Sub cmdl_Click()F orml.Caption=,zVB 示例”End Sub则响应过程的对象名是cmdl,事件名是Click。13、对象的方法用于在对象上实施某种操作功能。当方法不需要任何参数并且也没有返回值,调用对象的方法格式为 对象名.方法名，例如，对窗体F orml使用Show方法，应写 成 F orml.Show。14、为了在编写代码时能自动语法检查，必须执行工具 菜单中的选项 命令，打开选项对话框，然后选择编辑器选项卡中的自动语法检测。15、定时器(Timer)控件可识别的事件是Timer,了生该事件的时间间隔定时由定时器 的Interval属性设置，其单位为毫秒。三、问答题1、什么是可视化编程和事件驱动？答：可视化编程是指无须编程，仅通过直观的操作方式即可完成界面的设计工作的这种编程方 式。当VB的应用程序运行后，系统处于等待状态，当某个事件发生后，程序就去执行此事件的事 件过程，当这个事件过程执行完后，系统又处于等待另一个事件发生的状态，这就是事件驱动 程序方式。2、对象、属性、事件和文件之间的关系如何？答：对象是代码和数据的封装体。对象的操作通过与该对象有关的属性、事件、方法来描述。属性是一个对象的基本特性，每个对象都有它自己的属性。方法是对象要执行的动作。事件是在对象上所发生的事情。3、简述事件驱动机制与传统编程方式的不同。答：传统的面向过程的应用程序中，应用程序自身控制了执行那一部分代码按何种顺序执行代 码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流 程。而事件驱动机制则由用户来决定执行的路线。这就是两者的不同。4、简述事件驱动的工作过程。答：事件驱动的工作过程如下：(1)启动应用程序，装载和显示窗体。(2)窗体或窗体上的 控件等待事件的发生。(3)当某个事件发生后，执行其对应的事件过程代码。(4)重复执行(2)和(3),直到遇到END语句或单击结束按钮停止程序的运行。四、程序设计题1、在窗体上添加一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为隐藏文本 框和显示文本框”。当单击第一个命令按钮时，文本框消失；而当单击第二个命令按钮时，文 本框重新出现，并在文本框中显示VB程序设计”(字体大小为16)。程序运行界面如图所示。图1解：隐藏文本框”按钮中的代码为：Textl.Visible=F alse显示文本框“按钮中的代码为：Textl.Visible=TrueTextl.Text=,VB 程序设计”Textl.F ontSize=162、设计一个计算程序。该程序用户界面如图2所示，由四个文本框：文本框1(textl)、文 本框2(text2)、文本框3(text3)、文本框4(text4),和三个按钮:命令按钮1(commandl)、命令按钮2(command2)、命令按钮3(commands)组成。程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。解：commandl 中的代码为：textl=J text2=J text3=J text4=w,command2中的代码为:text4=(val(Textl)+val(Text2)+val(Text3)/3 command2中的代码为：End3、编写一收款计算程序。要求用户输入商品的单价、数量和折扣后，单击计算按钮显 示应付款，单击清除按钮，清除文本框中所有的数据。程序运行界面如图3所示。答：计算按钮的代码：text4=val(Textl)*val(Text2)*val(Text3)/100清除按钮的代码：textl=：text2=：text3=：text4=”作业2一、选择题1.按照变量的作用域可将变量划分为(B)。A、公有、私有、系统 B、全局变量、模块级变量、过程变量C、动态、常数、静态 D、Public、Private Protected2.可获得字符的ASCII码的函数是(C)。A、Vai B、F ix C、Asc D、Chr3、要退出D o.Loop循环，可使用的语句的(D)语句。A、Exit B、Exit F or C、End D o D、Exit D o4.把数值型转换为字符串型需要使用的函数是(B)。A、Vai B、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(ABCD E)的值为(C).A.5ABCD E B.-5ABCD E C.10 D.O9.在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写，可 以在行末使用续行字符(A),表示下一行是当前行的继续.A.一个空格加一个下划字符(_)B.一个下划字符(_)C.直接回车 D.一个空格加一个字符(一)lOSub过程与F unction过程最根本的区别是(D).A.Sub过程可以使用Call语句或直接使用过程名调用，而F unction过程不可以.B.F unction过程可以有参数，Sub过程不可以.C.两种过程参数的传递方式不同.D.Sub过程的过程名不能返回值，而F unction过程能够通过过程名返回值.11.X是小于80的非负数，用VB表达式表示正确的是(C).A.0X80 B,0=X80C.0=x and x80 D,0=x Orx8012.在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为(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.KeyPress16.要利用公用对话框控件来显示打开文件”对话框，需要调用控件的(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).D imA(-3 To 5)As IntegerA.6 B.7 C.8 D.920.有如下程序段：D im strl As String*5Strl=Visual Basic”当该段程序被执行完时，变量strl的值为(B).A.Msual B/Visua C,V D/Visual Basic二、填空题1.菜单一般有一下拉式_和_弹出式_两种基本类型。2.通用对话框控件可显示的常用对话框有打开_、保存_、颜色_、字体_、_打印3.组合框具有文本框和列表框两种控件的基本功能。4.要使数组的默认下标从、1开始，则应在窗体或标准模块代码的声明部分使用语句Option Base l_o5.调用Sub过程时，使用_call_语句，语句用于把程序控制传送到一个Visual Basic的Sub 过程。6.若已建立了 F orml和F orm2两个窗体，默认启动窗体为F orml。通过工程菜单属性 命令的通用选项卡，可将启动窗体设置为F orm2。在程序中若要显示F orml窗体，则执行 _F orm l.show_ 语句。7.列表框中项目的序号是从_0_开始的。8.Sub过程与F unction过程最根本的区别是_Sub过程名无返回值,F unction过程名有返回值。9.VB的代码存储在模块中。在VB中提供了三种类型的模块：_类模块_、一窗体模块和一标 准模块10.使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体卸载被 调用的窗体中的属性等已处于一内存中11.将下列数学式子写成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=5o 表达式 Not A=C Or4*B0 And BA+C 的值为_F alse_。14.在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使 用_F ornext_循环；若要求先判断循环进行的条件，可使用_D o whileloop_循环或_ while.Wend_循环。15.以下语句的输出结果是_3_。a%=3.14159Print a%三、阅读下列程序，写出程序运行结果。1、Private Sub F orm_Click()Static Sum As IntegerF or 1=1 to 100Sum=Sum+INext IPrint SumEnd Sub程序运行结果为：1+2+.+99+100=50502、private Sub F orm_Click()A=10:b=15:c=20:d=25Print A;Spc(5);b;Spc(7);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 F orm_click()F or i%=1 to3F orj%=1 to iPrint L Trim(Str(i%)+、*+L Trim(Str0%)+、=;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_Click()D im a,b As IntegerA=3.4B=3.4Textl.Text=aText2.Text=bEnd SubTextl 显示 3、4Text2显示35、Private Sub F orm_Click()F or I=1 to 5Print Tab(11-1)F orJ=lToI*2-lPrintNextNext iEnd Sub*四、程序设计题1、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次 购物(1)在100元以上者，按九五折优惠；(2)在200元以上者，按九折优惠；(3)300 元以上者，按八折优惠；(4)500元以上者按七折优惠。在窗体上添加两个文本框和一个命 令按钮，要求在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。语句的一种形式来实现，程序运行结 果如图5所示。窗体的装入事件中加入如下代码：D im a as integerA=100D o while a=200If(a mod 3)0 thenListl.additen str(a)End ifA=a+1loop3、编写程序，打印如下的乘积表：D im I J as integerPrint/*,/:space(5):F or i=3 to 12 step 3Print str(i);space(5);Next iPrintF ori=15 tol8Print str(i);space(3);F or j=3 to 12 step3Print str(i*j);space(4);Next jPrintNext j4、设计一个计算程序。该程序用户界面如图7所示。要求程序运行后，用户选中单击选按钮,则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮,则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。乘法单选按钮的单击事件中添加如下代码：Textl=10*2除法单选按钮中添加如下代码：Textl=10/2加法单选按钮中添加如下代码：Textl=10+2减法单选按钮中添加如下代码：textl=10-2结束按钮中代码：end或unload me5、编写输入一个06数字，显示汉字对照输出星期的F unction过程。程序运行结果如图8所 示。文本框的change事件中代码如下：Select case val(textl)Case 0Labell.caption=/,；i.M9z,+chr(13)+/(Sunday)/Case 1Labell.caption=星期一+chr(13)+”(monday)”Case2 Labell.caption=z,MMI-z,+chr(13)+,(Tuesday),Case 3La bell.caption=星期三+chr(13)+”(Wednesday)”Case 4Labell.caption=星期四”+chr(13)+”(thursday)”Case 5Labell.caption=星期五+chr(13)+”(firday)”Case 6Labell.caption=,/B Z/+chr(13)+,/(saturday),End select6、编写一个程序，当鼠标移到Picturel控件时，鼠标指针改变形状；当在Picturel控件上单击 鼠标右键时，通过消息框显示You pressed right button”,并再次改变鼠标指针的形状。Picturel_mouseupIf button=2 then1=1Msgbox you pressed right button”End ifEnd sub7、列表框应用程序。要求从文本框中输入姓名，然后按添加按钮，把姓名添加到列表框中；当选择列表框中某一项时，按删除按钮，从列表框中删除；当列表框中某一项时，按修改 按钮，把列表框中选取的项送往文本框且修改按钮变为修改确认在文本框的内容修改好 后，按修改确认按钮，再把文本框中修改后的信息送到列表框且修改确认按钮变为修改。程序运行结果如图9所示。添加按钮代码：listl.additem text 1.textTextl.text=,w删除：if listl.texto,wthenListl.removeitem=listl.listindexEnd if修改：If command3.caption=修改thenTextl.text=listl.textCommand3.caption=修改确认”ElseIf command3.caption=修改确认thenListl.Iist=listl.listindex=textl.textCommand3.caption一修改”End ifEnd if作业3一、选择题1、Visible Basic根据计算机访问文件的方式将文件分成三类，其中不包括（B）A.顺序文件B.Unix文件C.二进制文件D.随机文件2、随机文件进行文件读取的单位是（B）A.字节 Bo记录 Co整个文件 D。字符3、为了使目录路径列表框D irl的内容符合驱动器列表框D rivel的选择，应当（B）。A.在 D irl_Click 事件中加入 D irl.Path=D rivel.D riveB.在 D rivel_Click 事件中加入 D irl.Path=D rivel.D riveC.在 D irl_Click 事件中加入 D rivel.Path=D irl.D riveD.在 D irlJZIick 事件中加入 D rivel.Path=D irl.D rive4、为了使drivel驱动器列表框、dirl目录路径列表框和filel文件列表框能同步协调工作，需 要在（B）A.drivel 的 Change 事件过程中加入 drivel.D rive=dirl.Path,在 dirl 的 Change 事件过程中 加入 dirl.Path=filel.Path 代码。B.drivel 的 Change 事件过程中加入 dirl.Path=drivel.D rive,在 dirl 的 Change 事件过程 中加入 filel.Path=dirl.Path 代码。C.dirl的Change事件过程中加入dirl.Path=drivel.D rive,在filel的Click事件过程中加 入 filel.Path=filel.fileNa me 代码。D.dirl的Change事件过程中加入dirl.Path=drivel.D rive,在filel的Click事件过程中加入 filel.Path=dirl.Path 代码。5、下面关于顺序文件的描述正确的是（A）A.每条记录的长度必须相同B.可通过编程对文件中的某条记录方便地修改C.数据只能以ASCH码形式存放在文件中，所以可通过文本编辑软件显示D.文件的组织结构复杂6、KILL语句在VB语言中的功能是（C）。A.清内存 Bo清病毒 Co删除磁盘上的文件 D o清屏幕7、可用来改变坐标度量单位的是（D）A.D rawstyle 属性 B.D rawWidth 属性 C.Scale 方法 D.ScaleMode 属性8、以下的属性和方法中，可重定义坐标系的是(C)A.D rawstyle 属性 B,D rawWidth 属性 C.Scale D.ScaleMode 属性9、当用Line方法画直线后，当前坐标在(C)A.(0,0)B.直线起点C.直线终点D.容器的中心10、Line(200,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.D rawstyle B.Borderstyle C.D rawWidth D.ScaleMode12、为了清除图片框Picturel中的图形，应采取的正确方法是(B)A.选择图片框，然后按D el键B.执行语句 Picturel.picture=LoadPicture(w,)C.执行语句 Picturel.picture=D.选择图片框，在属性窗口中选择Picture属性条，然后按同车键13、绘制多种形状的图形，需要设置Shape控件的(A)属性。A.Shape B.Borderstyle C.F illStyle D.Style14、绘制多种形状的直线，需要设置Line控件的(B)属性。A.Shape B.Borderstyle C.F illStyle D.Style15、如果准备读文件，打开顺序文件、text.dat”的正确语句是(C)A.open text.dat,z for write As#1B.open text.datz/for Binary As#1C.open text.dat,z for Input As#1D.open text.dat,z for Random As#116、如果准备向随机文件中写入数据，正确的语句是(C)A.Print#1,rec B.Write#1,rec C.Put#1,rec D.Get#1,rec17、下歹(TCommandD ialogl”控件程序代码，CommandD ialogl.Action=l,代表(B)A.文件另存为B.打开文件C.色彩 D.打印18、F ileF ilter.Pattern=,*.bat,/程序代码执行后,会显示(A)。A只包含扩展文件名为的文件 Bo第一个bat文件C.包含所有的文件 D o会显示磁盘的路径19、下列数据对象模型中采用OLE D B访问数据库的是(C)oA.D AO B.RD O C.AD O D.RD O 和 AD O20.设AD Ors为Recordset对象，从学生基本情况表”中获取所有记录的语句是(B)A.AD Ors.New Select*F rom 学生基本情况表B.AD Ors.Open Select*F rom 学生基本情况表C.AD Ors.Execute Select*F rom 学生基本情况表”D.AD Ors.Select Select*F rom 学生基本情况表21、VB中将变量xl声明为Excel应用程序对象的方法是(A)A.D im xl As Excel.Application B.D im xl As Excel.WorkbookC.D im xl As Excel.Worksheet D.D im 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.D AT,用于写入数据，语句为_open SEQNEW.D AT for output as#1 o5.按文件号为2打开顺序文件SEQOLD.D AT,用于从该文件读出数据,语句为_open,ZSEQOLD.D AT,Z for input as#2。6.若窗体的左上角坐标为(-200,250),右下角坐标为(300,-150),则X轴的正向向右，Y轴的正 向向上7Stretch属性设置为_falsejl寸，图像框可自动改变大小以适应其中的图形.8.在图片框Picturel中画一个左上角在(500,500),边长为500的红色实心正方形的语句为 _picturel.line(500,500)-step(500,500),vbred,BF。9.设 CurrentX=50,CurrentY=100,执行指令line(100,20)-Step(300,500),Current=_(400,520)_.10.使用AD O模型时，可通过_ActiveConnect_属性建立Recordset和Connection对象的连接.U.VB中将数据库分为本地数据库、远程数据库和外部数据库三种类型.12.采用AD O模型时，当使用Open方法打开一个记录集后，与AD Ors.F ields。学号等效的语句 是 _AD Ors。符号)13.AD O模型中一般可通过Connection对象的Execute方法执行增加_、_删除_、_修改 等三类不返回结果集的SQL语句.14.设StrSQL、Strl为字符串变量淇中Strl的值为001”,那么执行赋值语句StrSQL=Select*from Tabell Where 学号=+Strl+后,StrSQL 的值等于select*from tabell where 学号=,001,_.15.在VB中，将F oxpro称为外部数据库,Access称为_本地数据库SQL Server称为_远程数 据库一三、程序设计题1、在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框。要求程序运行后，驱动器列表框D rivel的默认驱动器设置为C盘，选择F ilel中所列的确图片文件(*.Bmp和*.jpg),则相应的图片显示在图片框Picturel中。程序运行结果如图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所示。如图窗体的单击事件中添加如下代码：F orml.scale(-2*3,14159,1)-(2*3.14159,-1)F orml.line(-2*3.14159,0)-(2*3.14159,0)F orml.line(0,1)-(0,-1)F orml.currentx=0.2：forml.currentY=-0.1:print 0F orml.currentx=-3.2：forml.currentY=-0.1:print-piF orml.currentx=3.3：forml.currentY=-O.l:print piF orml.currentx=-6.2：forml.currentY=-O.l:print-2pi”F orml.currentx=5.7：forml.currentY=-O.l:print 2pi”F orml.currentx=0.2：forml.currentY=0.5:print 0.5”F orml.currentx=0.2：forml.currentY=-0.5:print-0.5”F or I=-6.282 to 6.282 step 0.08F orml.pset(I,cos(I)Next I3,使用Line控件显示直线，并且可以显示直线的线宽和线型.程序运行界面如图12所示.如图添加代码如下复选框的单击事件代码：If checkl.value=1 thenLinel.border width=4ElseLinel.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单击事件代码如下：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单击事件代码如下：Select case indexCase 0Shapel.fillstyle=1Case 1Shapel.fillstyle=1Case 2Shapel.fillstyle=3Case 3Shapel.fillstyle=6End select5.使用SQL Server或Access建立名称为“学生的数据库,并在其中创建students”的数据库表，其结构及初始记录如表1所示.使用AD O对象和MSF IexGrid控件设计数据库列表显示程序.程 序的设计界面和运行结果如图14、图15所示。表1学号 姓名 专业2004001 张红 软件专业2004003 李强 会计专业2004002 王丽 软件专业声名对象变量AD Ocn,用于创建与数据库的连接Private AD Ocn As connectionReadfromtablePrivate sub readfromtable()D im strtmp As stringD im AD Ors As new recordsetAD Ors.activeconnection=AD OcnAD Ors.open select*from students order by 学号MSF Iexgridl.clearMSF Iexgridl.rows=0MSF Iexgridl.cols=3Strtmp=学号+vbtab+姓名+vbtab+”专业”MSF Iexgridl.additem strtmpD o while not AD Ors.eofStrtmp=AD Ors。学号？+vbtab+AD OrsC 姓名)+vbtab+AD OrsC专业”)MSF Iexgridl.addttem strtmpAD Ors movenextLoopMSF Iexgridl.fixedcols=0MSF Iexgridl.fixedrows=1End subPrivate sub form_load()D im strD B As stringstrD B=,/provider=SQLOLED B;LSF;llser ID=sa;password=;database=学生”if AD Ocn is nothing thenset AD Ocn=new connectionAD Ocn.open strD BEnd ifReadfrom tableEnd subPrivate sub commandl_click()Unload meEnd sub作业4一、选择题1、WinsockServer.Local Port=10001 语句的含义是（A）。A、设置侦听端口 B、设置计算机IP地址 C、设置中断地址 D、设置通讯协议2、当Winsock控件处于关闭状态时，其State属性的值是（B）。A、1 B、0 C、2 D、63、相对于UD P协议而言，TCP协议是一种（A）。A、面向连接的协议B、无连接协议C、计算机间不建立连接D、适用于传送少量