VB教学课件第6,7章.pptVIP

第六章 过程 6.1 函数过程的定义与调用 6.2 子过程的定义与调用 6.3 参数传递 6.4 变量、过程的作用域 6.5 递归 6.6 综合应用 除了系统提供的内部函数过程和事件过程外，用户可自定义过程： “Sub”保留字开始的为子过程 “Function”保留字开始的为函数过程 一、函数过程的定义 1. 引例6.1 已知多边形的各条边的长度，要计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。 计算三角形面积的公式如下： 合并法排序（两个有序数组合并） 思想：1、现在a，b数组中各取一个元素进行比较将较小的元素放入c数组中的第一个元素； 2、取小的元素所在数组的下一个元素与上次比较时较大的元素比较，重复上述比较过程，直到某个数组被先排完 3、将另一个数组剩余元素抄入c数组，合并完毕 Sub merage(a(), b(), c()) Dim ia As Integer, ib As Integer, ic As Integer Dim i As Integer Do While ia = UBound(a) And ib = UBound(b) If a(ia) b(ib) Then c(ic) = a(ia): ia = ia + 1 Else c(ic) = b(ib): ib = ib + 1 End If ic = ic + 1 Loop Do While ia = UBound(a) c(ic) = a(ia): ia = ia + 1 Loop Do While ib = UBound(b) c(ic) = b(ib): ib = ib + 1 Loop End Sub * * x y z 定义函数过程 Public Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) area = Sqr(c * (c - x) * (c - y) * (c - z)) End Function 调用函数过程: Sub command1_click() …… 输入若干个三角形边长 S=area(a,b,c)+area(c,d,e)+area(e,f,g) Print s End Sub 2．函数过程的定义 自定义函数过程有两种方法： (1)利用“工具”菜单下的“添加过程”命令定义,生成一个函数的框架 (2)利用代码窗口直接定义 函数过程形式: Function 函数过程名([参数列表]) [As 类型] 局部变量或常数定义 语句块 函数名 = 返回值 函数过程体 [Exit Function] 语句块 函数名 = 返回值 End Function 函数过程名:命名规则同变量名 参数列表形式: [ByVal]变量名[()][As 类型] 称为形参或哑元,仅表示参数的个数、类型，无值。 函数名 = 返回值 在函数体内至少对函数名赋值一次 [Exit Function] ：表示退出函数过程 返回值的类型 例6.2同标准函数Replace一样，定义MyReplace（S,OldS,NewS）函数过程 当调用MyReplace(abcdefgabcdecd,cd,3) 时函数的返回值为ab3efgab3e3 Function MyReplace(s$, OldS$, NewS$) As String Dim i%, lenOldS% lenOldS = Len(OldS) 取OldS字符子串长度 i = InStr(s, OldS) 在字符串中找有否OldS字符子串 Do While i 0 找到用NewS 字符子串替换OldS字符子串 s = Left(s, i - 1) + NewS + Mid(s, i + lenOldS) i = InStr(s, OldS) 找下一个OldS字符子串 Loop