第三章_VB过程函数.pptVIP

第三章 过 程 3.1 函数过程 3.2 子过程 3.3 参数传递 3.4 变量作用域 3.5 递归函数 3.6 重点和难点 3.1　函数过程 1.引例：计算1+2+…+n的值 Private sub c1_click() s=0 n=cint(text1) For i=1 to n s=s+i Next Text2= s End sub Public Function sum(n%) As integer dim i%, s% For i=1 to n s=s+i Next sum=s End Function Private sub c1_click() n=cint(text1) text2=sum(n) 　‘调用sum()函数 End sub 2．函数过程的定义 自定义函数过程有两种方法： (1)利用“工具”菜单---“添加过程” ，生成一个函数的框架 (2)利用代码窗口直接定义 函数过程的定义形式： Function 函数过程名([参数列表]) [As 类型] 局部变量或常数定义 语句块 　　　函数名 = 返回值　 [Exit Function]