第11章 VB过程与函数.ppt

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

Visual basic与SQL Server 2005 清华大学出版社 第11章 过程与函数 11.1 过程 11.2 参数传递 11.3 过程的嵌套调用与递归调用 11.4 过程和变量的作用范围 11.5多窗体与Sub Main过程 本章要点 过程的有关术语 过程的定义与调用 使用过程时的参数传递 过程的嵌套与递归调用 多窗体与Sub Main过程 用户自定义函数的使用 11.1.1 Sub过程 二、 Sub过程的调用 调用Sub过程一般可用以下两种方法。 (1) 用Call语句 格式:Call 过程名(实参) 如果是无参过程,括号可以省略。 例如: Call Proc ’ 调用无参过程Proc Call Try(a,b) ’ 调用有参过程Try(x,y) (2) 过程名 [实参表]。 把过程名作为一个独立的语句 与Call的区别:去掉Call,去掉实参的括号。 例如: Proc ’ 调用无参过程Proc Try a, b ’ 调用有参过程Try(x,y) 注意,在第二种调用方法中,省略了Call,此时不需要小括号,否则会出错。 11.1.1 Sub过程 [例11.1] 求1-2+3-4+...+n的值。? 1、界面设计 程序的界面由两个标签、两个文本框(一个用于输入、一个用于输出)和两个按钮构成。 11.1.1 Sub过程 2、代码分析与设计 n的变化规则是偶数为负,奇数为正,可加一 个专门的符号位来实现,只要符号位与n的初值保存一 致,然后n增加1,符号位就取反即可。 程序主要代码如下:? Private Sub sum_num(n As Integer, s As Long) Dim i As Integer, t As Integer s = 0 t = 1 For i = 1 To n s = s + i * t t = -t Next i End Sub 11.1.2 函数(Function过程) 在VB中有两类函数,即标准函数和用户自定义函数。标准函数是指系统已经做出定义的函数,VB的标准函数按函数功能可分为4类,即数学函数 、字符串函数、日期和时间函数和转换函数 。 虽然VB提供了常用的标准函数,可以使用这些标准函数来实现某些数学计算或数据类型的转换,但许多应用程序常常需要自己来定义函数,以实现某种特定的计算。自定义函数是由用户按照指定的语法规则自己定义的函数。 11.1.2 函数(Function过程) 一、 函数的定义格式为: [Static] [Private] [Public] Function函数名[(参数表)] [As类型] 语句块 [ Exit Function ] 函数名=计算结果 End Sub 说明: 与Sub比较:大部分一样,定义方法也一样。 主要的区别是: (1) 函数名后多了As类型,限定函数结果的类型; (2) 多了一句 函数名=计算结果。 注意:必须有这一句才能把计算结果传给函数。 11.1.2 函数(Function过程) 二、 函数的调用 Function定义好以后,就成了一个与标准函数一样的函数,调用方法也与标准函数一样: 函数名(自变量) 调用函数一般可用以下三种方法。 (1)直接调用。将函数名和相应的实参放在一个表达式中即可。当需要接收过程的返回值时,只能使用这种调用方法。 例如:Y=Sqr(16) (2) Call语句调用。使用Call语句调用Function过程的方法与Sub的调用方法相似,此时,Function过程的返回值将被丢失。一把不用这种方法。 (3) 无参数直接调用。 11.1.2 函数(Function过程) 【例11.2】 将例11.1改用函数来实现。 代码分析与设计 本程序的基本思路与例9.1是一样的,代码差别也不大。在Sub过程中,结果通过参数s带回,而Function过程则通过函数本身返回。 程序代码如下(相同部分省略):? Private Function sum_num(n As Integer) As Long Dim i As Integer, t As Integer, s As Long s = 0 t = -1 For i =

文档评论(0)

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

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

1亿VIP精品文档

相关文档