数据库应用技术全书教学课件电子教案.ppt

7.3.2 循环结构 循环结构：For…Next（续上页） 其中，Next后的“循环变量”可省略。关键字“步长”也可省略，省略“步长“时默认值为1。 循环变量和步长可以是整型、长整型或实数。 如果循环变量在循环体内不被修改，则可按以下公式计算For循环次数： 循环次数=(终值-初始值)/步长+1 在循环体中，可以使用Exit For退出循环。 7.3.2 循环结构 循环结构： Do While…Loop Do While…Loop循环语句的格式为： Do While 条件式 循环体 Loop 运行时，只有在条件式为真时才执行循环体，重复执行直到条件式为假。 例：使用 Do While…Loop语句，编程实现计算0到10之间所有奇数的和。程序清单如下： Dim i As Integer, s As Integer i = 1: s = 0 Do While i=10 s = s + i: i = i + 2 Loop 7.3.2 循环结构 循环结构： Do…Loop While Do…Loop While循环语句的格式为： Do 循环体 Loop While 条件式 运行时，执行循环体并对条件式的值进行真假判断, 重复执行直到条件式为假。 例：使用 Do…Loop While语句，编程实现计算0到10之间所有奇数的和。程序清单如下： Dim i As Integer, s As Integer i = 1: s = 0 Do s = s + i: i = i + 2 Loop While i = 10 7.3.2 循环结构 循环结构： Do Until…Loop Do Until…Loop循环语句的格式为： Do Until 条件式 循环体 Loop 运行时，只有在条件式为假时才执行循环体，重复执行直到条件式为真。 例：使用 Do Until…Loop语句，编程实现计算0到10之间所有奇数的和。程序清单如下： Dim i As Integer, s As Integer i = 1: s = 0 Do Until i 10 s = s + i: i = i + 2 Loop 7.3.2 循环结构 循环结构： Do…Loop Until Do…Loop Until循环语句的格式为： Do 循环体 Loop Until 条件式 程序运行时，先执行一次循环体，再判断条件，如果条件式为真，则继续执行循环体，否则结束循环。 例：使用Do…Loop Until语句，编程实现计算0到10之间所有奇数的和。程序清单如下： Dim i As Integer, s As Integer i = 1: s = 0 Do s = s + i: i = i + 2 Loop Until i 10 7.3.2 循环结构 循环结构： While…Wend While…Wend语句的格式为： While 条件式 循环体 Wend 例：计算1到10的所有奇数和，程序清单如下： Dim i As Integer, s As Integer i = 1: s = 0 While i = 10 s = s + i: i = i + 2 Wend 7.3.2 循环结构 循环结构： For Each…Next For Each…Next语句用于对数组或集合中的每个元素执行一组语句。For Each…Next语句的格式为： For Each 循环变量 In 数组/集合 循环体 Next 其中，对数组进行遍历时，要求循环变量是Variant类型；如果对窗体或报表上的控件进行遍历，循环变量是Variant类型或Control类型。以下是遍历数组中元素的示例： Dim x, a(2) As Integer, b(2) As Integer, i As Integer a(0) = 10: a(1) = 11: a(2) = 12: i = 0 For Each x In a( ) b(i) = a(i): i = i + 1 Next 7.4 过程调用和参数传递 01 过程的声明和和调用 02 参数传递 过程调用和参数传递概述 本节将进一步介绍子过程和函数。和变量一样，过程也有作用范围，在过程声明时为其指定范围。 调用过程时，有时需要把一些外部环境变量告诉过程，可以通过声明带参数的过程来实现。 本节主要介绍过程的作用范围和参数传递。 7.4.1 过程的声明和和调用 子过程声明和调用 使用Sub声明一个子过程时，除了声明过程名，还可以声明过程的作用范围和形式参数。 完整声明格式为： [Public|Private] [Static] Sub 子过