7VBA编程基础解读.ppt

* 例：假定有以下程序段 (2005.9)n=0for i=1 to 3 for j=-4 to -1 n=n+1 next jnext i运行完毕后，n的值是A）0　　B）3　　C）4　　D）12 Right! 7.4 VBA流程控制语句 * 7.4 VBA流程控制语句 2．DoWhile—Loop语句 使用格式如下： Do While 条件式 循环体 [条件语句序列 Exit Do 结束条件语句序列] Loop T 条件表达式 语句块 F 图7.13 Do While—Loop循环语句流程图 * 7.4 VBA流程控制语句 3．Do Until—Loop语句 与DoWhile—Loop结构相对应，还有另一个Do循环结构，DoUntil—Loop结构。该结构是条件式值为假时，重复执行循环，直至条件式值为真，结束循环。条件表达式语句块FT图7.14 Do Until—Loop循环语句流程 循环流程如图7.14所示。 使用格式如下： Do Until 条件式 循环体 [条件语句序列 Exit Do 结束条件语句序列] Loop 条件表达式 语句块 F T 图7.14 Do Until—Loop循环语句流程 * 7.4 VBA流程控制语句 4．Do—Loop While语句 Do 循环体 [条件语句序列 Exit Do 结束条件语句序列] Loop　While 条件式 循环流程如图7.15所示。 5．Do—Loop Until语句 Do 循环体 [条件语句序列 Exit Do 结束条件语句序列] Loop Until 条件式 循环流程如图7.16所示。 * 7.4 VBA流程控制语句 语句块 条件表达式 T F 语句块 条件表达式 F T 图 7.15 Do—Loop While循环语句流程图 图 7.16 Do—Loop Until循环语句流程图 * 例：单击窗体，消息框的结果为____ (2006.4)Private Sub Form_Click() Dim x as Integer, y as Integer x=2: y=4 Do x=x*y y=y+1 Loop while y4 MsgBox xEnd Sub 此种结构，先执行循环体，再判断条件，当while后的条件表达式为真时，执行循环体，为假时，跳出循环体。 X=2 y=4 X=8 Y=5 7.4 VBA流程控制语句 * 7.4 VBA流程控制语句 Private Sub Command1_Click() Dim num As Single num=1 Do Until num6 num=num+2.4 Loop MsgBox num End Sub num=1 num=3.4 num=5.8 num=8.2 此种结构，先判断条件，再执行循环体，当until后的条件表达式为假时，执行循环体，为真时，跳出循环体。 * 7.5 面向对象程序设计的基本概念 7.5.1 集合和对象 一个对象就是一个实体，如一辆自行车或一个人等。每种对象都具有一些属性以相互区分，如自行车的尺寸、颜色等。即属性可以定义对象的一个实例。 对象除了属性以外还有方法。对象的方法就是对象的可以执行的行为，自行车行走、人说话等。一般情况下，对象都具有多个方法。 在Access应用程序由表、查询、窗体、报表、宏和模块对象列表构成，形成不同的类。 * 7.5 面向对象程序设计的基本概念 7.5.2 属性和方法 属性和方法描述了对象的性质和行为。其引用方式为：对象.属性 或 对象.行为。 Access中“对象”可以是单一对象，也可以是对象的集合。例如，Label1.Caption属性表示“标签”控件对象的标题属性，Reports.Item(0)表示报表集合中的第一个报表对象。数据库对象的属性均可以在各自的“设计”视图中，通过“属性窗体”进行浏览和设置 。 * 7.5 面向对象程序设计的基本概念 7.5.3 事件和事件过程 事件是Access窗体或报表及其上的控件等对象可以“辨识”的动作，如单击鼠标、窗体或报表打开等。在Access数据库系统里，可以通过两种方式来处理窗体、报表或控件的事件响应。一是使用宏对象来设置事件属性，对此前面已有叙述；二是为某个事件编写VBA代码过程，完成指定动作，这样的代码过程称为事件过程或事件响应代码。 *