Visual-Basic程序设计复习要点及练习

Visual Basic程序设计复习要点Visual Basic程序设计复习要点及练习Visual Basic程序设计是中央电大软件开发与应用专业和计算机应用专业等相关专业的统设必修课，所使用的文字教材是Visual Basic程序设计（刘世峰主编，中央电大出版社出版）及与之配套的实验教材Visual Basic程序设计实验、Visual Basic程序设计形成性考核作业册和Visual Basic程序设计期末复习指导。期末考试题型为单项选择题、填空题、阅读程序题、完善程序题和编写程序题五种题型。以下给出各章复习要点及部分练习题。各章复习要求第1章 可视化编程理论概述1熟悉VB集成开发环境，掌握主窗口、窗体窗口、工具箱窗口、属性窗口、代码编辑器窗口、工程资源管理器窗口、窗体布局窗口的使用。2理解可视化编程的概念和特点3理解VB工程的概念及管理方法，掌握工程文件、窗体文件、类模块文件和标准类模块文件的后缀表示。5掌握在VB集成环境中获得帮助的方法6.理解VB的三种模式7.了解面向对象的概念、面向对象编程的基本机制、目前流行的可视化语言的种类和主要特点。第2章 VB可视化编程初步1掌握VB应用程序开发的一般步骤。2理解赋值语句、变量和常量的概念。3掌握MsgBox语句的用法。4掌握窗体、命令按钮、文本框、标签控件的常用属性、事件和方法。能够运用Name、Caption、Text、Enabled、Disable、ReadOnly等基本属性，以及Load、Unload、Click、DBClick、Chang等基本事件和Load、Unload语句进行程序设计。5掌握Timer控件的常用属性和 Timer事件。6理解对象、属性、方法、事件的概念和事件驱动的工作过程。7了解时钟程序的设计过程。8了解VB控件的类型。第3章 应用程序接口设计及代码编写1理解多窗体应用程序设计的一般步骤。2理解菜单的设计方法。3掌握框架、单选纽、复选框控件的常用属性和使用。4掌握列表框控件和组合框控件的常用属性、方法和事件。了解文件列表框的使用方法。5了解工具栏、状态栏和图标列表控件的使用方法。6掌握VB中的基本数据类型，理解其含义，了解其取值范围。7掌握变量和常量的声明，变量的作用域和生命周期及用法。能够编写变量和常量的声明、赋值等语句，并通过阅读程序，分析变量取值的变化过程。8掌握运算符与表达式的含义和应用，理解VB常用标准函数的含义和使用。9掌握顺序结构、分支结构和循环结构的用法，能够读懂和编写具有分支、循环、顺序结构的简单程序。10理解工程化思想和编程风格11理解“简单计算器”程序设计过程，能够读懂并完善这类程序的部分语句。 第4章 VB高级语言技巧1掌握数组的概念和使用方法，能够声明一维、二维静态数组，理解控件数组与普通数组的主要区别。2掌握过程和函数，形参与实参，按值传递和按址传递的定义和调用方法，能够读懂含有Sub过程Function函数的应用程序。3掌握键盘、鼠标的使用技巧，理解键码和ASCII码的区别，KeyDown事件、KeyPress事件和KeyUp事件的发生顺序。理解鼠标事件的主要参数。4了解API函数的调用方法。5了解枚举及自定义数据类型。6了解多功能计算器程序设计过程。第5章 文件处理应用程序设计方法1掌握文件的打开和读写的基本方法以及与文件处理相关的语句和函数的用法，并能够完善程序。2掌握文件系统控件的基本用法，能够通过对驱动器列表框、目录列表框、文件列表框三类控件的属性设置，完善和编写简单的文件管理程序。1、 3了解“文件管理器”应用程序的开发过程，能够读懂并完善这类程序的部分语句。第6章 图形图像和多媒体应用程序设计方法1掌握VB默认坐标系的概念和改变坐标系统的方法（用ScaleTop、ScaleLeft、ScaleWidth、ScaleHeight四项属性设置；用Scale方法设置）。了解ScaleMode属性。2了解与颜色有关的属性BackColor、ForeColor和QBColor 和RGB 函数的基本用法3掌握Line控件和Shape控件的主要属性和和使用。4掌握PictureBox控件和Image控件的属性和应用以及两控件的主要区别。 5了解多媒体控件MMControl的使用6掌握Line方法、Circle方法、Pset方法的语法格式，能够根据要求编写绘图语句完善程序。7掌握常用绘图属性和功能，如：CurrentX、CurrentY、 BorderStyle、BrderWidth DrawStyle、DrawWidth、 FillStyle、FillColor、 ForeColor、BackColor。8掌握在图片框和图像框中显示图形的方法。9理解“指针式时钟”程序的设计方法，能够读懂并完善这类程序的部分语句。10理解“VCD播放器”程序设计的方法。11了解播放多媒体信息的基本方法。第7章 数据库应用程序设计方法1掌握VB中三种数据库类型。2理解使用VB数据库引擎（三种数据库引擎：Jet、ODBC、OLE DB）操纵数据库的方法，以及VB数据对象及数据库访问机制。3掌握VB数据库应用程序的基本框架，以及SQL操纵数据的方法，能够编写Insert、Update、Delete和Select语句，并将这些语句嵌入到VB程序中。4掌握ADO对象模型中Connection、Recordset和Field对象的使用方法。能够运用ADO对象进行简单程序设计。5理解MSFlexGrid控件的添加方法和显示数据表的步骤。6理解“成绩查询”程序的设计过程，能够读懂并完善这类程序的部分语句。7了解使用Excel输出报表的方法。第8章 网络应用程序设计方法1掌握Winsock控件的基本属性、事件和方法。2理解“网络聊天”应用程序的开发过程，能够读懂并完善这类程序的部分语句。3了解网络应用程序设计的基础知识。 第9章 调试与错误处理1掌握程序调试的基本方法。2理解错误捕获及处理的基本方法。3理解程序错误的分类和Err对象的主要方法和属性。 3理解On Error语句的三种形式及作用。 第10章 COM和ActiveX应用了解本章内容。 上一篇案例： 没有了 下一篇案例： VisualBasic程序设计综合练习1 综合练习题一、单项选择题（每小题2分）1在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（ ）。A立即窗口 B属性窗口 C代码窗口 D工程资源管理器窗口2后缀为.vbp的文件表示VB 的（）A窗体文件 B类模块文件 C工程文件 D标准类模块文件 3要在窗体Form1内显示“myfrm”，使用的语句是（ ）AForm.caption=myfrm BForm1.caption=myfrmCForm1.print myfrm DForm. print myfrm 4表达式8+13 Mod 2*4+3（ ）。A8 B16 C15 D125文本框没有（ ）属性A、Text B、Name C、Caption D、BorderStyle6.下列赋值语句正确的是（ ）AB+C =A B A=B+CC-B=A D5=A+B7如果准备向随机文件中写入数据，正确的语句是（ ）AWrite # 1,rec BPrint # 1,recCGet # 1,rec DPut # 1,rec 8Winsock控件的LocalHostName属性的作用是（）A仅返回所用端口 B返回本地计算机的名称C返回或设置所用端口 D返回本地计算机的IP地址9.要以读方式打开D盘的一个顺序文件 Test.doc，应使用的语句是（ ）AOpen Test.doc For Output As #1 BOpen D: Test.doc For Input As #1COpen D: Test.doc For Output As #1 DOpen Test.doc For Input As #1 10Dim Abc(2,3)所定义的数组元素个数是（ ） A、6 B、5 C、12 D、911在Visual Basic中，默认的数据类型是（ ）AInteger BDouble CCurrency DVariant12当Winsock控件处于关闭状态时，其State属性的值是（）A1 B0C2 D313执行指令”Line(200,200)-step(500,500)”后，CurrentX=( )A500 B200C300 D70014不属于VB数据库引擎的是（）AODBC B Jet引擎CBDE DOLE DB15全局变量必须在（ ）中定义A、标准模块 B、窗体模块 C、类模块 D、任意模块16改变驱动器列表框的Drive属性值，将激活（）事件。AChange BScollCKeyDown DKeyUp17如果将文本框的（ ）属性设置为True，则运行时不能对文本框中的内容进行编辑。 ALocked BMultiLine CTabStop DVisible18数学式子Sin25写成VB表达式是（ ）。ASin25 BSin（25） CSIN（25） DSin（25*3.14/180）19下列变量名中合法的是（ ）AIF B7AB CAB7 DAB_720. 要退出ForNext循环，应使用的语句是（ ）。AExit BExit For CContinue DStop Loop21.在下列选项中，不能将图像装入图片框和图像框的是（ ）A在界面设计时，通过Picture属性装入B在界面设计时，手工在图像框和图片框中绘制图形C在界面设计时，利用剪贴板把图像粘贴上D在程序运行期间，用LoadPicture函数把图形文件装入22下面选项中，能绘制填充矩形的语句是（ ） ALine (200, 200)-(500, 500),BBLine (200, 200)-(500, 500), , BFCLine (200, 200)-(500, 500), BFDLine (200, 200)-(500, 500)23.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（ ）AADOrs.New Select * From TabelBADOrs.Open Select * From TabelCADOrs.Execute Select * From TabelDADOrs. Select Select * From Tabel24.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（ ）A在Dir1_Change()事件中加入代码Dir1.Path=Drive1.Drive B在Dir1_Channge()事件中加入代码Drive1.Drive =Dir1.Path C在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.DriveD在Dirve1_Channge()事件中加入代码Drive1.Drive =Dir1.Path 25.VB程序中通常不会产生错误提示的（）。A编译错误B实时错误C运行时错误D逻辑错误二、填空题（每空1分）1数学表达式写成等价的Visual Basic表达式为 。2删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为 。3Visual Basic程序开发有三种模式，即 模式、 模式和 模式。4执行指令Line(200,300)-(400,500)后，CurrentX= 。设CurrentX=50,CurrentY=100，执行指令“Line(100,20)-Step(300,500)”后，CurrentY = 。5ADO数据模型中一般可通过Connection对象的 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。6已知a=3,b=4,c=5,表达式a.b and Not ca Or cb And ca+b的值是 。7为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为 。8设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为 。9Visual Basic一般用4种类型的文件保存，分别是扩展名为 的窗体文件，扩展名为 的标准模块文件，扩展名为 的类模块文件和扩展名为 的工程文件。10将图片框PictureBox的AutoSize属性设置成 时，图片框能自动调整大小，以适应其中的图片。11若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。12 Left(“abcd”,2)函数的返回值是 ; Right(“abcd”,2)函数的返回值是 。13Vb应用程序与数据库进行通信的主要机制称为 。 14Winsock控件主要用来编制 或 协议的通话程序。15假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是 。16在VB中，将Foxpro称为 ，Access称为 ，SQL Server称为 。17常用的VB网络编程控件主要有 、 、 三种。18以(600,600)为圆心，以800为半径，用ForeColor颜色绘制一个圆形，其实现的代码是 。19以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。将程序段补充完整。Private Sub Drive1_Change() End SubPrivate Sub Dir1_Change() End Sub20. 在Visual Basic程序中实现复制文件”d:text.doc”到e:盘根目录下的语句为 。三、阅读程序题 阅读下列程序并写出程序运行结果1Private Sub Command1_Click() x = 0 Do While x 20 x = (x + 1) * (x +3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub文件框Text3的结果是： 2. Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox(请输入一个正整数=) If x 3 Then a = a + 5 Else a = a + 2 End If Next iPrint i, aEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。8.Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t Print x,yEnd subPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 3: b = 4Change a, b Print a,bEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果 四、完善程序题 1列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。List1Command3Command2Command1Text1 图 1程序如下，请补充完整。Private Sub Form_Load() List1.AddItem 北京-上海 List1.AddItem 北京-广州 List1.AddItem 北京-四川 List1.AddItem 北京-西安 List1.AddItem 北京-哈尔滨 List1.AddItem 北京-沈阳 List1.AddItem 北京-长春End SubPrivate Sub Command1_Click() If Text1.Text Then 1 将文本框中的内容加到列表框中 Text1.Text = 2 MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click() 3 删除选定的项目End SubPrivate Sub Command3_Click() If Command3.Caption = 4 Then Text1.Text = 5 Text1.SetFocus Command1.Enabled = False Command2.Enabled = 6 Command3.Caption = 修改确认 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = 7 Command3.Caption = 修改 End IfEnd Sub2在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图2所示。 图2程序代码如下，请补充完整Private Sub Form_Load() Drive1.Drive = 1 File1.Pattern = *.bmp;*.gif;*.jpgEnd SubPrivate Sub Drive1_change() Dir1.Path = 2 Text1.Text = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 3 Text1.Text = 4 End SubPrivate Sub File1_click() Picture1. 5 = LoadPicture(File1.Path + + File1.FileName) FileName = File1.Path + + File1.FileName Text1.Text = FileNameEnd Sub3使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。基本逻辑是：假设在以D盘的根目录下有一个名为exam.txt的文本文件。当点击“打开”按钮(Command1)时，程序将exam.Txt文件中的内容显示在文本框(Text1)中，当点击“新建”按钮(Command2)时，清空Text1中的内容；用户可以在Text1中进行编辑操作，当点击“保存”按钮(Command3)时，将Text1中的内容保存在exam.txt文件中。当点击“退出”按钮(Command4)时关闭本窗体。 图3程序代码如下，请补充完整Private Sub Command1_Click() Dim A As String Text1 = Open 1 Do While Not EOF(1) Input #1, A Text1 = Text1 +2 Loop 3 End SubPrivate Sub Command2_Click() 4 End SubPrivate Sub Command3_Click() Open C:F1.Txt For Output As #1 5 Close #1End SubPrivate Sub Command4_Click() Unload MeEnd Sub4已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图4所示。图4程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionPrivate Sub Form_Load()连接SQL Server数据库Dim strDB As StringstrDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 If ADOcn Is Nothing Then Set ADOcn =2 ADOcn.Open strDB End IfEnd SubPrivate Sub Command1_Click()增加学生记录Dim strSQL As StringDim ADOrs As 3 RecordsetADOrs.ActiveConnection=ADOcnADOrs.Open “Select 学号 From Students Where 学号=”+” “+Text1+” “If Not 4 Then MsgBox “你输入的学号已存在，不能新增加！”Else StrSQL=”Insert Into students (学号,姓名,籍贯, 性别) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOrs.Execute 5 MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub5创建一个绘图程序。当程序运行时，单击“绘图“按钮，在窗体的Picture控件上画出-p，p即-3.14,3.14区间的余弦曲线。要求将图片框的坐标系定义为左上角为（-4，2），右下角为（4，-2），并在图片框中画出坐标的x轴和y轴。程序运行界面如图5所示。 图5Private Sub Command1_Click() 1 定义窗体坐标 Picture1.Line (-4, 0)-(4, 0) 画x轴 2 画y轴 Picture1.CurrentX = 0.2 Picture1.CurrentY = -0.1 Picture1.Print 0 标记原点 Picture1.CurrentX = -3.2 Picture1.CurrentY = -0.1 Picture1.Print 3 标记“-” Picture1.CurrentX = 3.3 Picture1.CurrentY = -0.1 Picture1.Print Picture1.CurrentX = 0.2 Picture1.CurrentY = 0.9 Picture1.Print 1 标记“1” Picture1.CurrentX = 0.2 Picture1.CurrentY = -0.8 Picture1.Print -1 标记“-1” For i = 4 5 Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub 五、编写程序题1请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图1所示。程序运行界面如图6所示。 图66窗体的左上角坐标（8，6），右下角坐标为（8，6）。以厘米为单位，以坐标原点为圆心，以窗体宽度与高度中最小值的1/3为半径画圆和椭圆，程序运行界面如图2所示。 图2答 案一、单项选择题1.C 2.C 3.C 4.B 5.C 6.B 7.D 8.B 9.B 10.C 11.D 12B 13.D 14.C 15.A 16.A 17. A 18.D 19.D 20.B 21B 22B 23C 24.C 25.D二、填空题（每空1分）110(1/2)*cos(50*3.14/180)， 或者Sqr(10)*cos(50*3.14/180)2. Kill C:TEMP*.tmp3. 设计 运行 中断4. 400 5205Execute6True7Picture1. Picture = LoadPrcture(picturefile.jpg)8Dim A(0To5,-2To5) As String9.frm .bas .cls .vbp10Ture11右 上12ab cd13. 数据引擎14TCP/IP UDP15Dim ADOcn As Connection16外部数据库 本地数据库 远程数据库17Wins