《XXXX年电大_Visual_Basic程序设计形成性考核册_参考答17725.docx》由会员分享，可在线阅读，更多相关《XXXX年电大_Visual_Basic程序设计形成性考核册_参考答17725.docx（57页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Visuual BBasicc程序设计计形成性性考核册作作业及答案案2012年Visuual BBasicc程序设计计形成性性考核册作作业及答案案作业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集成
2、开发环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 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、单
3、击任一个控件 C、不执行任何操作 D、双击窗体的标题栏8、如果要在文本框键入字符时，只显示某个字符，如果（*），应设置文本框的（B）属性。 A 、Caption B、PasswordChar C、Text D、Char9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（A）属性设置为True.A Locked B、MultiLine C、TabStop DVisible10 对于定时器（Tiner）控制，设置其定时是否开启的属性是（C）A、Index B、Tag C、Enabled D、Left11、要在窗口体Fornl 内显示“myfrm”使用的语句是（ C）A、Form.capti
4、on=“myfrm”B、Fornl.caption=“myfrm”C、forml.print“myfrm”D、form.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、F115、将调试通过的工程经“文件”菜单的“生成.exe文件“编绎成名.exe后，将该可执行文件放到其它机器上不能运行的主要原因是（D）。A
5、、运行的机器上无VB系统 B、缺少.frm 窗体文件 C、该执行文件有病毒 D、以上原因都不对二、填空题1、当进入VB集成开发环境后，发现没有显示“工具箱”窗口。应选择 视图 菜单的 工具箱 选项，使“工具箱”窗口显示。2、在VB中，事件过程名由 对象名 和 事件名 构成。3、工程文件的扩展名是 vbp ，窗体文件扩展名是 frm 。4、对象时代码和数据的集合，例如，Visual Basic 中的 窗体 、 按钮 、 文本框 等都是对象。5、对象的方法用于 实施某种操作功能 。当方法不需要任何参数并且也没有返回值，调用对象的方法的格式为 对象名.方法名 。例如对窗体Forml 使用Show 方
6、法，应写成 form1.show 。6、要使文本框显示滚动条，需要将其 ScrollBars 属性设置为 3 。7、欲设置定时的时间间隔为4秒，则属性Interval 的值为 4000 。8、要使标签框的大小随Caption属性做自动调整，应将 AutoSize 属性设置为 True 。9、通过 窗体布局窗口 可以在设计时直观地调整窗体在屏幕的位置。10、要想在代码中给名为 txtshow 的文框赋予文本：GOOD WORK！时，应当编写的语句是 txtshow.text=” GOOD WORK！” 。11、若命令按钮的名称为Cmdopen，程序要求单击以上命令按钮，打开一个窗口frml,请对
7、以下事件过程填空。Private Sub Cmdopen click() Frm1.show End Sud12、事件就是对象上所发生的事情，Visual Basic中的事件如 单击 、 装入 、鼠标移动 等。一个对象响应的事件可以有 多 个，用户不能建立新的事件。事件过程是指 响应某个事件后所执行的代码 。假设某一事件过程如下：Private Sub cmd1_Click() Form1.Caption=”VB示例”End Sub则响应过程的对象名是 cmd1 ，事件名是 Click 。 13、对象的方法用于 在对象上实施某种操作功能 。当方法不需要任何参数并且也没有返回值，调用对象的方法格
8、式为 对象名.方法名 ，例如，对窗体Form1 使用Show 方法，应写成 Form1 .Show 。14、为了在编写代码时能自动语法检查，必须执行 工具 菜单中的 选项 命令，打开 选项 对话框，然后选择“编辑器”选项卡中的 自动语法检测 。15、定时器（Timer）控件可识别的事件是 Timer ，了生该事件的时间间隔定时由定时器的 Interval 属性设置，其单位为 毫秒 。 三、问答题1、什么是可视化编程和事件驱动？ 答：可视化编程是指无须编程，仅通过直观的操作方式即可完成界面的设计工作的这种编程方式。当VB的应用程序运行后，系统处于等待状态，当某个事件发生后，程序就去执行此事件的事
9、件过程，当这个事件过程执行完后，系统又处于等待另一个事件发生的状态，这就是事件驱动程序方式。2、对象、属性、事件和文件之间的关系如何？答：对象是代码和数据的封装体。对象的操作通过与该对象有关的属性、事件、方法来描述。属性是一个对象的基本特性，每个对象都有它自己的属性。方法是对象要执行的动作。事件是在对象上所发生的事情。3、简述事件驱动机制与传统编程方式的不同。答：传统的面向过程的应用程序中，应用程序自身控制了执行那一部分代码按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。而事件驱动机制则由用户来决定执行的路线。这就是两者的不同。4、简述事件
10、驱动的工作过程。答：事件驱动的工作过程如下：（1）启动应用程序，装载和显示窗体。（2）窗体或窗体上的控件等待事件的发生。（3）当某个事件发生后，执行其对应的事件过程代码。（4）重复执行（2）和（3），直到遇到END语句或单击“结束”按钮停止程序的运行。四、程序设计题1、在窗体上添加一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。当单击第一个命令按钮时，文本框消失；而当单击第二个命令按钮时，文本框重新出现，并在文本框中显示“VB程序设计”（字体大小为16）。程序运行界面如图所示。图1解：“隐藏文本框”按钮中的代码为：Text1.Visible=False
11、“显示文本框” 按钮中的代码为：Text1.Visible=True Text1.Text=”VB程序设计” Text1.FontSize=”16”2、设计一个计算程序。该程序用户界面如图2所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command3）组成。程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。解：command1中的代码为：text1=”： text2=”： text
12、3=”： text4=”command2中的代码为：text4=(val(Text1)+ val(Text2)+ val(Text3)/3command2中的代码为：End3、编写一收款计算程序。要求用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”，单击“清除”按钮，清除文本框中所有的数据。程序运行界面如图3所示。答：“计算”按钮的代码：text4=val(Text1)* val(Text2)* val(Text3)/100“清除”按钮的代码：text1=”： text2=”： text3=”： text4=”作业2 一一、选择题题1按照照变量的作作用域可将将变量划
13、分分为（ BB ）。A、公有、私有、系统 B、全局变量、模块级变量、过程变量C、动态、常数、静态 D、Public、Private、Protected2. 可获得字符的ASCII码的函数是（C）。、Val、Fix、Asc 、Chr3、要退出Do.Loop循环，可使用的语句的（D）语句。A、Exit B、Exit For C、End Do D、Exit Do4. 把数值型转换为字符串型需要使用的函数是（B）。A、Val B、Str C、Asc D、Chr5.关于语句行，下列说法正确的是（B）。一行只能写一条语句一条语句可以分多行书写每行的首字符必须大写 长度不能超过255个字符表达式6+10 M
14、od 4*2+1的值是（A）11 C D.37.以下可以作为isual Basic 变量名的是（B）SIN B.CO1 C.COS(X) D.X(-1)8.表达式bs(-5)+Len(“ABCDE”)的值为（C）5ABCDE.5ABCDE C.10 D.09.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（A），表示下一行是当前行的继续一个空格加一个下划字符（）一个下划字符（）直接回车 一个空格加一个字符（）10.Sub过程与Function过程最根本的区别是（D）Sub过程可以使用all语句或直接使用过程名调用，而Function过程不可
15、以Function过程可以有参数，Sub过程不可以两种过程参数的传递方式不同Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值11.是小于80的非负数，用VB表达式表示正确的是（C）. A.0X80 B.0=X80 C.0=x and x80 D.0=x Orx8012.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为(B )A.加号(+) B.减号(-) C.星号(*) D.感叹号(!)13.如果要在程序中显示一个弹出式菜单,那么要调用Visual Basic中提供的方法是(D). A.Print B.Move C.Refresh D.Pop
16、upMenu14.下列可以用来存储图像供其他对象使用的控件是(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.所在窗体发子
17、程序不能访问用Private定义的窗体级变量D.一定要在所在窗体的通用区内定义18.从一个字符串中的第3个字符开始,获取5个字符,应使用(B) A.Len函数 B.Mid函数 C.Left函数 D.Right函数19.用下面的语句所定义的数组的元素的个数是(D ). DimA(-3 To 5)As Integer A.6 B.7 C.8 D.920.有如下程序段:Dim strl As String*5Strl=”Visual Basic”当该段程序被执行完时,变量strl的值为(B ). A.”Visual” B.”Visua” C.”V” D.”Visual Basic”二、填空题1菜单一
18、般有_下拉式_和_弹出式_两种基本类型。2通用对话框控件可显示的常用对话框有_打开_、_保存_、_颜色_、_字体_、_打印_。3组合框具有_文本框_和_列表框_两种控件的基本功能。4要使数组的默认下标从“1开始，则应在窗体或标准模块代码的声明部分使用语句_Option Base 1_。5调用Sub过程时，使用_call_语句,语句用于把程序控制传送到一个Visual Basic的Sub过程。6若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过_工程_菜单_属性_命令的_通用_选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行_Form1.show
19、_语句。7列表框中项目的序号是从_0_开始的。8Sub过程与Function过程最根本的区别是_Sub过程名无返回值，Function过程名有返回值 。9VB的代码存储在模块中。在VB中提供了三种类型的模块：_类模块_、_窗体模块_和_标准模块_。10使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体_卸载_，被调用的窗体中的属性等已处于_内存中_。11将下列数学式子写成VisualBasic表达式。 答：2*cos(a)*sin(a)/(2*a) 答：sqr(s*(s-a)*(s-b)*(s-c) sin45:sin(45*2*3.1415/360)_12.将下列数学式
20、子各条件写成VisualBasic逻辑表达式。 1x12: 1=x and x=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*B2 And BA+C的值为_False_。14在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用_Fornext_循环；若要求先判断循环进行的条件，可使用_Do whileloop_循环或_ whileWend_循环。15以下语句的输出结果是_3_。a%=3.14159Print a%三、阅读下列程序，写出程序运行结果。1、Pri
21、vate Sub Form_Click( ) Static Sum As Integer For I= 1 to 100 Sum=Sum+I Next IPrint Sum End Sub程序运行结果为：1+2+.+99+100=50502、private Sub Form_Click( ) A=10: b=15:c=20:d=25 Print A;Spc(5);b;Spc(7);c Print A;Spc(8);b;Space$(5);c Print c;Spc(3);”+”;Spc(3);c+d End Sub10(5个空格)15(7个空格)2010(8个空格)15(5个空格)2020(三
22、个空格)+(三个空格)453、Private Sub Form_click( ) For i% =1 to3 Forj% = 1 to i Print 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= 9 4、Private Sub Command1_Click( ) Dim a,b As Integer A=3.4B=3.4Text1.Text=aText2.Text=bEnd SubText1显示3 、4Text2
23、显示35、Private Sub Form_Click() For I =1 to 5 Print Tab( 11 I ) For J =1 To I * 2 1 Print “*”; Next Next iEnd Sub * * * * *四、程序设计题1、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输入优惠后的价
24、格。程序运行结果如图解所示。If Val(text1)=500 then text2=Val(text1)*0.7Else if Val(text1)=300 then text2=Val(text1)*0.85 Else if Val(text1)=200 then text2=val(text1)*0.9 Else if val(text1)=100 then text2=val(text1)*0.95End if 2、输出100200之间不能被3整除的的数，要求用Do语句的一种形式来实现，程序运行结果如图5所示。窗体的装入事件中加入如下代码：Dim a as integerA=100Do
25、 while a =200If (a mod 3) 0 thenList1.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 to18Print str(i);space(3);For j=3 to 12 step3Print str(i*j);space(4);Next jPrint Next j4、设计一个计算程序。该程序用户界面如图7所示。要求程序运
26、行后，用户选中单击选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。乘法单选按钮的单击事件中添加如下代码：Text1=10*2除法单选按钮中添加如下代码：Text1=10/2加法单选按钮中添加如下代码：Text1=10+2减法单选按钮中添加如下代码：text1=10-2结束按钮中代码: end 或unload me5、编写输入一个06数字，显示汉字对照输出星期的Function过程。程序运行结果如图8所示。文本框的change事件中代码如下:Select case val(text
27、1)Case 0Label1.caption=”星期天”+chr(13)+”(Sunday)”Case 1Label1.caption=”星期一”+chr(13)+”(monday)”Case2Label1.caption=”星期二”+chr(13)+”(Tuesday)”Case 3Label1.caption=”星期三”+chr(13)+”(wednesday)”Case 4Label1.caption=”星期四”+chr(13)+”(thursday)”Case 5Label1.caption=”星期五”+chr(13)+”(firday)”Case 6Label1.caption=”星
28、期六”+chr(13)+”(saturday)”End select6、编写一个程序，当鼠标移到Picturel控件时，鼠标指针改变形状；当在Picturel控件上单击鼠标右键时，通过消息框显示“You pressed right button”，并再次改变鼠标指针的形状。Picture1_mouseupIf button=2 thenI=1Msgbox” you pressed right button”End if End sub7、列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当列表框中某一项时，
29、按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图9所示。添加按钮代码：list1.additem text1.textText1.text=”删除: if list1.text” thenList1.removeitem =list1.listindexEnd if修改:If command3.caption=“修改” thenText1.text=list1.textCommand3.caption=”修改确认”ElseIf command
30、3.caption=”修改确认” thenList1.list=list1.listindex=text1.textCommand3.caption=”修改”End ifEnd if作业3 一一、选择题题1、Viisiblle Baasic根根据计算机机访问文件件的方式将将文件分成成三类，其其中不包括括（B）AA顺序文文件 B. UUnix文文件 C. 二二进制文件件 DD. 随机机文件2、随随机文件进进行文件读读取的单位位是（B）A字节 B。记录 C。整个文件 D。字符3、为了使目录路径列表框Dir1的内容符合驱动器列表框Drive1的选择，应当（B）。A 在Dir1_Click事件中加入D
31、ir1.Path=Drive1.DriveB 在Drive1_Click事件中加入Dir1.Path=Drive1.DriveC 在Dir1_Click事件中加入Drive1.Path= Dir1.DriveD在Dir1_Click事件中加入Drive1.Path= Dir1.Drive4、为了使drive1驱动器列表框、dir1目录路径列表框和file1文件列表框能同步协调工作，需要在（B）A drive1的Change事件过程中加入drive1.Drive=dir1.Path，在dir1的Change事件过程中加入dir1.Path=file1.Path代码。B drive1的Change
32、事件过程中加入dir1.Path = drive1.Drive，在dir1的Change事件过程中加入file1.Path =dir1.Path代码。C dir1的Change事件过程中加入dir1.Path = drive1.Drive，在file1的Click事件过程中加入file1.Path =file1.fileName代码。Ddir1的Change事件过程中加入dir1.Path = drive1.Drive，在file1的Click事件过程中加入file1.Path =dir1.Path代码。5、下面关于顺序文件的描述正确的是（A）A 每条记录的长度必须相同B 可通过编程对文件中的
33、某条记录方便地修改C 数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示D文件的组织结构复杂6、KILL语句在VB语言中的功能是（C）。A清内存 B。清病毒 C。删除磁盘上的文件 D。清屏幕7、可用来改变坐标度量单位的是（D）A. Drawstyle属性 B. DrawWidth属性 C. Scale方法 D. ScaleMode属性8、以下的属性和方法中，可重定义坐标系的是（C）ADrawstyle属性 B.DrawWidth属性 C. Scale D. ScaleMode属性9、当用Line方法画直线后，当前坐标在（C）A.(0,0) B.直线起点 C. 直线终点 D. 容
34、器的中心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. Drawstyle B. Borderstyle C. DrawWidth D. ScaleMode12、为了清除图片框Picture1中的图形，应采取的正确方法是（B）A 选择图片框，然后按Del键B 执行语句Picture1.picture=LoadPict
35、ure(“”)C 执行语句Picture1.picture= “”D选择图片框，在属性窗口中选择Picture属性条，然后按回车键13、绘制多种形状的图形，需要设置Shape控件的（A）属性。 AShape B.Borderstyle C. FillStyle D. Style14、绘制多种形状的直线，需要设置Line控件的（B）属性。 AShape B.Borderstyle C. FillStyle D. Style15、如果准备读文件，打开顺序文件“text.dat”的正确语句是（C）A. open “text.dat” for write As #1B. open “text.dat”
36、 for Binary As #1C. open “text.dat” 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、下列“CommandDialog1”控件程序代码，CommandDialog1.Action=1，代表（B）A文件另存为 B. 打开文件 C. 色彩 D. 打印18、FileFilter.Pattern=”*.bat” 程序代码执行后，会显示
37、（A）。A 只包含扩展文件名为”*.bat”的文件 B。 第一个bat文件C 包含所有的文件 D。 会显示磁盘的路径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 学生基本情况表”DADOrs. Select “Select *
38、 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 。2在Visual Basic程序中实现复制文件“C：”到D:盘根目录下的语句为 filecopy “c:”,”d:” 。3. 在Visual Basic程序中实现删除文件”D:tem.tm
39、p”的语句为_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.在图片框Picture1中画一个左上角在(5
40、00,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模型时,当使用Open方法打开一个记录集后,与ADOrs.Field
41、s(“学号”)等效的语句是_ADOrs(“符号”)_.13.ADO模型中一般可通过Connection对象的Execute方法执行_增加_、_删除_、_修改_等三类不返回结果集的SQL语句.14.设StrSQL、Str1为字符串变量,其中Str1的值为”001”,那么执行赋值语句StrSQL=”Select * from Tabel1 Where学号=”+Str1+”后,StrSQL的值等于_”select. * from tabel1 where 学号=001”_.15.在VB中,将Foxpro称为外部数据库,Access称为_本地数据库_，SQL Server称为_远程数据库_.三、程序设
42、计题1、在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为C盘，选择File1中所列的确图片文件（*.Bmp和*.jpg），则相应的图片显示在图片框Picture1中。程序运行结果如图10所示。解：依据图10设计界面，文件列表框的pattern属性设置为：*.Bmp ; *.jpg驱动器列表框的change事件中添加如下代码：chdrive drive1.drivedir1.path=drive1.drive目录列表框的change事件中添加如下代码：chdir dir1.pathfile1.path=dir1.path文件列表框的click事件中添加如下代码： picture1.picture=loadpicture file1.filename2余弦曲线的方程为y=cosx，画出x从-2到2的确余弦曲线，并在坐标轴上标出刻度，如图11所示。如图窗体的单击事件中添加如下代码：Form1.scale ( -2*3.14159,1)- (2*3.14159, -1)Form1.line (-2*3.14159,0)- (2*3.14159,0)Form1.line (0,1)-(0,-1)Form1.currentx =0.2：form1.currentY= -0.1:print ”0”Form1.