這是一個使用者自定義的函式，函式名為fun。

實際上，函式也是一個程式模組，與過程相比，不同之處是函式執行完成後，函式的

計算結果(稱為“函式返回值”)被送到函式的呼叫點(即呼叫該函式的程式位置)上，供程式的後繼部分繼續進行處理，而過程是沒有返回值的。

雖然VB提供了常用的標準函式（如sin、cos、abs、asc、chr等等），可以使用這些標準函式來實現某些數學計算或資料型別的轉換，但許多應用程式常常需要自己來定義函式，以實現某種特定的計算。

可以按下面的方式自己來構造（規定）一個函式：

Function 函式名(引數表) As 資料型別名

語句塊

End Function

這裡，函式名是程式設計者為函式指定的名稱。引數表是對於函式需要的原始資料的型別一一地進行說明。As後的型別名，是說明函式的計算結果，即函式返回值的資料型別，函式計算完成後，VB自動地把函式返回值送到函式的呼叫點上，這樣，程式的其他部分能對這個結果作進一步的處理，最終完成計算任務。

例:設計一個函式Leap，判斷y年是否是閏年，若是，就返回True，否則，就返回False。

我們先構造一個函式Leap(y)：

Function Leap(y As Integer) As Boolean

If y mod 4=0 And y mod 100<>0 Or y mod 400 Then

Leap = True

Else

Leap = False

EndIf

End Function

這其中的語句塊，描述了函式的計算過程，在這些語句中，至少要有一個形如“函式名=表示式”

‘例如：上函式模組中的Leap=True、Leap=False 的語句，這樣，表示式的計算結果才能作為函式的返回值，被VB送到函式的呼叫點上。

把“判斷y年是否是閏年”這樣一個計算過程從整個應用程式中分離出來，成為一個獨立的模組(模組可以是一個函式，也可以是一個過程)，這是一種模組化的程式設計方法。使用這種方法的好處是：

(1)在設計(構造)這個模組時，需要處理的計算任務比起整個應用程式來相對地要簡單些，例如，在這裡需要設計的計算過程僅僅是按一定的規則判斷y年是否是閏年，並按規定返回O或1這兩個結果之一，而不需要考慮資料y是怎麼獲得的，y年是閏年要進行怎樣的處理，y年不是閏年又要進行怎樣的處理等問題，這些是應用程式其他部分的任務。

(2)構造了一個程式模組後，在程式的各個部分中可以使用這個模組。