网站大量收购闲置独家精品文档,联系QQ:2885784924

第8章过程与函数2.ppt

  1. 1、本文档共42页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第8章过程与函数2

第8章 过 程与函数 过程的定义: 在设计一个规模较大、复杂程度较高的程序时,往往根据需要按功能将程序分解成若干个相对独立的部分,然后对每个部分分别编写一段程序,这些程序段称为过程。 过程是构成程序逻辑部件的基本单位,将程序分割成较小的逻辑部件可以简化程序设计任务,结构化设计就是建立在这个思路之上。 每个过程完成一个具有特定目的的任务。 通用过程(Sub过程) 说明: 1、每个通用过程都有一个过程名(由用户自己指定,规定同变量名),同一模块中过程名不得重复。 2、过程前加上Public关键字或缺省,则该过程为全局级过程,可以被应用程序的所有窗体模块或标准模块中的过程调用(在窗体中定义,调用时应加窗体名)。 3、过程前加上Private关键字,则该过程为模块级过程,只有在声明它的模块中才可以调用此过程。 4、在过程名前加上Static关键字,表明该过程的变量都是静态变量。 5、形参列表是传递到过程中的变量名(多个时用“,”分隔),它指明了调用时传递给过程的参数的类型和个数. 过程可以有参数,也可以不带任何参数。根据需要而定 格式为:[ByVal|ByRef]变量名[( )] [AS 数据类型][,……] ByVal 表示按值传递;ByRef 表示按地址传递 6、过程内不能再定义过程,过程定义也不能写在事件过程内 如:Sub Tryout( x as integer , y as integer) x=x+100 y=y*6 Print x,y End Sub 7、建立通用过程可以使用以下两种方法: ① “工具”——”添加过程” ② 在标准模块或窗体模块中, 直接输入通用过程的代码。 8、子过程名不返回值,只能通过形式参数与调用语句通信 9、过程体中的Exit Sub 表示强制退出过程返回 2、调用 Sub 过程 要执行一个过程,必须调用该过程。调用的方法为: 方法1.使用Call语句 格式:Call 过程名[(实参列表)] 方法2. 将过程名作为语句使用: 格式: 过程名 实参列表 特点: Sub 过程的调用是一句独立的语句。 例:要调用前面的Tryout过程,可以使用下面两种方式: Call Tryout(a , b) 或 Tryout a , b 说明: 1、使用Call语句调用时,参数必须放在括号内,如没有参数,括号可省略 2、用过程名调用时,过程名后不能加括号,若有参数,参数与过程名间用空格隔开 3、参数表:在调用语句中的参数称为实际参数(简称实参),实参可以是变量、常量、数组或表达式,参数间用逗号隔开 4、可以直接调用本模块中声明的过程或标准模块中声明的全局过程; 5、当定义的过程重名时,调用过程时,过程名前应加模块名修饰; 6、如果要调用窗体模块中声明的全局过程,调用时过程名前应加窗体名。 Private Sub Command1_Click() Dim a#, b#, c#, s# Dim intYesorNo As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And b + c a And c + a b Then Call triarea(s, a, b, c) 使用Call关键字,实际参数用括号括起来 Print 面积 =; s Else suberr intYesorNo 不使用Call关键字,实际参数不用括号 End If End Sub Sub 过程的调用是一句独立的语句。 2、 调用 Function 过程 Function 过程的调用,与标准函数(内部函数)相同。 通常用在表达式中 格式:函数名(实参列表) 特点:不能独立成为语句,必须参加表达式的运算。 如1:下面是已知直角三角形两直角边的值,计算斜边的函数。    function myfun(A as integer,B as integer) as string     myfun=sqr(A*A+B*B)    End function   Sub

文档评论(0)

wyjy + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档