VB函数过程PPT.pptVIP

第六章 过程（5学时）;除了系统提供的内部函数过程和事件过程外，用户可自定义过程： “Sub”保留字开始的为子过程 “Function”保留字开始的为函数过程 一、函数过程的定义 1. 引例6.1 已知多边形的各条边的长度，要计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。 计算三角形面积的公式如下： ;2．函数过程的定义 自定义函数过程有两种方法： (1)利用“工具”菜单下的“添加过程”命令定义,生成一个函数的框架 (2)利用代码窗口直接定义 函数过程形式: Function 函数过程名([参数列表]) [As 类型] 局部变量或常数定义 语句块 函数名 = 返回值 函数过程体 [Exit Function] 语句块 函数名 = 返回值 End 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 MyReplace = s 替换后的字符串赋值给函数过程名 End Function 假定S为“abcdefgabcdecd”,Oolds为 “cd”,News为 3 (“abcdefgabcdecd”,“cd”,“3”) 第1 次 I=3 结果 “ab3efgabcdecd” (“ab3efgabcdecd”,“cd”,“3”) 第2 次 I=9 结果 “ab3efgab3ecd” (“ab3efgab3ecd”,“cd”,“3”) 第3 次 I=11 结果 ab3efgab3e3;3.函数过程的调用 函数过程的调用同标准函数调用，参与表达式运算，形式如下： 函数过程名([参数列表]) 参数列表：称为实参或实元，它必须与形参个数相同，位置与类型一一对应 可以是同类型的常量、变量、表达式 执行流程： Private Sub Command1_Click() Text1 = MyReplace(Text1, cd, 3) ST= (“Visual Basic 程序设计教程5.0版” Print MyReplace(ST, 5.0, 6.0) End Sub;2 子过程定义 Sub 子过程名[(参数列表)] 局部变量或常数定义 语句 [Exit Sub] 语句 End Sub 3 子过程的调用 子过程名 [参数列表] 或 Call 子过程名(参数列表） 4.子过程与函数过程区别： （1）函数过程名有值，有类型，在函数体内至少赋值一次； 子过程名无值，无类型，在子过程体内不能对子过程名赋值； （2）调用时，子过程调用是一句独立的语句。 函数过程不能作为单独的语句加以调用，必须参与表达式运算。 （3）一般当过程有一个函数值，使用函数过程较直观； 反之若过程无返回值，或有多个返回值，使用子过程较直观。;例6.4 分别编一计算某级数部分和的子过程和函数过程，并调用。 级数为： 精度为： ; 程序运行流程： Private