计算机程序设计语言.ppt

《计算机程序设计语言.ppt》由会员分享，可在线阅读，更多相关《计算机程序设计语言.ppt（224页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VISUAL BASIC,计算机程序设计语言,第一章Visual Basic 基本概念,计算机程序设计语言 低级语言：面向机器的语言。 机器语言：仅由 0、1 系列组成 汇编语言：机器指令符号化 高级语言：与机器无关的语言，是自然语言的一个子集。 何谓 Visual Basic？ “Visual”指的是开发图形用户界面 (GUI) 的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把已有对象添加到屏幕上即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolit Instruction Code 初学者通用符号指令代码) 语言。,Basic

2、语言的发展,60年代，Basic 语言：其含义是“初学者通用的符号指令代码” 随后功能更强的 Basic 语言：GWBASIC、BASICA 编译型的结构化 BASIC 语言，并具有集成工作环境 IDE，亦可解释执行：QUICK BASIC：、TRUE BASIC WINDOWS，GUI（图形用户界面），对用户的福音、对软件开发者的灾难（窗口、菜单、字形（包括字体、字型、字号）、对话框等各种构件） 90 年代，VISUAL BASIC ，91年1.0版、92年2.0版、93年3.0版、95年4.0版、97年5.0版、98年6.0版,Visual Basic 的特点,可视化编程：一套可视化设计工

3、具；隐藏了图形“界面”设计的复杂性； 并支持所见既所得的特性； 面向对象的程序设计技术：不必编写建立和描述每个对象的程序代码，由系统自动生成封装了程序和数据的可视对象。编程人员仅需编写该对象要实现的功能所对应的代码。 结构化程序设计语言：接近于自然语言和人类的逻辑思维方式，有利于程序的模块化；程序编辑器支持彩色代码、自动进行语法检查；功能强大灵活的调式器、编译器。,事件驱动机制：整个应用程序由分散的模块组成，由用户或系统通过事件引发对应的程序模块，从而理顺了程序设计者与用户之间的对立关系。 支持数据库管理：VB 提供开放式数据库连接功能（Open DataBase Connectivity）

4、ODBC ，可直接访问或建立连接的方式使用并操作后台的大型网络数据库。 支持动态数据交换（DDE：Dynamic Data Exchange）：可在两个应用程序之间进行通信或动态的交换数据。,支持对象的链接与嵌入（OLE：Object linking and embeding）：或称为 ActiveX 技术，是一种程序一体化技术，支持多媒体信息（声音、图象、动画、文字）的处理。 支持动态链接库（DLL：dynamic linking library）：使VB 通过包含C/C+或汇编语言，具备了低级语言的功能，可直接操作机器硬件，还可调用Windows API 函数，实现 SDK 的所有功能。,

5、Visual Basic 6.0 版本简介,学习版：使编程人员轻松开发 Windows 和 Windows NT(R) 的应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。 专业版：为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及 ActiveX 控件、Internet Information Server Application Designer、集成的 Visual Database Tools 和 Data Environment、 Active Data Objects、和 Dynamic HTML Page Designer。,Visual

6、 Basic 6.0 版本简介,企业版：使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及 Back Office 工具，例如 SQL Server、Microsoft Transaction Server、Internet Information Server、Visual SourceSafe、SNA Server，及其他。,Visual Basic 能做什么,到底能用 VB 干什么呢？,也许应该问不能用它干什么更恰当一些。,答案是：没有什么不能干的！ 从 设计新型的用户界面 到 利用其它应用程序的对象； 从 处理单一信息 到 多媒体信息 ； 从 处理普通

7、数据 到 使用数据库中的数据； 从 单机应用程序 到 网络应用程序； 从 开发个人或小组使用的小工具 到 大型企业应用系统；,Visual Basic IDE,集成开发环境 IDE，集成：设计、编辑、编译和调试,IDE的元素,菜单条 快捷菜单 工具栏 工具箱 工程管理器窗口 属性窗口,显示所使用的 Visual Basic 命令。除了提供标准“文件”、“编辑”、“视图”、“窗口”和“帮助”菜单之外，还提供了编程专用的功能菜单，例如“工程”、“格式”或“调试”。,包括经常执行的操作的快捷键。使用鼠标右击对象即可打开快捷菜单。在快捷菜单中的快捷清单取决于右击对象。例如，在“工具箱”上单击鼠标右键时

8、显示的上下文菜单：显示“部件”对话框，隐含“工具箱”，连接或挂断“工具箱”，或在“工具箱”中添加自定义选项卡。,在编程环境下提供对于常用命令的快速访问。按照缺省规定，启动 VB 之后显示“标准”工具栏。附加的编辑、窗体设计和调试的工具栏可以从“视图”菜单上的“工具栏”命令中移进或移出。工具栏能紧贴在菜单条之下，或以垂直条状紧贴在左边框上，如果将它从菜单下面拖开，则它能“悬”在窗口中。,提供一组工具，用于设计时在窗体中放置控件。除了缺省的工具箱布局之外，还可以通过从快捷菜单中选定“添加选项卡”并在结果选项卡中添加控件来创建自定义布局。,列出当前工程中的窗体和模块。工程是指用于创建一个应用程序的文

9、件的集合。,列出选定窗体和控件的属性设置值。属性是指对象的特征，如大小、标题或颜色。,IDE的元素,窗体设计器 代码编辑器窗口 对象浏览器 窗体布局窗口 立即窗口 本地和监视窗口,作为自定义窗口用来设计应用程序的界面。在窗体中添加控件、图形和图片来创建所希望的外观。应用程序中每一个窗体都有自己的窗体设计器窗口。,是输入应用程序代码的编辑器。应用程序的每个窗体或代码模块都有一个单独的代码编辑器窗口。,列出工程中有效的对象，并提供在编码中漫游的快速方法。可以使用“对象浏览器”浏览在 VB 中的对象和其它应用程序，查看对那些对象有效的方法和属性，并将代码过程粘贴进自己的应用程序。,Form Layo

10、ut window 允许使用表示屏幕的小图象来布置应用程序中各窗体的位置。,这是一个附加窗口，主要是为调试应用程序提供的。但也可直接执行某些命令。,这些附加窗口是为调试应用程序提供的。它们只在 IDE 之中运行应用程序时才有效。,第二章 数据与表达式,应用程序：由一条或多条语句构成。 每个语句：由单词、表达式构成。 单词、表达式：由一些字符组成。 “语法单位”：字符、词汇、表达式、 语句、过程、函数等 “语法规则” ：语法单位的形成规则。,基本字符集和词汇集,2.1.1 字符集 字符是构成程序设计语言的最小语法单位。 字符集：是程序设计语言约定的所有字符。,一、基本字符集包括 数字：09 英文

11、字母：AZ az 特殊字符：Space ! ” # $ % A+B+C 一个例子 除汉字外，所有符号均为英文符号,词汇集,“单词”：语言中具有独立意义的最基本结构。 “词汇集”：由单词符号组成，包括：运算符、界符、关键字、标识符、各类型常数等。 例：print x ,xyz 0.125*2,运算符,算术运算符：+ - * / Mod 字符串运算符： a Ennnd sub,If a = 0 then a = 1,变量的赋值Let 语句,功能：将表达式的值赋给变量或属性。 语法：Let varname = expression 说明：表达式值的类型必须与变量类型兼容即：赋值兼容 例如： Let

12、i = 1 i = 1 I = i + 1 s = s * i,赋值兼容,数值或可解释为数值的字符型数据可赋值给数值变量 字符型数据可赋值给字符型变量 字符串或数值表达式可赋值给 Variant 变量，反过来：任何除 Null 之外的 Variant 都可以赋给字符串变量，但只有当 Variant 的值可以解释为某个数时才能赋给数值变量。 不能将不可解释为数值的字符串表达式的值赋给数值变量 不能将数值表达式的值赋给字符串变量,运算符摘要,运算符表达了求值的一种的方法： 运算符描述 算术运算符 用来进行数学计算的运算符。 比较运算符 用来进行比较的运算符。 连接运算符 用来合并字符串的运算符。

13、逻辑运算符 用来执行逻辑运算的运算符。 优先级 函数运算算术运算 连接运算 比较运算 逻辑运算 括号先求值,算术运算符, 乘幂双目 - 负号单目 * 乘法双目 / 浮点除法双目 整数除法双目 Mod 取模、求余双目 + 加法双目 - 减法双目,优先级：从高到低,算术运算符,乘幂：当左操作数为负数时，右操作数必须是整数 (-3) 3 = -27 整数除法： 先对操作数取整并四舍五入 再对结果去掉小数部分 3.6 1.8 = 2 取模： 先对操作数取整并四舍五入 余数的符号与左操作数相同 16 mod 3 = 1 -16 mod 3 = -1,p34,算术表达式示例,3 + 2 * 7 ( 3 +

14、 2 ) * 7 10 * - 5 11 mod 4 / 2 ( 11 mod 4 ) / 2 1 + ( ( 2 + 3) * 2 ) * 2 15 / 5 * 2 15 5 * 2 27 1 / 3 27 ( 1 / 3 ),17 35 -50 1 1.5 21 5.6 1 9 3,比较运算符,expression1 comparisonoperator expression2 大于=大于等于不等 优先级均相同 数值比较：按照数值大小比较 字符串比较：按照ASCII码比较 应避免对浮点数进行等于比较 X是否在区间a, b之内时axb： a = x and x = b,比较运算符举例,Dim

15、 Var1, Var2 45 3 返回 True。 5 4 返回 True。 Var1 = 5 : Var2 = 4 Var1 Var2 返回 True。,连接运算符, 说明： 1. 可以是窗体(Form)、立即窗口(Debug)、图片框(PictureBox)、打印机(Printer)。如省略则为当前窗体。 picture1.print “Visual Basic”,Printer.print “Visual Basic” Form1.print “Visual Basic” Print “Visual Basic” debug.print “Visual Basic” 2. 可以是数值或字

16、符串表达式 a = 100 : b = 200 Print a + b Print Print “ABCDEFG”,3. 输出的标准格式与紧凑格式 X = 5 : y = 10 : z = 15 Print x, y, z, ”ABCDEF” Print Print x; y; z; ”ABCDEFG”; ”HIJK” Print x, y, z; ”ABCDEFG”; ”HIJK” 输出结果: 5 10 15 ABCDEF 5 10 15ABCDEFGHIJK 5 10 15ABCDEFGHIJK,4. Print的结尾 Print “30+50=“, Print 30+50 Print P

17、rint “100+50=“; Print 100+50 , Print “aaaaaaaaa” 输出结果 30+50= 80 100+50= 150 aaaaaaaaa,(1) Tab函数：Tab(n) 例tab 作用：与Print方法一起使用，在指定位置输出表达式的值。 Print tab(10); ”Abcde” 参数n可选，用来指定表达式输出的起始列数。省略则输出点移动到下一输出区的起点 如果n小于1，输出点移动到第1列 每个Tab函数对应一个输出项，各输出项间用分号分隔。,(2) Spc函数：Spc(n) 例spc 作用：与Print方法一起使用，跳过n个空格，对输出进行定位。（与s

18、pace()函数不一样。） print “abcd”; spc(10); ”efgh” Abcd efgh n必须是一个整型表达式，表示插入空格数，则下一位置紧接在n个空格之后。 各输出项间用分号分隔。,(3) Format函数： 格式：Format(, ) 作用：使数值按“格式字符串”指定格式输出 格式字符串：一个串常量或串变量，由专门的格式说明字符组成。见本书p69表3-4 例；print format(12345.6, ”000,000.00”) print format(12345.678, ”#,#.#”) print format(12345.6, ”#,#0.00”) print

19、 format(12345.6, ”$#,#0.00”) print format(0.123, ”0.00%”) 例3.9,其它方法,1. Cls方法：.Cls 作用：清除由Print方法显示的文本或图片框中图形，并把光标移到对象的左上角(0,0)。 例：Form1.CLS: Picture1.Cls 例pcls 2. Move方法： .Move, 作用：用于在程序中移动窗体和控件，并可以改变其大小。 例3.10,Move参数说明,屏幕,窗体,文本框,字体和字形,字体属性: Font 用于设置窗体及控件的字体属性。 设置方法：从属性列表中选择“Font”属性，然后单击右端带省略号“”的小按纽

20、；在随后出现的“字体”对话框中设置字体有关的的字体名、字体样式、字体大小和其他等。只能为对象作静态或初始状态的设置。,字体类型(FontName) 例3.11 .FontName=”字体类型” 说明：设置或返回当前对象的字体类型。默认对象指当前窗体。 例：Frmone.FontName = “system” printer.Fontname = “宋体” 字体大小(FontSize) 例3.12 .FontSize= 说明：设置或返回当前对象的字体大小，系统默认的字体8.25 即小五号字。,其他属性 例3.13 1、粗体字（FontBold）：逻辑值 .FontBold=True|False

21、2、斜体字（FontBold）：逻辑值 .FontItalic=True|False 3、加中划线（FontStriKethru）逻辑值 .FontStriKethru=True|False 4、加下划线（FontUnderline）逻辑值 .FontUnderline=True|False,重叠属性（FontTransparent)：逻辑值 .FontTransparent=True|False 作用：设置图形、文本的重叠显示。 对象名：窗体、图片框。 例3.14 设置显示坐标的属性（在程序中设置） CurrentX CurrentY 例x-y .CurrentX=X .CurrentY=Y

22、 对象名：窗体、图片框、打印机 功能：设置在对象中下一次显示的水平x和垂直y坐标。,NameBackcolorFont CaptionForecolorFontName HeightMaxbuttonFontSize WidthMinbuttonFontBold EnabledWindowStateFontItalic CurrentXFontStrikethru CurrentYFontUnderline FontTransParent Click、Dblclick、Load、Activate Queryunload、Unload Print（Tab、Spc、Format）、Cls、Move

23、,窗体： 属性,窗体： 事件,窗体： 方法,控制结构概述,控制结构就可控制过程中的语句的执行流程。 顺序结构：决定语句的执行顺序，从过程的第一条语句开始执行。 判定结构：也称为选择结构，用于分支的判定结构。 循环结构：用于重复处理的循环结构。,控制结构的逻辑描述,叙述框,判断框,输入/输出框,流程线,程序流程图 PAD图 数据流程图,分支结构 也称选择结构。在程序设计中某些运算和操作是否执行取决于某条件是否成立。一般通过可以进行逻辑判断的选择语句的判断结果决定程序的不同流程。 本章的基本内容： 4.1 单行结构条件语句 4.2 块结构条件语句 4.3 情况语句 本章重点：三种基本选择结构与应用

24、 本章难点：选择条件的建立、表达与嵌套关系,第四章 分支结构,求X的绝对值 X X=0 |X|= -X X0 计算公式 条件,问题1,0.25*w w50,输入W,W=50,0.25*w-P,50*0.25+(w-50)*0.45-P,输出P,P=,问题2,铁路托运行李；设W为托运重量，P为金额。计算：,If Then Else 功能：如果“条件”为True，执行“语句1”，否则执行“语句2”。,条件,语句1,语句2,True,False,单行结构的条件语句,If Then Else 1. 条件：通常是关系与逻辑表达式 例if1 a 0 and b = 0 X = 5 or x = 6 or

25、x 10,语法说明,2. 语句结构在一行内书写完毕；（2 then y=8: print y,例4.1 输入三个数a, b, c, 输出三者之中最大者。 分析：(1) 输入三个数值 (2) 从中找出最大数 (3) 输出结果 细化： 1、界面设计（窗体，两命令按钮，三文本框） form1 的 caption 为“求三者之中最大数” command1 的 caption 为“开始” command2 的 caption 为“结束”,2、算法设计 (1) 用文本框把三数分别输入到变量a, b, c中 ; (2)首先设 a 最大，并放在变量 max 中，然后分别与 b, c 进行比较，保留其中最大数在

26、 max 中； (3) 用 Print 方法输出 max 的值。,输入a,b,c,Max=a,max=c,Max=b,bmax,输出max,cmax,True,False,False,True,例4.2 输入系数a, b编程序解方程 ax + b = 0。 分析: 当 a 0 时, x = -b / a; 当 a = 0 时，且 b 0 时, 方程无解。 程序流程图： 事件代码,例4.2,输入系数a,b,a0,求方程的根,方程无解,结束,True,False,4. 行结构嵌套使用。 1 (x 0) 0 (x = 0) -1 (x 0 Then y = 1 Else If x = 0 Then

27、y = 0 Else y = -1 Print x=; x, y=; y End Sub If x = 0 then if x 0 then y = 1 else y = 0 else y = -1,Y=,4.2 块结构条件语句 If Then ElseIf Then Else EndIf,功能： 当“条件1”为True，执行“语句块1”； 否则，当“条件2”为 True，执行“语句块2”； 当条件都不成立情况下，如果有Else 语句，执行语句n+1。,语句块n,条件1,条件2,条件n,语句块2,语句块3,True,语句块1,条件3,语句块n+1,True,True,True,False,Fa

28、lse,False,False,：可以是单个语句，也可以是多个语句。可分别写在多行。 If x 0 and y 0 and y z then amount=(x+y+z*2)/2 : text1.text=str(amount) End if,说明： 将数值表达式看成为逻辑表达式的特例。（当条件为数值表达式时，非0表示真true; 0值表示假 false） 假设 a, b 为数值 If a+b then 当 a+b的值非0 时，为true print “true” Else print “false” 当 a+b 的值为0时，为false End if,(2) “语句块”的语句不能与其前面的

29、Then 写在同一行；且必须以 EndIf 结束。 （单行无End if) (3) ElseIf 语句数量没有限制。 (4) 当省略 Elseif 和 Else 语句时。块为 If-Then-End if） If Then End if *单行结构： If Then ,If a0 then x=-b/a : print x else print “方程无解” If a 0 then x = -b / a : print x Else x (x=0) print “ 方程无解” -1 (x=0 then y = x else y = -1 end if if x=0 then y=x else

30、y=-1,Y=,例4.3 鸡兔同笼。已知笼中有 H 个头, F 只脚，编程求笼中有鸡，兔各多少只？ 分析：设有鸡 J 只；兔有 T 只。方程组如下： T + J = H 4T + 2J = F 解方程组得：T = F / 2 - H J = 2H F / 2 1、T, J, H, F必须是非负整数； 2、F必须是 偶数， (f mod 2=0 说明 f 是偶数）， 且必须满足条件 2H = F = 4H 。 3、流程图如下：,条件: f mod 2 = 0 and 2*h = f and f = 4 * h,结束,输出J,T,条件？,2*H-F/2=J,F/2-H=T,输入数据错误,输入H,F

31、,开始,例4.4 从键盘上输入三个数，若这三个数能构成三角形的三条边长，则求这个三角形的面积；否则打印相应的错误信息。 分析：三个数均大于0 任意两条边的和大于第三边 设变量: a, b, c 条件：a 0 and b 0 and c 0 a + b c and b + c a and a + c b 计算公式：p = (a + b + c) / 2 s = sqr(p * (p - a) * (p - b) * (p - c),例4.5 设计一个程序，从键盘输入学生分数，统计学生总人数和各分段人数，即优秀(90-100)、良好(80-89)、中等(70-79)、及格(60-69)和不及格(5

32、9分以下）的人数。,Score=90,Score=80,Score=60,Score=70,N3=n3+1,N1=n1+1,N2=n2+1,N4=n4+1,输入Score,统计输入数,N5=n5+1,使用分数段统计变量：n1, n2, n3, n4, n5和总人数变量 Total。,If x 0 Then If x = 0 then y = 1 if x 0 then Else y = 1 If x = 0 Then Else y = 0 y = 0 Else End if y = -1 Else End if y = -1 End if End if,X0,X=0,X0,X=0,Y=1,Y=

33、-1,Y=0,Y=0,Y=1,Y=-1,输出Y,输入X,输出Y,输入X,例4.6 编写程序，计算存款利息，每年复利计息一次。程序输入本金年利率及年限，计算若干年后本利共多少。 分析:设p本金, r年利率 y年限, 及变量t, i 公式：P=p*(1+r)t 复利计算： P*(1+r) P*(1+r) *(1+r) P*(1+r) *(1+r) *(1+r),输入p,r,y,t=1,I=p*r,P=p+i,t=t+1,输出本利,ty,IIf 函数,IIf(expr, truepart, falsepart) 描述 Expr：条件 Truepart：如果 expr 为 True，则返回这部分的值或

34、表达式。 Falsepart：如果 expr 为 False，则返回这部分的值或表达式。,IIf 函数示例,本示例使用 IIf 函数来判断 CheckIt 过程之 TestMe 参数的值，如果参数值大于 1000 则传回“Large”；否则传回“Small”。 Function CheckIt (TestMe As Integer) CheckIt = IIf(TestMe 1000, Large, Small) End Function,Select Case 语句,根据表达式的值，来决定执行几组语句中的其中之一。 Select Case TestExpression Case Expres

35、sionList-1 Statements-1 Case ExpressionList-2 Statements-2 . . . . Case ExpressionList-n Statements-n Case Else ElseStatements End Select,Select Case 语句,说明 expressionlist 为下列一个或多个组成的分界列表： Expression expression To expression：指定一个数值范围 Is comparisonoperator expression：配合比较运算符来指定一个数值范围 Expression 与 Test

36、Expression 的类型一致,A) case 2, 4, 6, 8 B) case 1 To 10 C) case is 10 case is = 6 case is min, 5, 6, 13, is = max case is “HAN”, ”Mao” To “Tao”,例4.7 从键盘上输入一个的整数，然后在文本框中显示用英文表示的星期几，如输入0，显示“Sunday”，输入1，显示monday等。 分析：设测试变量 Var%和变量 msg$ Select case Var case 0 text1.text = “Sunday” case else text1.text = “Mu

37、st be 0 to 6.” End select,例4.8 编写程序计算货物运费。设货物运费每吨单价元与运输距离公里之间有如下关系: 30 s = 400 分析：设变量 w, t, s 公式： t=p*w*s,输入W,S,输出P*w*s,100=S200,200=S300,300=S400,S100,P=25,P=22.5,P=20,P=27.5,P=30,例4.9 用 Select Case 语句重写例4.5中的过程command_click。 分析： 1、本例将 select case 语句嵌套到if语句的Else分支的语句块中。Select case 与 ifthenelse 语句块的

38、功能相似。 2、select case 语句与块结构 if 语句主要区别在于：select case 只对单个表达式求值，并根据求值结果执行不同的语句块，而块结构if语句可以对不同的表达式求值。,第五章 循环结构,循环结构允许重复执行一行或数行代码。VB 支持的循环结构有： While Wend Do While . Loop Do Until . Loop Do Loop while Do Loop until Do . Loop For . Next For Each.Next,While.Wend 语句,While condition statements Wend 说明 如果 cond

39、ition 为 True，则所有的 statements 都会执行，一直执行到 Wend 语句。然后再回到 While 语句，并再一次检查 condition，如果 condition 还是为 True，则重复执行。如果不为 True，则循环终止。 循环次数可能为 0 次,While.Wend 语句示例,本示例使用 While.Wend 语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。 Dim Counter Counter = 0 设置变量初值 While Counter 19 时则循环终止 Print Counter 显示数字 20,For.Next 语句

40、,以指定次数来重复执行一组语句。 For counter = start To end Step stepvalue statements Exit For statements Next counter,For.Next 语句说明,Counter：用做循环计数器的数值变量。这个变量不能是布尔或数组元素。 Start：counter 的初值。 End：counter 的终值。 Step：counter 的步长。如果没有指定，则 step 的缺省值为 1。 Statements：放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数。,For.Next 语句说明,step 参数

41、可以是正数或负数。step 参数值决定循环的执行情况，如下所示： 值 循环执行，如果 正数或 0 counter = end 循环次数的计算,For.Next 语句示例,本示例使用 For.Next 语句创建一个字符串，其内容为由 0 到 9 的十个数字所组成的字符串，每个字符串之间用空格隔开。外层循环使用一个变量当作循环计数器，每循环一次，变量值减一。 Dim Words, Chars, MyString For Words = 10 To 1 Step -1 建立 10 次循环。 For Chars = 0 To 9 建立 10 次循环。 MyString = MyString & Cha

42、rs 将数字添加到字符串中。 Next Chars Increment counter MyString = MyString & 添加一个空格。 Next Words,Do While . Loop 语句,当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。 Do While condition statements Exit Do statements Loop,Do Until . Loop 语句,当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。 Do Until condition statements Exit Do s

43、tatements Loop,Do Loop While 语句,当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。 Do statements Exit Do statements Loop While condition,Do Loop Until 语句,当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。 Do statements Exit Do statements Loop Until condition,Do . Loop 语句,当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。 Do s

44、tatements Exit Do statements Loop,Do.Loop 语句示例,内层的 Do.Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。,Dim Check, Counter Check = True : Counter = 0 Do Do While Counter 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check =

45、False,对象是什么？,对象是代码和数据的组合，可以作为一个单位来处理。 对象可以是应用程序的一部分，比如可以是控件或窗体。整个应用程序也是一个对象。 下表列出了在 VB 中可能用到的几种类型的对象： 示例描述 命令按钮窗体上的控件。 窗体VB 工程中的每一个窗体都是独立的对象。 数据库数据库还包含其他对象，如字段、索引等。 图表Microsoft Excel 中的图表是对象。 ,对象从何而来,VB 中的每个对象都是用类定义的。 用饼干模子和饼干之间的关系作比，饼干模子是类。它确定了每块饼干的特征，比如大小和形状。用类创建对象。对象就是饼干。 在 VB 的“工具箱”上，控件代表类。直到在窗体

46、上画出这些被称作控件的对象为止。在创建控件之时也就是在复制控件类，或建立控件类的实例。这个类实例就是应用程序中引用的对象。 在设计时操作的窗体是类。在运行时，VB 建立窗体的类实例。,对象从何而来,把对象看作是类的原原本本的复制品，从而建立所有对象。 例如，如果在窗体上画了三个命令按钮，则每个命令按钮对象都是命令按钮类的实例。 每个对象都具有一组由类定义的公共的特征和功能（属性、方法和事件）。 每个对象都有自己的名字，都能分别设置成有效或无效，都能放在窗体的不同位置，等等。 “属性”窗口显示 VB 应用程序中的对象的类和 Name 属性。,用对象能做什么,对象可提供现成代码，省却书写麻烦。例如

47、： 可以自己创建打开文件和保存文件的对话框，但实际上大可不必。 取而代之的是利用 VB 提供的 CommonDialog 控件（一个对象）。 用户也能撰写日程管理和资源管理的程序，但也大可不必。 在此亦可使用 Microsoft Project 提供的 Calendar、Resources 和 Task 对象。,用对象能做什么,VB 可以组合来自其它来源的对象： 可把 VB 的各种强有力的特性以及支持自动化的应用程序结合起来，建立定制的解决方法。 可把 VB 内部的控件结合在一起，也可使用其它应用程序提供的对象。 可用这些对象建立支票簿应用程序。由于不必书写代码，重建已由 Excel 和 Wo

48、rd 等对象提供的功能，因而节省很多时间 Microsoft Excel Chart 对象 Microsoft Excel Worksheet 对象 Microsoft Word Document 对象,使用对象初步,VB 对象支持属性、方法和事件。 在 VB 中，称对象的数据为属性 称各种可在对象上操作的过程为方法 事件是可被对象识别的动作，可编写代码来响应事件,使用对象初步,改变对象的属性就可改变对象的特性。 用收音机打比方： 收音机的一个属性是音量。 用 VB 的行话来说，就是收音机有个“Volume”属性，改变其值就可调节音量大小。 假定收音机的音量值可设置在 0 到 10 之间。 如果能够通过 VB 控制收音机，则可在一个过程中写代码，把“Volume”属性值从 3 提高到 5，使声音更响一些： Radio.Volume = 5,使用