visual foxpro程序设计教程 第3版 教学课件 ppt 作者 刘瑞新 第7章 循环结构程序设计

Visual FoxPro程序设计教程（第3版）,第7章 循环结构程序设计,第7章 循环结构程序设计,程序设计中的循环结构（简称循环）是指在程序中, 从某处开始有规律地反复执行某一操作块（或程序块）的现象。被重复执行的该操作块（或程序块）称为循环体, 循环体的执行与否及次数多少视循环类型与条件而定。当然, 无论何种类型的循环结构, 其共同的特点是必须确保循环体的重复执行能被终止（即非无限循环）。7.1 循环结构语句7.2 列表框与组合框控件7.3 页框,7.1 循环结构语句,VFP中提供了“当型”、“步长型”和“表扫描型”3种循环语句： DO WHILEENDDO（当型循环） FORENDFOR（步长型循环） SCANENDSCAN（表扫描型循环）。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE 想要在某一条件满足时执行循环, 可以使用当型循环（DO WHILE）结构。当型循环的流程图如图7-1所示。 当型循环的语法格式为：DO WHILE 条件 命令列 EXIT LOOPENDDO,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE 当型循环的语法格式为：DO WHILE 条件 命令列 EXIT LOOPENDDO 说明： 条件可以是关系表达式或逻辑常量。根据条件的逻辑值进行判断, 如果条件的值为.T., 则执行DO WHILE和ENDDO之间的循环体。如果条件的值为.F., 则结束循环, 转去执行ENDDO之后的命令。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE 当型循环的语法格式为：DO WHILE 条件 命令列 EXIT LOOPENDDO 说明： 命令列是指定条件为真时执行的那组VFP命令, 即循环体。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE 当型循环的语法格式为：DO WHILE 条件 命令列 EXIT LOOPENDDO 说明： EXIT是无条件结束循环命令, 使程序跳出DO WHILEENDDO循环, 转去执行ENDDO后的第一条命令。EXIT只能在循环结构中使用, 但是可以放在DO WHILEENDDO中任何地方。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE 当型循环的语法格式为：DO WHILE 条件 命令列 EXIT LOOPENDDO 说明： LOOP将控制直接转回到DO WHILE语句, 而不执行LOOP和ENDDO之间的命令。因此LOOP称为无条件循环命令, 只能在循环结构中使用, 可以放在DO WHILEENDDO中任何地方。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE 当型循环的语法格式为：DO WHILE 条件 命令列 EXIT LOOPENDDO 说明： DO WHILE、ENDDO必须各占一行。每一个DO WHILE都必须有一个ENDDO与其对应, 即DO WHILE和ENDDO必须成对出现。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE【例7-1】计算阶乘的程序。非负整数n的阶乘定义如下： 分析：求阶乘n!, 可以采用累乘的方法, 用变量t来存放累乘的积（初值为1）, 用变量i来存放“乘数”。i从1开始到n为止。 根据分析画出流程图, 如图7-3所示。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE【例7-1】计算阶乘的程序。非负整数n的阶乘定义如下： 根据流程图可写出命令按钮的Click事件代码如下, 表单界面的设计参见前面章节。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE【例7-1】计算阶乘的程序。非负整数n的阶乘定义如下： 另外, 为了防止数据溢出, 限制输入的整数不超过20。为此, 编写文本框Text1的事件代码如下： Valid事件代码：,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE【例7-1】计算阶乘的程序。非负整数n的阶乘定义如下： 另外, 为了防止数据溢出, 限制输入的整数不超过20。为此, 编写文本框Text1的事件代码如下： GotFocus事件代码：THIS.SelStart=0THIS.SelLength=LEN(THIS.Text) 说明：Valid事件当控件失去光标（焦点）时发生, 代码RETURN 0使控件不失去光标。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE【例7-2】输入两个正整数, 求它们的最大公约数。 分析：求最大公约数可以用“辗转相除法”, 方法如下： 以大数m作被除数, 小数n做除数, 相除后余数为r。 若r 0, 则m n, n r, 继续相除得到新的r。若仍有r 0, 则重复此过程, 直到r = 0为止。 最后的n就是最大公约数。 根据此分析画出流程图如图7-5所示。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE【例7-2】输入两个正整数, 求它们的最大公约数。 表单界面的设计参见前面章节 这里给出命令按钮的Click事件代码：,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE【例7-3】输入一个正整数, 利用“当型”循环判断是否素数。 分析：所谓“素数”是指除了1和该数本身, 不能被任何整数整除的数。判断一个自然数n（n3）是否素数, 只要依次用2作除数去除n, 若n不能被其中任何一个数整除, 则n即为素数, 如图7-6所示。 根据上述分析, 画出流程图, 如图7-7所示。,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE【例7-3】输入一个正整数, 利用“当型”循环判断是否素数。 表单界面的设计参见前面章节 这里给出命令按钮的Click事件代码：,7.1 循环结构语句,7.1.1 当型循环命令DO WHILE【例7-3】输入一个正整数, 利用“当型”循环判断是否素数。 编写Text1的GotFocus事件代码, 使文本框得到焦点后, 文本立即被选中：THIS.SelStart = 0THIS.SelLength = LEN(STR(THIS.Value),7.1 循环结构语句,7.1.2 步长型循环命令FOR 若事先知道循环次数, 则可以使用步长型循环（FORENDFOR）结构。 步长型循环根据给定的次数重复执行循环体。其语法格式为：FOR 内存变量=初值 TO 终值 STEP 步长值 命令列 LOOP EXIT 命令列ENDFOR | NEXT,7.1 循环结构语句,7.1.2 步长型循环命令FOR 步长型循环根据给定次数重复执行循环体, 其语法格式为：FOR 内存变量=初值 TO 终值 STEP 步长值 命令列 LOOP EXIT 命令列ENDFOR | NEXT 说明： 内存变量 是一个作为计数器的内存变量或数组元素, 在FORENDFOR执行之前该变量可以不存在。初值 是计数器的初值, 终值 是计数器的终值, 步长值 是计数器值的增长或减少量。,7.1 循环结构语句,7.1.2 步长型循环命令FOR 步长型循环根据给定次数重复执行循环体, 其语法格式为：FOR 内存变量=初值 TO 终值 STEP 步长值 命令列 LOOP EXIT 命令列ENDFOR | NEXT 说明： 命令列指定要执行的一个或多个命令。 EXIT跳出FOR.ENDFOR循环, 转去执行ENDFOR后面的命令。可把EXIT放在FOR.ENDFOR中任何地方。,7.1 循环结构语句,7.1.2 步长型循环命令FOR 步长型循环根据给定次数重复执行循环体, 其语法格式为：FOR 内存变量=初值 TO 终值 STEP 步长值 命令列 LOOP EXIT 命令列ENDFOR | NEXT 说明： LOOP将控制直接转回到FOR子句, 而不执行LOOP和ENDFOR之间的命令。,7.1 循环结构语句,7.1.2 步长型循环命令FOR 步长型循环根据给定次数重复执行循环体, 其语法格式为：FOR 内存变量=初值 TO 终值 STEP 步长值 命令列 LOOP EXIT 命令列ENDFOR | NEXT 说明： 命令列中可以嵌套控制结构的命令语句（IF、DO CASE、DO WHILE、FOR等）。,7.1 循环结构语句,7.1.2 步长型循环命令FOR【例7-4】利用“步长型”循环判断素数的程序。 只需修改命令按钮Command1的Click事件代码：程序的运行结果同例7-3完全相同。,7.1 循环结构语句,7.1.2 步长型循环命令FOR【例7-5】求1! + 2! + 3! + + 20!的值。 分析：采用循环嵌套的方法, 见流程图, 如图7-8所示。,7.1 循环结构语句,7.1.2 步长型循环命令FOR【例7-5】求1! + 2! + 3! + + 20!的值。 编写命令按钮Command1的Click事件代码为：s = 0FOR n = 1 TO 20 t = 1 FOR m = 1 TO n t = t * m ENDFOR s = s + tENDFORTHISFORM.Text1.Value = s 运行结果如图7-9所示。,7.1 循环结构语句,7.1.2 步长型循环命令FOR说明： 在使用循环嵌套时要注意内外循环不能交叉. 内外循环的循环变量不能同名。 上例可以不使用双重循环, 请自行分析如图7-10所示的流程图, 并写出代码。,7.2 列表框与组合框控件,7.2.1 使用列表框 列表框（ListBox）显示一个项目列表, 用户可以从中选择一项或多项, 但不能直接编辑列表框中的数据。当列表框不能同时显示所有项目时, 它将自动添加滚动条, 使用户可以上下或左右滚动列表框, 以查阅所有选项。,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法 表7-1列出其他常用的列表框属性。表7-2则列出常用的列表框方法。,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法 表7-1列出其他常用的列表框属性。表7-2则列出常用的列表框方法。,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-6】求从2000年到2100年之间的所有闰年。 分析：设n为年份数, 若n同时满足如下两个条件则n为闰年： n能被4整除。 n不能被100整除, 或者n能被400整除。 据此, 画出求闰年的流程图, 如图7-11所示。,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-6】求从2000年到2100年之间的所有闰年。 设计步骤如下： 选择新建表单, 进入表单设计器, 首先增加一个形状控件Shape1, 然后在其中画上一个列表框控件List1、一个标签控件Label1和一个命令按钮Command1。List1的属性使用默认的设置, 只需修改字体的大小属性, 其他控件的属性设置参见图7-12。,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-6】求从2000年到2100年之间的所有闰年。 设计步骤如下： 编写命令按钮Command1的Click事件代码为：,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-7】利用循环结构和列表框控件, 设计一个“选项移动”表单。 设计步骤如下： 选择“新建”表单, 进入表单设计器。首先增加一个容器控件Container1、一个形状控件Shape1和一个标签Label1。修改容器控件的SpecialEffect属性为0 凸起, 形状控件的SpecialEffect属性为0 3维。然后进入容器的编辑状态, 在容器中增加两个列表框控件List1、List2和一个命令按钮组CommandGroup1, 并将按钮组的按钮个数改为4。,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-7】利用循环结构和列表框控件, 设计一个“选项移动”表单。 设计步骤如下： 设置对象属性, 见表7-3。,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-7】利用循环结构和列表框控件, 设计一个“选项移动”表单。 编写事件代码。 编写容器控件Container1的Init事件代码：,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-7】利用循环结构和列表框控件, 设计一个“选项移动”表单。 编写事件代码。 编写容器控件中命令按钮组CommandGroup1的Click事件代码：,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-7】利用循环结构和列表框控件, 设计一个“选项移动”表单。说明： 可以选定一个或多个数据项并使用适当的命令按钮在列表之间移动数据项。 为了能从列表中添加和移去数据项, 列表的RowSourceType必须设置成0 无。,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-7】利用循环结构和列表框控件, 设计一个“选项移动”表单。说明： 当列表框List1中没有选项时, 改变命令按钮的Enabled属性, 使Commad1和Command2同时关闭, 当列表框List2中没有选项时, 则关闭Commad3和Command4。 MoverBars属性设置为真（.T.）时, 允许用户拖动列表中数据项左边的按钮到新的位置来重新排序数据项。,7.2 列表框与组合框控件,7.2.1 使用列表框1. 列表框的属性与方法【例7-7】利用循环结构和列表框控件, 设计一个“选项移动”表单。说明： Sorted属性设置为真（.T.）时, 将按照字典顺序显示列表项。不过, 仅在列表的RowSourceType属性设置成0（无）或1（值）时, Sorted属性才有效。,7.2 列表框与组合框控件,7.2.1 使用列表框2. 显示文件目录【例7-8】显示文件目录的列表框程序。在列表框中选定文件后, 用鼠标单击“打开选定文件”按钮可打开该文件进行察看或编辑。 设计步骤如下： 选择新建表单, 进入表单设计器。增加一个列表框控件List1、一个命令按钮Command1、两个形状Shape1Shape2、两个标签Label1Label2和一个文本框Text1, 如图7-14所示。,7.2 列表框与组合框控件,7.2.1 使用列表框2. 显示文件目录【例7-8】显示文件目录的列表框程序。在列表框中选定文件后, 用鼠标单击“打开选定文件”按钮可打开该文件进行察看或编辑。 设计步骤如下： 设置List1和Text1的属性, 见表7-4, 其他控件的属性设置参见前面章节。,7.2 列表框与组合框控件,7.2.1 使用列表框2. 显示文件目录【例7-8】显示文件目录的列表框程序。在列表框中选定文件后, 用鼠标单击“打开选定文件”按钮可打开该文件进行察看或编辑。 编写事件代码。 编写表单的Activate事件代码：THISFORM.List1.SetFocus 编写文本框Text1的Valid事件代码：THISFORM.List1.RowSource = ALLTRIM(THIS.Value)THISFORM.List1.Requery,7.2 列表框与组合框控件,7.2.1 使用列表框2. 显示文件目录【例7-8】显示文件目录的列表框程序。在列表框中选定文件后, 用鼠标单击“打开选定文件”按钮可打开该文件进行察看或编辑。 编写事件代码。 编写“打开选定文件”按钮Command1的Click事件代码：a = THISFORM.List1.ListIndexMODIFY FILE (THISFORM.List1.List(2)+THISFORM.List1.List(a) 运行表单, 在列表框中选定文件, 按“打开选定文件”按钮, 即可打开一个包含指定文本文件的编辑器, 如图7-15所示。,7.2 列表框与组合框控件,7.2.1 使用列表框2. 显示文件目录【例7-8】显示文件目录的列表框程序。在列表框中选定文件后, 用鼠标单击“打开选定文件”按钮可打开该文件进行察看或编辑。 说明： a = THISFORM.List1.ListIndex表示将List1中光标所在项的序号赋予变量a。 其后的THIS.List(a)表示在列表框List1中选定的项。,7.2 列表框与组合框控件,7.2.1 使用列表框2. 显示文件目录【例7-8】显示文件目录的列表框程序。在列表框中选定文件后, 用鼠标单击“打开选定文件”按钮可打开该文件进行察看或编辑。 说明： 当RowSourceType属性设置为“7 文件”时： List1.List(1)代表驱动器 List1.List(2)代表路径 List1.List(3)是一个分隔行 List1.List(4)是., 单击它则返回到父目录,7.2 列表框与组合框控件,7.2.1 使用列表框2. 显示文件目录【例7-8】显示文件目录的列表框程序。在列表框中选定文件后, 用鼠标单击“打开选定文件”按钮可打开该文件进行察看或编辑。 说明： 文本框Text1的Valid事件代码中调用了列表框的Requery方法, 用于保证列表框中包含的数据都是最新的。这样, 每当在文本框中改变“文件类型”后, 列表框中都将列出相应的文件目录。,7.2 列表框与组合框控件,7.2.1 使用列表框3. 在列表框中显示多列【例7-9】简易数学用表。显示整数1100的平方、平方根、自然对数和e指数, 如图7-16所示。 设计步骤如下： 设计程序界面与设置对象属性 选择新建表单, 进入表单设计器。增加一个列表框控件List1、一个命令按钮Command1和4个标签Label1Label4, 如图7-16所示。 设置List1的属性见表7-5, 其他控件的属性设置参见前面章节。,7.2 列表框与组合框控件,7.2.1 使用列表框3. 在列表框中显示多列【例7-9】简易数学用表。显示整数1100的平方、平方根、自然对数和e指数, 如图7-16所示。 设计步骤如下： 编写Command1的Click事件代码：,7.2 列表框与组合框控件,7.2.2 使用组合框 有两种形式的组合框, 即下拉组合框和下拉列表框, 通过更改控件的Style属性可选择所需要的形式。 下拉列表框（即Style属性为2的组合框控件 下拉列表框）和列表框一样, 为用户提供了包含一些选项和信息的可滚动列表。 下拉组合框（即Style属性默认为0的组合框控件下拉组合框）则兼有列表框和文本框的功能。用户可以单击下拉组合框上的按钮查看选择项的列表, 也可以直接在按钮旁边的框中直接输入一个新项。 表7-6列出的组合框属性常在设计时使用。,7.2 列表框与组合框控件,7.2.2 使用组合框1. 下拉列表框【例7-10】在文本框输入数据, 按回车添加到列表框中, 在列表框中选定项目, 按回车后可以移去选定项, 如图7-17所示。 设计步骤如下： 选择新建表单, 进入表单设计器, 首先增加一个形状Shape1, 然后, 在其中增加一个文本框Text1、一个组合框Combo1以及两个标签Label1Label2。 设置Combo1的Style属性为2 下拉列表框, 其他控件的属性设置参见前面章节。,7.2 列表框与组合框控件,7.2.2 使用组合框1. 下拉列表框【例7-10】在文本框输入数据, 按回车添加到列表框中, 在列表框中选定项目, 按回车后可以移去选定项, 如图7-17所示。 编写代码。 编写表单的Activate事件代码：PUBLIC aa = 1THIS.Text1.SetFocus,7.2 列表框与组合框控件,7.2.2 使用组合框1. 下拉列表框【例7-10】在文本框输入数据, 按回车添加到列表框中, 在列表框中选定项目, 按回车后可以移去选定项, 如图7-17所示。 编写代码。 编写Text1的事件代码： KeyPress事件：,7.2 列表框与组合框控件,7.2.2 使用组合框1. 下拉列表框【例7-10】在文本框输入数据, 按回车添加到列表框中, 在列表框中选定项目, 按回车后可以移去选定项, 如图7-17所示。 编写代码。 编写Text1的事件代码： Valid事件：,7.2 列表框与组合框控件,7.2.2 使用组合框1. 下拉列表框【例7-10】在文本框输入数据, 按回车添加到列表框中, 在列表框中选定项目, 按回车后可以移去选定项, 如图7-17所示。 编写代码。 编写Combo1的RightClick事件代码：IF THIS.ListIndex 0 THISFORM.Text1.Value = THIS.List(THIS.ListIndex) THIS.RemoveItem (THIS.ListIndex) THIS.Value = 1ENDIF,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-11】在上例中使用下拉组合框来代替文本框和列表框, 实现同样的功能：输入数据, 按Enter键后可添加到列表中, 在列表中选定项目, 单击鼠标右键可移去选定项。 设计步骤如下： 表单界面的设计与控件属性的设置参见图7-18所示。,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-11】在上例中使用下拉组合框来代替文本框和列表框, 实现同样的功能。 编写代码。 编写Combo1的事件代码： KeyPress事件：,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-11】在上例中使用下拉组合框来代替文本框和列表框, 实现同样的功能。 编写代码。 编写Combo1的事件代码： RightClick事件：,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-11】在上例中使用下拉组合框来代替文本框和列表框, 实现同样的功能。 编写代码。 编写Combo1的事件代码： Valid事件：,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-12】“简易抽奖机”, 在组合框中输入号码。按下“开始”按钮后, 组合框中将不停变换随机得到的号码。单击“停止”按钮, 号码停止变动, 并得到中奖的号码。,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-12】“简易抽奖机”, 在组合框中输入号码。按下“开始”按钮后, 组合框中将不停变换随机得到的号码。单击“停止”按钮, 号码停止变动, 并得到中奖的号码。 设计步骤如下： 表单界面的设计与控件属性的设置参见图7-19。在窗体中增加一个计时器控件Timer1, 并将其Interval属性改为：50, Enabled属性改为：False。,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-12】“简易抽奖机”, 在组合框中输入号码。按下“开始”按钮后, 组合框中将不停变换随机得到的号码。单击“停止”按钮, 号码停止变动, 并得到中奖的号码。 编写代码。 编写Combo1的事件代码： KeyPress事件：,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-12】“简易抽奖机”, 在组合框中输入号码。按下“开始”按钮后, 组合框中将不停变换随机得到的号码。单击“停止”按钮, 号码停止变动, 并得到中奖的号码。 编写代码。 编写Combo1的事件代码： Valid事件：,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-12】“简易抽奖机”, 在组合框中输入号码。按下“开始”按钮后, 组合框中将不停变换随机得到的号码。单击“停止”按钮, 号码停止变动, 并得到中奖的号码。 编写代码。 编写命令按钮Command1的Click事件代码：,7.2 列表框与组合框控件,7.2.2 使用组合框2. 下拉组合框【例7-12】“简易抽奖机”, 在组合框中输入号码。按下“开始”按钮后, 组合框中将不停变换随机得到的号码。单击“停止”按钮, 号码停止变动, 并得到中奖的号码。 编写代码。 编写计时器控件Timer1的Timer事件代码, 使之可以随机地抽取奖号：n = THISFORM.Text1.Valuea = INT(RAND() * n) + 1THISFORM.Combo1.ListIndex = a,7.3 页框,页框架是一个可包含多个“页面”（Page）的容器控件, 其中的页面又可包含各种控件。当有多个数据屏幕需要显示时页框架很有用处, 它使用户可以往前或往后“翻页”而开发者无须编写另外的程序。 页框架刚被创建时, 只有两个页面, PageCount属性用来设置页面数。 和使用其他容器控件一样, 在向正设计的页面中添加控件之前, 必须先选择页框, 并激活这个容器（具有宽边）。 在添加控件前, 如果没有将页框作为容器激活, 控件将添加到表单中而不是页面中, 即使看上去好像是在页面中。,7.3 页框,7.3.1 带选项卡的表单【例7-13】在表单中设计一个带选项卡的页框架, 其中有3个页面, 分别放上一些不同的控件。 设计步骤如下： 选择新建表单, 进入表单设计器, 首先增加一个页框架控件PageFrame1, 并修改其PageCount属性为：3, 页框架上出现3个页面。 用鼠标右键单击页框架控件, 在弹出的快捷菜单中选择“编辑”, 激活页框架。开始编辑第一页, 将Page1的Caption属性改为：欢迎。然后在Page1上增加一个标签Label1和一个形状控件。修改其属性, 如图7-20所示。,7.3 页框,7.3.1 带选项卡的表单【例7-13】在表单中设计一个带选项卡的页框架, 其中有3个页面, 分别放上一些不同的控件。 设计步骤如下： 用鼠标单击Page2, 或在属性对话框中选择PageFrame1的Page2对象, 开始编辑第二页。将Page2的Caption属性改为日期。然后, 在Page2上增加一个文本框Text1、一个标签Label1和一个形状控件。并修改属性, 见表7-7, 如图7-21所示。,7.3 页框,7.3.1 带选项卡的表单【例7-13】在表单中设计一个带选项卡的页框架, 其中有3个页面, 分别放上一些不同的控件。 设计步骤如下： 用鼠标单击Page3, 或在属性对话框中选择PageFrame1的Page3对象, 开始编辑第三页。将Page3的Caption属性改为：时间。然后, 在Page3上增加一个文本框Text1、一个形状控件Shape1、一个计时器Timer1和两个标签控件Label1、Label2。并修改其属性, 如图7-22所示（参见例5-12）。设置Timer1的Interval属性为1000。,7.3