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、按 CtH+F4 D、按 F47、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属 性，预先应执行的操作是（A）。A、单击窗体上没有控件的地方 B、单击任一个控件 C、不执行任何操作D、双击窗体的标题栏8、如果要在文本框键入字符时，只显示某个字符，如果（*）,应设置文本框的（B）属性。A、Caption B、PasswordChar C、Text D、Char9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（A）属性设置为True.A Locked B、MidtiLine C、TabStop DVisible10对于定时器（Tiner）控制，设置其定时是否开启的属性是（C）A、Index B、Tag C、Enabled D、Left11、要在窗口体Fornl内显示myfrm”使用的语句是（C）A、Form.caption=myfrmB、Fornl.caption=myfrm,C、forml.printmyfrm,D form.printmyfrm”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集成开发环境后，发现没有显示工具箱窗口。应选择 视图菜单的 工具箱 选项，使工具箱窗口显示。2、在VB中，事件过程名由对象名和事件名构成。3、工程文件的扩展名是vbp,窗体文件扩展名是frm。4、对象时代码和数据的集合，例如，Visual Basic中的 窗体、按钮、文本框等都是对象。5、对象的方法用于实施某种操作功能。当方法不需要任何参数并且也没有返回值，调用对 象的方法的格式为 对象名.方法名。例如对窗体Forml使用Show方法，应写成 forml.show。6、要使文本框显示滚动条，需要将其ScrollBars属性设置为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()Frml.showEnd Sud12、事件就是对象上所发生的事情，Visual Basic中的事件如单击、装入、鼠标移动等。一个对象响应的事件可以有 多个，用户不能建立新的事件。事件过程是指 响应某个事件后所执行的代码。假设某一事件过程如下：Private Sub cmdl_Click()Forml.Caption=,zVB 示例”End Sub则响应过程的对象名是cmdl,事件名是Click。13、对象的方法用于在对象上实施某种操作功能。当方法不需要任何参数并且也没有返回值,调用对象的方法格式为对象名.方法名，例如，对窗体Forml使用Show方法，应写成 Forml.Show。14、为了在编写代码时能自动语法检查，必须执行工具 菜单中的选项 命令，打开选项对话框，然后选择编辑器选项卡中的自动语法检测。15、定时器(Timer)控件可识别的事件是Timer,了生该事件的时间间隔定时由定时器 的Interval属性设置，其单位为毫秒。三、问答题1、什么是可视化编程和事件驱动？答：可视化编程是指无须编程，仅通过直观的操作方式即可完成界面的设计工作的这种编程方 式。当VB的应用程序运行后，系统处于等待状态，当某个事件发生后，程序就去执行此事件的事 件过程，当这个事件过程执行完后，系统又处于等待另一个事件发生的状态，这就是事件驱动 程序方式。2、对象、属性、事件和文件之间的关系如何？答：对象是代码和数据的封装体。对象的操作通过与该对象有关的属性、事件、方法来描述。属性是一个对象的基本特性，每个对象都有它自己的属性。方法是对象要执行的动作。事件是在对象上所发生的事情。3、简述事件驱动机制与传统编程方式的不同。答：传统的面向过程的应用程序中，应用程序自身控制了执行那一部分代码按何种顺序执行代 码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流 程。而事件驱动机制则由用户来决定执行的路线。这就是两者的不同。4、简述事件驱动的工作过程。答：事件驱动的工作过程如下：(1)启动应用程序，装载和显示窗体。(2)窗体或窗体上的 控件等待事件的发生。(3)当某个事件发生后，执行其对应的事件过程代码。(4)重复执行(2)和(3),直到遇到END语句或单击结束按钮停止程序的运行。四、程序设计题1、在窗体上添加一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为隐藏文本 框和显示文本框”。当单击第一个命令按钮时，文本框消失；而当单击第二个命令按钮时，文 本框重新出现，并在文本框中显示VB程序设计”(字体大小为16)。程序运行界面如图所示。图1解：隐藏文本框”按钮中的代码为：Textl.Visible=False显示文本框”按钮中的代码为：Textl.Visible=TrueTextl.Text=,zVB 程序设计Textl.FontSize=,/162、设计一个计算程序。该程序用户界面如图2所示，由四个文本框：文本框1(textl)、文 本框2(text2)、文本框3(text3)文本框4(text4),和三个按钮：命令按钮1(commandl)、命令按钮2(command2)、命令按钮3(command3)组成。程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。解：commandl 中的代码为：textl=:text2=:text3=J text4=”command2中的代码为:text4=(val(Textl)+val(Text2)+val(Text3)/3command2中的代码为：End3、编写一收款计算程序。要求用户输入商品的单价、数量利折扣后，单击计算按钮显 示应付款，单击清除按钮，清除文本框中所有的数据。程序运行界面如图3所示。答：计算”按钮的代码：text4=val(Textl)*val(Text2)*val(Text3)/100清除按钮的代码：textl=w,：text2=:text3=:text4=作业2一、选择题1.按照变量的作用域可将变量划分为(B)。A、公有、私有、系统 B、全局变量、模块级变量、过程变量C、动态、常数、静态 D、Public、Private.Protected2.可获得字符的ASCH码的函数是(C)oA、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、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),表示下一行是当前行的继续.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.在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为(B)A.加号(+)B.减号(-)C.星号(*)D.感叹号13.如果要在程序中显示一个弹出式菜单，那么要调用Visual Basic中提供的方法是(D).A.Print B.Move C.Refresh D.PopupMenu14.F列可以用来存储图像供其他对象使用的控件是(C).A.ToolBar B.Statu rs Bar 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).DimA(-3 To 5)As IntegerA.6 B.7 C.8 D.920.有如下程序段：Dim strl As String*5Strl=z,Visual Basic”当该段程序被执行完时，变量strl的值为(B).A/Visual B.Msua C：N D/Visual Basic二、填空题1.菜单一般有一下拉式_和_弹出式两种基本类型。2.通用对话框控件可显示的常用对话框有打开_、保存_、颜色_、字体_、_打印3.组合框具有一文本框_和_列表框一两种控件的基本功能。4.要使数组的默认下标从、1开始，则应在窗体或标准模块代码的声明部分使用语句Option Base l_o5.调用Sub过程时，使用_call_语句，语句用于把程序控制传送到一个Visual Basic的Sub 过程。6.若已建立了 Forml和Form2两个窗体，默认启动窗体为Forml。通过工程菜单属性 命令的通用选项卡，可将启动窗体设置为Form2。在程序中若要显示Forml窗体，则执行 _Form l.show_ 语句。7.列表框中项目的序号是从)_开始的。8.Sub过程与Function过程最根本的区别是_Sub过程名无返回值,Function过程名有返回值。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逻辑表达式。(Dlx12: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*BA2 And BA+C 的值为_False_。14.在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使 用_Fornext_循环；若要求先判断循环进行的条件，可使用_Do whileloop_循环或_ 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);cPrint A;Spc(8);b;Space$(5);cPrint c;Spc(3);+”;Spc;c+dEnd Sub10(5个空格)15(7个空格)2010(8个空格)15(5个空格)2020(三个空格)+(三个空格)453、Private Sub Form_click()For i%=1 to3Forj%=1 to iPrint L Trim(Str(i%)+、*+L Trim(Str(j%)+*j%;Next j%PrintNext i%End Sub1*1=12*1=2 2*2=43*1=3 3*2=6 3*3=94、Private Sub Command l_Click()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)For J=1 To I*2-1PrintNextNext 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=va I(text 1)*0.9 5End if2、输出100200之间不能被3整除的的数，要求用D。语句的一种形式来实现，程序运行结 果如图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/*,/:space(5):For i=3 to 12 step 3Print str(i);space(5);Next iPrintFor I=15 tol8Print str(i);space(3);For 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数字，显示汉字对照输出星期的Function过程。程序运行结果如图8所o文本框的change事件中代码如下：Select case val(textl)Case 0Labell.caption=星期天+chr(13)+”(Sunday)”Case 1Labell.caption=星期一+chr(13)+”(monday)”Case2 Labell.caption=星期二+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=/A,/+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.text,wthenListl.removeitem=listl.listindexEnd if修改：If command3.caption=修改thenText 1.text=I i st 1.textCommands.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、为了使目录路径列表框Dirl的内容符合驱动器列表框Drivel的选择，应当（B）。A.在 Dirl_Click 事件中加入 Dirl.Path=Drivel.DriveB.在 Drivel_Click 事件中加入 Dir 1.Path=Drive 1.DriveC.在 Dirl_Click 事件中加入 Drivel.Path=Dirl.DriveD.在 Dirl_Click 事件中加入 Drivel.Path=Dirl.Drive4、为了使drivel驱动器列表框、dirl目录路径列表框和filel文件列表框能同步协调工作，需 耍在（B）A.drivel 的 Change 事件过程中加入 drivel.Drive=dirl.Path,在 dirl 的 Change 事件过程中 加入 dirl.Path=filel.Path 代码。B.drivel 的 Change 事件过程中加入 dirl.Path=drivel.Drive,在 dirl 的 Change 事件过程 中加入 filel.Path=dirl.Path 代码。C.dirl的Change事件过程中加入dirl.Path=drivel.Drive,在filel的Click事件过程中加 入 filel.Path=filel.fileName 代码。D.dirl的Change事件过程中加入dirl.Path=drivel.Drive,在filel的Click事件过程中加入 filel.Path=dirl.Path 代码。5、下面关于顺序文件的描述正确的是（A）A.每条记录的长度必须相同B.可通过编程对文件中的某条记录方便地修改C.数据只能以ASCH码形式存放在文件中，所以可通过文本编辑软件显示D.文件的组织结构复杂6、KILL语句在VB语言中的功能是（C）。A.清内存 Bo清病毒 Co删除磁盘上的文件 Do清屏幕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(200,200)-Step(500,500)将在窗体(C)画一直线。A.(200,200)到(500,500)B.(200,200)到(300,300)C.(200,200)到(700,700)D.(300,300)至U(500,500)11、设置对象的边框类型的属性是(B)。A.Drawstyle B.Borderstyle C.DrawWidth D.ScaleMode12、为了清除图片框Picturel中的图形，应采取的正确方法是(B)A.选择图片框，然后按Del键B.执行语句 Picturel.picture=LoadPicture(WA)C.执行语句 Picturel.picture=w/D.选择图片框，在属性窗口中选择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.dat,z for Binary As#1C.open text.datz,for Input As#1D.open text.dat 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=,*.batz,程序代码执行后,会显示(A)A只包含扩展文件名为“*.bat”的文件 Bo第一个bat文件C.包含所有的文件 Do会显示磁盘的路径19、下列数据对象模型中采用OLE DB访问数据库的是(C)。A.DAO B.RDO C.ADO D.RDO 和 ADO20.设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中将变量xl声明为Excel应用程序对象的方法是(A)A.Dim xl As Excel.Application B.Dim xl As Excel.WorkbookC.Dim xl As Excel.Worksheet D.Dim xl As Excel.Worksheets二、填空题1、如果要新建一个顺序文件，用Open语句时，操作方式关键词是output o2.在Visual Basic程序中实现复制文件、C：”到D:盘根目录下的语句 为 filecopy c:,d:、。3.在 Visual Basic 程序中实现删除文件D:tem.tmp”的语句为kill d:tem.tmp”。4.按文件号为1打开顺序文件SEQNEW.DAT,用于写入数据，语句为_open SEQNEW.DAT for output as#1。5.按文件号为2打开顺序文件SEQOLD.DAT,用于从该文件读出数据,语句为_open/SEQOLD.DAT/,for input as#2。6.若窗体的左上角坐标为(-200,250),右下角坐标为(300,-150),则X轴的正向向右，Y轴的正 向向上7.Stretch属性设置为_false_时，图像框可自动改变大小以适应其中的图形.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.使用ADO模型时，可通过_ActiveConnect_属性建立Recordset和Connection对象的连接.11.VB中将数据库分为本地数据库、远程数据库和外部数据库三种类型.12.采用ADO模型时，当使用Open方法打开一个记录集后，与ADOrsEelds(学号等效的语句 是 _ADOrs(符号13.ADO模型中一般可通过Connection对象的Execute方法执行增加_、删除_、修改 等三类不返回结果集的SQL语句.14.设StrSQL、Strl为字符串变量，其中Strl的值为001,那么执行赋值语句StrSQL=,Select*from Tabell Where 学号=+Strl+后,StrSQL 的值等于select.*from tabell where 学号=,001,_.15.在VB中，将Foxpro称为外部数据库,Access称为木地数据库SQL Server称为_远程数 据库一一、程序设计题1、在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框。要求程序运行后，驱动器列表框Drivel的默认驱动器设置为C盘，选择Filel中所列的确图片文件(*.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所示。如图窗体的单击事件中添加如下代码：Forml.scale(-2*3,14159,1)-(2*3.14159,-1)Forml.line(-2*3.14159,0)-(2*3.14159,0)Forml.line(0,1)-(0,T)Forml.currentx=0.2：forml.currentY=-0.1:print 0Forml.currentx=-3.2：forml.currentY=-0.1:print-piForml.currentx=3.3：forml.currentY=-O.l:print piForml.currentx=-6.2：forml.currentY=-O.l:print-2piForml.currentx=5.7：forml.currentY=-O.l:print 2piForml.currentx=0.2：forml.currentY=0.5:print 0.5”Forml.currentx=0.2：forml.currentY=-0.5:print-0.5”For I=-6.282 to 6.282 step 0.08Forml.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 0Sh 叩 el.fillstyle=1Case 1Shapel.fillstyle=1Case 2Sh叩el.fillstyle=3Case 3Sh叩el.fillstyle=6End select5.使用SQL Server或Access建立名称为学生的数据库,并在其中创建students”的数据库表，其结构及初始记录如表1所示.使用ADO对象和MSFIexGrid控件设计数据库列表显示程序.程 序的设计界面和运行结果如图14、图15所示。表1学号 姓名 专业2004001 张红 软件专业2004003 李强 会计专业2004002 王丽 软件专业声名对象变量ADOcn,用于创建与数据库的连接Private ADOcn As connectionReadfromtablePrivate sub readfromtable()Dim strtmp As stringDim ADOrs As new record setADOrs.activeconnection=ADOcnADOrs.open select*from students order by 学号MSFIexgridl.clearMSFIexg rid 1.rows=0MSFIexgridl.cols=3Strtmp=学号+vbtab+姓名+vbtab+专业”MSFIexgridl.additem strtmpDo while not ADOrs.eofStrtmp=ADOrs。学号+vbtab+ADOrsf 姓名)+vbtab+ADOrs(专业r)MSFIexgridl.addttem strtmpADOrs movenextLoopMSFIexgridl.fixedcols=0MSFIexgridl.fixed rows=1End subPrivate sub form_load()Dim strDB As stringstrDB=provider=SQLOLEDB;LSF;User ID=sa;password=;database=学生”if ADOcn is nothing thenset ADOcn=new connectionADOcn.open strDBEnd ifReadfrom tableEnd subPrivate sub commandl_click()Unload meEnd sub作业4一、选择题1、WinsockServer.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、适用于传送少量数据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 语句