7章节 过程.pptVIP

第7章 过程;7.1 过程;7.1.1 Sub过程的定义;类型指定参数的数据类型，可以是Integer，Long，Single，Double，String，Variant或用户定义的其他类型。 如果省略“As 类型名”则默认为Object。变量名前的ByVal表明参数是按照值来传递，ByRef按照地址来传递。有关细节，本章后面将做详细介绍。这里的参数在定义时并没有分配存储单元，只有在运行该过程时才分配，所以也称为形式参数。 End Sub表明过程的结束。每个Sub过程应该有一个End Sub语句，当程序执行到End Sub时，将结束该过程的运行。在过程体中，还可以包含一个或多个Exit Sub语句，当程序运行到Exit Sub语句时，也结束过程的运行。 Sub过程不能嵌套，即不能在Sub过程中再定义其他的Sub或Function过程。;例如，定义计算和打印矩形面积的Sub过程如下： Sub area(ByRef intA As Integer, ByRef intB As Integer) Dim intS As Integer intS = a * b TxtOutput.Text = The area is ＋ intS.ToString（） End Sub 该过程的名字为area，包含两个参数a和b，均为Integer型。过程可以没有参数，下面是一个不带参数的过程定义： Sub sums( ) Dim intA As Integer Din intB As integer intA = 3 intB ＝ 7 TxtOutput.Text = intA + intB = intA + intB End Sub;7.1.2 调用Sub过程;7.2 Function过程;例如，定义计算阶乘的Function过程如下： Function facts( intN As Integer) As Long Dim i As Integer Dim intResult As Long intResult = 1 For i = 1 To intN intResult = intResult * i Next Return intResult End Function 该函数过程包含一个Integer型的形参，其返回值为Long型。可以看到，过程体中包含Return语言，返回值等于参数intN的阶乘。;7.2.2 Function过程的调用;7.3 参数传递;7.3.1.1传值; 下面是一个简单的例子。新建一个项目，取名为Swap，在窗体上放置一个TextBox和Button控件。属性的设置和第5章中第一个例子一样。在窗体上单击右键，选择查看代码从而打开代码窗口。在End Class前的空白处编写swap过程如下： Sub swap(ByVal intX As Integer, ByVal intY As Integer) Dim intTemp As Integer TxtOutput.Text += 交换前intX和intY的值 + vbCrLf TxtOutput.Text += intX= + intX.ToString() + + intY= + _ intY.ToString() + vbCrLf intTemp = intX intX = intY intY = intTemp TxtOutput.Text += 交换后intX和intY的值 + vbCrLf TxtOutput.Text += intX= + intX.ToString() + + intY= + _ intY.ToString() + vbCrLf End Sub 该函数将两个形参intX和intY交换。由于其前面都有ByVal，所以他们都是按照值传递的参数。;随后为Button的Click事件编写代码，以调用swap过程。 Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click Dim intA As Integer = 30 Dim intB As Integer = 23 TxtOutput.Text += 调用swap前intA和intB的值 + vbCrLf TxtOutput.