电大《Visual Basic程序设计》形成性考核册作业及答案参考答案.pdf

Visual Basic程序设计形成性考核册作业及答案Visua l Ba sic程序设计形成性考核册作业及答案作业1一、选择题1、在设计应用程序时，可以查看到应用程序工程所有组成部分的窗口是（D）。A、窗体设计 B、代码 C、属性 D、工程资源管理器窗口2、窗体的loa d事件的触发时机是（B）。A、用户单击窗体时B、窗体被加载时C、窗体显示之后 D、窗体卸载时3、与传统的程序设计语言相比，Visua l Ba sic最突出的特点是（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+F4 D、按 F47、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（A）。A、单击窗体上没有控件的地方 B、单击任一个控件 C、不执行任何操作D、双击窗体的标题栏8、如果要在文本框键入字符时，只显示某个字符，如果（*）,应设置文本框的（B）属性。A、Ca ption B、Pa sswordCha r C、Text D、Cha r9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（A）属性设置为True.A Locked B、Multi Li ne C Ta bStop D Visible10对于定时器（Tiner）控制，设置其定时是否开启的属性是（C）A、Index B、Ta g C、E na bled D、Left11、要在窗口体Fornl内显示myfrm”使用的语句是（C）A、Form.ca ption=myfrmB、FornI.ca ption=myfrmC、forml.printmyfrmz,D form.printmyfrm/z12、对象的性质和状态特征称为（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、F10 C、E se D、Fl15、将调试通过的工程经文件菜单的生成.exe文件编绎成名.exe后，将该可执行文件放到其它 机器上不能运行的主要原因是(D)。A、运行的机器上无VB系统 B、缺少.frm窗体文件 C、该执行文件有病毒 D、以上原因都不对二、填空题1、当进入VB集成开发环境后，发现没有显示工具箱窗口。应选择视图菜单的 工具箱 选项，使工具箱窗口显示。2、在VB中，事件过程名由对象名和事件名构成。3、工程文件的扩展名是vbp,窗体文件扩展名是frm。4、对象时代码和数据的集合，例如，Visua l Ba sic中的 窗体、按钮、文本框等都是对象。5、对象的方法用于实施某种操作功能。当方法不需要任何参数并且也没有返回值，调用对象的 方法的格式为 对象名.方法名。例如对窗体Forml使用Show方法，应写成forml.show。6、要使文本框显示滚动条，需要将其ScrollBa rs属性设置为3。7、欲设置定时的时间间隔为4秒，则属性Interva l的值为4000。8、要使标签框的大小随Ca ption属性做自动调整，应将AutoSize属性设置为True。9、通过窗体布局窗口可以在设计时直观地调整窗体在屏幕的位置。10、要想在代码中给名为txtshow的文框赋予文本：GOOD WORK!时，应当编写的语句是 txtshow.text=,z GOOD WORK!。11、若命令按钮的名称为Cmdopen,程序要求单击以上命令按钮，打开一个窗口 frml,请对以下事 件过程填空。Priva te Sub Cmdopen click()Frml.showE nd Sud12、事件就是对象上所发生的事情，Visua l Ba sic中的事件如单击、装入、鼠标移动等。一个对象响应的事件可以有 多个，用户不能建立新的事件。事件过程是指 响应 某个事件后所执行的代码。假设某一事件过程如下：Priva te Sub cmdl_Click()Forml.Ca ption=/,VB 示例”E nd Sub则响应过程的对象名是cmdl,事件名是Click。13、对象的方法用于在对象上实施某种操作功能。当方法不需要任何参数并且也没有返回值，调用对象的方法格式为对象名.方法名，例如，对窗体Forml使用Show方法，应写 成 Forml.Show。14、为了在编写代码时能自动语法检查，必须执行工具 菜单中的选项 命令，打开选项对话框，然后选择编辑器选项卡中的自动语法检测。15、定时器(Timer)控件可识别的事件是Timer,了生该事件的时间间隔定时由定时器的Interva l 属性设置，其单位为毫秒。一、问答题1、什么是可视化编程和事件驱动？答：可视化编程是指无须编程，仅通过直观的操作方式即可完成界面的设计工作的这种编程方式。当VB的应用程序运行后，系统处于等待状态，当某个事件发生后，程序就去执行此事件的事件过 程，当这个事件过程执行完后，系统又处于等待另一个事件发生的状态，这就是事件驱动程序方式。2、对象、属性、事件和文件之间的关系如何？答：对象是代码和数据的封装体。对象的操作通过与该对象有关的属性、事件、方法来描述。属性是一个对象的基本特性，每个对象都有它自己的属性。方法是对象要执行的动作。事件是在对象上所发生的事情。3、简述事件驱动机制与传统编程方式的不同。答：传统的面向过程的应用程序中，应用程序自身控制了执行那一部分代码按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。而事 件驱动机制则由用户来决定执行的路线。这就是两者的不同。4、简述事件驱动的工作过程。答：事件驱动的工作过程如下：(1)启动应用程序，装载和显示窗体。(2)窗体或窗体上的控件 等待事件的发生。(3)当某个事件发生后，执行其对应的事件过程代码。(4)重复执行(2)和(3),直到遇到E ND语句或单击结束按钮停止程序的运行。四、程序设计题1、在窗体上添加一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为隐藏文本框 和显示文本框”。当单击第一个命令按钮时，文本框消失；而当单击第二个命令按钮时，文本框重 新出现，并在文本框中显示VB程序设计(字体大小为16)。程序运行界面如图所示。图1解：隐藏文本框“按钮中的代码为：Textl.Visible=Fa lse显示文本框“按钮中的代码为：Textl.Visible=TrueTextl.Text=,zVB 程序设计Textl.FontSize=16”2、设计一个计算程序。该程序用户界面如图2所示，由四个文本框：文本框1(textl)、文本框 2(text2)、文木框3(text3)、文本框4(text4),和三个按钮：命令按钮1(comma ndl)、命令按钮2(comma nd2)、命令按钮3(comma nds)组成。程序运行后，用户按清除按钮，则 清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。解：comma ndl 中的代码为：textl=,w：text2=:text3=,w：text4=”comma nd2中的代码为：text4=(va l(Textl)+va l(Text2)+va l(Text3)/3comma nd2中的代码为：E nd3、编写一收款计算程序。要求用户输入商品的单价、数量和折扣后，单击计算按钮显示应 付款，单击清除按钮，清除文本框中所有的数据。程序运行界面如图3所示。答：计算按钮的代码：text4=va l(Textl)*va l(Text2)*va l(Text3)/100清除按钮的代码：textl=：text2=：text3=text4=作业2一、选择题1.按照变量的作用域可将变量划分为(B)。A、公有、私有、系统 B、全局变量、模块级变量、过程变量C、动态、常数、静态 D、Public、Priva teProtected2.可获得字符的ASCII码的函数是(C)oA、Va i B、Fix C、Asc D、Chr3、要退出D o.Loop循环，可使用的语句的(D)语句。A、E xit B、E xit For C、E nd D o D、E xit D o4.把数值型转换为字符串型需要使用的函数是(B)oA、Va i 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.以下可以作为Visua l Ba sic变量名的是(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,一个空格加一个字符(一)10.Sub过程与Function过程最根本的区别是(D).A.Sub过程可以使用Ca ll语句或直接使用过程名调用，而Function过程不可以.B.Function过程可以有参数，Sub过程不可以.C.两种过程参数的传递方式不同.D.Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值.11.X是小于80的非负数，用VB表达式表示正确的是(C).A.0X80 B,0=X80C.0=x a nd x80 D.0=x Orx8012.在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为(B)A.加号(+)B.减号(-)C.星号(*)D.感叹号13.如果要在程序中显示一个弹出式菜单，那么要调用Visua l Ba sic中提供的方法是(D).A.Print B.Move C.Refresh D.PopupMenu14.下列可以用来存储图像供其他对象使用的控件是(C).A.ToolBa r B.Sta tursBa r C.Ima geList D.TreeView15.当单击工具拦上的按扭时，会触发的事件是(A).A.ButtonClick B.Cha nge C.Loa d D.KeyPress16.要利用公用对话框控件来显示打开文件对话框，需要调用控件的(B)方法.A.ShowPrinter B.ShowOpen C.ShowSa ve D.ShowColor17.对于窗体级变量,下列说法中错误的是(C).A.所在窗体的各子程序都可以访问B.其他窗体的子程序不能访问C.所在窗体发子程序不能访问用Priva te定义的窗体级变量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=,zVisua l Ba sic”当该段程序被执行完时，变量strl的值为(B).A.Visua l B.Msua C.V D/Visua l Ba sic二、填空题1.菜单一般有一下拉式_和_弹出式两种基本类型。2.通用对话框控件可显示的常用对话框有打开_、一保存_、颜色_、字体_、_打印3.组合框具有一文本框_和_列表框一两种控件的基本功能。4.要使数组的默认下标从、1开始，则应在窗体或标准模块代码的声明部分使用语句Option Ba se l_o5.调用Sub过程时，使用_ca ll_语句，语句用于把程序控制传送到一个Visua l Ba sic的Sub过程。6.若已建立了 Forml和Form2两个窗体，默认启动窗体为Forml。通过_工程.菜单属性命令 的通用一选项卡，可将启动窗体设置为Form2。在程序中若要显示Forml窗体，则执行 _Form 1,show_ 语句。7.列表框中项目的序号是从_0_开始的。8.Sub过程与Function过程最根本的区别是_Sub过程名无返回值，Function过程名有返回值。9.VB的代码存储在模块中。在VB中提供了三种类型的模块：_类模块_、一窗体模块_和_标准模 块10.使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体卸载被调用 的窗体中的属性等已处于内存中11.将下列数学式子写成Visua lBa sic表达式。(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.将下列数学式子各条件写成Visua lBa sic逻辑表达式。(l)lx12:l=x a nd xC 或 a-c=C OR(a-c)=0 a nd b=0)or(a=0 a nd b=0)13.设 A=2,B=3,C=4,D=5O 表达式 Not A=C Or4*BA2 And BA+C 的值为_Fa lse_。14.在Visua l Ba sic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用 _For.next_循环；若要求先判断循环进行的条件，可使用_D o while.Ioop_循环或_while.Wend_ 循环。15.以下语句的输出结果是_3_。a%=3.14159Print a%一、阅读下列程序，写出程序运行结果。1、Priva te Sub Form_Click()Sta tic Sum As IntegerFor 1=1 to 100Sum=Sum+INext IPrint SumE nd Sub程序运行结果为：1+2+.+99+100=50502、priva te Sub Form_Click()A=10:b=15:c=20:d=25Print A;Spc(5);b;Spc(7);cPrint A;Spc(8);b;Spa ce$(5);cPrint c;Spc(3);/,+/;Spc(3);c+dE nd Sub10(5个空格)15(7个空格)2010(8个空格)15(5个空格)2020(三个空格)+(三个空格)453、Priva te Sub Form_click()For i%=1 to3Forj%=1 to iPrint L Trim(Str(i%)+Trim(Str(j%)+、=;i%*j%;Next j%PrintNext i%E nd Sub1*1=12*1=2 2*2=43*1=3 3*2=6 3*3=94、Priva te Sub Comma ndl_Click()D im a,b As IntegerA=3.4B=3.4Textl.Text=aText2.Text=bE nd SubTextl 显示 3、4Text2显示35、Priva te Sub Form_Click()For I=1 to 5PrintTa b(11-I)For J=lTo I*2-1PrintNextNext iE nd Sub*四、程序设计题1、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物(1)在100元以上者，按九五折优惠；(2)在200元以上者，按九折优惠；(3)300元以上者,按八折优惠；(4)500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在 Textl中输入购物商品总金额，单击命令按钮，在Text2中输入优惠后的价格。程序运行结果如图 解所示。If Va l(textl)=500 then text2=Va l(textl)*0,7E lse if Va l(textl)=300 then text2=Va l(textl)*0.85E lse if Va l(textl)=200 then text2=va l(textl)*0.9E lse if va l(textl)=100 then text2=va l(textl)*0.95E nd if2、输出100200之间不能被3整除的的数，要求用D o语句的一种形式来实现，程序运行结果如 图5所示。窗体的装入事件中加入如下代码：D im a a s integerA=100D o while a=200If(a mod 3)0 thenListl.a dditen str(a)E nd ifA=a+1loop3、编写程序，打印如下的乘积表：D im I,j a s integerPrint/*,/:spa ce(5):For i=3 to 12 step 3Print str(i);spa ce(5);Next iPrintFori=15 tol8Print str(i);spa ce(3);For j=3 to 12 step3Print str(i*j);spa ce(4);Next jPrintNext j4、设计一个计算程序。该程序用户界面如图7所示。要求程序运行后，用户选中单击选按钮，则 程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程 序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。乘法单选按钮的单击事件中添加如下代码：Textl=10*2除法单选按钮中添加如下代码：Textl=10/2加法单选按钮中添加如下代码：Textl=10+2减法单选按钮中添加如下代码：textl=10-2结束按钮中代码：end或unloa d me5、编写输入一个06数字，显示汉字对照输出星期的Function过程。程序运行结果如图8所示。文本框的cha nge事件中代码如下：Select ca se va I(textl)Ca se 0La bell.ca ption=星期天+chr(13)+”(Sunda y)”Ca se 1La bell.ca ption=星期一+chr(13)+”(monda y)”Ca se2 La bell.ca ption=星期二+chr(13)+”(Tuesda y)”Ca se 3La bel l.ca ption=星期三+chr(13)+”(Wednesda y)”Ca se 4La bell.ca ption=星期四+chr(13)+”(thursda y)Ca se 5La bell.ca ption=星期五+chr(13)+”(firda y)”Ca se 6La bel l.ca ption=星期六+chr(13)+”(Sa turda y)”E nd select6、编写一个程序，当鼠标移到Picture1控件时，鼠标指针改变形状；当在Picturel控件上单击鼠标 右键时，通过消息框显示You pressed right button”,并再次改变鼠标指针的形状。Picturel_mouseupIf button=2 then1=1Msg box you pressed right button”E nd ifE nd sub7、列表框应用程序。要求从文本框中输入姓名，然后按添加按钮，把姓名添加到列表框中；当 选择列表框中某一项时，按删除按钮，从列表框中删除；当列表框中某一项时，按修改按钮，把列表框中选取的项送往文本框且修改按钮变为修改确认”。在文本框的内容修改好后，按修改 确认”按钮，再把文本框中修改后的信息送到列表框且修改确认按钮变为修改。程序运行结果如 图9所示。添加按钮代码:listl.a dditem textl.textTextl.text=”删除：if listl.textz/thenListl.removeitem=listl.listindexE nd if修改：If comma nd3.ca ption=修改thenTextl.text=listl.textComma nd3.ca ption=修改确认”E lseIf comma nd3.ca ption=修改确认thenListl.list=listl.listindex=textl.textComma nd3.ca ption=修改E nd ifE nd if作业3一、选择题1、Visible Ba sic根据计算机访问文件的方式将文件分成三类，其中不包括（B）A.顺序文件B.Unix文件C.二进制文件D.随机文件2、随机文件进行文件读取的单位是（B）A.字节 B。记录 Co整个文件 Do字符3、为了使目录路径列表框D irl的内容符合驱动器列表框D rivel的选择，应当（B）。A.在 D irl_Click 事件中加入 D irl.Pa th=D rivel.D riveB.在 D rivel_Click 事件中加入 D ir 1.Pa th=D rivel.D riveC.在 D irl_Click 事件中加入 D rivel.Pa th=D irl.D riveD.在 D irl_Click 事件中加入 D rivel.Pa th=D irl.D rive4、为了使drivel驱动器列表框、dirl目录路径列表框和filel文件列表框能同步协调工作，需要在（B）A.drivel的Cha nge事件过程中加入drivel.D rive=dirl.Pa th,在dirl的Cha nge事件过程中加入 dirl.Pa th=filel.Pa th 代码。B.drivel的Cha nge事件过程中加入dirl.Pa th=drivel.D rive,在dirl的Cha nge事件过程中加A filel.Pa th=dirl.Pa th 代码。C.dirl的Cha nge事件过程中加入dirl.Pa th=drivel.D rive,在filel的Click事件过程中加入 filel.Pa th=filel.fileNa me 代码。D.dirl的Cha nge事件过程中力口入dirl.Pa th=drivel.D rive,在filel的Click事件过程中加入 filel.Pa th=dirl.Pa th 代码。5、下面关于顺序文件的描述正确的是（A）A.每条记录的长度必须相同B.可通过编程对文件中的某条记录方便地修改C.数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示D.文件的组织结构复杂6、KILL语句在VB语言中的功能是（C）。A.清内存 Bo清病毒 Co删除磁盘上的文件 D o清屏幕7、可用来改变坐标度量单位的是（D）A.D ra wstyle 属性 B,D ra wWidth 属性 C.Sca le 方法 D.Sca leMode 属性8、以下的属性和方法中，可重定义坐标系的是（C）A.D ra wstyle 属性 B,D ra wWidth 属性 C.Sca le D.Sca leMode 属性9、当用Line方法画直线后，当前坐标在（C）A.（0,0）B.直线起点 C.直线终点 D.容器的中心10、Line（200,200）-Step（500,500）将在窗体（C）画一直线。A.(200,200)至U(500,500)B.(200,200)至U(300,300)C.(200,200)至iJ(700,700)D.(300,300)至iJ(500,500)11、设置对象的边框类型的属性是(B)。A.D ra wstyle B.Borderstyle C.D ra wWidth D.Sca leMode12、为了清除图片框Picturel中的图形，应采取的正确方法是(B)A.选择图片框，然后按D el键B.执行语句 Picturel.picture=Loa dPicture(v/)C.执行语句 Picturel.picture=wzD.选择图片框，在属性窗口中选择Picture属性条，然后按回车键13、绘制多种形状的图形，需要设置Sha pe控件的(A)属性。A.Sha pe B.Borderstyle C.Fil I Style D.Style14、绘制多种形状的直线，需要设置Line控件的(B)属性。A.Sha pe B.Borderstyle C.Fil I Style D.Style15、如果准备读文件，打开顺序文件text.da t”的正确语句是(C)A.open text.da t for write As#1B.open text.da t for Bina ry As#1C.open text.da t,f for Input As#1D.open text.da t,z for Ra ndom As#116、如果准备向随机文件中写入数据，正确的语句是(C)A.Print#1,rec B.Write#1,rec C.Put#1,rec D.Get#1,rec17、下歹Comma ndD ia logl”控件程序代码,Comma ndD ia logl.Action=l,代表(B)A.文件另存为B.打开文件C.色彩 D.打印18、FileFilter.Pa ttern=,*.ba r 程序代码执行后，会显示(A)。A只包含扩展文件名为*.ba t”的文件 Bo第一个ba t文件C.包含所有的文件 D o会显示磁盘的路径19、下列数据对象模型中采用OLE D B访问数据库的是(C)。A.D AO B.RD O C.AD O D.RD O 和 AD O20.设AD Ors为Recordset对象，从学生基本情况表”中获取所有记录的语句是(B)A.AD Ors.New Select*From 学生基本情况表B.AD Ors.Open Select*From 学生基本情况表C.AD Ors.E xecute Select*From 学生基本情况表”D.AD Ors.Select Select*From 学生基本情况表21、VB中将变量xl声明为E xcel应用程序对象的方法是(A)A.D im xl As E xcel.Applica tion B.D im xl As E xcel.WorkbookC.D im xl As E xcel.Worksheet D.D im xl As E xcel.Worksheets二、填空题1、如果要新建一个顺序文件，用Open语句时，操作方式关键词是output。2.在Visua l Ba sic程序中实现复制文件C：comma ”到D:盘根目录下的语句 为 filecopy、c:comma 。3.在 Visua l Ba sic 程序中实现删除文件D:tem.tmp”的语句为kill d:tem.tmp”。4.按文件号为1打开顺序文件SE QNE W.D AT,用于写入数据，语句为_open SE QNE W.D AT for output a s#1 o5.按文件号为2打开顺序文件SE QOLD.D AT,用于从该文件读出数据,语句为_open,SE QOLD.D AT,/for input a s#2。6.若窗体的左上角坐标为(-200,250),右下角坐标为(300,-150),则X轴的正向向右,Y轴的正向向 _o7.Stretch属性设置为_fa lse_时，图像框可自动改变大小以适应其中的图形.8.在图片框Picturel中画一个左上角在(500,500),边长为500的红色实心正方形的语句为 _picturel.line(500,500)-step(500,500),vbred,BF。9.设 CurrentX=50,CurTentY=100,执行指令“line(100,20)-Step(300,500)”jH,Current=_(400,520)_.10,使用AD O模型时，可通过_ActiveConnect_JM性建立Recordset和Connection对象的连接.11.VB中将数据库分为本地数据库、远程数据库和外部数据库三种类型.12.采用AD O模型时，当使用Open方法打开一个记录集后，与AD Ors.Fields(学号)等效的语句是 _AD Ors(符号)13.AD O模型中一般可通过Connection对象的E xecute方法执行增加_、_删除_、_修改_等 三类不返回结果集的SQL语句.14.设StrSQL、Strl为字符串变量，其中Strl的值为001,那么执行赋值语句StrSQL=z,Select*from Ta bell Where 学号=+Strl+后,StrSQL 的值等于二select.*from ta bell where 学号=001_.15.在VB中，将Foxpro称为外部数据库,Access称为本地数据库SQL Server称为远程数据 库_.一、程序设计题1、在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框。要求程序运行后，驱动 器列表框D rivel的默认驱动器设置为C盘，选择Filel中所列的确图片文件(*.Bmp和*.jpg),则相应的图片显示在图片框Picturel中。程序运行结果如图10所示。解:依据图10设计界面,文件列表框的pa ttern属性设置为:*.Bmp;*.jpg驱动器列表框的cha nge事件中添加如下代码：chdrive drivel.drivedirl.pa th=drivel.drive目录列表框的cha nge事件中添加如下代码：chdir dirl.pa thfilel.pa th=dirl.pa th文件列表框的click事件中添加如下代码：picturel.picture=loa dpicture filel.filena me2.余弦曲线的方程为y=cosx,画出x从-2到2的确余弦曲线，并在坐标轴上标出刻度，如图11 所示。如图窗体的单击事件中添加如下代码：Forml.sca le(-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=-0.1:print-piForml.currentx=3.3：forml.currentY=-0.1:print piForml.currentx=-6.2：forml.currentY=-0.1:print-2piForml.currentx=5.7：forml.currentY=-0.1:print 2piForml.currentx=0,2：forml.currentY=0.5:print 0.5Forml.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.va lue=1 thenLinel.border width=4E lseLinel.border width=1E nd if实线、虚线、单选框要弄成一个optionl单选框控件数组。单选框单击事件代码：Select ca se indexCa se 0Linel.borderstyle=1Ca se 1Linel.borderstyle=2Ca se 2Linel.borderstyle=3E nd select4.使用Sha pe控件显示儿种图形，并可以设置图形的边框和填充效果等.程序运行界面如图13所示.首先按图作出程序界面。形状框架里的单选框要做成optionl控件数组，边框类型框架里的单选框 最成option2控件数组，填充风格框架里的单选做成option3控件数组。Option 1单击事件代码如下：Select ca se indexCa se 0Sha pel.sha pe=0Ca se 1Sha pel.sha pe=1Ca se 2Sha pel.sha pe=3Ca se 3Sha pel.sha pe=4E nd selectOption 2单击事件代码如下：Select ca se indexCa se 0Sha pel.borderstyle=0Ca se 1Sha pel.borderstyle=2Ca se 2Sha pel.borderstyle=1Ca se 3Sha pel.borderstyle=3Ca se 4Sha pel.borderstyle=4E nd selectOption 3单击事件代码如下：Select ca se indexCa se 0Sh 叩 el.fillstyle=1Ca se 1Sh叩el.fillstyle=1Ca se 2Sh叩el.fillstyle=3Ca se 3Sh叩el.fillstyle=6E nd select5.使用SQL Server或Access建立名称为“学生的数据库,并在其中创建students”的数据库表淇结构 及初始记录如表1所示.使用AD O对象和MSFIexGrid控件设计数据库列表显示程序.程序的设计界 面和运行结果如图14、图15所示。表1学号 姓名 专业2004001 张红 软件专业2004003 李强 会计专业2004002 王丽 软件专业声名对象变量AD Ocn,用于创建与数据库的连接Priva te AD Ocn As connectionRea dfromta blePriva te sub rea dfromta ble（）D im strtmp As stringD im AD Ors As new recordsetAD Ors.a ctiveconnection=AD OcnAD Ors.open select*from students order by 学号MSFIexgridl.clea rMSFIexgridl.rows=0MSFIexgridl.cols=3Strtmp=学号+vbta b+姓名+vbta b+专业”MSFIexgridl.a dditem strtmpD o while not AD Ors.eofStrtmp=AD Ors（学号）+vbta b+AD Ors（姓名）+vbta b+AD Ors（专业）MSFIexgrid 1.a ddttem strtmpAD Ors movenextLoopMSFIexgrid l.fixedcols=0MSFIexgrid l.fixedrows=1E nd subPriva te sub form_loa d()D im strD B As stringstrD B=/provider=SQLOLE D B;LSF;llser ID=sa;pa ssword=;da ta ba se=学生”if AD Ocn is nothing thenset AD Ocn=new connectionAD Ocn.open strD BE nd ifRea dfrom ta bleE nd subPriva te sub comm