第八篇 章过程(vb教案).pptVIP

  1. 1、本文档共37页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第八篇 章过程(vb教案).ppt

第8章 过程 过程是用来执行一个特定任务的一段程序代码。VB应用程序(又称工程或项目)由若干过程组成,这些过程保存在文件中,每个文件的内容通常称为一个模块。 在程序设计过程中,将一些常用的功能编写成过程,可供多个不同的事件过程多次调用,从而可以减少重复编写代码的工作量,实现代码重用,使程序简练、便于调试和维护。在VB6.0中,用户自定义过程分为:以“Sub”保留字开始的子过程、以“Function”保留字开始的函数过程、以“Property”保留字开始的属性过程、以“Event”保留字开始的事件过程。 本章主要介绍用户自定义的子过程和函数过程。 退出 8.1 子过程 8.2 函数过程 8.3 参数传递 8.4 过程与变量的作用域 8.5 鼠标事件和键盘事件 8.1 子过程 子过程是用特定格式组织起来的一组代码,通常用来完成一个特定的功能,可以被其它过程作为一个整体来调用。 8.1.1 子过程的定义 定义子过程有以下两种方法。 1.利用“工具”菜单下的“添加过程”命令定义 2.利用代码窗口直接定义 在窗体或标准模块的代码窗口把插入点放在所有现有过程之外,键入Sub子过程名即可。定义一般形式如下: [Static][Public|Private]Sub 子过程名[(参数列表)] [局部变量或常数定义] [语句序列] [Exit Sub] [语句序列] End Sub 下面是一个子过程的例子: Sub sum(x%,y%,s%) s = x + y End Sub 8.1.2 过程的调用 要执行一个过程,必须调用该过程。 子过程的调用有两种方式,一种是利用Call语句加以调用,另一种是把过程名作为一个语句来直接调用。 1.用Call语句调用Sub过程 格式:Call 过程名[(参数列表)] 例如: Call sum(a,b,c) 2.把过程名作为一个语句来使用 格式: 过程名[参数列表] 与第一种调用方法相比,这种调用方式省略了关键字Call,去掉了“参数列表”的括号。 例如: sum a,b,c 8.2 函数过程 函数过程是自定义过程的另一种形式。VB提供了许多内部函数,如Sin(),Sqr()等,在编写程序时,只需写出函数名和相应的参数,就可得到函数值。另外,VB还允许用户自己定义函数过程。同内部函数一样,函数过程也有一个返回值。 8.2.1 函数的定义 函数过程的定义方法也有以下两种。 1.利用“工具”菜单下的“添加过程”命令定义 2.利用代码窗口直接定义 在窗体或标准模块的代码窗口把插入点放在所有现有过程之外,键入Function函数名即可。定义形式如下: [Static][Public|Private] Function 函数名([参数列表])[As类型] [局部变量或常数定义] [语句序列] [Exit Function] [语句序列] 函数名=表达式 End Function 8.2.2 函数的调用 调用函数过程可以由函数名带回一个值给调用程序,被调用的函数必须作为表达式或表达式中的一部分,再与其它的语法成分一起配合使用。因此,与子过程的调用方式不同,函数不能作为单独的语句加以调用。 最简单的情况就是在赋值语句中调用函数过程,其形式为: 变量名=函数过程名([参数列表]) 【例8.3】用函数过程实现对例8-2的求解。 程序如下: Function jch(n%) Dim i% jch = 1 For i = 1 To n jch = jch * i Next i End Function Private Sub Form_Click() Dim d d = jch(7)+ jch(11)-

文档评论(0)

youngyu0329 + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档