资源描述：
《vb程序设计 第六章 过程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、第六章过程第33页共33页第六章过程主要内容l函数过程的定义与调用1.l子过程的定义与调用l参数传递l变量、过程的作用域l递归l常用算法（三）1.l重点和难点6.1函数过程的定义与调用除了系统提供的内部函数、过程和事件过程外，用户还可自定义过程。在VB6.0中由用户定义（称自定义）的过程可分为以下几种：● 以“Sub”保留字开始的称为子过程；● 以“Function”保留字开始的称为函数过程● 以“Property”保留字开始的称为属性过程；● 以“Event”保留字开始的称为事件过程。1.引例[例6.1]已知多边形的各条边的长度，
2、要计算多边形的面积。计算多边形面积，可将多边形分解成若干个三角形。计算三角形面积的公式如下：其中：x,y,z为三条边，c为三边和的一半。求三角形面积就可以编写一个函数过程，以后不论是求是么三角形，只要给出三边，就可象使用内部函数一样，使用这个自定义的求三角形面积的函数了。[例6.1]在myvbvb6ex6_1lbc6_1.vbp'定义求三角形面积的函数过程PublicFunctionarea(x!,y!,z!)AsSingleDimc!c=1/2*(x+y+z)area=Sqr(c*(c-x)*(c-y)*(c-z))EndF
3、unctionPrivateSubform_click()Dima!,b!,c!,s!33VisualBasic6.0第33页共33页第六章过程第33页共33页DoDoa=val(InputBox(prompt:="输入一个边",Title:="输入第一条边长",xpos:=2000,_ypos:=4000,Default:=3))LoopUntila>0'预防按取消按钮和按转换后小于等于0的字符串Dob=val(InputBox(prompt:="输入一个边",Title:="输入第二条边长",xpos:=2000,_ypos:=
4、4000,Default:=4))LoopUntilVal(b)>0‘对数值变量用val函数系统也不报错Doc=val(InputBox(prompt:="输入一个边",Title:="输入第三条边长",xpos:=2000,_ypos:=4000,Default:=5))LoopUntilVal(c)>0LoopUntila+b>cAnda+c>bAndb+c>as=area(a,b,c)ClsPrint"第一条边长=";a:Print"第二条边长=";b:Print"第三条边长=";cPrint"面积=";sEndSubPriv
5、ateSubForm_Load()Form2.Caption="请单击窗体"EndSub2．函数过程的定义自定义函数过程有两种方法：（1）用“工具”菜单下的“添加过程”命令定义,生成一个函数的框架。操作如下：① 在窗体或模块的代码窗口选择“工具”菜单下的“添加过程”命令，显示“添加过程”对话框；② 在“名称”框中输入函数过程名（过程名中不允许有空格）；在“类型”选项组中选取“函数”定义函数过程；在“范围”选项组中选取“公有的”定义一个公共级全局过程；选取“私有的”定义一个标准模块级/窗体级的局部过程。③ 然后在过程模板中，就可以编写
6、程序代码了。33VisualBasic6.0第33页共33页第六章过程第33页共33页(2)利用代码窗口直接定义在窗体或标准模块的代码窗口把插入点放在所有过程之外，直接输入函数过程名。函数过程形式:[Static][Public][Private]Function函数过程名([参数列表])[As类型]局部变量或常数定义语句块函数名=返回值函数过程体[ExitFunction]语句块函数名=返回值EndFunction其中：⑴ 函数过程名的命名规则与变量名命名规则相同，但不要与VB中的关键字相同，也不要与WindowsAPI函数重名，
7、还不能与同一级别的变量名重名。⑵ AS类型：表示函数返回值的类型，若缺省，则返回变体类型值。⑶ 参数列表形式:[ByVal]变量名[()][As类型][，[ByVal]变量名[()][As类型]…]参数也称为形参或哑元,只能是变量或数组名（数组名后则要加“（）”），在定义时仅表示参数的个数、类型，但无值。ByVal表示该过程被调用时，参数是按值传递的，否则是按引用（地址）传递的。函数过程无参数时，函数过程名后的括号不能省略。⑷ 函数名=返回值在函数体内至少对函数名赋值一次。⑸ [ExitFunction]：表示退出函数过程（EndF
8、unction的后继语句）。⑹ Static表示为静态的，Public表示为全局的，Private表示为局部的。例6.2]要求定义MyReplace（S,OldS,NewS）函数过程，其作用同标准函数Replace一样。当调用MyRe
