第八章存储过程课件.pptVIP

第8章 过 程 ;本章重点：;8.1 过程概述;3 过程的引入优点 ①使同类的操作不重复编写，一次写入多次调用，可获得多个 结果。 ②把一项复杂的工作分成简单的功能块,分而治之，实现某种功 能的处理。 4 过程的特点 完成一段独立功能，可供其他过程使用(调用)。 5 调用过程图示;子过程的定义形式 Sub 子过程名[(参数列表)] 局部变量或常数定义 语句序列 [Exit Sub] 语句序列 End Sub ;定义子过程的方法 ①在代码窗口直接定义 引例1 ;输入过程名;需要输入;3 子过程的调用 子过程的调用是一句独立的调用语句，有两种形式： ① Call 子过程名[(实参列表)] ② 子过程名 ([实参列表]) 注意： ① 用Call调用 ② 实参只能是变量，不能是常量、表达式，也不能是控件名。 ③ 实参与形参的类型、顺序、个数要一致 4 应用举例 例题8.1 编写求矩形面积的子过程，调用该子过程求窗体上不同 控件的面积。 窗体上的控件任意设置，单击各个控件，其面积的大小直接显示在窗体上。;窗体设计如下：;例题8.2 编写子过程求N！，计算5！+7！-6！;8.3 函数过程;本章目录;Sub command1_click() Dim a%, b%, c%, d%, e%, f%, g%, s! a = InputBox(输入三角形边长a) b = InputBox(输入三角形边长b) c = InputBox(输入三角形边长c) d = InputBox(输入三角形边长d) e = InputBox(输入三角形边长e) f = InputBox(输入三角形边长f) g = InputBox(“输入三角形边长g”) S=area(a,b,c)+area(c,d,e)+area(e,f,g) Print Print 多边形面积是：; s End Sub ;1 函数过程的定义; ; ; ;Private Sub Command1_Click() Dim c1% c1 = CountC(Text1.Text) ‘ 调用CountC函数 Picture1.Print Text1; Tab(20); 有; c1; 个汉字 End Sub Function CountC%(ByVal s$) Dim i%, t%, k%, c$ For i = 1 To Len(s) c = Mid(s, i, 1) 取一个字符 If Asc(c) 0 Then k = k + 1 汉字数加1 Next i CountC = k End Function Private Sub Command2_Click() Text1.Text = End Sub;子过程与函数过程的区别;8.4 参数传递;1 传址与传值;补充例题 传址与传值;Sub Swap1(ByVal x%, ByVal y%) Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%) Dim t% t = x: x = y: y = t End Sub Sub Command1_Click() Dim a%, b% a = 10: b = 20 Print 调用Swap1前 a和b的值为：; Tab(40); a; b Call Swap1(a, b) Print 调用Swap1后按传值方式 a和b的值为：; Tab(40); a; b a = 10: b = 20 Call Swap2(a, b) Print 调用Swap2后按传地址方式 a和b的值为：; Tab(40); a; b End Sub ;例题8.5 分别利用传值和传址的方式，求任意两个整数的最大公约数和 最小公倍数，注意传值与传址的使用环境。;Private Function gcd%(x%, y%) Dim r% r = x Mod y While r 0 x = y y = r r = x Mod y Wend gcd = y End Function;