VB程序设计总复习

1、VB程序设计总复习第一、 二1.VB应用程序（工程文件）的组织结构VB应用程序由三种模块组成: 窗体模块(Form) (文件扩展名.frm) 标准模块(Module) (文件扩展名.bas) 类模块(Class) (文件扩展名.cls) VB应用程序工程文件(.vbp)窗体模块(.frm)文件类模块(.cls)文件标准模块(.bas)文件Function过程Sub过程事件过程Function过程Sub过程关系： 2.VB集成开发环境菜单栏 工具栏 工具箱窗口 窗体窗口 工程资源管理器窗口 属性窗口 代码窗口3.VB是一种面向对象的可视化程序设计语言，采取了事件驱动的编程1.3 创建应用程序的过

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

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

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

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

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

7、3>方法: Move: 移动控件，或改变其大小。<对象名>.Move <Left>,<top>,<width>,<Height> 9. 文本框文本编辑区域，可在该区域输入，编辑和显示(输出)正文内容。1>属性: Text, Maxlength, MultiLine, ScrollBars, Locked, PasswordChar2>事件:Change : 当改变文本框的Text属性或者用户输入新内容时会 引发该事件.KeyPress ：KeyAscii 参数是所按键的ASCII码 。LostFocus : 当控件失

8、去焦点时发生.GotFocus : 当控件获得焦点时发生.vntobjstrdtmcurdblsnglngintblnbyt3>方法: SetFocus: 把光标移到指定的文本框对象中。 格式： 对象.SetFocus6. 命令按钮1>属性: Name, Caption, Style, Picture.2>事件: Click 、KeyDown、KeyUp、MouseDown、MouseUp3>方法: SetFocus: 将焦点定位到命令按钮上。 格式：对象.SetFocuseg: Command1.SetFocus第三章 VB语言基础VB的数据类型 3.2 变量与常量变

9、量 : 在程序运行中其存储的值可以改变。命名规则：1 .必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度 255个字符。不能有空格 “.”等2 .不能使用VB中的关键字。3 VB不区分变量名的大小写，一般变量名首字母用大写，其余用小写字母表示；常量全部用大写字母表示。变量声明 显式声明变量。语句格式： Dim 变量名 As 类型 As部分缺省，创建的变量为变体类型 一条Dim语句可同时定义多个变量，但每个变量应有类型说明，否则为变体型 。显式声明变量。语句格式： Dim 变量名 As 类型 As部分缺省，创建的变量为变体类型 一条Dim语句可同时定义多个变量，但每个变量应有类型说明，

10、否则为变体型 。常量 常量是在程序运行中不变的数据量。VB有三种常量：<直接常量 : 其常数值直接反映了其类型。类型整型长整型单精度实型双精度实型货币型字符串型符号%&!#$ <符号常量 : 用户声明，便于程序阅读或修改。 Const 符号常量名 As 类型 = 表达式<系统常量 系统提供许多内部常量。 例如：vbCrLf 回车/换行组合符 vbRed 设置字体为红色。 3.3 运算符和表达式 在VB中，通过运算符和操作数组合成表达式，实现程序编制中所需的大量操作。 运算符是实现某种运算的符号。VB中的运算符可分为：a 算术运算符、b字符串运算符、c关系运算符和逻辑运

11、算符。4. 运算符与优先级算术运算符 、 -、 *或/、mod、+、-字符串运算符 + 或 & 同级关系运算符 =、>、>=、<、<=、<>、Is、Like 同级逻辑运算符 Not、And、Or注意:1> 算术运算符两边的操作数应为数值型。若是数字字符或逻辑字符，则将逻辑字符自动转换成数值类型后再运算。例如: True+10 结果为-1+10=92> 若“+”两旁的操作数均为数值型则进行算术加运算。若一个为非数字字符型，一个为数值型，则出错。例如: False+10+”24” 结果为0+10+24=343> 不管连接符“&”

12、两旁的操作数是字符型还是数值型，系统都先将操作数转换成字符型，然后再连接。例如: 200 + “200” & 200 先算“+”再算“&” “123”+”456”4> 关系运算符是双目运算符，作用是将两个操作数进行大小比较，结果为逻辑值。例如: “abcd” > “abdc” 5> 逻辑运算符的作用是将操作进行逻辑运算，结果为逻辑值或数值。 例如: True and False 8 and 8 6>设: a=2 b=3 c=4 d=5 Not a <= c  Or  4 * c = b2  

13、0;And  d <> a+c 5. 表达式1>书写规则: 从左到右在一行上书写，无高低之分。 表达式中的运算符可以用圆括号括起来，以改变运算优先级或增加表达式的清晰度。 不能使用方括号或花括号，圆括号可以出现多个，但要配对。 运算符之间不能相邻，乘号不能省略。 例如: |x+y|+z4 abs(x+y)+z4 1 1 1 1 1/(1/x+1/y+1/z) x y z2> 值的类型: 如果操作数具有不同的数据精度，则运算结果的数据类型采用精度高的数据类型： Integer<Long<Single<Double<Currenc

14、y Long 型与Single型运算,其数据类型应是什么?3> 常用函数（参看表3.7、3.8、3.9)a.数学函数 Exp(), Rnd(), Sqr(), Abs() b.转换函数 Chr(), Int(), LCase( ), UCase(), Round( ),Str(), Val() c.字符串函数 Len(), Mid(), Left (), Right( ) ，InStr( ), String( )d.日期和时间函数 Now Time Date 4>根据下列文字条件的描述写出相应的VB表达式：1）产生一个100到200范围内的正整数。调用随机函数Rnd生成a,b 范围

15、内的随机整数: Int (b-a+1)*Rnd+a)Int (200-100+1) * Rnd + 100)+12）产生一个“A”到“Z”范围内的大写字符。调用随机函数Rnd生成a,b 范围内的随机整数: Int (b-a+1)*Rnd+a)调用将字符转换成ASCII码值的函数Asc(N) Acs(“A”) = 65, Asc(“Z”) = 90Chr (Int (26 * Rnd + 65)· 5）表示10x<20的关系表达式· X>=10 AND x<20 或者 10<=x and x<20· 7）将变量x的值按四舍五入保留小数点

16、后两位。调用格式输出函数 Format()· Format (x, “000.00”)· Format (x, “0.00”)· Format (x, “#.#”)Format (x, “#.#”)或者 Round(x,2)第四章 VB控制结构一. 顺序结构<1> 赋值语句形式: 变量名表达式表达式：任何类型的表达式，类型应与变量名的类型一致作用: 将表达式的值赋值给变量名. 一般用于给变量赋值或对控件设定属性值.注意: 赋值号左边必须是变量或对象属性，不能是常量、常量符号或表达式。并且一次只能对一个变量赋值。 当右边表达式类型与左边变量类型不同时的数

17、据转换。<2> InputBox函数 P63InputBox(提示信息,对话框标题,默认值 ,x 坐标位置,y坐标位置功能: 打开一对话框，等待用户输入正文或按下按钮， 并返回包含文本框内容的字符串。函数返回值: 字符串Dim a%,B%a = InputBox(“请输入一个正整数”, “示例”, 1)b = InputBox("请输入一个正整数“,2)print b + a 打印什么结果？<3> MsgBox函数和MsgBox过程 P63函数: 变量% = MsgBox(提示,按钮，标题)过程: MsgBox(<提示信息>,<按钮类型>

18、;,<对话框标题>)例如: a = MsgBox("在这里输入消息内容", 3 + 256, "注意")功能: 在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。函数返回值: 所选按钮的整数值。二. 选择结构1. If单分支的两种结构格式1） If <表达式> Then <语句>2） If <表达式> Then <语句块> End If2. If双分支的两种结构格式1） If <表达式> Then <语句1> Else <语句2>2）

19、 If <表达式> Then <语句块1> Else <语句块2> End If3. If多分支的结构格式 If <表达式1> Then <语句块1> ElseIf <表达式2> Then <语句块2> . Else <语句块n+1> End If注意：ElseIf之间不能有空格4. If语句的嵌套结构格式： 在If或Else后面的语句中又包含If语句。 If <表达式1> Then . If <表达式2> Then . End If End If注意：每个End If与它上

20、面最接近的If配对。书写时可以为锯齿形，便于区分和配对。5. 情况语句Select Case格式： Select Case <变量或表达式> Case <表达式列表1> <语句块1> Case <表达式列表2> <语句块2> . Case Else <语句块n+1> End Select说明: <测试表达式> : 数值或字符表达式 Case 表达式表: 表中的表项为如下形式: (1) 表达式1 ,表达式2. 如: Case 1 , 3 , 5 (2) 表达式1 TO 表达式2 如: Case 10 to 30

21、Case "A" to "Z" (3) Is <关系运算符><表达式> 如: Case Is >= 10 Case Is = 0 与 Case 0 相同 Select Case格式注意要点: 1>不可以在Case后的表达式中使用测试表达式中的变量。2>Select Case后只能是一个变量。3>不要在Case后直接使用布尔运算符来表示条件。如： Case x>0 and x <1006. 条件测试函数的格式：IIf(<条件表达式>,当条件为Ture时的值,当条件为False时的值)C

22、hoose(<数字类型变量>，值为1的返回值，值为2的返回值.) 例：Dim x% If x Then Print x Else Print x + 1· 实验C：1 p265·Private Sub Form_Click()Dim x!, y!x = Val(InputBox("输入x的值")If x < 1000 Then y = x ElseIf x < 2000 Then y = 0.9 * x ElseIf x < 3000 Then y = 0.8 * xElse y = 0.7 * xEnd IfPrint y

23、End Sub·· 实验C：2Private Sub Form_Click()Dim time!, f!time = InputBox(“输入上网时间的值：")If time < 10 Then f = 30 ElseIf time < 50 Then f = 2.5 * timeElse f = 2 * timeEnd IfIf f > 150 Then f = 150Print fEnd SubDim time!, f!time = InputBox("输入上网时间的值：")Select Case time Case Is

24、 < 10 f = 30 Case Is < 50 f = 2.5 * time Case Else f = 2 * timeEnd SelectIf f > 150 Then f = 150Print f三. 循环结构1. For.Next循环结构格式 For <循环变量>=<初值> To <终值> Step <步长> <循环体> Exit For Next <循环变量>说明：(1)循环变量数值变量(2)初值 ,终值 ,步长数值表达式(3)步长可正可负,但不能为0,为1时可以省略· 步长 &g

25、t;0 初值<=终值 =1 时,可省略· <0 初值>=终值· =0 死循环·循环次数S=7 7 1For i = 1 To 6 Step -1S=S - iNext iPrint S , i· 下面第40号语句共执行了_ 次,第41号语句共执行了_ 次,30 FOR J=1 TO 12 STEP 340 FOR K=6 TO 2 STEP -241 MsgBox(j & “ ” & k)42 next k43 Next j· 2. Do.Loop循环4种结构格式 格式四: Do <语句组1> Ex

26、it Do <语句组2>Loop Until<条件>格式一: Do While <条件> <语句组1> Exit Do <语句组2>Loop格式二: Do Until <条件> <语句组1> Exit Do <语句组2>Loop格式三: Do <语句组1> Exit Do <语句组2>Loop While <条件>功能： 使用While <条件>: 条件为True时，执行循环体 条件为False时，退出循环 使用Until <条件>: 条件

27、为False时，执行循环体 条件为True时，退出循环循环体内必须有改变循环变量的语句，当循环结束时循环变量的值应超出终值3. 嵌套循环/多重循环 P80 计算多重循环的循环次数为每一重循环次数的乘积。 外循环要完整地包含内循环结构，不能交叉，循环控制变量名不能相同。4.循环变量值的变化规律、结束循环后循环变量的值、循环体中执行Exit for 或 Exit do后循环变量的值，循环次数等4. 常用算法:累加、累乘,排序求最大值、求最小值、以及它们的位置,求平均值求素数、求水仙花数、插入、删除数据等 “穷举法”也称为“枚举法”或“试凑法”， 即将可能出现的各种情况一一测试，判断是否满足条件，一

28、般采用循环来实现。 递推法 “递推法”又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都从旧值的基础上递推出新值，并由新值代替旧值。 实验D:6编一程序，显示所有的水仙花数。Private Sub Form_Click() Dim s%，a %,b %,c % For s = 100 To 999 a= s 100 b= s 10 Mod 10 c= s Mod 10 If a 3 +b 3 + c 3 = s Then Print s； End If Next sEnd Sub第五章 数组一. 数组的概念<1>数组: 是一组具有相同类型的数据的

29、集合。<2>数组元素：数组中的某一个数据项，可以把一个数组元素看成是一个简单变量二. 数组的声明<1>静态数组: 在声明时确定了大小的数组。数组声明 Dim 数组名(下标1,下标2) As 类型数组大小:下标个数的乘积 一维数组: <上界1>-<下界1>+1 二维数组: <上界1>-<下界1>+1）×（<上界2>-<下界2>+1）注意: (1) 下界缺省为0，也可在重新定义数组的下界。例如：Option Base 1 (2) 错误的声明，下标只能是常量，不能是变量或表达式。 n =Inpu

30、tbox(“输入n”） Dim x(n) As Single<2>动态数组: 在声明数组时未给出大小的数组。当需要使用时，随时用ReDim语句重新指出大小的数组。Dim 数组名( )As 类型,ReDim Preserve数组名(下标，下标2 ) As 类型,注意: (1) 下界缺省为0，也可在重新定义数组的下界。例如：Option Base 1 (2) 错误的声明，下标只能是常量，不能是变量或表达式。 n =Inputbox(“输入n”） Dim x(n) As Single<2>动态数组: 在声明数组时未给出大小的数组。当需要使用时，随时用ReDim语句重新指出大小

31、的数组。Dim 数组名( )As 类型,ReDim Preserve数组名(下标，下标2 ) As 类型,说明:(1)在过程中可多次使用ReDim来改变数组的大小和维数，但不许改变类型。(2) 使用ReDim语句将重新对数组元素进行初始化，会使原来 数组中的值丢失，可以在ReDim语句后加Preserve参数来保留数组中的数据。使用Preserve只能改变最后一维的大小，前面几维大小不能改变。 (3) ReDim中的下标可以是常量，也可以是有了确定值的变量(4) 使用时注意下标的范围。不要越界.三. 数组的基本操作数组的输入 般来说对于少量的数据输入，可通过InputBox()函数处理。对于大

32、量的数据输入，可通过For.Next.循环来处理。数组的输出可通过For.Next.循环来进行数据的输出。求数组中最大元素及下标一般假设第一个元素及下标为最大值及最大元素的下标，然后将该数与数组中其他元素逐一比较，若有比最大值大的元素则马上替换，同时也替换最大值的下标。数组元素的求和，求平均值 类似于之前介绍过的累加算法和求平均值的算法，只不过是针对数组中的元素进行操作。1. 用下面的语句定义的数组的元素的个数为（ ） Dim Arr1( -2 To 5) as Integer A 8 B 9 C 7 D 112. 指出下列语句错误的原因实验E：1 Dim n As Integer n=12

33、Dim a (1 To n ) As IntegerPrivate Sub Form_Click() Dim a(1 To 10) As IntegerDim i%, max%, min%, aver%For i = 1 To 10 思考：如何在二维数组中求最大值、最小值以及它们的位置。 a(i) = Int(Rnd * 71 + 30)Next imax = a(1)：min = a(1)：aver = a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)aver = aver

34、+ a(i)Next iFor i = 1 To 10Print a(i);Next iPrintPrint "MAX=" max; "MIN=" min; "AVER=" aver / 10End Sub实验E：2Private Sub Form_Click()Dim a( ), I%a = Array(56, 78, 98, 88, 76, 78)For I = 0 To 5 Print String(a（I） 5, ""); a(I) PrintNext IEnd Sub5.3 列表框和组合框 ·

35、列表框 可显示多个选项供用户选择，不能直接修改其中的内容。· 组合框 组合了文本框和列表框的特性而形成的一种控件。组合框有3种式样。1. 共有的重要属性(P：可在程序中设置或引用，D：可在设计状态设置)List ：PD 字符型数组，存放列表框的项目，下标是从0开始。ListIndex：P 选中的项目的序号，没有项目被选定时为-1ListCount：P 项目的数量，ListCount-1是最后一项的下标。Sorted：D True：按字母顺序排列。 False：按加入先后顺序排列。Text：P 列表项中被选定的内容， List 1.List(List 1.ListIndex) = Li

36、st1.Text。2. 列表框的特有属性Selected：P 逻辑数组。 Selected(i)的值为True表示第i+1项被选中。MultiSelect 0 - None：禁止多项选择。 1 - Simple：简单多项选择。 2 - Extended：扩展多项选择。3. 组合框的特有属性Style类型Style输入下拉式组合框0能简单组合框1能下拉式列表框2不能List1.ListIndex = 2List1.ListCount = 6List1.Sorted = FalseList1.Text 为 "C/C+程序设计 " · 常用方法v AddItem方法 把

37、一个项目加入列表对象.AddItem 项目字符串 ,索引值索引值：决定新增项在列表中的位置，如果省略，则新增项目添加在最后。v RemoveItem方法 删除列表中指定项目 对象.RemoveItem 索引值v Clear 清除列表中所有项目例如：List1.Clear第六章 过程一. 过程的概念 VB的程序是由一个个过程构成的，除了VB系统提供的大量使用的内部函数过程(Function)和事件过程(Sub)外，VB系统还允许用户根据各自需要自定义过程。二. 两类过程定义与调用<1>函数过程Function <函数过程名> (<形参表>) As <类型

38、> <语句组1> <函数过程名> = <表达式> Exit Function <语句组2> <函数过程名> = <表达式>End Function调用形式: 函数过程名(实参表)特点：函数过程名有值，有类型，在过程体内至少赋值一次。调用时不能独立存在，必须参加表达式的运算。<2>子过程Sub 子过程名(参数列表) 局部变量或常数定义语句 语句块1 Exit Sub 语句块2End Sub 或: 子过程名 实参表特点: 子过程名无值，无类型。调用时可以是一句独立的语句。三. 参数传递1. 值传递（ ByVa

39、l ）: 将实参的具体值单向地传递给形参，调用结束后形参值的改变不会影响实参的值。相对应的实参可以是常数或表达式。2. 地址传递（ ByRef ）将实参在内存的地址传递给形参，数据传递是双向的，即调用时实参将值传递给形参，调用结束后由形参将操作结果返回给实参。即形参值的改变会改变实参的值。当实参要得到返回结果时，实参只能是变量，不能是常量或表达式。3>数组参数的传递只能通过传址方式进行传递。注意： 在实参和形参中写数组名，忽略维数的定义，但圆括号不能省 被调过程可通过Lbound和Ubound函数确定实参数组的下、上界 变量的作用域(p140)作用范围过程级变量窗体/模块级变量全局变量声

40、明方式DimDim、PrivatePublic声明位置在过程中过程外过程外能被本过程的其他语句块存取能能能能被本模块的其他过程存取不能能能能被其他模块存取不能不能能,但在变量名前要加窗体名当程序运行时，写出程序结果。Public Sub Swap1 (ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x : x = y : y = tEnd SubPublic Sub Swap2 (x As Integer, y As Integer) Dim t As Integer t = x : x = y : y = tEnd S

41、ubPrivate Sub Command1_Click() Dim a As Integer, b As Integer 结果: a=10 b=20 a=20 b=10 a = 10 : b = 20 Swap1 a, b Print "a=" a; "b=" b a = 10 : b = 20 Swap2 a, b Print "a=" a; "b=" bEnd Sub· 当程序运行时，写出程序结果。Private Function sum(n As Integer) Static j As Integer j = j + n： sum = jEnd FunctionPrivate Sub Command1_Click() Dim i%, isum% For i = 1 To 5 isum = sum(i) Print "isum=" isum Next iEnd Sub结果: isum=1 isum=3 isum=6Private Sub Command1_Click() Dim Z% Z=Z+2 Call S Prin