数据库入门到精通.ppt

结构、流程 示例 Do Until 条件式 循环体 [Exit Do] Loop A=5:b=8 Do Until ab a=a+1 i=i+1 Loop debug.print a,i 过程： 条件表达式 语句块 T F 结构、流程 示例 Do 循环体 [ 条件语句：Exit Do] Loop While表达式 A=5:b=8 Do a=a+1 i=i+1 Loop While ba debug.print a,i A=5:b=5 Do a=a+1 i=i+1 Loop While ba debug.print a,i 前面两个Do循环都是先判断条件式，再决定是否执行循环体，即条件在前； 以下两个Do循环，先执行循环体，再判断条件以决定是否继续执行循环体， 即不管什么条件它都会先执行一次循环体 语句块 条件表达式 F T 结构、流程 示例 Do 循环体 [ 条件语句：Exit Do] Loop Until 表达式 A=5:b=8 Do a=a+1 i=i+1 Loop Until a=b debug.print a,i A=5:b=5 Do a=a+1 i=i+1 Loop Until a=b debug.print a,i 语句块 条件表达式 T F GoTo语句用于实现无条件转移，程序执行遇到GoTo语句，会转移到标号位置，从标号处继续执行，使用格式： GoTo 标号 Sub test() 实现输出绝对值功能 Dim a%, b% a = Val(InputBox(请输入a的值)) If a 0 Then GoTo aa a = a * -1 aa: Debug.Print a End Sub 子过程的定义与调用 [Pubic|Private][Static] Sub 子过程名([形参]) [子过程语句] [Exit Sub] [子过程语句] End Sub 过程调用： Call 子过程([实参]) 子过程名 [实参] 在过程中定义的参数，称为形参 使用Public关键字，则所有模块的过程都可以调用它 使用Private关键字，这个函数只适用于同一个模块的其他过程 定义输出绝对值的子过程 调用子过程 Sub aabs(x As Integer) If x = 0 Then Debug.Print x Else Debug.Print x * -1 End If End Sub Sub t() Debug.Print ******* Call aabs(5) Call aabs(-3) Debug.Print aabs 5 aabs -3 Debug.Print ******* End Sub 函数过程的定义和调用 [public|private][static] function 函数过程名([形参]) [as 类型] [函数过程语句] [函数过程名=表达式] [exit function] [函数过程语句] [函数过程名=表达式] End function 调用： 函数过程名([实参]) 赋值：变量=函数过程名([实参]) 使用Public关键字，则所有模块的所有过程都可以调用它 使用Private关键字，这个函数只适用于同一个模块的其他过程 求圆面积的函数过程 S的值为area(5)的返回值 Function Area(R!) As Single if R0 then Msgbox “圆的半径必须为正数值”,vbcritical,”警告” Area=0 ’函数返回值 Exit Function