陣列引數

mm117777

sub ArrayArg(x( ) as integer)
陣列 x( ) 需先宣告其資料型態及大小，並以傳址(ByRef)呼叫方式傳遞資料至副程式或函數，資料若有更動亦將傳回。

二維陣列引數範例 Function_2dArray.zip

引數呼叫的變數傳送類型

Call by Value 傳值呼叫(ByVal)
呼叫者將變數值傳給副程式或函數，在該副程式或函數中若有改變，不影響原值。

Call by Reference 傳址呼叫(ByRef，預設)
呼叫者將變數儲存位址傳給副程式或函數，在該副程式或函數中若有改變，即影響原值。

範例：《下載程式檔(.zip)》Private Sub Command1_Click()

    Dim X As Integer, Y As Integer, Z As Integer '宣告變數
    X = 1
    Y = 2
    Z = 3
    CallByValue X, Y, Z
    Print "傳出的 X 值為："; X
    Print "傳出的 Y 值為："; Y
    Print "傳出的 Z 值為："; Z
End Sub

Sub CallByValue(ByVal X As Integer, ByRef Y As Integer, Z As Integer)
    Print "傳入的 X 值為："; X
    X = 6 '變更X值
    Print "傳入的 Y 值為："; Y
    Y = 6 '變更Y值
    Print "傳入的 Z 值為："; Z
    Z = 6 '變更Z值
End Sub