- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第七讲 过 程 复习: 数组的含义? 本 讲 主 要 内 容 引言 过程的引入: 使同类的操作不重复 (操作方法相同、参数不同) 过程: 完成一段独立功能,可供其他过程使用(调用)。 过程又称为子程序 调用过程: 调用其他过程的过程 过程分类 1. Function过程 Function过程的定义 Function过程的格式 [Public|Private][Static] Function 函数过程名 ([形参表]) [As 类型] [语句组] [函数过程名 = 表达式] [Exit Function] [语句组] [函数过程名 = 表达式] End Function Function过程 Function过程的建立 直接在代码窗口中输入。 在代码窗口: 工具→ 添加过程。 Function过程 Function过程的调用 格式: 函数过程名([实参表]) 实参表: 常量、变量或表达式,各参数之间用逗号分隔。如果是数组,在数组名之后必须跟一对空括号。 Function过程举例 【例】编写Function过程求最大公约数,并通过命令按钮的单击事件过程调用该函数过程。 2. Sub 过程 Sub过程的定义 Sub过程的格式 [ Private | Public ] [ Static ] Sub 过程名[(形参表)] [语句组] [Exit Sub] [语句组] End Sub Sub 过程 说明 Exit Sub用于退出Sub过程。 过程名不具有值的意义,在Sub过程中不能给过程名赋值,也不能给过程名定义类型。 Sub过程通过形参表中的参数返回值。 Sub过程的建立方法与Function过程的建立方法相同。 Sub 过程 【例】编写计算n! 的Sub过程。 分析: 参数表中应有一个参数n,还应有另一个参数F用来返回阶乘值。 Sub Fact(N As Integer, F As Long) Dim I As Integer F = 1 For I = 1 To N F = F * I Next I End Sub Sub 过程 【例】编写Sub过程,求三个数中的最大数和最小数。 Sub 过程 Sub过程的调用 格式1: Call 过程名[(实参表)] 格式2: 过程名[ 实参表 ] 说明: 过程名: 要调用的Sub过程名; 实参表: 可以是常量、变量或表达式,各参数之间用逗号分隔。如是数组参数,则要在数组名之后跟一对空括号。 用Call语句调用一个Sub过程时,如果过程本身没有参数,则省略实参表和括号。 格式2省略了Call关键字,同时实参表两边也不能带括号。 Sub过程应用 【例】编写一个Sub过程,实现将三个数由大到小排序。程序运行时单击“排序前”按钮产生[0,99]之间的三个随机整数,并将文本框Text2的内容清空,单击“排序后”按钮,调用该Sub过程完成排序。 3 . 过程的嵌套 在一个过程执行期间又调用另一个过程,称为过程的嵌套调用 应用举例 应用举例 Function Fact(n As Integer) As Double Dim i As Integer, f As Double f = 1 For i = 1 To n f = f * i Next i Fact = f End Function 递归 问题:有5个人坐在一起,问第5个人多少岁?他说比第4个人大2岁。问第4个人岁数,他说比第3个人大2岁。问第3个人,又说比第2个人大2岁。问第2个人,说比第1个人大2岁。最后问第1个人,他说是10岁。请问第5个人多大。 过程的递归调用 数学表达式: age(5)=age(4)+2 age(4)=age(3)+2 age(3)=age(2)+2 age(2)=age(1)+2 age(1)=10 4. 参数的传递 调用过程与被调用过程之间的一种数据通讯方法。 数据的传递可以是单向的,也可以是双向的。 形参和实参 ?形参: 出现在Sub或Function语句中(定义时) ?实参: 出现在调用程序中 例如,定义如下一个过程: Sub SubTest(n As Int
您可能关注的文档
最近下载
- 卓越研究生英语(人文篇)综合教程1--Unit 4_new.pptx VIP
- 湖南省师范大学附属中学2025-2026学年高三上学期10月月考英语试题(含答案).docx VIP
- 2026华能西安热工研究院校园招聘考试备考题库及答案解析.docx VIP
- 《企业内部控制》教学课件最终版 7.投资活动课件新 7.8第七章企业投资活动内部控制的流程.ppt VIP
- 2025年河南地矿职业学院单招职业技能测试题库附答案(a卷).docx
- TB-T30010-2023铁路信号显示规范.pdf VIP
- 《管理会计实务》习题答案.pdf VIP
- 2.2 会计要素 - 负债.pptx VIP
- 打击网络诈骗 加强自我保护---主题班会课件.pptx VIP
- 国家安全法知识竞赛题库及答案.docx VIP
原创力文档


文档评论(0)