2011年度计算机等级考试二级VB复习指导(16)

　　实例3.6使用函数过程

　　编写一个函数，用来计算整数1 ~n的累加结果，n的大小在调用函数时指定。为此，编写一个以n为参数的函数过程，代码如下：

　　Private Function Sum(n As Integer) As Ineger

　　Dim s As Integer

　　S-0

　　For j=1 To n

　　s=s+i

　　Next

　　Sum=s

　　End Function

　　在窗体的Click事件过程中调用自定义的函数，代码如下：

　　Private Sub Prom_Click()

　　Dim r As Integer

　　r=Sum(100)

　　Print F

　　Ebs Sub

　　在调用自定义过程时，调用者是通过参数向过程传递信息的。通常，把自定义过程中的变量称为形参;把调用这个过程时使用的参数称为实数。在VB中，参数的传递方式有两种：传址和传值，其中传址也被称为引用，是VS默认的参数传递方式。如果在定义过程时，在形参前加上关键字ByVal则参数传递方式变为传值。

　　传址是指在调用过程时，将实参的地址传递给形参。因此，在被调用的过程体中对形参的任何操作都变成了对实参的操作。例如，当形参的值变为原来的2倍时，则实参的值也变为原来的两倍。

　　传值是指在调用过程时，将实参的值赋给形参，而实参本身与形参没有联系。因此，在被调用过程体中对形参的任何操作都不会影响到实参。

　　实例3.7传址和传值

　　编写一个用于交换两个数的子过程Swl,该过程采用传址方式传递参数，过程代码如下：

　　private Sub Swl (a As Single,b As Single)

　　Dim s As Single

　　s=b

　　b=a

　　a=s

　　End Sub

　　再编写一个过程体与Swl完全相同的子过程Sw2,不同的是Sw2采用的是传值方式传递参数，过程代码如下：

　　Private Sub Sw2 (Byval a As Single,Byval b As sinlgle)

　　Dim s As Single

　　s=b

　　b=a

　　a=s

　　End Sub

　　编写窗体的Click事件过程，在该过程中使用相同的参数分别调用子过程Swl和Sw2,代码如下：

　　Private Subb Form_click()

　　Dim x As single

　　Dim y AS Single

　　x=10

　　y=20

　　Print “x=“& x

　　Print “y=“& y

　　swl x，y 调用子过程swl

　　Print "使用子句swl交换两个数后：

　　Print “x=“& x

　　Print “y=“& y

　　x=10 重新给x，y赋值

　　y=20

　　sw2x，y 调用子过程sw2

　　Print “使用子过程sw2交换两个数后：”

　　Print“x=”& x

　　Print“y=”& y

　　End Sub

　　运行该程序，单击窗体，结果如图3.24所示。从打印出的结果可以看出，调用子程序Swl达到了交换两个数的目的，而调用子程序Sw2后，两个数却没有发生任何变化。这就是因为子程序Sw2采用的是传值的方式，实参x和Y仅仅是将它们的值分别赋给了形参a和b,而x/y本身与a/b没有任何联系，因此，在过程体中对形参a和b的操作不会影响到x和y。

　　在前面的实例中，我们可以看到自定义过程的形参个数总是固定的，并且在调用它时，必须提供与形参相对应的实参，即实参的个数与类型要与形参的完全相同。

　　在VB中，也可以定义具有可选参数的过程，所谓"可选参数"是指过程中的一类特殊形参，在调用过程时，可以为它们提供实参也可以不提供实参。如果不提供实参，则可选参数使用它的默认值。

　　将某个形参定义为可选参数的方法是在它的名称前加上关键字Optional,在定义的同时也可指定它的默认值。需要注意的是，可选参数一定要位于子过程或函数过程的末尾。

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB复习指导汇总