函数过程的定义.pptVIP

高等学校计算机基础教育教材 上海中医药大学现代教育技术中心 计算机教学部 字符串处理 例 编写一个英文打字训练的程序.要求如下： (1)在标签框内随机产生30个字母的范文； (2)当焦点进入文本框时开始计时，并显示当时时间； (3)在键入文本框按产生的范文输入相应的字母； (4)当键入满了30个字母后结束计时，禁止向文本框输入 内容 ，与范文逐一比较，显示打字的速度和正确率。 第六章 过 程 1 函数过程的定义与调用 2 子过程的定义与调用 3 参数传递 4 递归 5 常用算法（三） 用子（函数）过程解决问题 子（函数）过程把较大的任务分解成若干个较小的任务，并提炼出公用任务 程序员可以在其他函数的基础上构造程序，而不需要从头做起 设计得当的子（函数）过程可以把具体操作细节对程序中不需要知道它们的那些部分隐藏掉，从而使整个程序结构清楚 分而治之、信息隐藏 6.1 函数过程的定义 除了系统提供的内部函数过程和事件过程外，用户可自定义过程： 以Sub保留字开始的为子过程； 以Function保留字开始的为函数过程。 1. 引例6.1 已知多边形的各条边的长度，要计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。 计算三角形面积的公式如下： x y z 定义函数过程area： 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) S=S+area(e,f,g) Print S End Sub 2．函数过程的定义 自定义函数过程有两种方法： (1)利用“工具”菜单下的“添加过程”命令定义，生成一个函数的框架。 (2)利用代码窗口直接定义。 函数过程形式： Function 函数过程名([参数列表]) [As 类型] 局部变量或常数定义 语句块 函数名 = 返回值 函数过程体 [Exit Function] 语句块 函数名 = 返回值 End Function 函数过程名：命名规则同变量名 参数列表形式: [ByVal]变量名[()][As 类型] 称为形参或哑元，仅表示参数的个数、类型，无值。 函数名 = 返回值 在函数体内至少对函数名赋值一次。 [Exit Function] ： 表示退出函数过程。 例6.2 定义MyReplace（S,OldS,NewS）函数过程，具有Replace函数功能。 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为“abcdefgabcd”，Oolds为“cd”，News为“3”，调用MyReplace函数的返回值为“ab3efgab3”。上述程序循环执行2次： (“abcdefgabcd”,“cd”,“3”) 第1 次 i=3 结果 “ab3efgabcd” (“ab3efgabcd”,“cd”,“3”) 第2 次 i=9 结果 “ab3efgab3” 3.函数过程的调用 函数过程调用同标准函数调用，形式：函数过程名([参数列表]) 参数列表：称为实参或实元，它必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式。 ： 6.2 子 过 程 函数过程的不足： （1）不