教程第7章教案.pptxVIP

  1. 1、本文档共44页,可阅读全部内容。
  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文档。上传文档
查看更多
第 7 章; 本章主要内容 ; 前面已经使用了很多过程,例如 按钮事件过程、窗体装载事件过程等。 过程是完成某种特殊功能的一组独立的程序代码。 VB应用程序是由过程组成的。两大类过程: 事件过程 Sub过程 通用过程 Function过程 事件过程是VB应用程序的主体 通用过程是独立于事件过程之外,可供其他过程调用的程序段; 过程有两个重要作用:一是把一个复杂的任务分解为若干个小任务,可以用过程来表达,从而使任务更易理解,更易实现,将来更易维护;二是代码重用,使同一段代码多次复用。; 过程调用示例 把相同的任务编成相对独立的“子过程” 当事件过程需要执行这个任务时,可使用调用语句(如Call)实行调用。子过程执行完后,会返回事件过程中调用语句Call的后续语句继续执行 通用过程又分为Sub(子程序)过程和Function(函数)过程; 例7.1 使用Sub过程的示例1 Private Sub Form_Load() Show Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 Call mysub1(30) End Sub 程序运行结果  ; 1. Sub过程定义格式: [Private|Public | Static] Sub 过程名([参数表]) 语句块 [Exit Sub] End Sub 2. 调用Sub过程有以下两种方法: (1) 使用Call语句。格式: Call 过程名([实参表]) (2) 直接使用过程名,格式: 过程名[实参表] 例如,调用名为mysub1的过程: Call mysub1(30) mysub1 30; 因为计算5!和10!都要用到阶乘n! (n!=1×2×3×…×n) 所以把计算n!编成Sub过程 采用Print直接在窗体上输出结果,程序代码: Private Sub Form_Load() Show Dim y As Long, s As Long Call Jc(5, y) s = y Call Jc(10, y) s = s + y Print 5! + 10! =; s End Sub 程序运行结果: 5! + 10! = 3628920; 1. Function过程定义格式: [Private | Public | Static] Function 函数名([参数表]) [As 数据类型] 语句块 [函数名=表达式] [Exit Function] End Function 2. Function过程的调用方法: 一般采用直接调用的方法 像使用VB内部函数一样,只需写出函数名和相应的参数即可 例如: s = Max(a, b) Print Max(s, c); 把求两个数中的大数编成Function过程,过程名为Max 本例采用InputBox函数输入三个数,判断出最大数后采用Print直接输出在窗体上。 Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single Dim s As Single a = Val(InputBox(输入第一个数)) b = Val(InputBox(输入第二个数)) c = Val(InputBox(输入第三个数)) s = max(a, b) Print

文档评论(0)

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

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

1亿VIP精品文档

相关文档