共用方式為

如何：建立程序 (Visual Basic)

  • 發行項

您可以在起始宣告陳述式 (Sub 或 Function) 和結束宣告陳述式 (End Sub 或 End Function) 之間括住程序。 所有程序的程式碼都位於這些陳述式之間。

程序不能包含另一個程序，因此它的開始和結束陳述式必須在任何其他程序之外。

如果您有在不同位置執行相同工作的程式碼，您可以將工作撰寫一次為程序，然後從程式碼中的不同位置呼叫它。

若要建立不傳回值的程序

  1. 在任何其他程序之外，使用 Sub 陳述式，後面接著 End Sub 陳述式。

  2. 在 Sub 陳述式中，在 Sub 關鍵字後面加上程序的名稱，然後是以括弧括住的參數清單。

  3. 將程序的程式碼陳述式放在 Sub 和 End Sub 陳述式之間。

若要建立傳回值的程序

  1. 在任何其他程序之外，使用 Function 陳述式，後面接著 End Function 陳述式。

  2. 在 Function 陳述式中，在 Function 關鍵字後面加上程序的名稱、以括弧括住的參數清單，然後是指定傳回值之資料類型的 As 子句。

  3. 將程序的程式碼陳述式放在 Function 和 End Function 陳述式之間。

  4. 使用 Return 陳述式，將值傳回給呼叫端程式碼。

將新程序與舊的、重複的程式碼區塊連接

  1. 請務必在舊程式碼可以存取程序的地方定義新的程序。

  2. 在舊的重複程式碼區塊中，將執行重複工作的陳述式取代為呼叫 Sub 或 Function 程序的單一陳述式。

  3. 如果您的程序是傳回值的 Function，請確定您的呼叫陳述式會執行具有傳回值的動作，例如將它儲存在變數中，否則值將會遺失。

範例

下列 Function 程序會根據其他兩端的值，計算右三角形的最長邊或斜邊：

Function Hypotenuse(side1 As Double, side2 As Double) As Double
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function

另請參閱