《国家开放大学《Visual Basic程序设计#》典型例题参考答案.docx》由会员分享，可在线阅读，更多相关《国家开放大学《Visual Basic程序设计#》典型例题参考答案.docx（32页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、国家开放大学Visual Basic程序设计#典型例题参考答案一、填空题在VisualBasic中设置或修改一个对象的属性的方法有两种，它们分别是（在属性窗口设置）和（在代码窗口编程）。VisualBasic控件分为3类，它们分别是标准控件、（ActiveX控件）和（可插入对象）。其中只有（标准控件）是由系统提供的。创建第一个按钮控件对象时，系统自动为其“Name”属性分配一个名字，该名字为（Command1）。为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为（Picture1.Picture=LoadPrcture(“picturef
2、ile.jpg”)）。在VisualBasic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，（标题）就相当于其他控件的Caption属性，而（名称）就相当于Name属性。在VisualBasic菜单中设置显示一条分割线的操作是（在【菜单编辑器】的标题栏中，输入一个“-”）。VisualBasic一般用4种类型的文件保存，分别是扩展名为（.frm）的窗体文件，扩展名为（.bas）的标准模块文件，扩展名为（.cls）的类模块文件和扩展名为（.vbp）的工程文件。VisualBasic应用程序即工程文件通常由三类模块组成，即窗体模块、标准模块和类模块。窗体模块包含（窗体）
3、和（代码）两部分。（标准模块）完全由代码组成，这些代码不与具体的对象相关联，一般用来定义全局变量和公用过程和函数。（类模块）用于自定义类。VisualBasic程序开发有三种模式，即（设计）模式、（运行）模式和（中断）模式。在VisualBasic中，字符串型数据是一个用英文双引号括起来的字符序列。长度为0的字符串被称为（空字符串）。字符串型数据有定长字符串和变长字符串两种，其中（定长字符串）的长度是一个0至216间确定的数，而的（变长字符串）长度是不确定的，可以在0至231间变化。变量定义语句“DimStr1,Str2AsString*10”，其中Str1变量的类型应为（变体型），其中Str
4、2变量的类型应为（字符串型）。VisualBasic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量，它的作用域就是（其所在的过程）。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是（窗体内的所有过程），标准模块变量的作用域是（模块内的所有过程）。全局变量的作用域是（整个工程中所有的模块和所有的过程）。VisualBasic语言提供了大量的内部函数方便程序开发人员编写程序，大体上可以分为（转换）函数、数学函数、日期时间函数、（随机数）函数和（字符串）函数等五类。在VisualBasic的转换函数
5、中将数值转换为字符串的函数是（Str(x)）；将数字字符串转换为数值的函数是（Val(x)）；将字符转换为相应的ASCII码的函数是（Asc(x)）。在程序中添加一个命令按钮，并编写如下程序代码：PrivateSubCommand1_Click()a1=123a2=123aa3=12a3a4=a123PrintVal(a1);Val(a2);Val(a3);Val(a4)EndSub程序运行结果为（123123120）。基本程序控制结构可以分为顺序结构、（选择）结构和（循环）结构3种。数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认的（变体类型（
6、Variant）。数组中各个元素在定义时如果是数值类型就被默认初始化为（0），如果是字符串类型就被初始化为（空字符串）。在VisualBasic中，默认的下标下界是（0），如果希望从1开始，可以使用（OptionBasen语句）语句来设置。数组可以分为静态数组和动态数组两类，主要区别在于：静态数组在（编译）时要开辟内存区，而动态数组在（运行）时才开辟内存区。在VisualBasic中，“公共对话框”控件还提供打印设置对话框。使用“公共对话框”控件的（ShowPrinter）方法来显示“打印”对话框。“公共对话框”控件提供了几种不同类型的对话框，可以通过（Action）属性或相应的方法确定对话框
7、的类型。“公共对话框”Name属性的默认名称（CommonDialogx ）（x为1，2，3.）。VisualBasic应用程序是由过程组成的。VisualBasic的过程分为（子过程（Sub过程）和（函数过程（Function过程）两类。VisualBasic有两类子过程（Sub过程）：（事件过程）和（通用过程）。调用Sub过程时，使用（Call语句）语句，该语句用于把程序控制传送到一个VisualBasic的Sub过程。在调用过程和函数时，（Sub过程）可作为独立的基本语句调用，但不直接返回值。（Function过程）要返回一个值。在调用程序中要把被调用的函数作为表达式的一部分。在Visu
8、alBasic的参数传递过程中，形式参数表和实际参数表中对应的变量名（不必相同），变量个数（必须相同）、变量类型（必须相同）、书写顺序必须对应相同。在VisualBasic中，参数通过（按值传递）和（按地址传递）两种方式传送。有如下程序：Subabc(x,y)x=2*x:y=3*yPrintx=;x;,y=;yEndSubPrivateSubForm_Click()a=1:b=11:Printa=;a;,b=;bCallabc(a),b)2:Printa=;a;,b=;bEndSub运行后，输出结果是a=1,b=1x=2,y=3a=1,b=3。VisualBasic提供的常见鼠标事件中，鼠标按
9、下所引发的事件为（MouseDown事件）；鼠标按下后松开时引发的事件为（MouseUp事件）；移动鼠标光标所引发的事件为（MouseMove事件）。多重窗体指在应用中有多个窗体，各窗体之间没有绝对的（从属）关系，但存在着出现的先后顺序和（互相调用）的关系。创建一个封面窗体“StartUpForm”单击（Form_Click）事件，该事件完成在窗体“StartUpForm”装载后单击该窗体打开“MainForm”窗体的功能，并要求“MainForm”窗体打开后“StartUpForm”窗体不清除也不显示。程序代码如下，请补充完整。PrivateSubForm_Click()MainForm.（
10、Show）IfStartUpForm.（Visible）ThenStartUpForm.（Hide）EndIfEndSub在VisualBasic6.0中将多重窗体程序中第一个被装载内存的窗体称为（启动窗体）。在VisualBasic6.0中，启动窗体的设置可以通过选择“工程”菜单下“（工程属性）”命令，在打开的对话框中的“通用”选项卡中，将启动窗体设置在“（启动对象）”栏中。在VisualBasic6.0中，多重窗体程序的保存操作分成两步进行：首先，保存（窗体和标准模块文件）；然后，保存（工程文件）。标准模块也称全局模块，由（全局变量声明）、（模块层变量声明）及通用过程等几部分组成。标准模块
11、文件扩展名为（.bas）。在一个含有多重窗体的应用程序中，经常需要在启动程序时先执行一个特定的启动过程，以便先对一些数据信息进行初始化后，再根据这些数据信息显示窗体。在VisualBasic中，将这个特定的过程命名为（SubMain）。1.以顺序输入模式打开“c:source1.txt”文件的命令是(Openc:source1.txtForInputAs#1)；以输出方式打开“c:source2.txt”文件的命令是(Openc:source2.txtForOutputAs#2)。2.在VisualBasic中，文件系统控件包括(驱动器列表框（DriveListBox）)、(目录列表框（Dir
12、ListBox）)和文件列表框（FileListBox）。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。3.每次重新设置驱动器列表框的Drive属性时，都将引发(Change)事件。可在该事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。4.目录列表框用来显示当前驱动器下目录结构。刚建立时显示(当前驱动器)的顶层目录和当前目录，如果要显示其他驱动器上的目录信息，必须改变路径，即重新设置目录列表框的(Path)属性。5.对驱动器列表框来说，每次重新设置驱动器列表框的(Drive)属性时，将引发Change事件；对目录列表框来说，当(Path)属性值
13、改变时，将引发Change事件；对于文件列表框，重新设置的(Path)属性，将引发Change事件。6.以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。将程序段补充完整。PrivateSubDrive1_Change()(Dir1.Path=Drive1.Drive)EndSubPrivateSubDir1_Change()(File1.Path=Dir1.Path)EndSub7.为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为(Picture1.Picture=LoadPrcture(“picturefil
14、e.jpg”)。8.窗体Form1的左上角坐标为（0,600）窗体Form1的右下角坐标为（800,-200）。X轴的正向向(右)，Y轴的正向向(上)。9.执行指令Line(200,200,)-Step(500,500,)后，CurrentX(700)。10.执行指令Line(200,200,)-(500,500,)后，CurrentX(500)。11.要使图像框能够自动调整大小以适应其中的图形，应将图像框属性设置为(False)。12.ADO模型中一般可通过Connection对象的(ExecuteActive)方法执行增加、删除、修改操作。使用ADO模型时，建立Recordset和Conn
15、ection对象连接的属性是(Connection)。13.Winsock控件主要用来编制TCP/IP或(UDP)协议的通讯协议。14.VB中设置断点的按键是(F9)，逐语句调试的语句是(F8)。15.OnErrorResumeNext语句表示：当发生错误时，VB程序将忽略引发错误的语句，并(继续执行下一条语句)。二、选择题1.以下控件中不是标准控件的是（）。A.水平滚动条和垂直滚动条B.ActiveX控件C.文件列表框、目录列表框和驱动器列表框D.OLE容器2.在VisualBasic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是（）。A.ShowB.HideC.LoadD.UnL
16、oand3.VisualBasic在程序开发过程中用于使用窗体或控件对象的属性是（）。A.NameB.CaptionC.TextD.Enabled4.以下事件中，不是鼠标事件的是（）。A.DragDropB.MouseDownC.DbClickD.Change5.对窗体编写如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,_YAsSingle)IfButton=2ThenPrintAAAAAEndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,Shift
17、AsInteger,XAsSingle,_YAsSingle)Print“BBBBB”EndSub程序运行后，如果单击鼠标右键后再单击鼠标左键，则输出结果为（）。A.AAAAAB.BBBBBBBBBBAAAAABBBBBBBBBBC.AAAAAD.BBBBBBBBBBBBBBB6.下面哪个属性不是标签控件的属性（）。A.AlignmentB.BorderStyleC.CaptionD.Text7.下面哪个方法是控件获得焦点的方法（）。A.GotFocusB.LostFocusC.SetFocusD.Click8.在VisualBasic中，下属（）控件可以包含其他控件。A.ImageB.Tex
18、tBoxC.FrameD.CheckBox9.假定窗体上有一个Text文本框，为使它的文本内容右对齐并且没有边框，则正确的属性设备为（）。A.Text1.Alignment=1B.Text1.Alignment=2Text1.BorderStyle=0Text1.BorderStyle=1C.Text1.Alignment=1D.Text1.Alignment=2Text1.BorderStyle=1Text1.BorderStyle=010.下列哪些方法是将项目添加到ComboBox控件中（）。A.ListB.ListIndexC.AddItemD.Move11.每当窗体失去焦点时会触发的事
19、件是（）。A.ActiveB.DeactiveC.LostFocusD.Initialize12.在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1）,然后编写如下两个事件过程：PrivateSubCommand1_Click()m=Text1.Text+Text2.TextPrintmEndSubPrivateSubForm_Load()Text1.Text=Text2.Text=EndSub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和456，然后单击命令按钮，
20、则输出结果为（）。A.579B.123456C.123456D.45612313.假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，正确的属性设置为（）。A.Label1.BackStyle=0B.Label1.BackStyle=1Label1.BorderStyle=0Label1.BorderStyle=1C.Label1.BackStyle=TrueD.Label1.BackStyle=FalseLabel1.BorderStyle=TrueLabel1,BorderkStyle=False14.在窗体上画一个组合框（Combo1）和一个命令按钮（Command1）
21、，Combo1然后编写如下两个事件过程：PrivateSubCommand1_Click()m=InputBox(请输入02之间整数！)a=Combo1.List(m)PrintaEndSubPrivateSubForm_Load()Combo1.AddItem12Combo1.AddItem34Combo1.AddItem56EndSub单击命令按钮后，在打开的对话框中输入“2”，输出结果为（）。A.12B.34C.56D.015.为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（）。A.EnabledB.TimerC.VisibleD.Interval16.下列不能打
22、开【菜单编辑器】的操作是（）。A.按Ctrl+EB.单击工具栏中的【菜单编辑器】按钮C.执行【工具】菜单中的【菜单编辑器】命令D.按Shift+Alt+M17.假定有一个菜单项MenuItem，为了在运行时该菜单无效（变灰），应使用的语句为（）。A.MenuItem.Enabled=FalseB.MenuItem.Enabled=TrueC.MenuItem.Visible=TrueD.MenuItem.Visible=False18.将调试通过的工程经【文件】菜单的【生成.exe文件】编译成.exe后，将该可执行文件转到其他机器上不能运行的主要原因是（）。A.缺少.frm窗体文件B.运行的机
23、器上无VisualBasic系统所需的动态连接库C.该可执行文件有病毒D.以上原因都不对19.以下进入代码编辑器的方法中错误的是（）。A.单击控件B.按“F7”键C.执行【视图】菜单下的【代码窗口命令】D.单击工程资源管理器窗口中的【查看代码】按钮20.在窗体中添加一个命令按钮，并编写如下程序：PrivateSubCommand1_Click()a=1:b=2:c=3a=b:b=c:c=aPrintcEndSub程序执行后，输出的结果是（）。A.0B.1C.2D.321.在VisualBasic中，默认缺省的数据类型为（）。A.DoubleB.BooleanC.IntegerD.Variant
24、22.Double类型的数据有（）字节组成。A.2B.4C.8D.1623.DateTime是一个Date类型的变量，以下赋值语句中正确的是（）。A.DateTime=5/14/01B.DateTime=September1,2001C.DateTime=#12：15：00AM#D.DateTime=(8/8/99”)24.在窗体中添加一个命令按钮，并编写如下程序：PublicEnumWeekDaysSunday=0MondayTuesdayWednesdayThursdayFridaySaturdayInvalid=-1EndEnumPrivateSubCommand1_Click()Dim
25、mydayAsWeekDaysmyday=SaturdayPrintVal(myday)EndSub程序运行后，单击命令按钮产生的结果为（）。A.SaturdayB.6C.falseD.-125.有如下一组程序语句：PrivateSubCommand1_Click()DimsumAsIntegersum%=10sum=3.2Printsum%;sumEndSub运输时的输出结果是（）。A.103.2B.1010C.3.23.2D.3326.定义符号常量所使用的命令为（）。A.DimB.PublicC.StaticD.Const27.有如下程序：PrivateSubCommand1_Click(
26、)x=Sqr(2)+Sgn(2)+Rnd(2)*10y=Sqr(3)+Sgn(3)+Rnd(3)*10IfxyThenPrintxyElseIfx=yThenPrintx=yElsePrintxyB.x=yC.xzC.x=(x=y)D.以上均为合法表达式31.数学式子Sin300写成VisualBasic表达式是（）。A.Sin30B.Sin(30)C.SIN(300)D.Sin(30*3.14/180)32.用于获得字符串S最右边4个字符函数是（）。A.Right(S,4)B.Left(S,4)C.RightStr(S)D.RightStr()33.用于获得字符串S从第6个字符开始的4个字符
27、的函数是（）。A.Mid(S,6,4)B.Mid(S,4,6)C.MidStr(S,6,4)D.MidStr(S,4,6)34.用于获得字符串长度的函数是（）。A.Len()B.Length()35.用于获得字符串S最左边4个字符的函数是（）。A.Left(S,4)B.Left(1,4)C.LeftStr(S)D.LeftStr(S,4)36.表达式4+56*7Mod8/9的值是（）。A.4B.5C.6D.737.以下多窗体操作中工程文件的扩展名是（）。A.frmB.vbpC.basD.cls38.以下有关VisualBasic语言描述中错误的是（）。A.不区分大小写B.语句是一行一句，以回车
28、键结束C.用“；”分隔一行中的多个语句D.一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行39.以下哪一种结构不是VisualBasic语言的循环控制结构是（）。A.For结构B.SelectCase结构C.While结构D.Do结构40.在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1）,然后编写如下事件过程：PrivateSubCommand1_Click()x=1:n=0DoWhilex100x=x*10n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行
29、后，单击命令按钮，在两个文本框中显示的值分别为（）。A.10和0B.2和100C.3和50D.4和16841.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoUntilc=-1a=InputBox(请输入A的值)a=Val(a)b=InputBox(请输入B的值)b=Val(b)c=InputBox(请输入C的值)c=Val(c)a=a+b+cLoopPrintaEndSub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则最后的输出结果为（）。A.2B.3C.14D.1542.阅读下面的程序段：Privat
30、eSubCommand1_Click()Fori=1To2Forj=1ToiFork=jTo6a=a+1NextkNextjNextiPrintaEndSub执行上面的三重循环后，a的值为（）。A.6B.14C.17D.3243.在窗体中添加一个信命令按钮，然后编写如下程序：PrivateSubCommand1_Click()DimiFori=1To10Step2i=i+1Printi;NextiEndSub单击命令按钮，程序的执行结果为（）。A.24681012B.1357911C.258D.2581144.要从ForNext循环中退出循环，应使用（）语句。A.ExitB.ExitForC.
31、ContinueD.StopLoop45.在Sub过程定义的“参数列表”中设置参数是按值传送的选项是（）。A.ByValB.ByRefC.ParamArrayD.Optional46.下面有关数组的描述错误的是（）。A.数组下界和上界的取值范围是-32768到32767B.数组下界必须小于上界C.没有设置OptionBase语句，省略下界，则下界默认值为0D.在定义数组时，每一维的下标上界值必须是一个常数，不能是变量或者表达式47.用下面语句定义的数组的元素个数是（）。DimA(-3To5)asIntegerA.6B.7C.8D.948.下面语句Dimscore(1To15)AsDouble定
32、义了有（）元素的数组。A.16个双精度型数B.15个双精度型数C.16个整型数D.15个整型数49.下面语句StaticAr(9,9)AsInteger定义了有（）元素的数组。A.9个B.18个C.81个D.100个50.在窗体上画一个命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=3To0Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是（）。A.12B.123C.1234D.出错51.Msgbox函数返回值的
33、类型为（）。A.整数B.字符串C.变体D.整数或字符串（视输入的数据而定）52.在“打印”对话框设计中，用来设置要打印的起始页数的属性为（）。A.FormpageB.TopageC.StartpageD.Endpage53.以下对函数过程（Function过程）的描述错误的是（）。A.Function过程以Function开头，以EndFunction结束B.函数过程中可以利用Exit退出C.函数过程不能嵌套定义D.函数过程可以嵌套调用54.VisualBasic提供的常用键盘事件中返回“字符”ASCII码的是（）。A.KeyDownB.KeyUpC.KeyPressD.KeyAscii1.（
34、）函数判断文件指针是否到了文件结束标志；（）函数返回文件的字节数；（）语句用于设置对文件“锁定”；（）语句用于设置对文件“解锁”。A.EOF、LOF、Lock、UnlockB.LOF、EOF、Lock、UnlockC.EOF、LOF、Unlock、LockD.LOF、EOF、Unlock、Lock2.顺序文件的读操作通过下列（）语句可以实现。A.Input#和Read#B.Read#和Get#C.Get#和Input#D.LineInput#和Input#3.如果准备读文件，打开顺序文件text.dat的正确语句是（）A.Opentext.datForWriteAs#1B.Opentext.d
35、atForInputAs#1C.Opentext.datForBinaryAs#1D.Opentext.datForRandomAs#14.如果准备向随机文件中写入数据，正确的语句是（）A.Print#1,recB.Write#1,recC.Put#1,recD.Get#1,rec5.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（）A.在Dir1_Change()事件中加入代码Dir1.Path=Drive1.DriveB.在Dir1_Channge()事件中加入代码Drive1.Drive=Dir1.PathC.在Dirve1_Channge()事件中加入代码D
36、ir1.Path=Drive1.DriveD.在Dirve1_Channge()事件中加入代码Drive1.Drive=Dir1.Path6.目录列表框Path属性的作用是（）A.显示当前驱动器或指定驱动器上的目录结构B.显示当前驱动器或指定驱动器上的某目录下的文件C.显示根目录下的文件名D.显示路径下的文件7.在下列选项中，不能将图像装入图片框和图像框的是（）A.在界面设计时，通过Picture属性装入B.在界面设计时，手工在图像框和图片框中绘制图形C.在界面设计时，利用剪贴板把图像粘贴上D.在程序运行期间，用LoadPicture函数把图形文件装入8.下面错误的语句是（）A.Line(20
37、0,200)-(400,400),RGB(255,0,0)B.Line(200,200)-(400,400),BC.Line(200,200)-(400,400),FD.Circle(600,600),300,RGB(255,0,0)9.下面选项中，能绘制填充矩形的语句是（）A.Line(200,200)-(500,500),BB.Line(200,200)-(500,500),BFC.Line(200,200)-(500,500),BFD.Line(200,200)-(500,500)10.下面选项中，能绘制一条水平直线的选项是（）A.Line(1000,2000)-(1000,2000)B
38、.Line(1000,2000)-(1000,3000)C.Line(1000,2000)-(2000,2000)D.Line(1000,2000)-(2000,3000)11.下面选项中，能绘制椭圆的语句是（）A.Circle(1000,1000),500,RGB(255,0,0),0.5B.Circle(1000,1000),500,RGB(255,0,0),0.5C.Circle(1000,1000),500,RGB(255,0,0),0.5D.Circle(1000,1000),500,RGB(255,0,0),0.512.图像框（Image）和图片框（Picture）在使用时有所不同
39、，以下叙述中正确的是（）A.图片框比图像框占内存少B.图像框内还可包括其它控件C.图片框有Stretch属性而图像框没有D.图像框有Stretch属性而图片框没有13.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（）A.ADOrs.NewSelect*FromTabelB.ADOrs.OpenSelect*FromTabelC.ADOrs.ExecuteSelect*FromTabelD.ADOrs.SelectSelect*FromTabel14.要发送数据，通常使用Winsock控件的（）A.SendData方法B.Listen方法C.Accept方法D.GetD
40、ata方法15.VB程序中通常不会产生错误提示的（）。A.编译错误B.实时错误C.运行时错误D.逻辑错误三、完善程序题1.已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图1所示。图1程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接PrivateADOcn
41、AsConnectionPrivateSubForm_Load()连接SQLServer数据库DimstrDBAsStringstrDB=Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=1IfADOcnIsNothingThenSetADOcn=2ADOcn.OpenstrDBEndIfEndSubPrivateSubCommand1_Click()增加学生记录DimstrSQLAsStringDimADOrsAs3RecordsetADOrs.ActiveConnection=ADOcnADOrs.Open“Select学号FromStu
42、dentsWhere学号=”+”“+Text1+”“IfNot4ThenMsgBox“你输入的学号已存在，不能新增加！”ElseStrSQL=”InsertIntostudents(学号,姓名,籍贯,性别)StrSQL=strSQL+Values(”+”“+text1+”,“+text2+”,“+text3+”,“+text4+”)”ADOcn.Execute5MsgBox“添加成功，请继续！”EndIfPrivateSubCommand2_Click()UnloadMeEndSub参考答案：1学生；2NewConnection；3New；4ADOrs.EOF；5strSQL；2.在窗体上建立
43、一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图2所示。图2程序如下，请补充完整。PrivateSubForm_Load()Drive1.Drive=1将当前驱动器设置为DFile1.Pattern=*.bmp;*.gif;*.jpg设置文件列表框中可以显示的文件类型EndSubPrivateSubDrive1_change()Dir1.Path=Drive1.Dri
44、ve使Dir1和Drive1同步改变2将当前驱动器显示在文本框中EndSubPrivateSubDir1_Change()3使文件列表框和目录列表框同步改变Text1.Text=4将当前目录的路径显示在文本框中EndSubPrivateSubFile1_click()Picture1.Picture=LoadPicture(File1.Path+File1.FileName)FileName=File1.Path+File1.FileName5将文件名显示在文本框中EndSub参考答案：1D:2Text1.Text=Drive1.Drive3File1.Path=Dir1.Path4Dir1.Path5Text1.Text=FileName3.使用顺序文件读写方式编写一