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

会计考友 · 发表于 2012-7-31 22:10:12

　3.8.1 子过程　　VB程序是由多个过程构成的，这些过程可分为两大类;其中一类是系统提供的事件过程，例如窗体或按钮的Click事件过程等。事件过程是构成VB应用程序的主体，由事件触发执行，例如单击按钮，则按钮的Click事件过程就会执行。在前面的一些实例中用到的都是事件过程。
　　另一类过程是通用过程，由用户根据需要自行定义，以供事件过程调用。在程序中，有些处理需要经常重复进行，这些处理的代码是相同的，只不过每次都以不同的参数调用。例如，要计算整数1~n的累加结果，n的人小可以由用户决定，因此它是不确定的。这样就可以定义一个以n为参数的过程，为了得到不同n时的累加结果，以不同的参数n调用该过程就可以了。使用过程的好好就在于使得程序简练，同时也便于程序的设计与维护。
　　通用过程又一可以分为Sub子过程(简称子过程)和Function函数过程(.简称函数过程).
　　子过程用来完成特定的任务，其定义有两种方法。
　　1.直接在【代码】窗口中输入。
　　打开窗体或标准模块的【代码】窗口，将插入点定位在所有现有过程的外面，然后输入子过程即可。
　　子过程的形式如下：
　　[Private][Public][Static]Sub[(参数表)]
　　
　　[Exit Sub]
　　
　　End Sub
　　具体说明如下：
　　Sub是子过程的开始标记，End Sub是子过程的结束标记，是具有特定功能的程序段，Exit Sub语句表示退出子过程。
　　如果在子过程的前面加上Private,则表示它是私有过程，其作用范围局限于本模块。如果在子过程的前面加上Public,则表示它是公用过程，可在整个应用程序范围内调用。可见，子过程的作用域与变量的作用域类似。

会计考友 · 发表于 2012-7-31 22:10:13

表3.11中详细列出了子过程的作用范围及调用规则。
　　

　　如果在子过程名的前面加上Static,则表示该过程中的所有局部变量都是静态变量。
　　参数是调用子过程时给它传送的信息子。过程可以有参数，也可以不带参数，没有参数的过程称为无参过程。如果带有多个参数，则各参数之间使用逗号隔开。子过程中的参数表形式为：
　　[ByVal][As][.[ByVal][Asl,…].
　　参数可以是变量，也可以是数组。当参数是数组时，参数声明时应省略其维数，但括一号不能省。这里的参数称为形参，在定义时它没有位。在参数名前有Byval关键字表示当该过程被调用时，参数的传递方式是传值，否则是传址。关于参数以及参数的传递在后面还会详细介绍。
　　2.使用【添加过程】对话框
　　为了省去输入子过程框架的麻烦，也可以通过【添加过程】对话框在【代码】窗口中自动添加，步骤如下：
　　(1)打开想要添加子过程的【代码】窗口。
　　(2)执行【工具】菜单中的[添加过程】命令，打开【添加过程】对话框，如图3.22所示。
　　(3)在【名称】文本框中输入子过程名，在【类型】组中选中【子程序】单选按钮，在【范围】组中选择子过程的作用范围。如果选中【所有本地变量为静态变量】复选框，在子过程名前将加上Static关键字。
　　(4)设置完毕后，单击【确定】按钮，则代码窗口中就出现了相应的子过程的框架，如图3.23所示。其中在【添加过程】对话框中输入的名称是Abc选择的范围是"公有的"。

　　

　　提示：使用【添加过程】对话框添加的子过程总是无参过程，用户可自行为子过程添加参数和编写过程体。
　　在定义了子过程后，就可以在事件过程或其他过程中调用了。调用子过程有两种方法：
　　使用Call语句：Call(参数表)
　　直接使用过程名：[]
　　注意：当使用Call关键字时，参数表必须放在括号内，若省略Call关键字，也必须同时省略括号。
　　函数过程与子过程一样，也是用来完成特定功能的独立程序代码。与子过程不同是，函数过程可以返回一个值给调用程序。
　　函数过程的形式如下：
　　[Private][Public][Static]Function[(参数表)][As类型]
　　
　　[Exit Function]
　　
　　End Function
　　可见，函数过程的形式与子过程的形式类似。Function是函数过程的开始标记，End Function是函数过程的结束标记，是具有特定功能的程序段，ExitFunction语句表示退出函数过程。As子句决定函数过程返回值的类型，如果忽略As子句，则函数过程的类型为变体型。其他各部分的功能同子过程中相应部分的含义完全相同。
　　由于函数过程要返回一个值，因此，在过程内部应该至少有一条为〔函数名就像一个变量)赋值的语句。
　　同样，也可以使用【添加过程】对话框在【代码】窗口中添加函数过程的框架，只要在【类型】组中选择【函数】单选按钮即一可。
　　函数过程是用户自定义的函数，它的调用与使用VB的内部函数没有区别口最简单的情况是将函数的返回值赋给一个变量，其形式为：
　　变量名=函数名(参数表)

会计考友 · 发表于 2012-7-31 22:10:14

实例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,在定义的同时也可指定它的默认值。需要注意的是，可选参数一定要位于子过程或函数过程的末尾。

会计考友 · 发表于 2012-7-31 22:10:15

　　实例3.8使用可选参数
　　编写一个用于计算两个实数的和以及平均值的子过程，该子过程具有一个可选参数，在调用子过程时，如果不提供与可选参数对应的实参，或实参的值为0,则在窗体上只打印两个数的和;如果提供了一个不为0实参，则在窗体上还将打印出两个数的平均值。
　　具有可选参数的子过程的代码如下：
　　Private Sub(x As Single,y As Single,Optional n As Boolean=0)
　　Dim s As Single,A As Single
　　s=x=y
　　A=S/2
　　If n=False Then
　　Print“总和为：”& S
　　Else
　　Print“总和为：”& S
　　Print“平均值为：”& A
　　End If
　　End Sub
　　在窗体的Click事件过程中调用子过程Sum.代码如下：
　　Private Sub Form_Click()
　　Print “不提供与可选参数对应的实参”
　　Sun 6，9
　　Print “提供与可选参数对应的实参，并且实参为0：”
　　Sun 6，9,0
　　Print 空行
　　Print “提供与可选参数对应的实参，并且实参不为0：”
　　Sun 6，9,1
　　End Sub
　　运行程序，单击窗体，结果如图3.25所示。

　　

　　递归是推理和问题求解的一种强有力方法，原因在于许多对象，特别是数学研究对象具有递归的结构。简单地说，如果通过一个对象自身的结构来描述或部分描述该对象就称为递归。最简单而易于理解的一个例子是阶乘的递归定义。如果以函数f(n〕表示自然数n的阶乘的道，则有定义：
　　递归定义使我们能够用有限的语句描述一个无穷的集合。本例描述一个无穷的集合只用了两个语句。
　　VB程序设计语言允许一个过程体有调用自身的语句，称为递归调用。也允许调用另一过程，而该过程又反过来调用本过程，称为间接递归调用。这种功能为求解具有递归结构的问题提供了强有力手段，使程序语言的描述与问题的自然描述完全一致，因而使程序易于理解，易于保证和维护。例如，对于上面的n阶乘的递归定义，可以写出相应的VB函数过程，如下面的实例3.9.这个过程的推理(计算)路线与原来函数的(递归)数学定义完全一致。
　　实例3.9求n阶乘的VB函数过程
　　Private Function F(byval n As Integer) As Integer
　　If n=1 Then
　　F=1
　　Else
　　F=n*F(n-1)
　　End If
　　End Function
　　让我们来跟踪这个程序的计算过程，令n=4调用这个函数，用下面的形式来表示递归求解的过程：
　　(1)F(4)=4*F(3) n=4调用函数过程F(3)
　　(2)F(3)=3*F(2) n=3调用函数过程F(2)
　　(3)F(2)=2*F(1) n=2调用函数过程F(1)
　　(4)F(1)=1 n=1求的F(1)的值
　　(5)F(2)=2*1=2 回归，n=2，求得F(2)的值
　　(6)F(3)=3*2=6 回归，n=3，求的F(3)的值
　　(7)F(4)=4*6=24 回归，n=3，求得F(4)的值
　　上面第1步到第4步求出F(1)=1的步骤称为递推，从第4步到第7步求出F(4)=4*6的步骤称为回归。
　　从这个例子可以看出，递归求解有两个条件：
　　给出递归终止的条件和相应的状态。
　　在本例中递归终止的条件是n=1,状态是F(1)=1.
　　2.给出递归的表述形式，并且这种表述要向着终止条件变化，在有限步内达到终止条件。
　　在本例中，当n>l时，给出递归的表述形式为F(n)=n*F(n-1).函数值F(n)用函数值F(n-1)来表示。参数的值向减少的方向变化，在第n步出现终止条件n=1。

		自动登录	找回密码
密码			立即注册

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