VB总复习(2012年).ppt

1、VB程序设计,总复习,考试题型（笔试闭卷 60%） 1.选择题 (40分) 2.填空题 (20分) 3.判断题 (10分) 3. 编程题(30分),不考的章节: 第5章：第5.4自定义类型及数组 第6章：第6.4 过程的嵌套和递归调用 第7.210章,1.VB应用程序（工程文件）的组织结构,VB应用程序由三种模块组成: 窗体模块(Form) (文件扩展名.frm) 标准模块(Module) (文件扩展名.bas) 类模块(Class) (文件扩展名.cls),关系：,第一、二章,1.3 VB集成开发环境,工 具 箱,窗体设计窗口,属性窗口,工程资源管理器 窗口,代码窗口,菜 单 栏,工 具 栏

2、,P5,1.3 创建应用程序的过程,1、建立用户界面的对象。 2、对象属性的设置。 3、对象事件过程编程。 4、运行与调试程序。 5、保存程序。,P13P15,7保存一个Visual Basic的应用程序，应当保存工程文件以及与工程有关的窗体或标准模块等文件。（P16）,6.程序的运行及调试 （P16）,5.Vb的工作状态（三种模式:设计、运行和 break） ）（P）,8.生成可执行文件 VB程序的执行方式有两种: 解释方式 和 编译方式 （P17）,2.1 VB对象的概念,2.1.1 对象和类 对象指现实世界中的实体。 每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件

3、)。,类是对同一种对象的集合与抽象。类是创建对象实例的模板，对象则是类的一个实例。 类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。,VB中的类和对象,VB工具箱中的可视图标是VB系统设计好的标准控件类。 通过将控件类实例化，得到真正的控件对象。 实例化方法: 在窗体上画一个控件，就将类转换为对象，即创建了一个控件对象。,对象的三要素,对象的特征,属性 存放对象的数据(决定对象外观及功能)。 对象属性的设置方法： 设计阶段 利用属性窗口直接设置属性值 程序运行时 通过语句：对象名.属性名

4、=属性值 例如：Command1.Caption = 确定 注意：若属性只能在设计阶段设置，在程序运行阶段不能改变，称为只读属性。,2.1.2 对象的属性、事件和方法,事件：发生在对象上的事情.,VB为对象预先定义了一系列的事件。,事件过程：应用程序处理事件的步骤. 应用程序设计的主要工作就是为对象编写事件过程的代码。事件过程的形式如下： Sub 对象名_事件(参数) 事件过程代码 End Sub,方法,面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数，称为方法。方法是面向对象的，调用时一定要指明对象。 对象方法的调用格式为： 对象.方法 参数名表 若省略对象，表示当前对象，一

5、般指窗体。 例如：Text1.SetFocus 此语句使Text1控件获得焦点，光标在本文框内闪烁。,通用属性 Name名称属性 创建的对象名称,有默认的名.在程序中，控件名是作为对象的标识而引用，不会显示在控件上。 Caption标题属性 该属性决定了控件上显示的内容。 Enabled属性 控件是否可操作. 当设置为false时,呈暗淡色,禁止用户进行操作,Visible属性 控件是否可见.当设置为false时, 用户看不到，但控件本身存在。,7. 窗体 1属性: name， Caption, Picture, BoderStyle.,2事件: Load:窗体被装入时自动执行该事件，通常用于

6、对属性和变量初始化 Click: 单击事件 DblClick: 双击事件，连续按两次鼠标键发生该事件。 3方法: Print：用于在窗体或图形框中显示文本。 Cls：在窗体或图形框中清除运行时产生的图形和文本。 Move：移动一个窗体或控件。,8. 标签 用于显示文本(输出)信息，不能作为输入信息的界面。也就是说标签控件的内容只能由Caption属性来设置。 1属性: Caption, Font, Left, Top, BoderStyle. 2事件: Click: 单击事件 DblClick: 双击事件，连续按两次鼠标键发生该事件 3方法: Move: 移动控件，或改变其大小。 .Move

7、,9. 文本框 文本编辑区域，可在该区域输入，编辑和显示正文内容。 1属性: Text, Maxlength, MultiLine, ScrollBars, Locked, PasswordChar 2事件: Change : 当改变文本框的Text属性或者用户输入新内容时会 引发该事件. KeyPress ：KeyAscii 参数是所按键的ASCII码 。 LostFocus : 当控件失去焦点时发生. GotFocus : 当控件获得焦点时发生. 3方法: SetFocus: 把光标移到指定的文本框对象中。 格式： 对象.SetFocus,6. 命令按钮 1属性: Name, Captio

8、n, Style, Picture. 2事件: Click 、KeyDown、KeyUp、MouseDown、MouseUp 3方法: SetFocus: 将焦点定位到命令按钮上。 格式：对象.SetFocus eg: Command1.SetFocus,数据类型,3.1 数据类型,数据是信息的物理表示形式，是程序处理的对象。 在VB中，对不同类型的数据有不同的操作方式和不同的取值范围。在程序设计中，要随时注意所用数据的类型。,第三章 VB语言基础,3.2 变量与常量,变量 用来存储数据值的内存单元称为变量，在VB执行应用程序期间，用变量临时存储数值。变量具有名字（用来引用变量所包含的值的词）

9、和数据类型（确定变量能够存储的数据的种类）。 命名规则： 必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度 255个字符。 不能使用VB中的关键字。 VB不区分变量名的大小写，一般变量名首字母用大写，其余用小写字母表示；常量全部用大写字母表示。,P41,变量声明,显式声明变量。 语句格式： Dim 变量名 As 类型 As部分缺省，创建的变量为变体类型 一条Dim语句可同时定义多个变量，但每个变量应有类型说明，否则为变体型 。,变量未赋值时，数值型变量值为0，字符串变量 值为空串“”(空)，逻辑型变量值为False。 （P43 表3.2）,常量,常量是在程序运行中不变的数据量。VB有

10、三种常量： 直接常量 其常数值直接反映了其类型。,符号常量 用户声明，便于程序阅读或修改。 Const 符号常量名 As 类型 = 表达式 系统常量 系统提供许多内部常量。 例如：vbCrLf 回车/换行组合符 vbRed 设置字体为红色。,3.3 运算符和表达式,在VB中，通过运算符和操作数组合成表达式，实现程序编制中所需的大量操作。 运算符是实现某种运算的符号。 VB中的运算符可分为： 算术运算符、字符串运算符、关系运算符和逻辑运算符。,4. 运算符与优先级 算术运算符 、 -、 *或/、mod 、+、- 字符串运算符 + 或 Next i Print Print MAX=; max; M

11、IN=; min; AVER=; aver / 10 End Sub,实验E：1,思考： 如何在二维数组中求最大值、最小值以及它们的位置。,数组元素的倒置,A,I,9 2,I,9 i + 1,中间数的位置,被交换数的位置,排序,Private Sub Command1_Click() Dim a(), n%, i%, j%, t%,k% a = Array(8, 6, 9, 3, 2, 7) n = UBound(a) For i = 0 To n-1 k=i For j = i+1 To n If a(j) a(k) Then k = j Next t = a(i):a(i) = a(k):

12、 a(k) = t Next For i = 0 To n: Print a(i) ; : Next i End Sub,演示,Private Sub Command1_Click() Dim a(), n%, i%, j%, t% Print a = Array(8, 6, 9, 3, 2, 7) n = UBound(a) For i = 0 To n - 1 For j = i+1 To n If a(i) a(j) Then t = a(I ): a(i) = a(j): a(j) = t End If Next Next For i = 0 To n: Print a(i) ; :

13、Next i End Sub,选择法排序,冒泡法排序,插入数据,插入数据基本思想是： 1）首先查找待插入数据在数组中的位置k； 2）然后从最后一个元素开始往前直到下标为k的元素依次往后移动一个位置； 3) 第k个元素的位置腾出，将数据插入。,Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 9, 12, 23, 56) n = UBound(a) x = 14 For k = 0 To n If x a(k) Then Exit For Next k,ReDim Preserve a(n + 1) For i = n To k Step -1 a(i + 1

14、) = a(i) Next i a(k) = x For i = 0 To n + 1 Print a(i); Next i,删除数据,1)首先找到欲删除的元素的位置k； 2)然后从k+1到n个位置开始向前移动； 3)最后将数组元素减1。,例5.8要将值为14的元素删除。,Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 9, 12, 14, 23, 56) n = UBound(a) : x = 14 For k = 0 To n 查找欲删除的数组元素位置 If x = a(k) Then Exit For Next k If k n Then MsgBo

15、x (找不到此数据): Exit Sub For i = k + 1 To n 将x后的元素左移 a(i - 1) = a(i) Next i n = n 1 数组元素减少一个 ReDim Preserve a(n) For i = 0 To n 显示删除后的各数组元素 Print a(i); Next i,第六章 过程,一. 过程的概念 VB的程序是由一个个过程构成的，除了VB系统提供的大量使用的内部函数过程(Function)和事件过程(Sub)外，VB系统还允许用户根据各自需要自定义过程。 二. 两类过程定义与调用 函数过程 Function () As = Exit Function

16、= End Function,调用形式: 函数过程名(实参表) 特点：函数过程名有值，有类型，在过程体内至少赋值一次。 调用时不能独立存在，必须参加表达式的运算。 子过程 Sub 子过程名(参数列表) 局部变量或常数定义语句 语句块1 Exit Sub 语句块2 End Sub 调用形式: Call 子过程名(实参表) 或: 子过程名 实参表 特点: 子过程名无值，无类型。调用时可以是一句独立的语句。,三. 参数传递 值传递（ ByVal ）: 将实参的具体值单向地传递给形参，调用结束后形参值的改变不会影响实参的值。相对应的实参可以是常数或表达式。 2. 地址传递（ ByRef ） 将实参在内

17、存的地址传递给形参，数据传递是双向的，即调用时实参将值传递给形参，调用结束后由形参将操作结果返回给实参。即形参值的改变会改变实参的值。当实参要得到返回结果时，实参只能是变量，不能是常量或表达式。,3数组参数的传递 只能通过传址方式进行传递。注意： 在实参和形参中写数组名(） 被调过程可通过Lbound和Ubound函数确定实参数组的下、上界,6.1.3函数过程的调用,Sub Form_Click Dim x%, y%, z% x = 124: y = 24 z = gcd(x, y) Print 最大公约数是 ; z End Sub,程序运行流程,Function gcd( m%, n%) A

18、s Integer If m 0 r = m Mod n ： m = n： n = r Loop gcd = m End Function,在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single, b As Single a = 15: b = 12 Call S(a, b) Print a, b End Sub,读程序,写运行结果,Sub S(ByVal x!, y!) Dim t! t = x x = t / y y = t Mod y Print x, y End Sub,6.4.1 变量的作用域及分类,局

19、部变量,模块变量,全局变量,(p140),6.4.2 静态变量,从变量的作用域来看，静态变量与局部变量相同，但从存活期来看，与局部变量不同，但与模块变量、全局变量相同。其独有的特点是： 在整个程序运行期间，只做一次初始化 在整个程序运行期间，不释放所占用的内存单元（原来的值也被保存下来）,存活期（生命周期）：能保存值的时间的长短。,静态变量声明形式： Static 变量名 AS Type ,当程序运行时，写出程序结果。,Private Function sum(n As Integer) Static j As Integer j = j + n： sum = j End Function P

20、rivate Sub Command1_Click() Dim i%, isum% For i = 1 To 5 isum = sum(i) Print isum=; isum Next i End Sub,结果: isum=1 isum=3 isum=6 isum=10 isum=15,Private Sub Command1_Click() Dim Z% Z=Z+2 Call S Print Z End Sub,Sub S( ) Static Z As Integer Z=Z+2 Print Z; End Sub,例3-7 有如下S过程和Command1_Click事件过程: 调用Comm

21、and1_Click()3次,最后一次输出结果是:,7.1 常用控件,7.1.1 单选按钮、复选框和框架 1.单选按钮(OptionButton ) 单选按钮以组的形式出现，允许在多项中选择一项。 重要属性 Caption属性 按钮上显示的文本 Value属性 表示单选按钮的状态： True 被选定 False 未被选定 重要事件 Click事件 单击后,Value属性为True,Value属性值为整型，表示复选框的状态： 0 vbUnchecked 未选定 1 vbChecked 被选定 2 vbGrayed 灰色，并显示一个选中标记。 重要事件 Click事件,2.复选框(CheckBox

22、),3.框架 (Frame),具有容器功能. 先建立框架，然后将各控件放置其中。 属性 Caption属性 框架上的标题文本. 事件 框架可以响应Click和DoubleClick事件，但一般不需要编写事件过程。,4. 列表框和组合框,列表框 可显示多个选项供用户选择，不能直接修改其中的内容。 组合框 组合了文本框和列表框的特性而形成的一种控件。组合框有3种式样。,1. 共有的重要属性 (P：可在程序中设置或引用，D：可在设计状态设置) List ：PD 字符型数组，存放列表框的项目，下标是从0开始。 ListIndex：P 选中的项目的序号，没有项目被选定时为-1 ListCount：P 项

23、目的数量，ListCount-1是最后一项的下标。 Sorted：D True：按字母顺序排列。 False：按加入先后顺序排列。 Text：P 列表项中被选定的内容， List 1.List(List 1.ListIndex) = List1.Text。,2. 列表框的特有属性 Selected：P 逻辑数组。 Selected(i)的值为True表示第i+1项被选中。 MultiSelect 0 - None：禁止多项选择。 1 - Simple：简单多项选择。 2 - Extended：扩展多项选择。 3. 组合框的特有属性 Style,List1.ListIndex = 2 List1

24、.ListCount = 6 List1.Sorted = False List1.Text 为 C/C+程序设计 ,常用方法,AddItem方法 把一个项目加入列表 对象.AddItem 项目字符串 ,索引值 索引值：决定新增项在列表中的位置，如果省略，则新增项目添加在最后。 RemoveItem方法 删除列表中指定项目 对象.RemoveItem 索引值 Clear 清除列表中所有项目 例如：List1.Clear,例：模仿ACCESS中，在“简单查询向导”中使用的项目选择器,列表框举例,Private Sub cmdToright_Click() If lstOptional.ListI

25、ndex = 0 Then 出错处理代码 lstSelected.AddItem lstOptional.Text lstOptional.RemoveItem lstOptional.ListIndex Else MsgBox 请先选择项目, , 友情提示 End If End Sub,Private Sub cmdToLeft_Click() If lstSelected.ListIndex = 0 Then 出错处理代码 lstOptional.AddItem lstSelected.Text lstSelected.RemoveItem lstSelected.ListIndex Else MsgBox 请先选择项目, , 友情提示 End If End Sub,Private Sub cmdToAllright_Click() Dim i% For i = 0 To lstOptional.ListCount - 1 lstSelected.AddItem lstOptional.List(i) Next lstOptional.Clear End Sub Private Sub cmdToAll