VB第7章电子讲稿(过程).pptVIP

第7章 过 程 本章主要内容 通用过程 Sub过程/Function过程 参数传递 过程的嵌套与递归调用 变量的作用范围 多窗体与Sub Main过程 程序举例 思考 已知多边形各条边的长度，计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。计算三角形面积的公式如下： VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。两大类过程。 事件过程 Sub过程 通用过程 Function过程 事件过程是当某个事件发生时，对该事件作出响应的程序段，它是VB应用程序的主体 通用过程是独立于事件过程之外，可供其他过程调用的程序段 7.1 通用过程 过程调用示例 把相同的任务编成相对独立的“子过程” 当事件过程需要执行这个任务时，可使用调用语句(如Call)实行调用。子过程执行完后，会返回事件过程中调用语句Call的后续语句继续执行 通用过程又分为Sub(子程序)过程和Function(函数)过程 Sub子过程：完成一定的操作和功能，无返回值。 Function函数过程：完成一定的操作和功能，并且可将数据处理的结果返回。 7.1.1 Function过程 允许用户自定义函数过程(又称Function过程) 1．定义 Function过程可返回一个值给调用程序 一般语法格式： [ Public |Private] Function函数过程(形参)[As 类型] 变量声明 语句块 Return 表达式 或 函数名=表达式 End Function Public 全局函数过程，可被程序任何模块调用 Private 仅供本模块中的其它过程调用 形参(或称哑元) 只能是变量或数组名( ),仅表示参数的个数、类型，无值。 2. Function过程的建立 可以在“代码窗口”中直接输入来建立Function过程 也可以选择“工具”菜单中的“添加过程”命令来建立Function过程(选择“函数”类型)  例7.1 编写一个求最大公约数函数 Function gys(m%,n%) as integer dim t%,r% if mn then t=m:m=n:n=t r=m mod n do while r0 m=n:n=r:r=m mod n loop gys=n End function 3. Function过程的调用 (1)直接调用 像使用VB内部函数一样，只需写出函数名和相应的参数即可。例如： s = Max(a, b) Print Max(s, c) (2)用Call语句调用 与调用Sub过程一样来调用Function过程，例如： Call Max(a, b) 当用这种方法调用Function过程时，将会放弃返回值 例7.2 调用例7.1 Private Sub Form_click() Dim x%, y% x = Val(InputBox()) y = Val(InputBox()) g = gys(x, y) Print g End Sub 例7.4 输入三个数，求出它们的最大数 Private Sub Form_click() Dim x%, y%, z% x = Val(InputBox()) y = Val(InputBox