8.1  Sub過程

8.1.1  Sub過程的建立

１．定義Sub過程

過程定義的語法格式為：

[Static][Private][Public]Sub過程名 ([形參表])

語句塊1

[Exit Sub]

[語句塊2]

End Sub

說明：

(1) Static：指定過程中的局部變量在內(nèi)存中的存儲方式。

(2) Private：表示Sub過程是私有的，只能被本模塊中的其他過程訪問，不能被其他模塊中的過程訪問。

(3) Public：表示Sub過程是公有過程，可以在程序的任何地方調(diào)用它。若省略，則默認(rèn)為Public過程。

(4) 過程名：命名規(guī)則與變量命名規(guī)則相同。無參數(shù)時，過程名后的括號不能省略。

(5) 形參表：含有在調(diào)用時傳送給該過程的簡單變量名或數(shù)組名，各參數(shù)名之間用逗號隔開。

(6)  Exit Sub語句表示立即退出過程，一般出現(xiàn)在選擇結(jié)構(gòu)中。

(7) End Sub標(biāo)志著Sub過程的結(jié)束。

(8) Sub過程不能嵌套定義。

【例8.1】計算n!。

２．建立Sub過程

通用過程可以在標(biāo)準(zhǔn)模塊過程中建立，也可以在窗體模塊中建立。舉例說明在標(biāo)準(zhǔn)模塊中建立通用過程，的兩種方法。

8.1.2  調(diào)用Sub過程

Sub過程的調(diào)用有兩種方法：使用Call語句；直接使用過程名。

１．Call語句調(diào)用Sub過程

格式：Call  過程名[(實際參數(shù))]

２．過程名作為一個語句來使用

與第一種方式相比，它有兩點不同：

(1) 去掉關(guān)鍵字Call：

(2) 去掉“實際參數(shù)”的括號。

【例8.2】編寫一個計算矩形面積的Sub過程，然后調(diào)用該過程計算矩形面積。

8.1.3  調(diào)用過程與事件過程

舉例說明過程調(diào)用。

１．在事件過程中調(diào)用另一個事件過程

Public Sub Command1_Click()  'Form2中的Command1的Click事件過程

Form1.Command1_Click  '調(diào)用Form1中的Command1的Click事件過程

End Sub

２．在同一事件過程中調(diào)用兩個標(biāo)準(zhǔn)模塊中具有相同名字的通用過程

Public Sub Command1_Click()  'Form1中的Command1的Click事件過程

Module1.Proce  '調(diào)用標(biāo)準(zhǔn)模塊Module1中的名為Proce的通用過程

Module2.Proce  '調(diào)用標(biāo)準(zhǔn)模塊Module2中的名為Proce的通用過程

End Sub

一般來說，通用過程（包括Sub過程、Function過程）之間、事件過程之間、通用過程與事件過程之間，都可以相互調(diào)用。當(dāng)在一個模塊中調(diào)用其他模塊中的過程時，被調(diào)用的過程必須是“公用的”（Public）。

8.2        Function過程

8.2.1  Function過程的定義

Function過程定義的格式為

[Static][Private][Public]Function函數(shù)名（[形參表]） [As類型]

        [語句塊]

     [函數(shù)名=表達式]

     [Exit Function]

         [語句塊]

End Function

說明：

(1) Function過程以Function開頭，以End Function結(jié)束，在兩者之間是描述過程操作的語句塊，即“過程體”或“函數(shù)體”。

(2) 函數(shù)名即函數(shù)過程的名稱，命名規(guī)則與變量相同。

(3) 表達式的值是函數(shù)返回的結(jié)果，通過賦值語句將其賦給函數(shù)名。

(4)不能在事件過程中定義通用過程（包括Sub過程和Function過程），只能在事件過程內(nèi)調(diào)用通用過程。

【例8.3】編寫一個求最大公約數(shù)的函數(shù)過程。

8.2.2  調(diào)用Function過程

以調(diào)用求最大公約數(shù)的函數(shù)為例說明可以像使用Visual Basic內(nèi)部函數(shù)一樣來調(diào)用Function過程。

8.3 參數(shù)傳送

8.3.1  參數(shù)傳送方式

舉例說明參數(shù)傳送方式。

1．傳值

【例8.4】編寫程序，試驗按值傳遞

Sub tryout(ByVal x As Integer,ByVal y As Integer)

     x=x+100

     y=y*6

     Print"x=";x."y=";y

End Sub

Sub Form_Click()

Dim a As Integer, b As Integer

   a=10:b=20

   tryout a,b

   Print "a=";a, "b=";b

End Sub

程序運行后，輸出結(jié)果如下：

x=110       y=120

a=10        b=20

2．傳地址

【例8.5】編寫程序，試驗引用方式傳送參數(shù)。

Sub tryout(x As Integer ,y As Integer)

    x=x+100

    y=y*6

    Print "x=";x, "y=";y

End Sub

Sub Form_Click()

     Dim a As Integer, b As Integer

     a=10:b=20

     tryout a,b

      Print "a=";a, "b=";b

End Sub

小結(jié)：

在Visual Basic中，常用的過程主要有兩類：一類由系統(tǒng)提供，包括事件過程和內(nèi)部函數(shù)過程；另一類是自定義過程，由程序設(shè)計者根據(jù)需要自行編制，主要包括通用過程和自定義函數(shù)過程。事件過程和通用過程合稱為子過程（Sub過程），自定義函數(shù)過程簡稱為函數(shù)過程（Function過程）。

當(dāng)在程序中需要多次用到某一公式或處理某一函數(shù)關(guān)系，而又沒有現(xiàn)成的內(nèi)部函數(shù)能夠使用時，可以用Function語句編寫自定義函數(shù)過程實現(xiàn)相應(yīng)的功能。一旦編寫完成后，在程序中就可以像使用內(nèi)部函數(shù)一樣使用Function過程。Function過程也是一個獨立的過程，但與Sub過程不同，Sub過程沒有返回值，只能作為獨立的基本語句被調(diào)用，不能出現(xiàn)在表達式中；而Function過程有返回值，既可出現(xiàn)在表達式中，也可以作為獨立的語句被調(diào)用。

參數(shù)是主調(diào)過程和被調(diào)過程之間傳送數(shù)據(jù)的重要手段。在調(diào)用一個過程時，必須把實際參數(shù)傳送給過程，完成形式參數(shù)與實際參數(shù)的結(jié)合，然后用實際參數(shù)執(zhí)行調(diào)用的過程。

本講重點介紹Sub過程和Function過程的結(jié)構(gòu)框架如何定義，以及如何調(diào)用一個已寫好的自定義過程，進而介紹過程調(diào)用的參數(shù)傳遞機制。

作業(yè)：

1．Sub過程和Function過程有何區(qū)別？

2．怎樣創(chuàng)建Sub過程和Function過程？

3．怎樣調(diào)用Sub過程和Function過程？

4．什么是形參？什么是實參？它們之間有何區(qū)別？

5．什么是值傳遞？什么是地址傳遞？它們之間有何區(qū)別？