细谈VB中的function程序应用问题！

Function 过程是由用户定义的独立的函数过程，与Sub字程序类似。Function 函数过程可读取参数，修改语句。可作为独立的基本语句调用，也可以在程序或是函数中嵌套使用。它有返回值。Vb 中有许多内置的函数，如sin,cos,abs 等。如果过程需要多次用到某一公式或函数时，VB中有没有可用的参数，此时，Function过程就派上用场了。

Function 过程的语法为：

　　[private | public ] [static] Function (函数名)（[形参表]）　　[as(类型)]
　　[语句列] [（函数名）= （表达式）]
　　Exit gunction
　　[语句列] [（函数名）=（表达式）]
　　End function

说明： 中括号内的可省略， Function 函数程序跟Sub 字程序过程类似。只是as (类型)表示Function的返回值是as 指向的类型。还有一种可以创建Function 过程， 在工具? 添加过程， 在添加过程中的对话框中，名称由用户自定义，可以是字母、数字、下划线等。 在类型中选择函数选项，点击确定。OK！ Function 函数过程创建完毕。

函数过程的调用：
1， call 语句。 Call (过程名) [实参表]
2， 直接调用。(过程名) [ 实参表]
3， 无参数直接调用。
举例：
　　　 Function f2
　　　 F2=”Flollow me.”
　　　 End Function

关于vb function

谁能清楚地介绍vb function过程，阐明它是如何返回值的？ 下面这段代码表示什么意义？

Dim y As Integer 
Private Sub Command1_Click() 
Dim x As Integer 
x=2 
Text1.Text=f2(f1(x),y) 
Text2.Text=f1(x) 
End Sub 

Private Function f1(x As Integer)As Integer 
x=x+y:y=y+x 
f1=x+y 
End Function 

Private Function f2(x As Integer,y As Integer)As Integer 
f2=2*x+y 
End Function 

以下是我的一个分析过程,由于我对流程图不是很擅长.就把每一话都分析了一下。
Dim Y As Integer
分析1 这一句定义了一个全局的整形变量y,对于这个y的理解是整个问题的关键.因为Y是全局变量,因此Y的值会保留,直到程序结束.又因为没有给Y赋值,所以系统会自动给Y赋0值.此时Y的值为0

Private Sub Command1_Click() '命令按钮1的单击事件
Dim x As Integer
这一句定义了一个过程级变量X.过程级变量指的是,该变量的生存期只在过程内,即在Command1_Click()过程内有效.若X在其他过程内出现,那么系统也会给X赋0值.
分析2 x=2 给X赋值.此时X的值为2

Text1.Text= f2(f1(x),y)
接下来也就到了程序的难点了.我相信你要的也是这一句的分析过程,当然,我也会详细的分析.
首先来简单说一下.这一句中,程序首先调用函数f1,得出f1的值,再调用函数f2,得出f2的值,最后再将f2的值在文本框内显示.
当程序执行到此处时,程序会首先调用函数f1,执行f1内的语句.也就是说,程序执行到此处时,会首先执行Private Function f1(x As Integer)As Integer 内的语句.
因此,这里跳到此语句分析.

Private Function f1(x As Integer)As Integer
这一句的意思是,函数f2返回一个整形变量,调用此函数时,必须提供一个参数X,该参数按址传递.当程序执行到此处时,程序会自动将调用者f1(参数)中的参数部分赋于X.

分析3 x=x+y
这一句的意思是,将X的值与Y的值相加,再赋于X.因为X=2,Y=0,所以X=2+0=2,即X=2.(关于为什么X=2,请参看分析2.为什么Y=0,请参看分析1),此时X=2.

分析4
y=y+x
这一句的意思就是,将Y的值与X想加,再赋于Y.因为X=2(为什么X=2?参见分析3),Y=0(为什么Y=0?参见分析1),所以Y=Y+X=0+2=2,此时Y的值为2,即Y=2.

分析5
f1=x+y
将X+Y的结果赋于f1.因为x=2(参看分析3),Y=2(参看分析4),所以f1=X+Y=2+4=4,也即f1=4.

当程序执行到这里后,由于已经得出f1的值,程序跳会Text1.Text=f2(f1(x),y)这一句执行.因为f1=4(为什么f1=4?参看分析5),所以此时代码可简化为:

Text1.Text=f2(4,y)

这一句的意思是,调用函数f2,再将f2的值赋于文本框,当中调用者提供了两个参数,即4和Y.

分析6
此时程序会跳到Private Function f2(x As Integer,y As Integer)As Integer 函数过程内执行.这个函数过程的意思是,将第一个参数赋于X,将第二个参数赋于Y.因为f2(4,y)第一个参数为4,因此X=4,第二个参数为Y,因此Y=Y.

分析7
f2=2*x+y
此为数学运算,意思再明显不过.计算2*X+Y的值,再将结果赋于f2,因此f2=2*x+y=2*4+2=8+2=10(为什么X等于4?参看分析6)(为什么Y等于2?参看分析4),所以f2=10.

计算出f2的值以后,回到Text1.Text=f2(4,y)内执行.因为f2=10(为什么等于10?参见分析7),即Text1.Text=10,所以文本框控件显示的是10.

请您自己分析Text2.Text=f1(x)这一句的程序执行结果.当中的要点我都已经进行了详细的解说,精确到点.如果您仍然不明白,那就应该好好的看一下书了.

vb Function 参数如何定义

一、子过程的定义与调用

1、子过程的种类

（1）在VB中，有两类子（SUB）过程：事件过程和通用过程

事件过程

事件过程是在响应事件时执行的代码块。事件过程一般由VB创建，用户不能增加或删除。缺省时事件过程是私有的。事件过程是附加在窗体和控件上的。其控件事件的语法为：

Private Sub <控件名>_<事件名>([形参表])

[（语句组）]

End SUB

通用过程

通用过程是指必须由其他过程显示调用的代码块。通用过程由用户自己创建。在一个过程中，通用过程可以被其他过程调用，这样会提高代码的利用率。通用过程又分为子过程和函数过程。

（2）定义通用过程

通用过程通常完成指定的任务，通用过程不与任何特定的事件相联系，只能由别的过程来调用，它可以存储在窗体或标准模块中。

子过程的形式如下：

[ Static][Public | Private ] Sub 过程名（[形参表]）

局部变量或常数定义

语句块

[Exit Sub]

语句块

End Sub

说明：可以将子过程放入标准模块、类模块和窗体模块中。按缺省规定，所有模块中的子过程为PUBLIC（公用的），这意味在应用程序中可随处调用它们；如果选用PRIVATE，只有该过程所在模块中的程序才能调用该过程。

如果使用STATIC（静态）关键字，则该过程中的所有局部变量的存储空间只分配一次，且这此致变量的值在整个程序运行期间都存在，即在每次调用该过程时，各局部变量的值一直存在；如果省略STATIC，过程每次被调用时重新为其变量分配存储空间，当该过程结束时释放变量的存储空间。

形参表类似于变量声明，它声明了从调用过程传递进来的值。指明了传送过程的变量个数和类型，各变量之间用逗号分隔。形式参数被缺省为具有Variant数据类型。

建立通用过程的目的之一就是减少重复代码，将公共语句放入离开的过程（通用过程）并由事件过程来调用它。

（3）创建新的通用过程

两种方法：

使用“添加过程”对话框

在“代码编辑器”窗口中输入

查看过程
查看当前模块中的过程

查看其他模块中的过程

（4）调用过程

形式：（1）CALL 子过程名[（实参列表）]

（2）子过程名[实参列表]

举例：

（1）在一个窗口中包含3个命令按纽，当用户单击其中一个时，要求其他个别按纽不能使用，并且窗口中按纽是相同的，其处理方法一致，用一个过程来实现。

（2）利用子程序的设计方法，先分别计算5!+6!+8!值的程序。

二、函数过程的定义和调用

函数是过程的另一种形式，当子过程的执行返回一个值时，把它作为函数就比较简单。VB包含了许多内置的或内部的函数，用户在编写程序时，只需要写出一个函数名并给定参数就能得出函数值。当程序中需要多次用到某一公式或要调用它们，这样的函数称为用户定义函数。用户定义函数与内部函数一样，可以在程序中或函数嵌中使用。

函数过程的定义

（1）利用“工具”菜单下的“添加过程”命令定义

（2）利用代码窗口直接定义

自定义函数过程的形式如下：

[ Static][Public | Private ] Function 函数过程名（[参数列表]）[AS 类型]

局部变量或常数定义

语句块

函数名=返回值

[Exit Function]

语句块

函数名=返回值

End Function

函数过程的调用

形式：函数过程名（[参数列表]）

说明：在VB中调用FUNCTION过程的方法和调用任何内部函数的方法是一样的。还可以像调用SUB过程那样调用函数过程。

例：已知直角三角形两直角边的值，计算第三边（斜边）的函数。

Function nuse(a as interger,b as interger ) as single

Nuse=sqr(a^2+b^2)

End Function

在VB中调用FUNCTION过程的方法：strx=nuse(width,Height)

也可以用下面的语句调用了同一个函数过程：call nuse(3,6) 或 nuse 3,6

举例：

（1）设计计算圆面积的用户定义函数。

（2）已知长和宽，计算矩形面积的函数。

（3）设计求任意整数N的阶乘的函数，然后求3到10的阶乘之和。

注：函数与过程的区别

函数以FUNCTION开头，而过程以SUB开头

当过程有一个返回值时，可以使用函数。当过程有多个返回值时，就当用过程。

函数是通过函数名回送一个结果值。在函数的形式参数表后面要说明函数（即结果）的类型。而过程的结果由参数送回。

函数体中至少要包括一个给函数赋值的语句。而过程不能给过程名赋值。

函数的调用出现在表达式中。而过程的调用必须作为一个单独的语句。

形参没有具体的值，只代表了参数的个数、位置、类型；只能上简单变量，不能是常量、数组元素、表达式。

三、参数传递

在调用一个有参数的过程，首先进行的是“形实结合”，即按传值传递或按地址传递方式，实现调用程序和被调用的过程之间的数据传递。通过参数传递，Sub过程或Function过程就能根据不同的变量执行同种任务。为了叙述方便，将形式参数简称为形参，实在参数简称为实参。

在Visual Basic中传递参数有两种方式，即按值传递(Passed by Value)和按地址传递(Passed by refecence)。按值传递参数时，传递的只是实参变量的副本。如果在被调过程中改变了形参值，只影响副本，而不会影响实参变量本身。即当控制返回调用程序时，实参变量保持调用前的值不变。在定义过程时，若形参名前面没有关键字“ByVal”，即形参名前面缺省修饰词，或有“ByRef”关键字时，则指定了它是一个按地址传递的参数。按地址传递参数时，把实参变量(简单变量、数组元素、数组以记录等)的地址传送给被调过程。因此实参变量的地址和与之结合的形参地址是相同的，也就是说形参和实参共用内存的同一“地址”，即共享同一个存储单元。这样在被调过程中的形式参数值一旦被改变，相应的实参值也跟随着被改变了。

形式参数与实际参数

形式参数是指在定义通用过程时，出现在SUB或FUNCTION语句中的变量，是接收传送子过程的变量。形式参数表的各个变量之间用逗号分隔。实际参数是指在调用SUB或FUNCTION过程时，传送给SUB或FUNCTION过程的常量、变量或表达式。实参表可由常量、表达式、有效的变量名、数组名组成，实参表中各参数用逗号分隔。

按值传递和按地址传递

传递参数的方式有两种：如果CALL语句中的实际参数是常量或表达式，或者定义过程时选用ByVall关键字，就可以按值传递。如果CALL语句中的实际参数为变量，或者定义过程时选用ByRef关键字，就可以按地址传递。否则缺省按地址传递参数。

（1）按值传递参数

按地址传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变量只影响副本而不会影响变量本身。当要求变量按值传送时，可以先把变量变成一个表达式，把变量转换成表达式的最简单的方法就是把它放在括号内。或者定义过程时用ByVal关键字指出参数是按值来传递的。例如：Sub Post (ByVal num as Integer )

例：运行下面给出的程序，理解按值传递参数。

Private Sub Form_Click( )

     Dim a as intger,b as integer,c as integer

     A=5: b=3 : c=9

Cls

Print a; b; c

Call prod( (a),(b),(c) )

Print a; b; c

End     Sub

Sub prod (a as intger,c as integer )

     Print a; b; c

a=6 : b=8 : c=a*b

     print a; b; c

（2）按地址传递参数

按地址传参数，就是让过程根据变量的内存地址去访问实际变量的内容，即形式参数与实际参数使用相同的内存地址单元， 这样通过子过程就可以改变变量本身的值。系统缺省按地址传递参数。在传递调用时，实际参数必须是变量，常量或表达式无法传址。

例：运行下面给出的程序，理解按地址传递参数。

Private Sub Form_Click( )

     Dim a as intger,c as integer

     A=5: b=3 : c=9

Cls

Print a; b; c

Call prod( a,b,c )

Print a; b; c

End Sub

Sub prod (x as intger,y as integer,z as integer )

     Print x; y; z

x=6 : y=8 : z=x*y

     print x; y; z

举例：

Private Sub Form_Click( )

     Dim x as intger,y as integer

     X=8 : y=3

     Call test(5,x,y+1)                  ‘5传值，X传址， Y+1传值

Print “主程序”,5,y

End Sub

Sub test (a as intger,c as integer )

     Print “子程序”,a,c

     A=2: b=4: c=9

End Sub

四、过程的嵌套和递归调用

1、过程的嵌套

2、过程的递归调用

递归调用是指一个过程直接或间接调用自己本身，即自己调用自己。VB的过程具有递归调用功能，递归调用在处理阶乘运算、级数运算、幂指数运算等方面特别有效。

递归是一种十分有用的程序设计技术。由于很多的数学模型和算法设计方法本来就递归的。用递归过程描述它们比用非递归方法简洁易读，可理解性好，算法的正确性证明也比较容易，因此读者应掌握递归程序设方法。递归过程是在过程定义中调用(或间接调用)本过程的过程。在递归调用中，一个过程执行的某一步要用到它自身的前面一步或前若干步的结果。

五、变量的作用范围

作用域 定义方式

局部变量 Dim，Static
模块级变量Dim，Private

全局变量 Public

变量的定义位置

过程之中

模块的声明段中

模块的声明段中

能否被本模块中其它过程访问

×

√

√

能否被其它模块访问

×

×

√

变量的作用范围不同时，变量的名字可以相同。变量的作用范围还可以出现交叉。一般来说，当变量名称相同而作用域不同时，局限性大的变量总会用“阴影”遮住局限性不太大的变量（即优先访问局限性大的变量）。例如，程序中有一个模块级变量Temp,还有一个名为Temp的过程级变量，则它的“阴影”会遮住模块级变量Temp。

在一个过程内部用Dim语句定义的变量是局部变量，只有在定义它们的过程中才能访问或改变变量的值，这样的变量成为局部变量；为了使某个变量在整个模块的所有过程中都能使用，在模块的（通用）和（声明）部分使用Private或Dim语句定义的变量就是模块级变量，在该模块中任何过程都可以对模块级变量进行读、写操作；在模块的（通用）和（声明）部分使用Public语句定义的变量就是全局变量，在应用程序的任何部分都可以对全局变量进行读、写操作。

使用Dim在过程中定义的变量，在过程结束后变量的值不能被保存下来。在每一次过程重新执行时，变量的内容将被清除。如果希望在离开该过程后，还能保存过程中局部变量的值，就应该使用Static关键字在过程中定义局部变量，即使过程结束，变量的值仍然保留着。

Visual Basic程序的窗体模块、标准模块和类模块可以定义变量，在过程和函数中也可以定义变量。在不同部分定义的变量在程序中的适用范围是不同的。Visual Basic中的变量可以分为局部变量（过程级变量）、模块级变量和全局变量。

过程级变量

在一个过程内部声明变量时，只有该过程内部的代码才能访问或改变该变量的值。过程级变量的作用范围限制在该过程。在过程内部使用DIM或STATIC关键字声明变量。

如果在过程中未作说明而直接使用某个变量，该变量也被当成过程级变量。用STATIC说明的变量在应用程序的整个运行过程中都一直存在，而用DIM说明的变量只在过程执行时存在，退出过程后，这类变量就会消失。过程变量通常用于保存临时数据。

1、过程级变量

在模块有声明中声明的变量属于模块级变量。模块级变量分为两种：私有和公有。

（1）私有的模块变量

私有的模块级变量在说明它的整个模块中的所有过程中都能使用，但其他模块却不能访问该变量。说明方法是在模块的声明中使用PRIVATE或DIM关键字声明变量。

（2）公有的模块级变量

公有的模块级变量在所有模块中的所有过程中都能使用。它的作用范围是整个应用程序，因此公有模块级变量属于全局变量。说明方法是在模块的声明中使用PUBLIC关键字声明。

全程变量是指在所有程序（包括主程序和过程）中都可以使用的内存变量。全程变量就像在一个过程中定义的变量一样，在子过程中可以任意改变和调用，当某子过程执行完后，其值带回主程序。

2、变量的生存期

（1）动态变量

动态变量是指程序运行后进入变量所在的子程序，才分配该变量的内存单元，经过处理退出该过程，该变量占用的内存单元自动释放，其值消失，其内存能被其他变量占用。

使用DIM关键字在过程中声明的局部变量，在过程执行结束后变量的值不被保留，在每一次重新执行过程时，变量重新声明。用DIM声明的变量属于动态变量。

（2）静态变量

静态变量是指程序运行进入该变量所在的子程序，修改变量的值后，退出该子程序，其值仍被保留，即变量所占内存单元没有释放。当以后再次进入该子程序，原来变量的值可以继续使用。

使用STATIC关键字在过程中声明的局部变量，就属于静态变量。静态变量在过程退出后仍然可以保持原来的值。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!