数据库课件13.ppt

* 复 习 一 过程调用： 子过程名 [参数表] 或： Call 子过程名([参数表]) Public Sub aa() a = 1: b = 2: c = 1: d = 2 Call xx(a, b, c, d) Debug.Print d a1 = 1: a2 = 3: a3 = 1: a4 = 3 Call xx(a1, a2, a3, a4) Debug.Print a4 Call xx(6, 8, 10, d) Debug.Print d End Sub Public Sub xx(x1, x2, x3, x4) x4 = x2 * x2 - 4 * x1 * x3 Select Case x4 Case Is 0 x4 = 100 Case Is 0 x4 = 200 Case Is = 0 x4 = 10 End Select End Sub 复 习 一 过程调用： 子过程名 [参数表] 或： Call 子过程名([参数表]) Public Sub aa() a = 1: b = 2: c = 1: d = 2 Call xx(a, b, c, d) Debug.Print d a1 = 1: a2 = 3: a3 = 1: a4 = 3 Call xx(a1, a2, a3, a4) Debug.Print a4 Call xx(6, 8, 10, d) Debug.Print d End Sub Public Sub xx(x1, x2, x3, x4) x4 = x2 * x2 - 4 * x1 * x3 Select Case x4 Case Is 0 x4 = 100 Case Is 0 x4 = 200 Case Is = 0 x4 = 10 End Select End Sub x1=a,1 x2=b,2 x3=c,1 x4=d,2 x4=0 复 习 一 过程调用： 子过程名 [参数表] 或： Call 子过程名([参数表]) Public Sub aa() a = 1: b = 2: c = 1: d = 2 Call xx(a, b, c, d) Debug.Print d a1 = 1: a2 = 3: a3 = 1: a4 = 3 Call xx(a1, a2, a3, a4) Debug.Print a4 Call xx(6, 8, 10, d) Debug.Print d End Sub Public Sub xx(x1, x2, x3, x4) x4 = x2 * x2 - 4 * x1 * x3 Select Case x4 Case Is 0 x4 = 100 Case Is 0 x4 = 200 Case Is = 0 x4 = 10 End Select End Sub x1=a,1 x2=b,2 x3=c,1 x4=d,2 x4=0 a=x1 b=x2 c=x3 d=x4 10 x1=a1,1 x2=a2,3 x3=a3,1 x4=a4,3 x4=5 a1=x1 a2=x2 a3=x3 a4=x4 200 x1=6 x2=8 x3=10 x4=10 x4=-176 d=x4 100 11.3.5 自定义函数 1.定义Function过程 [Public|Private][Static]Function 函数名([参数表]) [As类型] 局部变量或常数定义 语句序列 [Exit Function] 语句序列 函数名=返回值 End Function 功能：定义一个以函数名为名的Function过程，Function过程通过形参与实参的传递得到结果，返回一个函数值。 2.创建Function过程 同Sub过程一样，Function过程是一个通用过程，它不属于任何一个事件过程，因此它不能在事件过程中建立，Function过程可在标准模块中，或在窗体模块中建立。 3.调用Function过程 调用Function过程的语句格式如下： 函数名（参数表） 功能：调用一个已定义的Function过程。 例20：创建一个函数Area()，自变量为圆的半径、函数值 为圆的面积 Public Sub abc() Dim x As Single x = InputBox(输入圆的半径：) s = area(x) Debug.P